Question

我有下一个注册付款的BI。

在第一个pocision标题数据库和记录的数量。
记录客户付款的第一个条件。
在最后一个条件下，客户的其他付款会注册。

在后一种情况下它没有运行任何东西，有人可以帮助我吗？

第1点和第2点仅使用不同的值执行相同的功能

PERFORM OPEN_GROUP.
    PERFORM BDC_DYNPRO USING 'SAPMF05A' '0100'.
      PERFORM BDC_FIELD  USING 'BKPF-BLDAT'   p_bldat.
      PERFORM BDC_FIELD  USING 'BKPF-BUDAT'   p_budat.
      PERFORM BDC_FIELD  USING 'BKPF-XBLNR'   p_xblnr.
      PERFORM BDC_FIELD  USING 'BKPF-BKTXT'   p_bktxt.
      PERFORM BDC_FIELD  USING 'BKPF-BLART'   p_blart.
      PERFORM BDC_FIELD  USING 'BKPF-MONAT'   p_monat.
      PERFORM BDC_FIELD  USING 'BKPF-BUKRS'   p_bukrs.
      PERFORM BDC_FIELD  USING 'BKPF-WAERS'   p_waers.
      PERFORM BDC_FIELD  USING 'RF05A-NEWBS'  '40'.
      PERFORM BDC_FIELD  USING 'RF05A-NEWKO'  p_newko.
    PERFORM BDC_FIELD  USING 'BDC_OKCODE' '/00'.
    PERFORM BDC_DYNPRO USING 'SAPMF05A' '0300'.
      WRITE p_wrbtr TO v_importe.
      PERFORM BDC_FIELD  USING 'BSEG-WRBTR'   v_importe.
      PERFORM BDC_FIELD  USING 'BSEG-SGTXT'   p_sgtxt.


    IF NOT p_cwrbtr IS INITIAL.
      PERFORM BDC_FIELD  USING 'RF05A-NEWBS'  '15'.
      PERFORM BDC_FIELD  USING 'RF05A-NEWKO'  p_cnewko.
    PERFORM BDC_FIELD  USING 'BDC_OKCODE' '/00'.

    PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.
      PERFORM BDC_FIELD  USING 'COBL-GSBER'   p_gsber.
    PERFORM BDC_FIELD  USING 'BDC_OKCODE' '=ENTE'.

    PERFORM BDC_DYNPRO USING 'SAPMF05A' '0301'.
      WRITE p_cwrbtr TO v_cimporte.
      PERFORM BDC_FIELD  USING 'BSEG-WRBTR'   v_cimporte.
      PERFORM BDC_FIELD  USING 'BSEG-GSBER'   p_gsber.
      PERFORM BDC_FIELD  USING 'BSEG-ZFBDT'   p_budat.
      PERFORM BDC_FIELD  USING 'BSEG-SGTXT'   p_csgtxt.
    PERFORM BDC_FIELD  USING 'BDC_OKCODE' '/00'.

    ENDIF.

    IF NOT p_owrbtr IS INITIAL.
      PERFORM BDC_FIELD  USING 'RF05A-NEWBS'  '15'.
      PERFORM BDC_FIELD  USING 'RF05A-NEWKO'  '511'.
    PERFORM BDC_FIELD  USING 'BDC_OKCODE' '/00'.

    PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.
      PERFORM BDC_FIELD  USING 'COBL-GSBER'   p_gsber.
    PERFORM BDC_FIELD  USING 'BDC_OKCODE' '=ENTE'.

    PERFORM BDC_DYNPRO USING 'SAPMF05A' '0301'.
      WRITE p_owrbtr TO v_oimporte.
      PERFORM BDC_FIELD  USING 'BSEG-WRBTR'   v_oimporte.
      PERFORM BDC_FIELD  USING 'BSEG-GSBER'   p_gsber.
      PERFORM BDC_FIELD  USING 'BSEG-ZFBDT'   p_budat.
      PERFORM BDC_FIELD  USING 'BSEG-SGTXT'   p_osgtxt.
    PERFORM BDC_FIELD  USING 'BDC_OKCODE' '=BU'.

    ENDIF.
    PERFORM BDC_TRANSACTION USING 'F-02'.

批量输入ABAP

0 个答案: