清账

清账的自开发主要使用以下标准函数（实际也是BDC）来处理：

• POSTING_INTERFACE_START

• POSTING_INTERFACE_CLEARING

• POSTING_INTERFACE_END

分析说明

清账主要是两个问题：

• 是否存在差异金额

• 差异金额的处理

如果不存在差异金额，则只需要处理未清项即可。如果存在差异金额，则需要根据业务顾问的操作流程，调整差异金额处理与未清项处理的先后顺序。

正常来说，财务顾问都是先挑选未清项，再由系统自动生成差异行。上面的标准BDC函数却是反过来，这会导致一些问题，比如清账字段AUGBL为空，无法关联未清项。

系统自动生成的差异行，还会按配置自动带出额外信息，如果业务顾问对这些字段有要求，也会让人头秃。

改得吐血，改出下面的工具类，SAP不提供标准函数来处理真的是太难了。

清账工具

该工具将调用标准函数的一些通用操作封装起来，使用的时候，只需传入未清项即可。

ZCL_FI_CLEARING

class ZCL_FI_CLEARING definition
  public
  create private .

public section.
  types:
    ty_amount type p length 16 decimals 2.
  TYPES:
    ty_exchange_rate TYPE p LENGTH 16 DECIMALS 6.

  types:
    BEGIN OF ty_clearing_line,
        bukrs TYPE bseg-bukrs,
        belnr TYPE bseg-belnr,
        gjahr TYPE bseg-gjahr,
        buzei TYPE bseg-buzei,
      END OF ty_clearing_line .
  types:
    tt_clearing_line TYPE STANDARD TABLE OF ty_clearing_line WITH EMPTY KEY .
  types:
    BEGIN OF ty_result,
        mtype TYPE bapi_mtype,
        msg   TYPE bapi_msg,
        belnr TYPE bseg-belnr,
      END OF ty_result .

  class-methods CLASS_CONSTRUCTOR .
  class-methods POST_CUSTOMER
    importing
      !I_BUKRS type BUKRS
      !I_KUNNR type KUNNR
      !I_AGUMS type AGUMS default 'A'
      !I_BUDAT type BUDAT default SY-DATUM
      !I_BKTXT type BKTXT optional
      !IT_CLEARING_LINE type TT_CLEARING_LINE
      !I_PROC type CHAR01 default 'M'
      !IT_FTPOST type FAGL_T_FTPOST optional
    returning
      value(RESULT) type TY_RESULT .
  class-methods POST_VENDOR
    importing
      !I_BUKRS type BUKRS
      !I_LIFNR type LIFNR optional
      !I_AGUMS type AGUMS default 'A'
      !I_BUDAT type BUDAT default SY-DATUM
      !I_BKTXT type BKTXT optional
      !IT_CLEARING_LINE type TT_CLEARING_LINE
      !I_PROC type CHAR01 default 'M'
      !IT_FTPOST type FAGL_T_FTPOST optional
    returning
      value(RESULT) type TY_RESULT .
  class-methods POST_LEDGER
    importing
      !I_BUKRS type BUKRS
      !I_HKONT type HKONT
      !I_AGUMS type AGUMS optional
      !I_BUDAT type BUDAT default SY-DATUM
      !I_BKTXT type BKTXT optional
      !IT_CLEARING_LINE type TT_CLEARING_LINE
      !I_PROC type CHAR01 default 'M'
      !IT_FTPOST type FAGL_T_FTPOST optional
    returning
      value(RESULT) type TY_RESULT .
  class-methods BEFORE_FCODE_F11
    changing
      !FT type BDCDATA_TAB .
  class-methods AFTER_XFTPOST_LOOP
    changing
      !FT type BDCDATA_TAB .
protected section.
PRIVATE SECTION.

  CLASS-DATA ms_t041a TYPE t041a .
  CLASS-DATA:
    mt_tbsl TYPE STANDARD TABLE OF tbsl .
  CLASS-DATA:
    BEGIN OF ms_extra,
      diff_amount_proc TYPE CHAR01,
      program TYPE bdcdata-program,
      dynpro  TYPE bdcdata-dynpro,
      profit_loss TYPE xfeld, " 损益标识
      FTPOST TYPE STANDARD TABLE OF ftpost WITH EMPTY KEY,
    END OF ms_extra.
  data m_WAERS type WAERS .
  data m_WAERS_LOC type WAERS .
  data m_WAERS_GRP type WAERS .
  DATA m_bukrs TYPE bukrs .
  DATA m_koart TYPE koart .
  DATA m_agums TYPE agums .
  DATA m_hkont TYPE hkont .
  DATA m_budat TYPE budat .
  DATA m_bktxt TYPE bktxt .
  DATA:
    mt_bseg TYPE STANDARD TABLE OF bseg .
  DATA ms_result TYPE ty_result .

  CLASS-METHODS determine_posting_key
    IMPORTING
      !i_koart       TYPE koart
      !i_umsks       TYPE umsks
      !i_amount_diff TYPE p
    RETURNING
      VALUE(r_bschl) TYPE bschl .
  METHODS get_bsid
    IMPORTING
      !it_clearing_line TYPE tt_clearing_line .
  METHODS get_bsik
    IMPORTING
      !it_clearing_line TYPE tt_clearing_line .
  METHODS get_bseg
    IMPORTING
      !it_clearing_line TYPE tt_clearing_line .
  methods GET_WAERS .
  methods GET_WRBTR_DIFF
    returning
      value(R_WRBTR_DIFF) type ty_amount .
  methods GET_PROFIT_LOSS
    returning
      value(R_PROFIT_LOSS) type XFELD .
  methods GET_EXCHANGERATE
    importing
      !I_RATE_TYPE type BAPI1093_1-RATE_TYPE default 'M'
      !I_FROM type WAERS
      !I_TO type WAERS
      !I_DATE type DATUM default SY-DATUM
    returning
      value(R_EXCHANGERATE) type TY_EXCHANGE_RATE .
  METHODS posting_before .
  METHODS posting_interface .
