MUNDOSAP

MUNDOSAP (foro/index.php)
-   Programación ABAP IV (foro/forumdisplay.php?f=4)
-   -   Generacion Bacth Input (foro/showthread.php?t=76679)

amam2605 19/01/17 17:37:03

Generacion Bacth Input
 
1 Adjunto(s)
Hola !!! Estoy trabajando con un programa que genera liquidacion de anticipos, ejecuta dos call transaction uno a la tx: ko01 (crear orden CO) y otra a la f-02, en la grabacion de la ko01 tiene la instruccion siguiente:


CLEAR : bdcdata.
REFRESH : bdcdata.
*---------------------------------
* 0100
*---------------------------------
PERFORM bdc_dynpro USING 'SAPMKAUF' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR' 'COAS-AUART'.
PERFORM bdc_field USING 'BDC_OKCODE' '=KOKR'.
PERFORM bdc_field USING 'COAS-AUART' 'Z001'.

*---------------------------------
* 0300
*---------------------------------

PERFORM bdc_dynpro USING 'SAPLSPO4' '0300'.
PERFORM bdc_field USING 'BDC_CURSOR' 'SVALD-VALUE(01)'.
PERFORM bdc_field USING 'BDC_OKCODE' '=FURT'.
PERFORM bdc_field USING 'SVALD-VALUE(01)' w_bukrs_co. " '2000'.

*---------------------------------
* 0100
*---------------------------------
PERFORM bdc_dynpro USING 'SAPMKAUF' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR' 'COAS-AUART'.
PERFORM bdc_field USING 'BDC_OKCODE' '=UEBS'.
PERFORM bdc_field USING 'COAS-AUART' 'Z001'.

*---------------------------------
* 0600
*---------------------------------
PERFORM bdc_dynpro USING 'SAPMKAUF' '0600'.
PERFORM bdc_field USING 'BDC_OKCODE' '=BUT2'.
PERFORM bdc_field USING 'COAS-KTEXT' 'Orden de Transporte'.
PERFORM bdc_field USING 'BDC_CURSOR' 'COAS-AUFEX'.
PERFORM bdc_field USING 'COAS-BUKRS'
* TI_VFKP-BUKRS. " 'ALLE'.
pa_bukrs.

PERFORM bdc_field USING 'COAS-GSBER' w_gsber. " 'División'.

PERFORM bdc_field USING 'COAS-SCOPE' 'GG'.
PERFORM bdc_field USING 'COAS-KOSTV' w_camion. " '46FDAD'.
PERFORM bdc_field USING 'COAS-AUFEX' ti_vfkp-fknum. " '1'.

*---------------------------------
* 0600
*---------------------------------
PERFORM bdc_dynpro USING 'SAPMKAUF' '0600'.
PERFORM bdc_field USING 'BDC_OKCODE' '=SICH'.
PERFORM bdc_field USING 'COAS-KTEXT' 'Orden de Transporte'.
PERFORM bdc_field USING 'BDC_CURSOR' 'COAS-CYCLE'.
PERFORM bdc_field USING 'COAS-WAERS' 'VEF'.
PERFORM bdc_field USING 'COAS-CYCLE' w_camion. " '46FDAD'.

CLEAR : messtab.
REFRESH : messtab.

CALL TRANSACTION 'KO01' USING bdcdata
MODE 'N'
MESSAGES INTO messtab.

CALL TRANSACTION 'KO01' USING bdcdata
MODE 'N'
MESSAGES INTO messtab.
cuando se chequea que valor hay en la messtab trae en el campo saplsp04 que es el nombre del programa en el batch input y no me trae un nro de orden. Anexo pantalla.Muchas gracias de antemano.

Saludos

AMAM

calanis 29/01/17 12:35:45

Buenos dias Amam!
Creo que lo conveniente es que observes que le envias al CALL TRANSACTION en la tabla interna BDCDATA
Igualmente creo que tienes repetida la sentencia CALL TRANSACTION

Saludos

amam2605 06/02/17 23:05:19

Muchas Gracias, voy a chequear eso que me indicas.



Husos Horarios son GMT. La hora en este momento es 21:27:45.

www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web