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.
PERFORM f_bdc_dynpro USING 'SAPMF05A' '0100'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM f_bdc_field USING 'BKPF-BLDAT'-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'-xblnr.
PERFORM f_bdc_field USING 'RF05A-NEWBS'-bschl.
PERFORM f_bdc_field USING 'RF05A-NEWKO'-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'-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'-gsber.
PERFORM f_bdc_field USING 'BSEG-ZTERM' '000'.
PERFORM f_bdc_field USING 'BSEG-ZFBDT'-fbase.
PERFORM f_bdc_field USING 'BSEG-ZUONR'-zuonr.
PERFORM f_bdc_field USING 'BSEG-SGTXT'-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'-dmbtr.
PERFORM f_bdc_field USING 'BSEG-MWSKZ'-mwskz.
PERFORM f_bdc_field USING 'BSEG-SGTXT'-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'-gsber.
PERFORM f_bdc_field USING 'COBL-KOSTL'-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-fecha_cai(2)
-fecha_cai+2(2)
-fecha_cai+4(4)
INTO-fecha_cai SEPARATED BY '.'.
CONCATENATE-cai text-003 INTO
vl_cai SEPARATED BY space.
CONCATENATE-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 =-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'.
LOOP AT it_tablacai ASSIGNING
PERFORM f_bdc_dynpro USING 'SAPMF05A' '0100'.
PERFORM f_bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM f_bdc_field USING 'BKPF-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'
PERFORM f_bdc_field USING 'RF05A-NEWBS'
PERFORM f_bdc_field USING 'RF05A-NEWKO'
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'
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'
PERFORM f_bdc_field USING 'BSEG-ZTERM' '000'.
PERFORM f_bdc_field USING 'BSEG-ZFBDT'
PERFORM f_bdc_field USING 'BSEG-ZUONR'
PERFORM f_bdc_field USING 'BSEG-SGTXT'
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'
PERFORM f_bdc_field USING 'BSEG-MWSKZ'
PERFORM f_bdc_field USING 'BSEG-SGTXT'
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'
PERFORM f_bdc_field USING 'COBL-KOSTL'
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
INTO
CONCATENATE
vl_cai SEPARATED BY space.
CONCATENATE
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 =
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'.