Ver Mensaje Individual
  #4  
Viejo 31/10/08, 14:07:40
ibecerra
 
Mensajes: n/a
ejemplo de crear un batch input
data_itab: bdcdata bdcdata, "Batch input data of transaction
osea q definitivamente tienes q hacer un programa.

messtab bdcmsgcoll. "Collecting message in SAP system

PERFORM BDC_DYNPRO TABLES BDCDATA USING 'SAPMMPKR' '0091'.
PERFORM BDC_FIELD TABLES BDCDATA USING
'BDC_OKCODE'
'/00'.
PERFORM BDC_FIELD TABLES BDCDATA USING
'RMPKR-MATNR'
TI_DATA-MATNR.
PERFORM BDC_FIELD TABLES BDCDATA USING
'RMPKR-WERKS'
TI_DATA-WERKS.

CALL TRANSACTION 'LPK1' USING bdcdata
MODE P_MODE1
UPDATE 'S'
MESSAGES INTO messtab.



Eject
*----------------------------------------------------------------------*
* FORM bdc_dynpro *
*----------------------------------------------------------------------*
FORM bdc_dynpro TABLES bdcdata STRUCTURE bdcdata
USING program LIKE bdcdata-program
dynpro LIKE bdcdata-dynpro.
CLEAR: bdcdata.
* Initialize fields
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
* Append new record in table
APPEND bdcdata.
ENDFORM. "bdc_dynpro.
* Eject
*----------------------------------------------------------------------*
* FORM bdc_field *
*----------------------------------------------------------------------*
FORM bdc_field TABLES bdcdata STRUCTURE bdcdata
USING fnam
fval.
DATA:
nodata TYPE c VALUE '/',
fvalue LIKE bdcdata-fval.
* Checking...
CHECK fval NE nodata.
* Clear headers
CLEAR: bdcdata.
* Initialize fields
bdcdata-fnam = fnam.
bdcdata-fval = fval.
* Append new record in table
APPEND bdcdata.
ENDFORM. "bdc_field.
Responder Con Cita