SAP FI 清账接口和部分清账接口 例子

SAP FI清账接口和部分清账接口源码FICO模块编写者：陈楚庆日期： 2016-01-15目录一、清账bapi : POSTING_INTERFACE_CLEARING (3)二、部分清账bapi: BAPI_ACC_DOCUMENT_POST (3)三、下面是完整的清账和部分清账的接口源码。

(3)1. 创建财务清账接口zfi_fk_post_clear (4)2. 创建凭证头结构 (4)3. 创建新入账行行项目结构 (5)4. 创建被清行行项目结构 (7)5. 创建清账接口日志表 (8)6. 创建清账接口日志表 (9)7. 清账接口源代码 (9)8. 凭证接口结构 (24)9.凭证接口源代码 (26)一、清账bapi : POSTING_INTERFACE_CLEARING这个function可用于全清，也可用于剩余清（剩余清原理也是全清，只是多了个新的行项目）二、部分清账bapi: BAPI_ACC_DOCUMENT_POST这个function可用于部份清账,其实它就是做凭证的bapi,需要把被清行的凭证号，年度，行项目写到凭证对应的 REBZG , REBZJ , REBZZ 字段上。

但这三个字段在标准字段是没有的，需要添加到extension2内。

三、下面是完整的清账和部分清账的接口源码。

