SAP清账BAPI程序

业务说明：函数table中IS_ITEMS里的参数为预付凭证，也就是清账的凭证，importing中IS_INPUT时被清的凭证

FUNCTION zfb05_post.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IS_INPUT) TYPE  ZSFI_034
*"     REFERENCE(BUKRS) TYPE  BUKRS DEFAULT '1000'
*"     REFERENCE(BLART) TYPE  BLART DEFAULT 'AB'
*"     REFERENCE(BLDAT) TYPE  BLDAT DEFAULT SY-DATUM
*"     REFERENCE(BUDAT) TYPE  BUDAT DEFAULT SY-DATUM
*"     REFERENCE(MONAT) TYPE  MONAT DEFAULT SY-DATUM+4(2)
*"     REFERENCE(WAERS) TYPE  WAERS DEFAULT 'CNY'
*"  EXPORTING
*"     REFERENCE(ES_TYPE) TYPE  BAPI_MTYPE
*"     REFERENCE(ES_MSG) TYPE  BAPI_MSG
*"     REFERENCE(ES_BELNR) TYPE  BELNR_D
*"     REFERENCE(ES_BUKRS) TYPE  BUKRS
*"  TABLES
*"      IS_ITEMS STRUCTURE  ZSFI_034
*"----------------------------------------------------------------------DATA : lv_sumwa TYPE wrbtr,lv_cywrb TYPE wrbtr,lv_belnr TYPE char30,lv_index TYPE char3,lv_msg   TYPE string,lv_mode  TYPE rfpdo-allgazmd." ftclear 是清账的数据的表参数DATA:gt_ftclear TYPE STANDARD TABLE OF ftclear,gs_ftclear LIKE LINE OF gt_ftclear." ftpost 是过账的抬头和行项目的表参数DATA:gt_ftpost TYPE STANDARD TABLE OF ftpost,gs_ftpost LIKE LINE OF gt_ftpost.DATA:gt_blntab LIKE TABLE OF blntab  WITH HEADER LINE,gt_fttax  LIKE TABLE OF fttax   WITH HEADER LINE.DATA : lt_ztfi020 TYPE TABLE OF ztfi020,ls_ztfi020 TYPE ztfi020.
*&---ftpost 结构宏DEFINE populate_ftpost.CLEAR gs_ftpost.gs_ftpost-stype = &1. "记录类型 K:HEADER  P:ITEMSgs_ftpost-count = &2. "凭证计数器gs_ftpost-fnam  = &3. "BDC 字段名gs_ftpost-fval  = &4. "BDC 字段值IF gs_ftpost-fnam = 'BSEG-WRBTR' .CONDENSE gs_ftpost-fval NO-GAPS .ENDIF .APPEND gs_ftpost TO gt_ftpost.END-OF-DEFINITION.*&---ftclear 结构宏DEFINE populate_ftclear.CLEAR gs_ftclear.gs_ftclear-agkoa = &1.  "科目类型gs_ftclear-agkon = &2.  "工作清单账号关键字gs_ftclear-agbuk = &3.  "公司代码gs_ftclear-selfd = &4.  "索引凭证关键字gs_ftclear-selvon = &5. "选择未清项目的输入字段gs_ftclear-agums  = &6. "用于选择的特殊总账标识符gs_ftclear-xnops  = COND #( WHEN &6 IS INITIAL THEN abap_true ).APPEND gs_ftclear TO gt_ftclear.END-OF-DEFINITION.*&---校验数据准确性DEFINE field_check .IF &1 < &2 .es_msg = es_msg && '预付凭证：' && &3 && '冲付金额不能大于' && &1  .ENDIF .IF &4 > is_input-wrbtr .es_msg = es_msg && '预付凭证总金额大于发票金额' .ENDIF .END-OF-DEFINITION.LOOP AT is_items INTO DATA(ls_line) .lv_sumwa = lv_sumwa + ls_line-zyfje .field_check : ls_line-wrbtr ls_line-zyfje ls_line-belnr lv_sumwa .CLEAR : ls_line .ENDLOOP .IF es_msg IS INITIAL ."发票会计凭证传入BDC抬头CLEAR : lv_belnr ,lv_cywrb.lv_belnr = is_input-belnr && is_input-gjahr && is_input-buzei .populate_ftclear 'K' is_input-lifnr is_input-bukrs 'BELNR' lv_belnr is_input-umskz.populate_ftpost 'K' 1 'BKPF-BUKRS' bukrs. " company codepopulate_ftpost 'K' 1 'BKPF-BLART' blart. " document typepopulate_ftpost 'K' 1 'BKPF-BLDAT' bldat. " posting datepopulate_ftpost 'K' 1 'BKPF-BUDAT' budat.populate_ftpost 'K' 1 'BKPF-MONAT' monat.populate_ftpost 'K' 1 'BKPF-WAERS' waers. " currency"判断发票会计凭证存不存在差异行IF is_input-wrbtr <> lv_sumwa ."预付金额与这次发票金额不能抵消lv_cywrb = is_input-wrbtr - lv_sumwa .lv_index = lv_index + 1 .populate_ftpost 'P' lv_index 'BSEG-SGTXT'  is_input-belnr.    "文本populate_ftpost 'P' lv_index 'RF05A-NEWKO' is_input-lifnr.    "供应商编码(科目)populate_ftpost 'P' lv_index 'RF05A-NEWBS' is_input-bschl.    "过账码populate_ftpost 'P' lv_index 'BSEG-WRBTR'  lv_cywrb.          "金额populate_ftpost 'P' lv_index 'BSEG-HKONT'  is_input-hkont.    "总账科目populate_ftpost 'P' lv_index 'RF05A-NEWUM' is_input-umskz.    "特别总账标识ENDIF .LOOP AT is_items INTO ls_line ."预付凭证传入BDC抬头CLEAR : lv_belnr ,lv_cywrb.lv_belnr = ls_line-belnr && ls_line-gjahr && ls_line-buzei .populate_ftclear 'K' ls_line-lifnr ls_line-bukrs 'BELNR' lv_belnr ls_line-umskz."判断预付凭证要不要拆行IF ls_line-wrbtr <> ls_line-zyfje .lv_cywrb = ls_line-wrbtr - ls_line-zyfje .lv_index = lv_index + 1 .populate_ftpost 'P' lv_index 'BSEG-SGTXT'  is_input-belnr.   "文本populate_ftpost 'P' lv_index 'RF05A-NEWKO' ls_line-lifnr.    "供应商编码(科目)populate_ftpost 'P' lv_index 'RF05A-NEWBS' ls_line-bschl.    "过账码populate_ftpost 'P' lv_index 'BSEG-WRBTR'  lv_cywrb.         "金额populate_ftpost 'P' lv_index 'BSEG-HKONT'  ls_line-hkont.    "总账科目populate_ftpost 'P' lv_index 'RF05A-NEWUM' ls_line-umskz.    "特别总账标识SELECT SINGLE * FROM ztfi020 INTO ls_ztfi020WHERE bukrs = bukrsAND   gjahr = ls_line-gjahrAND   belnr = ls_line-belnrAND   buzei = ls_line-buzei .IF sy-subrc = 0 .CLEAR : ls_ztfi020-bukrs ,ls_ztfi020-belnr .ls_ztfi020-buzei = lv_index .APPEND ls_ztfi020 TO lt_ztfi020 .ENDIF .ENDIF .CLEAR : ls_line .ENDLOOP .IF gt_ftclear IS NOT INITIAL .lv_mode = 'N'.CALL FUNCTION 'POSTING_INTERFACE_START'EXPORTINGi_client           = sy-mandti_function         = 'C'i_mode             = lv_modei_keep             = 'X'i_update           = 'S'i_user             = sy-unameEXCEPTIONSclient_incorrect   = 1function_invalid   = 2group_name_missing = 3mode_invalid       = 4update_invalid     = 5user_invalid       = 6.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CALL FUNCTION 'POSTING_INTERFACE_CLEARING'EXPORTINGi_auglv                    = 'UMBUCHNG'   "转账并清账i_tcode                    = 'FB05'i_sgfunct                  = 'C'IMPORTINGe_msgid                    = sy-msgide_msgno                    = sy-msgnoe_msgty                    = sy-msgtye_msgv1                    = sy-msgv1e_msgv2                    = sy-msgv2e_msgv3                    = sy-msgv3e_msgv4                    = sy-msgv4TABLESt_blntab                   = gt_blntabt_ftclear                  = gt_ftcleart_ftpost                   = gt_ftpostt_fttax                    = gt_fttaxEXCEPTIONSclearing_procedure_invalid = 1clearing_procedure_missing = 2table_t041a_empty          = 3transaction_code_invalid   = 4amount_format_error        = 5too_many_line_items        = 6company_code_invalid       = 7screen_not_found           = 8no_authorization           = 9OTHERS                     = 10."获取消息文本MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO lv_msg.IF sy-msgid = 'F5' AND sy-msgty = 'S' AND sy-msgno = '312' .es_msg = lv_msg .es_type = 'S' .es_belnr = sy-msgv1 .es_bukrs = sy-msgv2 .IF lt_ztfi020 IS NOT INITIAL .DO 10 TIMES.SELECT * FROM bseg INTO TABLE @DATA(lt_bseg) WHERE belnr = @es_belnr AND bukrs = @es_bukrs .IF sy-subrc = 0 .LOOP AT lt_ztfi020 ASSIGNING FIELD-SYMBOL(<fs_ztfi020>).READ TABLE lt_bseg INTO DATA(ls_bseg) WITH KEY buzei = <fs_ztfi020>-buzei .IF sy-subrc = 0 .<fs_ztfi020>-belnr = ls_bseg-belnr .<fs_ztfi020>-bukrs = ls_bseg-bukrs .<fs_ztfi020>-zqzbs = '' .CLEAR : ls_bseg .ENDIF .ENDLOOP .IF sy-subrc = 0 .MODIFY ztfi020 FROM TABLE lt_ztfi020 .ENDIF .EXIT .ELSE .WAIT UP TO '0.5' SECONDS .ENDIF .ENDDO.ENDIF .ELSE .es_msg = lv_msg .es_type = 'E' .ENDIF .CALL FUNCTION 'POSTING_INTERFACE_END'EXCEPTIONSsession_not_processable = 1OTHERS                  = 2.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.es_msg = lv_msg .es_type = sy-msgty .ENDIF .ELSE .es_type = 'E' .ENDIF .ENDFUNCTION.