PDA

Ver la Versión Completa : Problema con batch Input a tx f-02


rodoalon
29/06/12, 15:40:12
Hola muy buenos dìas, tengo un problema con el batch input. El batch input en forma visible me anda bien, pero en modo invisible; me dice que no le estoy mandando datos a la dynpro SAPLFWTD 0100.

LOOP AT it_tablacai ASSIGNING <fs_cai>.

PERFORM f_bdc_dynpro USING 'SAPMF05A' '0100'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM f_bdc_field USING 'BKPF-BLDAT' <fs_cai>-bldat.
PERFORM f_bdc_field USING 'BKPF-BLART' 'KF'.
PERFORM f_bdc_field USING 'BKPF-BUKRS' p_bukrs.
PERFORM f_bdc_field USING 'BKPF-BUDAT' vg_fcontable.
PERFORM f_bdc_field USING 'BKPF-MONAT' vg_fcontable+2(2).
PERFORM f_bdc_field USING 'BKPF-WAERS' 'ARS'.
PERFORM f_bdc_field USING 'BKPF-XBLNR' <fs_cai>-xblnr.
PERFORM f_bdc_field USING 'RF05A-NEWBS' <fs_cai>-bschl.
PERFORM f_bdc_field USING 'RF05A-NEWKO' <fs_cai>-hkont.

READ TABLE it_tablacai INTO wa_cai INDEX vl_sig.

PERFORM f_bdc_dynpro USING 'SAPMF05A' '0302'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM f_bdc_field USING 'BSEG-WRBTR' <fs_cai>-dmbtr.
PERFORM f_bdc_field USING 'BKPF-XMWST' 'X'.
PERFORM f_bdc_field USING 'BSEG-MWSKZ' wa_cai-mwskz.
PERFORM f_bdc_field USING 'BSEG-GSBER' <fs_cai>-gsber.
PERFORM f_bdc_field USING 'BSEG-ZTERM' '000'.
PERFORM f_bdc_field USING 'BSEG-ZFBDT' <fs_cai>-fbase.
PERFORM f_bdc_field USING 'BSEG-ZUONR' <fs_cai>-zuonr.
PERFORM f_bdc_field USING 'BSEG-SGTXT' <fs_cai>-texto.
PERFORM f_bdc_field USING 'RF05A-NEWBS' wa_cai-bschl.
PERFORM f_bdc_field USING 'RF05A-NEWKO' wa_cai-hkont.

PERFORM f_bdc_dynpro USING 'SAPMF05A' '0300'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '=KP'.
PERFORM f_bdc_field USING 'BSEG-WRBTR' <fs_cai>-dmbtr.
PERFORM f_bdc_field USING 'BSEG-MWSKZ' <fs_cai>-mwskz.
PERFORM f_bdc_field USING 'BSEG-SGTXT' <fs_cai>-texto.
PERFORM f_bdc_field USING 'DKACB-FMORE' 'X'.

PERFORM f_bdc_dynpro USING 'SAPLKACB' '0002'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '=ENTE'.
PERFORM f_bdc_field USING 'COBL-GSBER' <fs_cai>-gsber.
PERFORM f_bdc_field USING 'COBL-KOSTL' <fs_cai>-cecos.

PERFORM f_bdc_dynpro USING 'SAPMSSY0' '0120'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '=ENTR'.

PERFORM f_bdc_dynpro USING 'SAPLF022' '1001'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '=GO'.
PERFORM f_bdc_field USING 'RF022-SPRAS' 'ES'.

CONCATENATE <fs_cai>-fecha_cai(2)
<fs_cai>-fecha_cai+2(2)
<fs_cai>-fecha_cai+4(4)
INTO <fs_cai>-fecha_cai SEPARATED BY '.'.

CONCATENATE <fs_cai>-cai text-003 INTO
vl_cai SEPARATED BY space.

CONCATENATE <fs_cai>-fecha_cai text-004 INTO
vl_fecha_cai SEPARATED BY space.


PERFORM f_bdc_dynpro USING 'SAPLSTXX' '1100'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '=TXVB'.
PERFORM f_bdc_field USING 'RSTXT-TXLINE(02)' vl_cai.
PERFORM f_bdc_field USING 'RSTXT-TXLINE(03)' vl_fecha_cai.


PERFORM f_bdc_dynpro USING 'SAPLSTXX' '1100'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '=TXBA'.

PERFORM f_bdc_dynpro USING 'SAPMF05A' '0300'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '=BU'.


PERFORM f_bdc_dynpro USING 'SAPLKACB' '0002'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '=ENTE'.



CALL TRANSACTION 'F-02' USING gt_bdcdata MODE 'A'
MESSAGES INTO gt_message.
vg_docref = <fs_cai>-xblnr.
PERFORM f_cargar_salida USING vg_docref.

REFRESH gt_bdcdata.

ENDLOOP.

Por si las dudas cree una clase de documento 'KF', donde en su detalle:

Rango de nùmeros 19
Clase de anulación ZX

Cl. cuenta permitidas:
Tildado Activos fijos,Acreedor, Material, Cuenta mayor.

Me habían mencionado que en algunas transacciones puede diferenciar el funcionamiento del batch input, en modo de visualización 'A' y 'N'.