ENDCLASS.



CLASS ZCL_FI_CLEARING IMPLEMENTATION.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_FI_CLEARING=>AFTER_XFTPOST_LOOP
* +-------------------------------------------------------------------------------------------------+
* | [<-->] FT                             TYPE        BDCDATA_TAB
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD after_xftpost_loop.



    " 默认处理，先处理差异行，（再到该增强），再处理未清项
    CHECK ms_extra-diff_amount_proc = 'M'
       OR ms_extra-diff_amount_proc = ''.

    DATA ls_bdcdata TYPE bdcdata.
    DEFINE _bdc_data.
      CLEAR ls_bdcdata.
      ls_bdcdata-fnam = &1.
      ls_bdcdata-fval = &2.
      INSERT ls_bdcdata INTO TABLE ft[].
    END-OF-DEFINITION.

    " 按项目需求，填写需要的信息
    LOOP AT ms_extra-ftpost INTO DATA(ls_ftpost).
      _bdc_data ls_ftpost-fnam ls_ftpost-fval.
    ENDLOOP.


  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_FI_CLEARING=>BEFORE_FCODE_F11
* +-------------------------------------------------------------------------------------------------+
* | [<-->] FT                             TYPE        BDCDATA_TAB
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD before_fcode_f11.


    " 先处理未清项，再处理差异行
    " 差异行也走这段逻辑
    CHECK ms_extra-diff_amount_proc = 'A'
       OR ms_extra-profit_loss = abap_true.

    DATA ls_bdcdata TYPE bdcdata.

    DEFINE _bdc_begin.
      CLEAR ls_bdcdata.
      ls_bdcdata-program = &1.
      ls_bdcdata-dynpro = &2.
      ls_bdcdata-dynbegin = 'X'.
      INSERT ls_bdcdata INTO TABLE ft[].
    END-OF-DEFINITION.

    DEFINE _bdc_data.
      CLEAR ls_bdcdata.
      ls_bdcdata-fnam = &1.
      ls_bdcdata-fval = &2.
      INSERT ls_bdcdata INTO TABLE ft[].
    END-OF-DEFINITION.

    " _bdc_begin 'SAPMF05A' '0733'. " 该增强位置是在保存前，原本的BDC代码只缺少命令
    _bdc_data 'BDC_OKCODE' 'PA'. " 处理未清项

    " _bdc_begin 'SAPMF05A' '0733'. " 该增强位置是在保存前，原本的BDC代码只缺少命令
    _bdc_data 'SAPMF05A' 'PA'. " 处理未清项

    " MAIN - 标准
    " PART - 部分支付
    " REST - 剩余项目
    " WITH - 预扣税
    _bdc_begin 'SAPDF05X' '3100'.
    _bdc_data 'BDC_OKCODE' 'REST'. " 剩余过账

    _bdc_begin 'SAPDF05X' '3100'.
    _bdc_data 'BDC_OKCODE' 'PI'. " PI - 双击行

    _bdc_begin 'SAPDF05X' '3100'.
    _bdc_data 'BDC_OKCODE' 'BS'. " BS - 模拟

    IF ms_extra-diff_amount_proc = 'A'.
      IF ( ms_extra-program IS INITIAL OR ms_extra-dynpro IS INITIAL ) " 没有下一步的屏幕
      OR ms_extra-ftpost IS INITIAL. " 没有特殊处理
        " 没有需要补充的，直接保存
        _bdc_begin 'SAPMF05A' '0301'. " 补充一个屏幕
        " _bdc_data 'BDC_OKCODE' '/11'. " 后续的标准代码最后会手工添加一行命令保存
      ELSE.
        " 正常情况，由于行项目必填，会跳到主界面报错
*        _bdc_begin 'SAPMF05A' '0700'.
*        _bdc_data 'BDC_OKCODE' 'PI'. " 选择凭证行
*
*        _bdc_begin 'SAPMF05A' '0610'.
*        _bdc_data '*BSEG-BUZEI' '001'. " 默认选第一行
*        _bdc_data 'BDC_OKCODE' 'ENTR'. " 确认

        _bdc_begin 'SAPMF05A' '0700'.
        _bdc_data 'BDC_OKCODE' 'NK'. " NK - 补充，跳转到需要补充数据的界面

        " 按项目需求，填写需要手工处理的信息
        _bdc_begin ms_extra-program ms_extra-dynpro.
        LOOP AT ms_extra-ftpost INTO DATA(ls_ftpost).
          _bdc_data ls_ftpost-fnam ls_ftpost-fval.
        ENDLOOP.
      ENDIF.
    ENDIF.

    " 对于外币清账，如果汇率有差异，还需要考虑损益行
    IF ms_extra-profit_loss = abap_true.
      _bdc_begin 'SAPMF05A' '0700'.
      _bdc_data 'BDC_OKCODE' 'NK'. " 跳转到未完成行，在这里就是损益行

      " 输入行文本并回到预览界面
      _bdc_begin 'SAPMF05A' '0300'.
      _bdc_data 'BDC_OKCODE' 'AB'.
      _bdc_data 'BSEG-SGTXT' 'Clearing Profit & Loss'(004).

      " 弹窗确认
      " 我这项目的损益行输入后还会弹个CODING BLOCK输入框，自行调整
      _bdc_begin 'SAPLKACB' '0002'.
      _bdc_data 'BDC_OKCODE' 'ENTE'. " 确认

      " 设置一个界面
      _bdc_begin 'SAPMF05A' '0700'.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_FI_CLEARING=>CLASS_CONSTRUCTOR
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
  method CLASS_CONSTRUCTOR.


    " AUGLV对应FB05要处理的业务
    " UMBUCHNG, Transfer posting with clearing, 转账并清账
    SELECT SINGLE * FROM t041a WHERE auglv = 'UMBUCHNG' INTO @ms_t041a.
    SELECT * FROM tbsl INTO TABLE @mt_tbsl.

    " 集团
    SELECT SINGLE * FROM t000 WHERE mandt = @sy-mandt INTO @ms_t000.
    IF sy-subrc <> 0.
      CLEAR ms_t000.
    ENDIF.

  endmethod.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZCL_FI_CLEARING=>DETERMINE_POSTING_KEY
