PDA

Ver la Versión Completa : Ayuda con batch imput


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.

Jesicka_21
19/04/16, 15:14:16
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.


Buenas tardes,

No se si lo resolviste pero el CALL TRANSACTION esta dentro del LOOP, con lo cual lo va a hacer por cada registro del t_save2.