Generacion Bacth Input

[amam2605]

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]

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

CLEAR : messtab.
REFRESH : messtab.

[COLOR="Blue"]CALL TRANSACTION[/COLOR] 'KO01' [COLOR="Blue"]USING[/COLOR] bdcdata
[COLOR="Blue"]MODE[/COLOR] 'N'
[COLOR="Blue"]MESSAGES INTO[/COLOR] messtab.

[COLOR="Red"]CALL TRANSACTION 'KO01' USING bdcdata
MODE 'N'
MESSAGES INTO messtab.[/COLOR]

Saludos

[amam2605]

Muchas Gracias, voy a chequear eso que me indicas.

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

CLEAR : messtab.
REFRESH : messtab.

[COLOR="Blue"]CALL TRANSACTION[/COLOR] 'KO01' [COLOR="Blue"]USING[/COLOR] bdcdata
[COLOR="Blue"]MODE[/COLOR] 'N'
[COLOR="Blue"]MESSAGES INTO[/COLOR] messtab.

[COLOR="Red"]CALL TRANSACTION 'KO01' USING bdcdata
MODE 'N'
MESSAGES INTO messtab.[/COLOR]

Saludos