* +-------------------------------------------------------------------------------------------------+
* | [--->] I_KOART                        TYPE        KOART
* | [--->] I_UMSKS                        TYPE        UMSKS
* | [--->] I_AMOUNT_DIFF                  TYPE        P
* | [<-()] R_BSCHL                        TYPE        BSCHL
* +--------------------------------------------------------------------------------------</SIGNATURE>
  method DETERMINE_POSTING_KEY.


    " 根据科目类型，特殊总账标识，差异金额，查找对应记账码
    CASE i_koart.
      WHEN 'D'.
        IF i_amount_diff < 0.
          IF i_umsks = space.
            r_bschl = ms_t041a-rpdha.
          ELSE.
            r_bschl = ms_t041a-bsdhs.
          ENDIF.
        ELSE.
          IF i_umsks = space.
            r_bschl = ms_t041a-rpdso.
          ELSE.
            r_bschl = ms_t041a-bsdss.
          ENDIF.
        ENDIF.
      WHEN 'K'.
        IF i_amount_diff < 0.
          IF i_umsks = space.
            r_bschl = ms_t041a-rpkha.
          ELSE.
            r_bschl = ms_t041a-bskhs.
          ENDIF.
        ELSE.
          IF i_umsks = space.
            r_bschl = ms_t041a-rpkso.
          ELSE.
            r_bschl = ms_t041a-bskss.
          ENDIF.
        ENDIF.
      WHEN 'S'.
        IF i_amount_diff < 0.
          r_bschl = ms_t041a-bssha.
        ELSE.
          r_bschl = ms_t041a-bssso.
        ENDIF.
    ENDCASE.


  endmethod.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_FI_CLEARING->GET_BSEG
* +-------------------------------------------------------------------------------------------------+
* | [--->] IT_CLEARING_LINE               TYPE        TT_CLEARING_LINE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  method GET_BSEG.

    CHECK it_clearing_line IS NOT INITIAL.

    " 检查并获取可以清账的凭证数据
    SELECT
      bseg~bukrs,
      bseg~belnr,
      bseg~gjahr,
      bseg~buzei,
      bseg~umsks, " 特殊总账事务
      bseg~umskz, " 特殊总账标识
      bseg~zfbdt, " 付款清算日期
      bseg~shkzg,
      bseg~dmbtr,
      bseg~wrbtr,
      bseg~h_budat, " 过账日期,
      bseg~h_waers,
      bseg~zuonr,
      bseg~sgtxt
      FROM bseg
      JOIN bkpf ON bseg~bukrs = bkpf~bukrs
               AND bseg~belnr = bkpf~belnr
               AND bseg~gjahr = bkpf~gjahr
      FOR ALL ENTRIES IN @it_clearing_line[]
      WHERE bseg~bukrs = @it_clearing_line-bukrs
        AND bseg~belnr = @it_clearing_line-belnr
        AND bseg~gjahr = @it_clearing_line-gjahr
        AND bseg~buzei = @it_clearing_line-buzei
        AND bseg~hkont = @m_hkont
      INTO CORRESPONDING FIELDS OF TABLE @mt_bseg.


  endmethod.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_FI_CLEARING->GET_BSID
* +-------------------------------------------------------------------------------------------------+
* | [--->] IT_CLEARING_LINE               TYPE        TT_CLEARING_LINE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  method GET_BSID.

    CHECK it_clearing_line IS NOT INITIAL.

    " 检查并获取可以清账的凭证数据
    SELECT
      bukrs,
      belnr,
      gjahr,
      buzei,
      projk, " 客户WBS必填
      umsks, " 特殊总账事务
      umskz, " 特殊总账标识
      zfbdt, " 付款清算日期
      shkzg,
      dmbtr,
      wrbtr,
      budat AS h_budat, " 过账日期
      waers AS h_waers,
      zuonr,
      sgtxt
      FROM bsid
      FOR ALL ENTRIES IN @it_clearing_line[]
      WHERE bukrs = @it_clearing_line-bukrs
        AND belnr = @it_clearing_line-belnr
        AND gjahr = @it_clearing_line-gjahr
        AND buzei = @it_clearing_line-buzei
        AND kunnr = @m_hkont
      INTO CORRESPONDING FIELDS OF TABLE @mt_bseg.


  endmethod.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_FI_CLEARING->GET_BSIK