1.创建财务清账接口zfi_fk_post_clear2.创建凭证头结构3.创建新入账行行项目结构4.创建被清行行项目结构7.清账接口源代码FUNCTION zfi_fk_post_clear.*"---------------------------------------------------------------------- *"*"Local interface:*" IMPORTING*" VALUE(WA_FK_ITM) TYPE ZFI_FK_ITM OPTIONAL*" TABLES*" ZTAB_DOC_CLEAR STRUCTURE ZFI_FK_DOC*" CHANGING*" VALUE(WA_FK_ITA) TYPE ZFI_FK_PZT*"----------------------------------------------------------------------*"----------------------------------------------------------------------* DATA : wa_fk_pzt LIKE zfi_fk_pzt .* DATA : wa_fk_itm LIKE zfi_fk_itm .DATA : tab_fkhed_log TYPE STANDARD TABLE OF zfit_fkclear_004 ,wa_fkhed_log TYPE zfit_fkclear_004 .DATA : tab_fkitm_log TYPE STANDARD TABLE OF zfit_fkclear_005 ,wa_fkitm_log TYPE zfit_fkclear_005 .DATA : zupdate_regz TYPE char1.DATA: tab_blntab TYPE TABLE OF blntab .DATA: wa_blntab TYPE blntab .DATA: tab_fttax TYPE TABLE OF fttax WITH HEADER LINE.DATA : wa_doc_clear LIKE zfi_fk_doc.DATA :tab_ftpost TYPE STANDARD TABLE OF ftpost . "入账行项目DATA : wa_ftpost TYPE ftpost .DATA : tab_ftclear TYPE STANDARD TABLE OF ftclear ."被清行项目DATA :wa_ftclear TYPE ftclear.DATA l_err_flag TYPE c.DATA zwrbtr TYPE bseg-wrbtr.DATA zclear_flag TYPE char10. "清账类型 P部分清，A2全清DATA zclear_num TYPE char10. "被清数量DATA wa_hed TYPE zfi_doc_head .DATA tab_hed TYPE STANDARD TABLE OF zfi_doc_head .DATA: l_prctr LIKE bseg-prctr. "判断利润中心是否与成本中心相符 DATA wa_itm TYPE zfi_doc_itm .DATA tab_itm TYPE STANDARD TABLE OF zfi_doc_itm .DATA wa_bseg TYPE bseg .DATA itm_num TYPE numc10 .DATA: akont LIKE knb1-akont .DATA: kunnr_num LIKE knb1-kunnr.CLEAR : akont , kunnr_num .CLEAR: tab_fkhed_log , wa_fkhed_log ,tab_fkitm_log ,wa_fkitm_log . CLEAR: wa_ftpost , wa_doc_clear ,wa_ftclear ,tab_ftpost ,tab_ftclear ,tab_blntab ,wa_blntab ,tab_fttax .CLEAR: wa_hed ,tab_hed ,wa_itm,tab_itm.CLEAR: wa_bseg ,itm_num .CLEAR: zclear_num ,zclear_flag .DEFINE populate_ftpost.wa_ftpost-stype = &1.wa_ftpost-count = &2.wa_ftpost-fnam = &3.wa_ftpost-fval = &4.condense wa_ftpost-fval .append wa_ftpost to tab_ftpost .END-OF-DEFINITION.INCLUDE lzfi01f01.*&计数看有多少个部份清LOOP AT ztab_doc_clear INTO wa_doc_clear WHERE flag = 'P' .zclear_num = zclear_num + 1 .*&判断是部份清还还是全清LOOP AT ztab_doc_clear INTO wa_doc_clear .zclear_flag = wa_doc_clear-flag.EXIT.ENDLOOP.CLEAR wa_doc_clear .LOOP AT ztab_doc_clear INTO wa_doc_clear WHERE flag <> zclear_flag .EXIT.ENDLOOP.IF wa_doc_clear IS NOT INITIAL.zclear_flag = 'E' . "不允许同时存在部份清和全清ENDIF.IF zclear_num > 1 .zclear_flag = 'E2' . "不允许存在多条部分清理论上业务不允许多条部分清账，这里做控制ENDIF.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "客户前导0EXPORTINGinput = wa_fk_itm-customerIMPORTINGoutput = wa_fk_itm-customer .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "供应商前导0EXPORTINGinput = wa_fk_itm-vendor_noIMPORTINGoutput = wa_fk_itm-vendor_no .*&校验统驭科目IF wa_fk_itm-customer IS NOT INITIAL . "客户CLEAR : akont ,kunnr_num .SELECT akont INTO akont FROM knb1 WHERE kunnr = wa_fk_itm-customer AND bukrs = wa_fk_itm-comp_code .ENDSELECT .kunnr_num = wa_fk_itm-customer(1) .IF kunnr_num = 'H' .IF akont <> '0011330307' .wa_fk_ita-err = ' 员工客户统SAP驭科目必需为11330307，请在SAP XK02更正' .wa_fk_ita-ref_key_1 = 'F' .CLEAR : wa_fk_itm ,ztab_doc_clear[] .RETURN.ENDIF.ENDIF.IF wa_fk_itm-vendor_no IS NOT INITIAL . "供应商CLEAR akont.SELECT akont INTO akont FROM lfb1 WHERE lifnr = wa_fk_itm-vendor_no AND bukrs = wa_fk_itm-comp_code .ENDSELECT .IF akont <> '0021210100' .wa_fk_ita-err = ' 供应商SAP统驭科目必需为21210100，请在SAP FK02更正' .wa_fk_ita-ref_key_1 = 'F' .CLEAR : wa_fk_itm ,ztab_doc_clear[] .RETURN.ENDIF.ENDIF.*&校验统成本中心和利润中心IF wa_fk_itm-costcenter IS NOT INITIAL AND wa_fk_itm-profit_ctr IS NOT INITIAL .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "成本中心前导EXPORTINGinput = wa_fk_itm-costcenterIMPORTINGoutput = wa_fk_itm-costcenter .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "利润中心前导EXPORTINGinput = wa_fk_itm-profit_ctrIMPORTINGoutput = wa_fk_itm-profit_ctr .CLEAR l_prctr .SELECT SINGLE prctr INTO l_prctr FROM csks WHERE kokrs = '1000' AND kostl= wa_fk_itm-costcenter and DATBI > SY-DATUM .IF l_prctr <> wa_fk_itm-profit_ctr .CONCATENATE '成本中心与利润中心必需有对应关系！利润中心可能是'l_prctr ',SAP可使用KS03查看' into wa_fk_ita-err .* wa_fk_ita-err = '成本中心与利润中心必需是有对应关系'.wa_fk_ita-ref_key_1 = 'F' .CLEAR : wa_fk_itm ,ztab_doc_clear[] .RETURN.ENDIF.** 校验原因代码IF wa_fk_itm-GL_ACCOUNT >= 10010000 and wa_fk_itm-GL_ACCOUNT <= 10999999 and wa_fk_itm-RSTGR is initial .CONCATENATE '银行/现金科目' wa_fk_itm-GL_ACCOUNT '原因代码不能为空' into wa_fk_ita-err .wa_fk_ita-ref_key_1 = 'F' .CLEAR : wa_fk_itm ,ztab_doc_clear[] .RETURN.endif.IF wa_fk_ita-ref_key_3 IS NOT INITIAL AND wa_fk_ita-comp_code = '1090' . wa_fk_ita-ref_doc_no = '' .CONCATENATE '000DD' wa_fk_ita-ref_key_3+5(5) INTOwa_fk_ita-ref_doc_no .wa_fk_itm-profit_ctr = '' .ENDIF.*&全清IF zclear_flag = 'A' OR zclear_flag = 'AA' OR zclear_flag = 'AC'. "全清*&----入库抬头行populate_ftpost: 'K' 1 'BKPF-BUKRS' wa_fk_ita-comp_code, "Company code 'K' 1 'BKPF-BLART' wa_fk_ita-doc_type,'K' 1 'BKPF-BLDAT' wa_fk_ita-doc_date,'K' 1 'BKPF-BUDAT' wa_fk_ita-pstng_date,* 'K' 1 'BKPF-WAERS' wa_fk_itm-currency ,'K' 1 'BKPF-BKTXT' wa_fk_ita-header_txt ,'K' 1 'BKPF-XBLNR' wa_fk_ita-ref_doc_no. "参考凭证号IF wa_fk_itm IS NOT INITIAL AND wa_fk_itm-obj_no = wa_fk_ita-obj_no . populate_ftpost: 'K' 1 'BKPF-WAERS' wa_fk_itm-currency .*&----入库抬头行populate_ftpost: 'P' 1 'RF05A-NEWBS' wa_fk_itm-newbs, "记账码'P' 1 'BSEG-SGTXT' wa_fk_itm-item_text,'P' 1 'BSEG-WRBTR' wa_fk_itm-amt_doccur .IF wa_fk_itm-umskz IS NOT INITIAL .populate_ftpost: 'P' 1 'RF05A-NEWUM' wa_fk_itm-umskz. "特别总账标识ENDIF.IF wa_fk_itm-newbs = '29' OR wa_fk_itm-newbs = '39' .populate_ftpost: 'P' 1 'BSEG-MWSKZ' 'J0'. "税码IF wa_fk_itm-umskz <> 'A' .populate_ftpost: 'P' 1 'BSEG-ZFBDT ' sy-datum . "日期ENDIF.ELSEIF wa_fk_itm-newbs = '09' OR wa_fk_itm-newbs = '19' . .populate_ftpost: 'P' 1 'BSEG-MWSKZ' 'X0'. "税码IF wa_fk_itm-umskz <> 'A' .populate_ftpost: 'P' 1 'BSEG-ZFBDT ' sy-datum . "日期ENDIF.ENDIF.IF wa_fk_itm-customer IS NOT INITIAL .populate_ftpost: 'P' 1 'BSEG-HKONT' wa_fk_itm-customer. "客户 ELSEIF wa_fk_itm-vendor_no IS NOT INITIAL .populate_ftpost: 'P' 1 'BSEG-HKONT' wa_fk_itm-vendor_no . "供应商 ELSEIF wa_fk_itm-gl_account IS NOT INITIAL .populate_ftpost: 'P' 1 'BSEG-HKONT' wa_fk_itm-gl_account . "总账 ENDIF.IF wa_fk_itm-rstgr IS NOT INITIAL.populate_ftpost: 'P' 1 'BSEG-RSTGR' wa_fk_itm-rstgr. "原因代码 ENDIF.IF wa_fk_itm-orderid IS NOT INITIAL .populate_ftpost: 'P' 1 'COBL-AUFNR' wa_fk_itm-orderid. "生产订单 ENDIF.IF wa_fk_itm-profit_ctr IS NOT INITIAL and wa_fk_itm-customer is initial .populate_ftpost: 'P' 1 'BSEG-PRCTR' wa_fk_itm-profit_ctr. "利润中心ENDIF.IF wa_fk_itm-costcenter IS NOT INITIAL .populate_ftpost: 'P' 1 'COBL-KOSTL' wa_fk_itm-costcenter. "成本中心 ENDIF.IF wa_fk_itm-newbs <> '21' AND wa_fk_itm-vendor_no IS NOT INITIAL . zupdate_regz = '1' . "贷方供应商不允许输入参考发票号等信息ELSEIF wa_fk_itm-newbs <> '11' AND wa_fk_itm-customer IS NOT INITIAL.zupdate_regz = '1' .ELSE.IF wa_fk_itm-rebzg IS NOT INITIAL .populate_ftpost: 'P' 1 'BSEG-REBZG' wa_fk_itm-rebzg. "参考发票号 ENDIF.IF wa_fk_itm-rebzj IS NOT INITIAL .populate_ftpost: 'P' 1 'BSEG-REBZJ' wa_fk_itm-rebzj. "参考发票年 ENDIF.IF wa_fk_itm-rebzj IS NOT INITIAL .populate_ftpost: 'P' 1 'BSEG-REBZZ' wa_fk_itm-rebzz. "参考发票行项目ENDIF.ENDIF.ELSE.populate_ftpost: 'K' 1 'BKPF-WAERS' 'RMB' .ENDIF.* zwrbtr = wa_fk_itm-amt_doccur .*&---被清行项目LOOP AT ztab_doc_clear INTO wa_doc_clear .wa_ftclear-agkoa = wa_doc_clear-xpos1. "供应商是K，客户是D wa_ftclear-agkon = wa_doc_clear-account. "Customerwa_ftclear-agbuk = wa_doc_clear-comp_code. "Company codewa_ftclear-xnops = 'X'.wa_ftclear-agums = wa_doc_clear-umskz. "'J'.物料总账标识 wa_ftclear-selfd = 'BELNR'.CONCATENATE wa_doc_clear-belnrwa_doc_clear-gjahrwa_doc_clear-buzei INTO wa_ftclear-selvon.* gs_ftclear-selvon = wa_input-belnr.wa_ftclear-selbis = wa_doc_clear-belnr.APPEND wa_ftclear TO tab_ftclear.ENDLOOP.CALL FUNCTION 'POSTING_INTERFACE_START'EXPORTINGi_function = 'C'i_keep = 'X'i_mode = 'N' "A for step by step,N default,for backgroundEXCEPTIONSclient_incorrect = 1function_invalid = 2group_name_missing = 3mode_invalid = 4update_invalid = 5OTHERS = 6.*&----清账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-msgv4* E_SUBRC = SY-SUBRCTABLESt_blntab = tab_blntabt_ftclear = tab_ftcleart_ftpost = tab_ftpostt_fttax = tab_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.READ TABLE tab_blntab INTO wa_blntab INDEX 1.IF wa_blntab-belnr IS INITIAL.wa_fk_ita-ref_key_1 = 'F' .l_err_flag = 'X'.* CONCATENATE wa_input-belnr wa_input-buzei INTO WA_FK_PZT-ERR . IF sy-msgty IS INITIAL.wa_fk_itm-ref_key_3 = '未知异常.'.ELSE.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoINTO wa_fk_ita-err WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.ELSE.wa_fk_ita-ref_key_1 = 'S' .CONCATENATE '凭证号码' wa_blntab-belnr '在公司代码' wa_blntab-bukrs '下记账成功' INTO wa_fk_ita-err.wa_fk_ita-ref_key_2 = wa_blntab-belnr .ENDIF.IF zupdate_regz = '1' AND wa_fk_ita-ref_key_1 = 'S' AND( wa_fk_itm-rebzg IS NOT INITIAL AND wa_fk_itm-rebzg IS NOT INITIAL AND wa_fk_itm-rebzz IS NOT INITIAL ).UPDATE bseg SET rebzg = wa_fk_itm-rebzg rebzj = wa_fk_itm-rebzj rebzz = wa_fk_itm-rebzzWHERE belnr = wa_blntab-belnr AND bukrs = wa_blntab-bukrs AND gjahr = wa_blntab-gjahr AND buzei = '001'.IF wa_fk_itm-customer IS NOT INITIAL .UPDATE bsid SET rebzg = wa_fk_itm-rebzg rebzj = wa_fk_itm-rebzj rebzz = wa_fk_itm-rebzzWHERE belnr = wa_blntab-belnr AND bukrs = wa_blntab-bukrs AND gjahr = wa_blntab-gjahr AND buzei = '001'.ELSEIF wa_fk_itm-vendor_no IS NOT INITIAL .UPDATE bsik SET rebzg = wa_fk_itm-rebzg rebzj = wa_fk_itm-rebzj rebzz = wa_fk_itm-rebzzWHERE belnr = wa_blntab-belnr AND bukrs = wa_blntab-bukrs AND gjahr = wa_blntab-gjahr AND buzei = '001'.ENDIF..ENDIF.*&部份清ELSEIF zclear_flag = 'P' . "部份清wa_hed-obj_no = wa_fk_ita-obj_no .wa_hed-username = wa_fk_ita-username .wa_hed-header_txt = wa_fk_ita-header_txt.wa_hed-comp_code = wa_fk_ita-comp_code.wa_hed-fisc_year = wa_fk_ita-fisc_year.wa_hed-fis_period = wa_fk_ita-fis_period .wa_hed-doc_date = wa_fk_ita-doc_date.wa_hed-pstng_date = wa_fk_ita-pstng_date.wa_hed-doc_type = wa_fk_ita-doc_type.wa_hed-ref_doc_no = wa_fk_ita-ref_doc_no.wa_hed-trans_date = wa_fk_ita-trans_date.wa_hed-ref_key_1 = wa_fk_ita-ref_key_1.wa_hed-ref_key_2 = wa_fk_ita-ref_key_2.wa_hed-ref_key_3 = wa_fk_ita-ref_key_3.wa_hed-err = wa_fk_ita-err.APPEND wa_hed TO tab_hed .IF wa_fk_itm IS NOT INITIAL .wa_itm-obj_no = wa_fk_itm-obj_no .wa_itm-itemno_acc = '1' .wa_itm-newbs = wa_fk_itm-newbs .wa_itm-gl_account = wa_fk_itm-gl_account .wa_itm-anbwa = wa_fk_itm-anbwa.wa_itm-asset_no = wa_fk_itm-asset_no.wa_itm-sub_number = wa_fk_itm-sub_number.wa_itm-comp_code = wa_fk_itm-comp_code.wa_itm-doc_type = wa_fk_itm-doc_type.wa_itm-profit_ctr = wa_fk_itm-profit_ctr.wa_itm-costcenter = wa_fk_itm-costcenter.wa_itm-customer = wa_fk_itm-customer.wa_itm-vendor_no = wa_fk_itm-vendor_no.wa_itm-orderid = wa_fk_itm-orderid.wa_itm-item_text = wa_fk_itm-item_text.wa_itm-currency = wa_fk_itm-currency.wa_itm-amt_doccur = wa_fk_itm-amt_doccur.wa_itm-rstgr = wa_fk_itm-rstgr.wa_itm-xnegp = wa_fk_itm-xnegp.wa_itm-umskz = wa_fk_itm-umskz.wa_itm-shkzg = wa_fk_itm-shkzg.wa_itm-ref_key_8 = wa_fk_itm-ref_key_8.wa_itm-ref_key_2 = wa_fk_itm-ref_key_2.wa_itm-ref_key_3 = wa_fk_itm-ref_key_3.APPEND wa_itm TO tab_itm .ENDIF.itm_num = wa_fk_itm-obj_no .LOOP AT ztab_doc_clear INTO wa_doc_clear .CLEAR wa_itm.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "总帐科目前导0EXPORTINGinput = wa_doc_clear-belnrIMPORTINGoutput = wa_doc_clear-belnr .SELECT * INTO CORRESPONDING FIELDS OF wa_bsegFROM bseg WHEREbukrs = wa_doc_clear-comp_codeAND belnr = wa_doc_clear-belnrAND gjahr = wa_doc_clear-gjahrAND buzei = wa_doc_clear-buzei .ENDSELECT.wa_itm-obj_no = wa_doc_clear-obj_no .itm_num = itm_num + 1 .wa_itm-itemno_acc = itm_num .IF wa_bseg-koart = 'K' . "供应商IF wa_bseg-bschl < '20' .wa_itm-newbs = wa_bseg-bschl + 10 . "记账码wa_itm-shkzg = 'H' .ELSE.wa_itm-newbs = wa_bseg-bschl - 10 .wa_itm-shkzg = 'S' .ENDIF.wa_itm-vendor_no = wa_doc_clear-account . "供应商编号ELSEIF wa_bseg-koart = 'D' . "客户IF wa_bseg-bschl < '10' .wa_itm-newbs = wa_bseg-bschl + 10 .wa_itm-shkzg = 'H' .ELSE.wa_itm-newbs = wa_bseg-bschl - 10 .wa_itm-shkzg = 'S' .ENDIF.wa_itm-customer = wa_doc_clear-account . "客户编号ENDIF.wa_itm-comp_code = wa_doc_clear-comp_code . "公司代码wa_itm-doc_type = wa_fk_ita-doc_type. "凭证类型wa_itm-currency = wa_bseg-pswsl . "贷币wa_itm-umskz = wa_bseg-umskz . "特别总账标识wa_itm-amt_doccur = wa_doc_clear-dmbtr_clear . "金额wa_itm-item_text = wa_fk_itm-item_text . "文本IF wa_itm-newbs <> '21' AND wa_itm-vendor_no IS NOT INITIAL .zupdate_regz = '1' . "贷方供应商不允许输入参考发票号等信息ELSEIF wa_itm-newbs <> '11' AND wa_itm-customer IS NOT INITIAL. zupdate_regz = '1' .ELSE.wa_itm-rebzg = wa_doc_clear-belnr . "参考凭证号 wa_itm-rebzj = wa_doc_clear-gjahr . "参考年度 wa_itm-rebzz = wa_doc_clear-buzei . "参考行项目 ENDIF.APPEND wa_itm TO tab_itm .ENDLOOP.CALL FUNCTION 'ZFI_POST_DOC' "通过凭证接口处理部分清账的业务 TABLEStab_itm = tab_itmtab_hed = tab_hed.CLEAR wa_hed .LOOP AT tab_hed INTO wa_hed .wa_fk_ita-ref_key_1 = wa_hed-ref_key_1 .wa_fk_ita-ref_key_2 = wa_hed-ref_key_2 .wa_fk_ita-ref_key_3 = wa_hed-ref_key_3 .wa_fk_ita-err = wa_hed-err .IF zupdate_regz = '1' AND wa_fk_ita-ref_key_1 = 'S' AND( wa_doc_clear-belnr IS NOT INITIAL AND wa_doc_clear-gjahr IS NOT INITIAL AND wa_doc_clear-buzei IS NOT INITIAL ).WAIT UP TO 10 SECONDS.UPDATE bseg SET rebzg = wa_doc_clear-belnr rebzj =wa_doc_clear-gjahr rebzz = wa_doc_clear-buzeiWHERE belnr = wa_hed-ref_key_2 AND bukrs = wa_hed-comp_code AND gjahr = wa_hed-fisc_year AND buzei = '002'.IF wa_itm-customer IS NOT INITIAL .UPDATE bsid SET rebzg = wa_doc_clear-belnr rebzj =wa_doc_clear-gjahr rebzz = wa_doc_clear-buzeiWHERE belnr = wa_hed-ref_key_2 AND bukrs = wa_hed-comp_code AND gjahr = wa_hed-fisc_year AND buzei = '002'..ELSEIF wa_itm-vendor_no IS NOT INITIAL .UPDATE bsik SET rebzg = wa_doc_clear-belnr rebzj =wa_doc_clear-gjahr rebzz = wa_doc_clear-buzeiWHERE belnr = wa_hed-ref_key_2 AND bukrs = wa_hed-comp_code AND gjahr = wa_hed-fisc_year AND buzei = '002'.ENDIF.ENDIF.ENDLOOP.ELSEIF zclear_flag = 'E' .wa_fk_ita-err = '被清行项目不允许存在部份清和全清!' .ELSEIF zclear_flag = 'E2' .wa_fk_ita-err = '不允许存在多条部分清!' .ELSE .wa_fk_ita-err = '未知的清账类型!' .ENDIF.***写入日志表CALL FUNCTION 'NUMBER_GET_NEXT'EXPORTINGnr_range_nr = '04'object = 'ZFKLU01'ignore_buffer = 'X'* QUANTITY = '1'* SUBOBJECT = ' '* TOYEAR = '0000'* IGNORE_BUFFER = ' 'IMPORTINGnumber = wa_fkhed_log-keyid* QUANTITY =* RETURNCODE =EXCEPTIONSinterval_not_found = 1number_range_not_intern = 2object_not_found = 3quantity_is_0 = 4quantity_is_not_1 = 5interval_overflow = 6buffer_overflow = 7OTHERS = 8 .* DATA : TAB_FKHED_LOG TYPE STANDARD TABLE OF ZFIT_FKCLEAR_004 , * WA_FKHED_LOG TYPE ZFIT_FKCLEAR_004 .** DATA : TAB_FKITM_LOG TYPE STANDARD TABLE OF ZFIT_FKCLEAR_005 ,* WA_FKITM_LOG TYPE ZFIT_FKCLEAR_005 .wa_fkhed_log-fis_period = wa_fk_ita-fis_period . wa_fkhed_log-doc_date = wa_fk_ita-doc_date .wa_fkhed_log-pstng_date = wa_fk_ita-pstng_date . wa_fkhed_log-doc_type = wa_fk_ita-doc_type .wa_fkhed_log-ref_doc_no = wa_fk_ita-ref_doc_no . wa_fkhed_log-trans_date = wa_fk_ita-trans_date . wa_fkhed_log-ref_key_1 = wa_fk_ita-ref_key_1 . wa_fkhed_log-ref_key_2 = wa_fk_ita-ref_key_2 . wa_fkhed_log-ref_key_3 = wa_fk_ita-ref_key_3 . wa_fkhed_log-err = wa_fk_ita-err .wa_fkhed_log-itemno_acc = wa_fk_itm-itemno_acc . wa_fkhed_log-newbs = wa_fk_itm-newbs .wa_fkhed_log-gl_account = wa_fk_itm-gl_account . wa_fkhed_log-anbwa = wa_fk_itm-anbwa .wa_fkhed_log-asset_no = wa_fk_itm-asset_no .wa_fkhed_log-sub_number = wa_fk_itm-sub_number . wa_fkhed_log-profit_ctr = wa_fk_itm-profit_ctr . wa_fkhed_log-costcenter = wa_fk_itm-costcenter . wa_fkhed_log-customer = wa_fk_itm-customer .wa_fkhed_log-vendor_no = wa_fk_itm-vendor_no . wa_fkhed_log-orderid = wa_fk_itm-orderid .wa_fkhed_log-item_text = wa_fk_itm-item_text . wa_fkhed_log-currency = wa_fk_itm-currency .wa_fkhed_log-amt_doccur = wa_fk_itm-amt_doccur . wa_fkhed_log-rstgr = wa_fk_itm-rstgr .wa_fkhed_log-xnegp = wa_fk_itm-xnegp .wa_fkhed_log-umskz = wa_fk_itm-umskz .wa_fkhed_log-shkzg = wa_fk_itm-shkzg .wa_fkhed_log-rebzg = wa_fk_itm-rebzg .wa_fkhed_log-rebzj = wa_fk_itm-rebzj .wa_fkhed_log-rebzz = wa_fk_itm-rebzz .wa_fkhed_log-ref_key_8 = wa_fk_itm-ref_key_8 . wa_fkhed_log-ref_key_2i = wa_fk_itm-ref_key_2 . wa_fkhed_log-ref_key_3i = wa_fk_itm-ref_key_3 . wa_fkhed_log-write_date = sy-datum .wa_fkhed_log-write_time = sy-uzeit .MODIFY zfit_fkclear_004 FROM wa_fkhed_log .CLEAR wa_doc_clear .LOOP AT ztab_doc_clear INTO wa_doc_clear .wa_fkitm_log-keyid = wa_fkhed_log-keyid .wa_fkitm_log-obj_no = wa_doc_clear-obj_no .wa_fkitm_log-flag = wa_doc_clear-flag .wa_fkitm_log-xpos1 = wa_doc_clear-xpos1 .wa_fkitm_log-account = wa_doc_clear-account .wa_fkitm_log-comp_code = wa_doc_clear-comp_code . wa_fkitm_log-xnops = wa_doc_clear-xnops .wa_fkitm_log-umskz = wa_doc_clear-umskz .wa_fkitm_log-belnr = wa_doc_clear-belnr .wa_fkitm_log-gjahr = wa_doc_clear-gjahr .wa_fkitm_log-buzei = wa_doc_clear-buzei .wa_fkitm_log-dmbtr = wa_doc_clear-dmbtr .wa_fkitm_log-dmbtr_clear = wa_doc_clear-dmbtr_clear . wa_fkitm_log-ref_key_8 = wa_doc_clear-ref_key_8 . wa_fkitm_log-ref_key_2 = wa_doc_clear-ref_key_2 . wa_fkitm_log-ref_key_3 = wa_doc_clear-ref_key_3 . wa_fkitm_log-write_date = sy-datum .wa_fkitm_log-write_time = sy-uzeit .MODIFY zfit_fkclear_005 FROM wa_fkitm_log .ENDLOOP .CLEAR : wa_fk_itm ,ztab_doc_clear[] .ENDFUNCTION.8.凭证接口结构9.凭证接口源代码FUNCTION ZFI_POST_DOC.*"---------------------------------------------------------------------- *"*"Local interface:*" TABLES*" TAB_ITM STRUCTURE ZFI_DOC_ITM*" TAB_HED STRUCTURE ZFI_DOC_HEAD*"---------------------------------------------------------------------- *" create by kin 2015-07-24DATA: retrun_num(2) TYPE c,p_datetime(14) TYPE c,ref_key(12) TYPE c,p_acc_sum(4) TYPE n,p_acc_suc(4) TYPE n,p_acc_fai(4) TYPE n,p_acc_num(4) TYPE n,p_str(200) TYPE c,p_answer(1) TYPE c,p_char,documentheader LIKE bapiache09,wa_zwyhd01_accit LIKE ZFK_ACCIT,p_customer TYPE bapiacgl09-customer,succe_flag.*---->定义凭证抬头DATA: wa_hd_sap_acc LIKE ZFI_DOC_HEAD,wa_hd_sap_acc_item LIKE ZFI_DOC_ITM.DATA: gt_hplog TYPE STANDARD TABLE OF zfit_hppz_002,wa_hplog TYPE zfit_hppz_002.DATA : BEGIN OF wa_data,icon(4), "预警图标obj_no LIKE bapiache09-obj_sys,itemno(2) TYPE c,datetime(14) TYPE c.INCLUDE STRUCTURE bapiret2.DATA END OF wa_data.DATA :accountgl LIKE bapiacgl09 OCCURS 0 WITH HEADER LINE,accountreceivable LIKE bapiacar09 OCCURS 0 WITH HEADER LINE,accountpayable LIKE bapiacap09 OCCURS 0 WITH HEADER LINE,currencyamount LIKE bapiaccr09 OCCURS 0 WITH HEADER LINE,criteria LIKE bapiackec9 OCCURS 0 WITH HEADER LINE,return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,extension2 LIKE bapiparex OCCURS 0 WITH HEADER LINE,bapi_retn_info LIKE bapiret2 OCCURS 0 WITH HEADER LINE,t_hd_sap_acc LIKE wa_hd_sap_acc OCCURS 0 WITH HEADER LINE,t_hd_sap_acc_item LIKE wa_hd_sap_acc_item OCCURS 0 WITH HEADER LINE,t_data LIKE wa_data OCCURS 0 WITH HEADER LINE.DATA: errs LIKE TAB_HED-err.*---->权限控制AUTHORITY-CHECK OBJECT 'ZWYHD01'ID 'P_ACTIVE' FIELD '1'.IF sy-subrc <> '0'.MESSAGE '对不起，您没有权限传输凭证数据！' TYPE 'E'.ENDIF.*----->控制是否过账p_answer = 'C'.**---->开始导入凭证* SELECT * INTO CORRESPONGDING FIELDS OF TABLE t_hd_sap_acc* FROM TAB_HED.* SELECT * INTO CORRESPONGDING FIELDS OF TABLE t_hd_sap_acc_item.* FROM TAB_ITM.CLEAR : p_acc_sum,p_acc_suc,p_acc_fai,p_acc_num,gt_hplog,wa_hplog.LOOP AT TAB_HED INTO wa_hd_sap_acc.errs = ''.**---->赋值抬头CLEAR: documentheader ,p_customer.p_acc_sum = p_acc_sum + 1 . "记录总凭证数documentheader-bus_act = 'RFBU'.documentheader-username = sy-uname.documentheader-comp_code = wa_hd_sap_acc-comp_code.documentheader-header_txt = wa_hd_sap_acc-header_txt.documentheader-fisc_year = wa_hd_sap_acc-fisc_year.documentheader-ref_doc_no = wa_hd_sap_acc-ref_doc_no.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "会计期间前导0EXPORTINGinput = wa_hd_sap_acc-fis_periodIMPORTINGoutput = wa_hd_sap_acc-fis_period .documentheader-fis_period = wa_hd_sap_acc-fis_period.documentheader-doc_type = wa_hd_sap_acc-doc_type.documentheader-pstng_date = wa_hd_sap_acc-pstng_date.documentheader-doc_date = wa_hd_sap_acc-doc_date.****************************************************************************************************************LOOP AT tab_itm INTO wa_hd_sap_acc_item WHERE obj_no =wa_hd_sap_acc-obj_no.**---->赋值行项目***---->先处理总帐科目、客户、供应商前导0CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "总帐科目前导0EXPORTINGinput = wa_hd_sap_acc_item-gl_accountIMPORTINGoutput = wa_hd_sap_acc_item-gl_account .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "客户前导0 EXPORTINGinput = wa_hd_sap_acc_item-customerIMPORTINGoutput = wa_hd_sap_acc_item-customer .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "供应商前导0 EXPORTINGinput = wa_hd_sap_acc_item-vendor_noIMPORTINGoutput = wa_hd_sap_acc_item-vendor_no .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "内部订单号前导0 EXPORTINGinput = wa_hd_sap_acc_item-orderidIMPORTINGoutput = wa_hd_sap_acc_item-orderid .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "固定资产号前导零 EXPORTINGinput = wa_hd_sap_acc_item-asset_noIMPORTINGoutput = wa_hd_sap_acc_item-asset_no .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "参考号前导零 EXPORTINGinput = wa_hd_sap_acc_item-REBZGIMPORTINGoutput = wa_hd_sap_acc_item-REBZG .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "参考号行项目前导零EXPORTINGinput = wa_hd_sap_acc_item-REBZZIMPORTINGoutput = wa_hd_sap_acc_item-REBZZ .***---->处理客户相关数据IF wa_hd_sap_acc_item-customer IS NOT INITIAL ANDwa_hd_sap_acc_item-gl_account NOT BETWEEN '0051010100' AND '0051010800'.CLEAR accountreceivable.accountreceivable-itemno_acc =wa_hd_sap_acc_item-itemno_acc .accountreceivable-customer = wa_hd_sap_acc_item-customer. accountreceivable-comp_code = wa_hd_sap_acc-comp_code.accountreceivable-item_text =wa_hd_sap_acc_item-item_text.accountreceivable-tax_code = 'X0'. "税码APPEND accountreceivable.***---->处理供应商相关数据ELSEIF wa_hd_sap_acc_item-vendor_no IS NOT INITIAL.CLEAR accountpayable.accountpayable-itemno_acc = wa_hd_sap_acc_item-itemno_acc .accountpayable-vendor_no = wa_hd_sap_acc_item-vendor_no.accountpayable-comp_code = wa_hd_sap_acc-comp_code.accountpayable-item_text = wa_hd_sap_acc_item-item_text.accountpayable-tax_code = 'J0'. "税码APPEND accountpayable.***---->处理供应商相关数据ELSEIF wa_hd_sap_acc_item-asset_no IS NOT INITIAL. "固定资产CLEAR accountgl.documentheader-bus_act = 'RMWE'.accountgl-asset_no = wa_hd_sap_acc_item-asset_no .accountgl-sub_number = '0000' .accountgl-acct_type = 'A'.accountgl-itemno_acc = wa_hd_sap_acc_item-itemno_acc .accountgl-gl_account = wa_hd_sap_acc_item-gl_account.accountgl-item_text = wa_hd_sap_acc_item-item_text.accountgl-comp_code = wa_hd_sap_acc_item-comp_code.accountgl-fisc_year = wa_hd_sap_acc-fisc_year.accountgl-fis_period = wa_hd_sap_acc-fis_period.accountgl-pstng_date = wa_hd_sap_acc-pstng_date.APPEND accountgl.ELSE.***---->处理总帐相关数据CLEAR accountgl.accountgl-itemno_acc = wa_hd_sap_acc_item-itemno_acc .accountgl-gl_account = wa_hd_sap_acc_item-gl_account.accountgl-item_text = wa_hd_sap_acc_item-item_text.accountgl-comp_code = wa_hd_sap_acc_item-comp_code.accountgl-fisc_year = wa_hd_sap_acc-fisc_year.accountgl-fis_period = wa_hd_sap_acc-fis_period.accountgl-pstng_date = wa_hd_sap_acc-pstng_date.。