[Jarpi]

Buenas tardes para todos,

Los molesto en esta oportunidad porque tengo una duda respecto a un BI que estoy haciendo para contabilizar SA por la trx. FB01. Les cuento como es el tema.

Levanto um archivo y lo vuelco a una tabla interna, que es la que luego utilizo para la carga del BI. Bien, lo que no se resolver es como hacer para que realice tantas imputaciones como filas tiene el archivo.

Cuando ejecuto, me pone bien los datos de cabecera y la primer imputación, pero las demás filas no me las toma.

Les pego el código para ver si me pueden ayudar.

REPORT YPRUEBAMULTICM.

DATA: BEGIN OF tabla,
bschl LIKE bseg-bschl,
hkont LIKE bseg-hkont,
wrbtr(16) TYPE c,
sgtxt LIKE bseg-sgtxt,
END OF tabla.


DATA: it_tabla LIKE TABLE OF tabla WITH HEADER LINE.
DATA: it_bdc LIKE TABLE OF bdcdata WITH HEADER LINE.
DATA: modo VALUE 'A'.

CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = 'c:\Prueba_Batch1.txt'
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = '*'
TABLES
DATA_TAB = it_tabla.

IF SY-SUBRC = 0.

LOOP AT it_tabla.

it_bdc-program = 'SAPMF05A'.
it_bdc-dynpro = '0100'.
it_bdc-dynbegin = 'X'.
it_bdc-fnam = ' '.
it_bdc-fval = ' '.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'BKPF-BUDAT'.
it_bdc-fval = '15012009'.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'BKPF-BLDAT'.
it_bdc-fval = '15012009'.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'BKPF-BLART'.
it_bdc-fval = 'SA'.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'RF05A-NEWBS'.
it_bdc-fval = it_tabla-bschl.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'RF05A-NEWKO'.
it_bdc-fval = it_tabla-hkont.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = 'SAPMF05A'.
it_bdc-dynpro = '0300'.
it_bdc-dynbegin = 'X'.
it_bdc-fnam = ' '.
it_bdc-fval =' '.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'BSEG-WRBTR'.
it_bdc-fval = it_tabla-wrbtr.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'BSEG-SGTXT'.
it_bdc-fval = 'Prueba'.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'DKACB-FMORE'.
it_bdc-fval = 'X'.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'BDC_OKCODE'.
it_bdc-fval = '/00'.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'BDC_OKCODE'.
it_bdc-fval = '=BU'.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = 'SAPLSPO1'.
it_bdc-dynpro = '0300'.
it_bdc-dynbegin = 'X'.
it_bdc-fnam = ' '.
it_bdc-fval = ' '.

APPEND it_bdc.
CLEAR it_bdc.

it_bdc-program = ' '.
it_bdc-dynpro = ' '.
it_bdc-dynbegin = ' '.
it_bdc-fnam = 'BDC_OKCODE'.
it_bdc-fval = '=YES'.

APPEND it_bdc.
CLEAR it_bdc.

ENDLOOP.

CALL TRANSACTION 'FB01' USING it_bdc MODE modo.
CLEAR it_bdc.
REFRESH it_bdc.

ENDIF.

Desde ya muchas gracias,
Saludos.