* +-------------------------------------------------------------------------------------------------+
* | [--->] IT_CLEARING_LINE               TYPE        TT_CLEARING_LINE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  method GET_BSIK.

    CHECK it_clearing_line IS NOT INITIAL.

    " 检查并获取可以清账的凭证数据
    SELECT
      bukrs,
      belnr,
      gjahr,
      buzei,
      umsks, " 特殊总账事务
      umskz, " 特殊总账标识
      zfbdt, " 付款清算日期
      shkzg,
      dmbtr,
      wrbtr,
      budat AS h_budat, " 过账日期
      waers AS h_waers,
      zuonr,
      sgtxt
      FROM bsik
      FOR ALL ENTRIES IN @it_clearing_line[]
      WHERE bukrs = @it_clearing_line-bukrs
        AND belnr = @it_clearing_line-belnr
        AND gjahr = @it_clearing_line-gjahr
        AND buzei = @it_clearing_line-buzei
        AND lifnr = @m_hkont
      INTO CORRESPONDING FIELDS OF TABLE @mt_bseg.


  endmethod.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_FI_CLEARING->POSTING_BEFORE
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
  method POSTING_BEFORE.


    IF m_bukrs IS INITIAL.
      ms_result-mtype = 'E'.
      ms_result-msg = '请输入公司代码'.
      RETURN.
    ENDIF.

    IF m_hkont IS INITIAL.
      ms_result-mtype = 'E'.
      ms_result-msg = '请输入科目'.
      RETURN.
    ENDIF.

    IF m_koart = 'D'
    OR m_koart = 'K'
    OR m_koart = 'S'.
    ELSE.
      ms_result-mtype = 'E'.
      ms_result-msg = '目前仅支持客户清账、供应商清账、总账清账'.
      RETURN.
    ENDIF.

    IF mt_bseg IS INITIAL.
      ms_result-mtype = 'E'.
      ms_result-msg = '没有未清凭证数据'.
      RETURN.
    ENDIF.


  endmethod.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_FI_CLEARING->POSTING_INTERFACE
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD posting_interface.


    DATA:
      lt_ftclear TYPE STANDARD TABLE OF ftclear,
      lt_ftpost  TYPE STANDARD TABLE OF ftpost,
      lt_blntab  TYPE STANDARD TABLE OF blntab,
      lt_fttax   TYPE STANDARD TABLE OF fttax.

    " 清账项目选择条件
    " 选择字段填BELNR，并传值是凭证+行项目，就能取到对应凭证行
    " 因此无需其他额外的筛选条件
    " 如果不能确定，或者就需要某一类的数据，可以自己酌情调整
    DATA ls_ftclear TYPE ftclear.
    DEFINE _ftclear.
      CLEAR ls_ftclear.
      ls_ftclear-agbuk = m_bukrs. " 公司
      ls_ftclear-agkon = m_hkont. " 科目
      ls_ftclear-agkoa = m_koart. " 账户类型
      ls_ftclear-xnops = abap_true. " 标准未清项
      ls_ftclear-agums = m_agums. " 特别总账标识
      ls_ftclear-selfd = &2.
      ls_ftclear-selvon = &3.
      INSERT ls_ftclear INTO TABLE &1.
    END-OF-DEFINITION.

    " 手工清账项目，对于存在差额的项目，需要手工填写清账金额
    " 就是BDC录屏，如果有缺什么字段，可以到前台F1获取屏幕字段名
    DATA ls_ftpost TYPE ftpost.
    DEFINE _ftpost.
      IF &4 IS NOT INITIAL OR &4 <> ''.
        CLEAR ls_ftpost.
        ls_ftpost-stype = &2. " K抬头，P行项目
        ls_ftpost-count = &3. " 抬头默认1，行项目流水
        ls_ftpost-fnam  = &4. " 屏幕字段
        ls_ftpost-fval  = &5. " 字段值
        INSERT ls_ftpost INTO TABLE &1.
      ENDIF.
    END-OF-DEFINITION.

    " 数据校验
    CLEAR ms_result.
    posting_before( ).
    CHECK ms_result-mtype <> 'E'.

    " 读取凭证的三种货币
    get_waers( ).

    " 汇总金额，获取清账差异金额
    DATA(l_wrbtr_diff) = get_wrbtr_diff( ).

    " 未清项目
    LOOP AT mt_bseg REFERENCE INTO DATA(lr_bseg).
      DATA(l_selfd) = 'BELNR'.
      DATA(l_selval) = |{ lr_bseg->belnr }{ lr_bseg->gjahr }{ lr_bseg->buzei }|.
      _ftclear lt_ftclear l_selfd l_selval.
    ENDLOOP.

    " 获取其他辅助参数
    DATA l_umsks TYPE umsks. " 特殊总账事务
    DATA l_umskz TYPE umskz. " 特殊总账标识
    DATA lr_clearing_ref TYPE REF TO bseg. " 任取一行未清项作为差异金额的参考
    LOOP AT mt_bseg REFERENCE INTO lr_bseg.
      " 只要有一行是特殊总账事务，清账就以特殊总账方式进行
      IF l_umsks IS INITIAL.
        l_umsks = lr_bseg->umsks.
        l_umskz = lr_bseg->umskz.
      ENDIF.
      " 找出金额绝对值最大的行作为参考行
      " （我这项目要求如此，可自行调整）
      IF lr_clearing_ref IS NOT BOUND.
        lr_clearing_ref = lr_bseg.
      ELSEIF abs( lr_bseg->dmbtr ) > abs( lr_clearing_ref->dmbtr ).
        lr_clearing_ref = lr_bseg.
      ENDIF.
    ENDLOOP.

    DATA(l_budat) = |{ m_budat DATE = USER }|. " BDC录屏，日期要填写用户格式
    SELECT SINGLE waers FROM t001 WHERE bukrs = @m_bukrs INTO @DATA(l_waers). " 公司本币

    " K-抬头
    _ftpost lt_ftpost 'K' 1 'BKPF-BUKRS' m_bukrs.
    _ftpost lt_ftpost 'K' 1 'BKPF-BLART' 'AB'. " 清账只有这一种凭证类型
    _ftpost lt_ftpost 'K' 1 'BKPF-BLDAT' l_budat.
    _ftpost lt_ftpost 'K' 1 'BKPF-BUDAT' l_budat.
    _ftpost lt_ftpost 'K' 1 'BKPF-MONAT' m_budat+4(2).
    _ftpost lt_ftpost 'K' 1 'BKPF-WAERS' l_waers.
    IF m_bktxt IS NOT INITIAL.
      _ftpost lt_ftpost 'K' 1 'BKPF-BKTXT' m_bktxt.
    ENDIF.

    " 判断是否存在差异金额
    IF l_amount_diff = 0.
      CLEAR ms_extra.  " 没有差异金额，无需任何增强处理
    ELSE. " 存在差异金额
      " 根据科目、总账事务、余额，查找记账码
      DATA l_bschl TYPE bschl.
      l_bschl = determine_posting_key(
        i_koart = m_koart
        i_umsks = l_umsks
        i_amount_diff = l_amount_diff
      ).

      DATA l_sgtxt TYPE bseg-sgtxt.
      l_sgtxt = |清账{ lr_clearing_ref->belnr }|. " 行文本，记录参考的凭证

      " 对差异金额的处理方案选择
      CASE ms_extra-diff_amount_proc.
        WHEN 'A'. " 自动清账，先处理未清项，再处理差异金额
          " 移除手工清账部分
          DELETE lt_ftpost WHERE stype = 'P'.

          " 项目特殊处理
          IF l_umskz IS NOT INITIAL " 特殊总账
          OR l_bschl+1(1) = '9'. " 冲销
            DELETE ms_extra-ftpost WHERE fnam <> 'BSEG-SGTXT'. " 仅文本可输入
          ENDIF.

          " 复制LFIPIF00中的子例程dynpro_ermitteln
          DATA l_winfk TYPE t019w-winfk.
          CLEAR l_winfk.
          CASE m_koart.
            WHEN 'D'.
              l_winfk = 'ZKOD'.
            WHEN 'K'.
              l_winfk = 'ZKOK'.
            WHEN 'S'.
              l_winfk = 'ZKOS'.
            WHEN 'A'.
              l_winfk = 'ZKOA'.
          ENDCASE.

          " 查找差异行的屏幕（从POSTING_INTERFACE_CLEARING中找到的代码）
          CALL FUNCTION 'NEXT_DYNPRO_SEARCH'
            EXPORTING
              i_bschl  = l_bschl
              i_bukrs  = m_bukrs
              i_tcode  = 'FB05'
              i_umskz  = l_umskz
              i_winfk  = l_winfk
            IMPORTING
              e_dynnra = ms_extra-dynpro
              e_mpool  = ms_extra-program
            EXCEPTIONS
              OTHERS   = 99.
          IF sy-subrc <> 0.
            CLEAR ms_extra.
          ENDIF.

        WHEN OTHERS. " 手工清账，先处理差异金额

          DATA(l_dmbtr) = |{ abs( l_amount_diff ) NUMBER = USER }|. " BDC外部格式，另外正负按记账码区分，所以都传正值
          DATA(l_zfbdt) = |{ lr_clearing_ref->zfbdt DATE = USER }|. " BDC外部格式

          " P-行项目
          " 我这项目要求清账后生成无凭证行或一行差额的清账凭证
          " 有生成多行要求的自己酌情修改
          _ftpost lt_ftpost 'P' 1 'RF05A-NEWBS' l_bschl. " 过账码
          _ftpost lt_ftpost 'P' 1 'RF05A-NEWKO' m_hkont. " 科目
          _ftpost lt_ftpost 'P' 1 'RF05A-NEWUM' l_umskz. " 特别总账标识
          _ftpost lt_ftpost 'P' 1 'BSEG-WRBTR' l_dmbtr. " 汇总后的差额
          _ftpost lt_ftpost 'P' 1 'BSEG-ZFBDT' l_zfbdt. " 付款清算日期
          _ftpost lt_ftpost 'P' 1 'BSEG-SGTXT' l_sgtxt. " 行项目文本必填
          _ftpost lt_ftpost 'P' 1 'BSEG-ZUONR' lr_clearing_ref->zuonr. " 分配字段，一般都需要

      ENDCASE.

    ENDIF. " IF l_amount_diff <> 0.

    " 检查是否有损益
    get_profit_loss( ).

    SORT lt_ftpost BY stype count fnam fval.
    DELETE ADJACENT DUPLICATES FROM lt_ftpost COMPARING stype count fnam.

    DATA l_mode TYPE char01 VALUE 'N'. " BDC导入模式
    CALL FUNCTION 'POSTING_INTERFACE_START'
      EXPORTING
        i_client   = sy-mandt
        i_function = 'C'
        i_mode     = l_mode
        i_keep     = 'X'
        i_update   = 'S'
        i_user     = sy-uname.
    IF sy-subrc <> 0.
      ms_result-mtype = 'E'.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
              INTO ms_result-msg.
      RETURN.
    ENDIF.

    CALL FUNCTION 'POSTING_INTERFACE_CLEARING'
      EXPORTING
        i_auglv                    = ms_t041a-auglv " 清账程序固定UMBUCHNG
        i_tcode                    = 'FB05' " 固定
        i_sgfunct                  = 'C'
        i_no_auth                  = 'X' " 不考虑权限
      IMPORTING
        e_msgid                    = sy-msgid
        e_msgno                    = sy-msgno
        e_msgty                    = sy-msgty
        e_msgv1                    = sy-msgv1
        e_msgv2                    = sy-msgv2
        e_msgv3                    = sy-msgv3
        e_msgv4                    = sy-msgv4
      TABLES
        t_blntab                   = lt_blntab
        t_ftclear                  = lt_ftclear
        t_ftpost                   = lt_ftpost
        t_fttax                    = lt_fttax
      EXCEPTIONS
        clearing_procedure_invalid = 1
        clearing_procedure_missing = 2
        table_t041a_empty          = 3
        transaction_code_invalid   = 4
        amount_format_error        = 5
        too_many_line_items        = 6
        company_code_invalid       = 7
        screen_not_found           = 8
        no_authorization           = 9
        OTHERS                     = 10.
    IF sy-subrc <> 0.
      ms_result-mtype = 'E'.
    ENDIF.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
            INTO ms_result-msg.

    CALL FUNCTION 'POSTING_INTERFACE_END'
      EXCEPTIONS
        session_not_processable = 1
        OTHERS                  = 2.
    IF sy-subrc <> 0.
      ms_result-mtype = 'E'.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
              INTO ms_result-msg.
      RETURN.
    ENDIF.

    READ TABLE lt_blntab INTO DATA(ls_blntab) INDEX 1.
    IF sy-subrc = 0.
      ms_result-mtype = 'S'.
      ms_result-msg = '清账已处理'.
      ms_result-belnr = ls_blntab-belnr.
    ELSE.
      ms_result-mtype = 'E'.
      IF ms_result-msg IS INITIAL.
        ms_result-msg = '清账处理失败'.
      ENDIF.
    ENDIF.


  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_FI_CLEARING=>POST_CUSTOMER
