Ver Mensaje Individual
  #6  
Viejo 25/03/10, 01:36:09
guillermoabap guillermoabap is offline
Junior Member
 
Fecha de Ingreso: mar 2010
Localización: México city!
Mensajes: 3
Solución

Hola Jarpi, tu problema se soluciona simplemente añadiendo las líneas:

CALL TRANSACTION 'FB01' USING it_bdc MODE modo.

CLEAR it_bdc[].
Refresh: it_bdc[].


ANTES de cerrar el loop, así el índice de la cabecera aumentara y mandarás todos los datos de tu tabla a la transacción FB01.

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.

CALL TRANSACTION 'FB01' USING it_bdc MODE modo.

CLEAR it_bdc[].
Refresh: it_bdc[].

ENDLOOP.
Responder Con Cita