Tweet
Ayuda con batch imput
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.
Comentario