* +-------------------------------------------------------------------------------------------------+
* | [--->] I_BUKRS                        TYPE        BUKRS
* | [--->] I_KUNNR                        TYPE        KUNNR
* | [--->] I_AGUMS                        TYPE        AGUMS (default ='A')
* | [--->] I_BUDAT                        TYPE        BUDAT (default =SY-DATUM)
* | [--->] I_BKTXT                        TYPE        BKTXT(optional)
* | [--->] IT_CLEARING_LINE               TYPE        TT_CLEARING_LINE
* | [--->] I_PROC                         TYPE        CHAR01 (default ='M')
* | [--->] IT_FTPOST                      TYPE        FAGL_T_FTPOST(optional)
* | [<-()] RESULT                         TYPE        TY_RESULT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD post_customer.


    IF it_clearing_line IS INITIAL.
      result-mtype = 'E'.
      result-mtype = '没有未清项'.
      RETURN.
    ENDIF.

    CLEAR ms_extra.
    " A-先处理未清项，再由系统带出差异行，最后对差异行进行手工调整
    " M-先手工生成并调整差异行，再处理未清项
    ms_extra-diff_amount_proc = i_proc.
    ms_extra-ftpost = it_ftpost. " 除了我预留的那些字段，按项目可能会有不同设置，可以通过该项设置

    DATA(lo_ins) = NEW zcl_fi_clearing( ).
    lo_ins->m_bukrs = i_bukrs.
    lo_ins->m_koart = 'D'.
    lo_ins->m_agums = i_agums.
    lo_ins->m_hkont = i_kunnr.
    lo_ins->m_budat = i_budat.
    lo_ins->m_bktxt = i_bktxt.
    lo_ins->get_bsid( it_clearing_line ).
    lo_ins->posting_interface( ).
    result = lo_ins->ms_result.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_FI_CLEARING=>POST_LEDGER
