Perdon era hacer un do no el bdc_okcode =PAYM. Saludos
if cont1 = 11 or cont = 11.
cont = cont + 1.
if cont = 11.
band5 = 'TRUE'.
endif.
do 3 times.
perform bdc_dynpro using 'SAPMF05A' '1100'.
perform bdc_field using 'BDC_OKCODE' '/00'.
* PERFORM bdc_field USING 'RF054A-BUSCS' 'R'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLFDCB 0010PAGE'.
* PERFORM bdc_field USING 'invfo-acctn' gs_file-accnt.
* PERFORM bdc_field USING 'infvo-bldat' gs_file-bldat.
* PERFORM bdc_field USING 'invfo-xblnr' gs_file-xblnr.
* PERFORM bdc_field USING 'invfo-budat' gs_file-budat.
* PERFORM bdc_field USING 'invfo-wrbtr' gs_file-wrbtr.
perform bdc_field using 'BDC_SUBSCR' 'SAPLF0KI 0100SUBBAS01'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLFMPY_E 5002SUBBAS02'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLSEXM 0200SUBBAS03'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLSEXM 0200SUBBAS04'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLSEXM 0200SUBBAS05'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLFDCB 0070ADR'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLFSKB 0100ITEMS'.
perform bdc_field using 'BDC_CURSOR' 'ACGL_ITEM-KOSTL(10)'.
enddo.
cont1 = '10'.
endif.
