Skip to Content

0

Former Member

Apr 11, 2007 at 06:20 AM

BDC

32 Views

HI FRIENDS,

THIS A BDC PRO...

FIRST SCREEN

LOOP AT ITAB.

PERFORM SCREEN USING 'SAPMF02K' '105'.

PERFORM FIELD USING 'RF02K-LIFNR' ITAB-LIFNR.

PERFORM FIELD USING 'RF02K-BUKRS' ITAB-BURKS.

perform FIELD USING 'RF02K-KTOKK' ITAB-KTOKK.

PERFORM FIELD USING 'BDC_OKCODE' '/00'.

SECOND SCREEN
LOOP AT ITAB.

PERFORM SCREEN USING 'SAPMF02K' '0110'.

PERFORM FIELD USING 'LFA1-ANRED' ITAB-ANRED.

PERFORM FIELD USING 'LFA1-NAME1' ITAB-NAME1.

PERFORM FIELD USING 'LFA1-SORTL' ITAB-SORTL.

ENDLOOP.

PERFORM FIELD USING 'LFA1-LAND1' ITAB-LAND1.

PERFORM FIELD USING 'BDC_OKCODE' '/00'.

THIRD SCREEN

PERFORM SCREEN USING 'SAPMF02K' '0120'.

PERFORM FIELD USING 'BDC_OKCODE' '/00'.

FOURTH SCREEN

PERFORM SCREEN USING 'SAPMF02K' '0130'.

PERFORM FIELD USING 'BDC_OKCODE' '/00'.

FIFTH SCREEN

PERFORM SCREEN USING 'SAPMF02K' '210'.

PERFORM FIELD USING 'BDC_CURSOR' 'LFB1-AKONT'.

PERFORM FIELD USING 'LFB1-AKONT' ITAB-AKONT.

PERFORM FIELD USING 'LFB1-FDGRV' ITAB-FDGRV.

PERFORM FIELD USING 'BDC_OKCODE' '/00'.

SIXTH SCREEN

perform SCREEN USING 'SAPMF02K' '215'.

PERFORM FIELD USING 'BDC_OKCODE' '/00'.

SEVENTH SCREEN

perform SCREEN USING 'SAPMF02K' '220'.

PERFORM FIELD USING 'BDC_OKCODE' '/00'.

PERFORM FIELD USING 'BDC_OKCODE' '=SAVE'.

PERFORM SCREEN USING 'SAPLSP01' '0300'.

PERFORM FIELD USING 'BDC_OKCODE' '=YES'.

CALL TRANSACTION 'FK01' USING JTAB MODE 'A'.

PERFORM FIELD USING 'BDC_OKCODE' '=CLEA'.

ENDLOOP.

FORM SCREEN USING PRO DYN.

JTAB-PROGRAM = PRO.

JTAB-DYNPRO = DYN.

JTAB-DYNBEGIN = 'X'.

APPEND JTAB.

CLEAR JTAB.

ENDFORM.

FORM FIELD USING FNAME FVALUE.

JTAB-FNAM = FNAME.

JTAB-FVAL = FVALUE.

APPEND JTAB.

CLEAR JTAB.

ENDFORM.

HERE I HAVE GIVEN A LOOP AND IT IS NOT ACCEPTING MORE THAN ONE RECORD.IS THERE ANY SOLUTION FOR IT.

WITH REGARS,

MADHURI.