* +-------------------------------------------------------------------------------------------------+
* | [--->] I_BUKRS                        TYPE        BUKRS
* | [--->] I_HKONT                        TYPE        HKONT
* | [--->] I_AGUMS                        TYPE        AGUMS(optional)
* | [--->] I_BUDAT                        TYPE        BUDAT (default =SY-DATUM)
* | [--->] I_BKTXT                        TYPE        BKTXT(optional)
* | [--->] IT_CLEARING_LINE               TYPE        TT_CLEARING_LINE
* | [--->] I_PROC                         TYPE        CHAR01 (default ='M')
* | [--->] IT_FTPOST                      TYPE        FAGL_T_FTPOST(optional)
* | [<-()] RESULT                         TYPE        TY_RESULT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD POST_LEDGER.


    IF it_clearing_line IS INITIAL.
      result-mtype = 'E'.
      result-mtype = '没有未清项'.
      RETURN.
    ENDIF.

    CLEAR ms_extra.
    " A-先处理未清项，再由系统带出差异行，最后对差异行进行手工调整
    " M-先手工生成并调整差异行，再处理未清项
    ms_extra-diff_amount_proc = i_proc.
    ms_extra-ftpost = it_ftpost. " 除了我预留的那些字段，按项目可能会有不同设置，可以通过该项设置

    DATA(lo_ins) = NEW zcl_fi_clearing( ).
    lo_ins->m_bukrs = i_bukrs.
    lo_ins->m_koart = 'S'.
    lo_ins->m_hkont = i_hkont.
    lo_ins->m_budat = i_budat.
    lo_ins->m_bktxt = i_bktxt.
    lo_ins->get_bseg( it_clearing_line ).
    lo_ins->posting_interface( ).
    result = lo_ins->ms_result.


  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_FI_CLEARING=>POST_VENDOR
