victor94
09/04/16, 13:51:49
Buenos dias tengo un problema el batch que estoy haciendo lo que pasa es que solo me lee la primera linea de mi TXT nose porque , este es mi codigo.
LOOP AT t_datos ASSIGNING <fs_datos>.
SELECT lifnr
INTO TABLE t_save
FROM lfa1
WHERE stcd1 EQ <fs_datos>-rucs.
LOOP AT t_save ASSIGNING <fs_save2>.
APPEND <fs_save2> TO t_save2.
ENDLOOP.
ENDLOOP.
LOOP AT t_save2 ASSIGNING <fs_save2>.
PERFORM bdc_dynpro USING 'SAPMF02K' '0101'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RF02K-D0120'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RF02K-LIFNR'
<fs_save2>-lifnr_001.
PERFORM bdc_field USING 'RF02K-D0120'
'X'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0120'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFA1-FITYP'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=UPDA'.
PERFORM bdc_field USING 'LFA1-FITYP'
'01'.
PERFORM bdc_field USING 'LFA1-STKZU'
'X'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-ST'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-01'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-02'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-03'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K . 1099ARI-04'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-05'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-06'.
opt-dismode = 'N'. "Modo Visual (para que vean como se ejecuta el batch, registro x reg.)
CALL TRANSACTION 'XK02' USING bdcdata OPTIONS FROM opt MESSAGES INTO messtab.
ENDLOOP.
LOOP AT t_datos ASSIGNING <fs_datos>.
SELECT lifnr
INTO TABLE t_save
FROM lfa1
WHERE stcd1 EQ <fs_datos>-rucs.
LOOP AT t_save ASSIGNING <fs_save2>.
APPEND <fs_save2> TO t_save2.
ENDLOOP.
ENDLOOP.
LOOP AT t_save2 ASSIGNING <fs_save2>.
PERFORM bdc_dynpro USING 'SAPMF02K' '0101'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RF02K-D0120'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RF02K-LIFNR'
<fs_save2>-lifnr_001.
PERFORM bdc_field USING 'RF02K-D0120'
'X'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0120'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFA1-FITYP'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=UPDA'.
PERFORM bdc_field USING 'LFA1-FITYP'
'01'.
PERFORM bdc_field USING 'LFA1-STKZU'
'X'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-ST'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-01'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-02'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-03'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K . 1099ARI-04'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-05'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMF02K 1099ARI-06'.
opt-dismode = 'N'. "Modo Visual (para que vean como se ejecuta el batch, registro x reg.)
CALL TRANSACTION 'XK02' USING bdcdata OPTIONS FROM opt MESSAGES INTO messtab.
ENDLOOP.