* +-------------------------------------------------------------------------------------------------+
* | [--->] I_BUKRS                        TYPE        BUKRS
* | [--->] I_LIFNR                        TYPE        LIFNR(optional)
* | [--->] I_AGUMS                        TYPE        AGUMS (default ='A')
* | [--->] I_BUDAT                        TYPE        BUDAT (default =SY-DATUM)
* | [--->] I_BKTXT                        TYPE        BKTXT(optional)
* | [--->] IT_CLEARING_LINE               TYPE        TT_CLEARING_LINE
* | [--->] I_PROC                         TYPE        CHAR01 (default ='M')
* | [--->] IT_FTPOST                      TYPE        FAGL_T_FTPOST(optional)
* | [<-()] RESULT                         TYPE        TY_RESULT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD POST_VENDOR.


    IF it_clearing_line IS INITIAL.
      result-mtype = 'E'.
      result-mtype = '没有未清项'.
      RETURN.
    ENDIF.

    CLEAR ms_extra.
    " A-先处理未清项，再由系统带出差异行，最后对差异行进行手工调整
    " M-先手工生成并调整差异行，再处理未清项
    ms_extra-diff_amount_proc = i_proc.
    ms_extra-ftpost = it_ftpost. " 除了我预留的那些字段，按项目可能会有不同设置，可以通过该项设置

    DATA(lo_ins) = NEW zcl_fi_clearing( ).
    lo_ins->m_bukrs = i_bukrs.
    lo_ins->m_koart = 'K'.
    lo_ins->m_agums = i_agums.
    lo_ins->m_hkont = i_lifnr.
    lo_ins->m_budat = i_budat.
    lo_ins->m_bktxt = i_bktxt.
    lo_ins->get_bsik( it_clearing_line ).
    lo_ins->posting_interface( ).
    result = lo_ins->ms_result.


  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_FI_CLEARING->GET_EXCHANGERATE
* +-------------------------------------------------------------------------------------------------+
* | [--->] I_RATE_TYPE                    TYPE        BAPI1093_1-RATE_TYPE (default ='M')
* | [--->] I_FROM                         TYPE        WAERS
* | [--->] I_TO                           TYPE        WAERS
* | [--->] I_DATE                         TYPE        DATUM (default =SY-DATUM)
* | [<-()] R_EXCHANGERATE                 TYPE        TY_EXCHANGE_RATE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_exchangerate.

    DATA ls_rate TYPE bapi1093_0.
    DATA ls_bapiret1 TYPE bapiret1.

    " 正向汇率
    CALL FUNCTION 'BAPI_EXCHANGERATE_GETDETAIL'
      EXPORTING
        rate_type  = i_rate_type
        from_curr  = i_from
        to_currncy = i_to
        date       = i_date
      IMPORTING
        exch_rate  = ls_rate
        return     = ls_bapiret1.
    IF sy-subrc = 0.
      IF ls_rate-to_factor IS NOT INITIAL.
        r_exchangerate = ( ls_rate-from_factor / ls_rate-to_factor ) * ls_rate-exch_rate.
      ENDIF.
      RETURN.
    ENDIF.

    " 如果没有就按反向汇率计算
    CLEAR ls_rate.
    CLEAR ls_bapiret1.
    CALL FUNCTION 'BAPI_EXCHANGERATE_GETDETAIL'
      EXPORTING
        rate_type  = i_rate_type
        from_curr  = i_to
        to_currncy = i_from
        date       = i_date
      IMPORTING
        exch_rate  = ls_rate
        return     = ls_bapiret1.
    IF sy-subrc <> 0.
      IF ls_rate-exch_rate IS NOT INITIAL AND ls_rate-to_factor IS NOT INITIAL.
        r_exchangerate =  ( ls_rate-from_factor / ls_rate-to_factor ) / ls_rate-exch_rate.
      ENDIF.
      RETURN.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_FI_CLEARING->GET_WRBTR_DIFF
* +-------------------------------------------------------------------------------------------------+
* | [<-()] R_WRBTR_DIFF                   TYPE        GTY_AMOUNT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_wrbtr_diff.

    LOOP AT mt_bseg REFERENCE INTO DATA(lr_bseg).
      IF lr_bseg->shkzg = 'S'.
        r_wrbtr_diff = r_wrbtr_diff + lr_bseg->wrbtr.
      ELSE.
        r_wrbtr_diff = r_wrbtr_diff - lr_bseg->wrbtr.
      ENDIF.
    ENDLOOP.

    " 外币清账的情况，需要计算外币的差异
    IF m_waers <> m_waers_loc.
      DATA(l_exchangerate) = get_exchangerate(
        i_from = m_waers
        i_to   = m_waers_loc
        i_date = m_budat
      ).
      r_wrbtr_diff = r_wrbtr_diff * l_exchangerate.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_FI_CLEARING->GET_PROFIT_LOSS
* +-------------------------------------------------------------------------------------------------+
* | [<-()] R_PROFIT_LOSS                  TYPE        XFELD
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_profit_loss.

    CLEAR ms_extra-profit_loss.

    DATA l_exchangerate TYPE gty_exchange_rate.
    DATA l_amount TYPE gty_amount.

    " 本币差异计算
    IF m_waers <> m_waers_loc.
      l_exchangerate = get_exchangerate(
        i_from = m_waers
        i_to   = m_waers_loc
        i_date = m_budat
      ).

      " 累计损益
      DATA l_dmbtr_diff TYPE gty_amount.
      LOOP AT mt_bseg REFERENCE INTO DATA(lr_bseg).
        l_amount = lr_bseg->wrbtr * l_exchangerate.
        l_dmbtr_diff = l_dmbtr_diff + l_amount - lr_bseg->dmbtr.
      ENDLOOP.

      " 累计的差异即为损益
      IF l_dmbtr_diff <> 0.
        ms_extra-profit_loss = abap_true.
        RETURN.
      ENDIF.
    ENDIF.

    " 集团货币差异计算
    IF m_waers <> m_waers_grp.
      CLEAR l_exchangerate.
      l_exchangerate = get_exchangerate(
        i_from = m_waers
        i_to   = m_waers_grp
        i_date = m_budat
      ).

      " 累计损益
      DATA l_dmbe2_diff TYPE gty_amount.
      LOOP AT mt_bseg REFERENCE INTO lr_bseg.
        l_amount = lr_bseg->wrbtr * l_exchangerate.
        l_dmbe2_diff = l_dmbe2_diff + l_amount - lr_bseg->dmbe2.
      ENDLOOP.

      " 累计的差异即为损益
      IF l_dmbe2_diff <> 0.
        ms_extra-profit_loss = abap_true.
        RETURN.
      ENDIF.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_FI_CLEARING->GET_WAERS
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_waers.

    CLEAR m_waers.

    " 凭证货币
    READ TABLE mt_bseg REFERENCE INTO DATA(lr_bseg) INDEX 1.
    IF sy-subrc = 0.
      m_waers = lr_bseg->h_waers.
    ENDIF.

    " 公司本币
    SELECT SINGLE waers FROM t001 WHERE bukrs = @m_bukrs INTO @m_waers_loc.
    IF sy-subrc <> 0.
      m_waers_loc = m_waers.
    ENDIF.

    " 集团货币
*    SELECT SINGLE mwaer FROM t000 WHERE mandt = @sy-mandt INTO @m_waers_grp.
*    IF sy-subrc <> 0.
*      m_waers_grp = m_waers.
*    ENDIF.
    " 免得多次查询
    m_waers_grp = ms_t000-mwaer.
    IF m_waers_grp IS INITIAL.
      m_waers_grp = m_waers.
    ENDIF.

  ENDMETHOD.

ENDCLASS.

增强处理

通过增强来调整差异金额的处理顺序，经分析，在函数 POSTING_INTERFACE_CLEARING 中选取了两个位置来处理：

也可以将 POSTING_INTERFACE_CLEARING 的函数组拷贝一个出来修改。函数组内容不多。

子例程 xftpost_loop 后加入

...

*------- Buchungsdatentabelle (XFTPOST) abarbeiten im Loop -------------
  PERFORM xftpost_loop.
*{   INSERT         S4DKXXXXXX                                        1
*
  " 用于处理差异凭证行
  CALL METHOD zcl_fi_clearing=>after_xftpost_loop
    CHANGING
      ft = ft[].
*}   INSERT

...

子例程 fcode_f11 前加入

...

*------- Transaktion abschließen ---------------------------------------

*{   INSERT         S4DKXXXXXX                                        2
*
  " 用于处理差异凭证行
  CALL METHOD zcl_fi_clearing=>before_fcode_f11
    CHANGING
      ft = ft[].
  DESCRIBE TABLE ft LINES index. " 必须，后续代码是根据index新增保存命令
*}   INSERT

  PERFORM fcode_f11.

...

用例

客户手工清账

DATA lt_clearing_line TYPE lcl_clearing_account=>tt_clearing_line.
lt_clearing_line = VALUE #(
  ( bukrs = '1000' belnr = '90000001' gjahr = '2022' buzei = '001' )
  ( bukrs = '1000' belnr = '90000001' gjahr = '2022' buzei = '003' )
).

" 客户清账
DATA(ls_result) = zcl_fi_clearing=>post_customer(
                    i_bukrs          = '1000'
                    i_kunnr          = '1001'
                    it_clearing_line = lt_clearing_line ).

供应商手工清账

DATA lt_clearing_line TYPE lcl_clearing_account=>tt_clearing_line.
lt_clearing_line = VALUE #(
  ( bukrs = '1000' belnr = '90000002' gjahr = '2022' buzei = '002' )
  ( bukrs = '1000' belnr = '90000002' gjahr = '2022' buzei = '004' )
).

" 供应商清账
DATA(ls_result) = zcl_fi_clearing=>post_vendor(
              i_bukrs          = '1000'
              i_lifnr          = '8000001'
              it_clearing_line = lt_clearing_line ).

先选择未清项，再处理差异行

DATA lt_clearing_line TYPE lcl_clearing_account=>tt_clearing_line.
lt_clearing_line = VALUE #(
  ( bukrs = '1000' belnr = '90000001' gjahr = '2022' buzei = '001' )
  ( bukrs = '1000' belnr = '90000001' gjahr = '2022' buzei = '003' )
).

DATA lt_ftpost TYPE lcl_clearing_account=>tt_clearing_line.
_ftpost lt_ftpost 'P' 1 'BSEG-ZUONR' '0000001001'. " 分配值
_ftpost lt_ftpost 'P' 1 'BSEG-HKONT' '2201000010'. " 总账默认客户总账，调整为另一个
_ftpost lt_ftpost 'P' 1 'BSEG-SGTXT' '行文本'.

" 客户清账
DATA(ls_result) = zcl_fi_clearing=>post_customer(
                    i_bukrs          = '1000'
                    i_kunnr          = '1001'
                    it_clearing_line = lt_clearing_line
                    i_porc           = 'A'
                    it_ftpost        = lt_ftpost ).

关于清账后是否有凭证行的说明

参考文章https://zhuanlan.zhihu.com/p/108487028

按文章说法，应该是清账的行项目，部分字段（比如功能范围，成本中心，WBS之类的）不一致，所以就会生成行项目。如果一致就不会生成行项目。

如果有强烈的要求，可以到MF05AFA0_AUSGLEICH_KONTAB_FUEL中通过增强调整控制。