调用标准的BABI方法实现。

1、首先先介绍一下实现会计凭证生成的BAPI，参考链接。

2、增强操作在另一篇文章（SAP接口财务凭证集成_借款）在此不再赘述。

3、数据导入和导出，此流程生成的凭证存在多借多贷的情况，所以需要定义两个结构来接收相关参数。

4、代码实现

FUNCTION ZFIIP018 .*"----------------------------------------------------------------------*"*"本地接口：*" IMPORTING*"VALUE(IV_BUKRS) TYPE BUKRS OPTIONAL*"VALUE(IV_RSTGR) TYPE RSTGR OPTIONAL*"VALUE(IV_LIFNR) TYPE LIFNR OPTIONAL*"VALUE(IV_WAERS) TYPE WAERS OPTIONAL*"VALUE(IV_BLART) TYPE BLART OPTIONAL*"VALUE(IV_BSCHLH) TYPE BSCHL OPTIONAL*"VALUE(IV_SHBKZK) TYPE UMSKZ OPTIONAL*"VALUE(IV_RACCTH) TYPE RACCT OPTIONAL*"VALUE(IV_BUDAT) TYPE BUDAT OPTIONAL*"VALUE(IV_AC_AMOUNT) TYPE WRBTR OPTIONAL*"VALUE(IV_DT_AMOUNT) TYPE WRBTR OPTIONAL*"VALUE(IV_WRBTR) TYPE WRBTR OPTIONAL*"VALUE(IV_KOSTL) TYPE KOSTL OPTIONAL*"VALUE(IV_PRCTR) TYPE PRCTR OPTIONAL*"VALUE(IV_TYPE) TYPE CHAR1 OPTIONAL*"VALUE(IV_NAME) TYPE USNAM OPTIONAL*"VALUE(IV_BXTXTH) TYPE TEXT34 OPTIONAL*"VALUE(IV_USNAM) TYPE USNAM OPTIONAL*" EXPORTING*"VALUE(EV_MSGTY) TYPE BAPI_MTYPE*"VALUE(EV_MESSAGE) TYPE BAPI_MSG*"VALUE(EV_MESBELNR) TYPE BAPI_MSG*" TABLES*"IV_INPUT STRUCTURE ZSFIIP015 OPTIONAL*"IV_INRSTGR STRUCTURE ZSFIIP018*"----------------------------------------------------------------------*凭证生成规则：*"VALUE(IV_BUKRS) 公司代码固定值*"VALUE(IV_RSTGR) 原因代码选择*"VALUE(IV_LIFNR) 会计科目-借A:无；B:员工供应商编码；C:无*"VALUE(IV_WAERS) 货币码默认CNY，可选择修改*"VALUE(IV_BLART) 凭证类型默认SA，可选择修改*"VALUE(IV_BSCHLH) 记账码-贷 A:50；B:50（银行付款时）；31（抵扣借支时）;；C:50（银行付款时）；特别总账标识不为空：39，否则为：31（供应商往来时）*"VALUE(IV_SHBKZK) 特别总账标识-贷 A:无；B:无；C:记账码-贷=39时，OA传值【特别总账标识】，必选，默认A；记账码-贷=31时，无*"VALUE(IV_RACCTH) 会计科目-贷A:付款银行编码；B:付款银行编码 / 员工供应商编码；C：付款银行编码 / 供应商编码；*"VALUE(IV_BUDAT) 过账日期出纳付款日期*"VALUE(IV_AC_AMOUNT) 预付款 A:无；B:无；C:预付款金额*"VALUE(IV_DT_AMOUNT) 抵扣金额 A:无；B:抵扣金额；C:无*"VALUE(IV_WRBTR) 金额应付款*"VALUE(IV_KOSTL) 成本中心传值*"VALUE(IV_PRCTR) 利润中心固定值*"VALUE(IV_TYPE) 业务类型固定值：A:费用报销，B;个人借支报销；C:供应商往来报销*"VALUE(IV_NAME) 费用归属人姓名*"VALUE(IV_BXTXTH) 报销内容-贷限定17个汉字以内*"VALUE(IV_USNAM) 输入者*" SGTXT行项目文本费用归属人姓名+“报销”+费用说明*" BKTXT凭证抬头文本费用归属人姓名+“报销”*" BSCHLS40*"TABLES:*"IV_INPUT（ABC）*:RACCTS 会计科目-借*:BXTXT 采购内容*:WRBTR 金额*:KOSTL 成本中心*"IV_INRSTGR*:RSTGR 原因代码-贷*:WRBTR 金额*:BXTXT 采购内容*"----------------------------------------------------------------------TYPES: BEGIN OF ty_data.INCLUDE TYPE ZSFIIP015.TYPES: END OF ty_data.TYPES: BEGIN OF ty_rstgr."原因代码INCLUDE TYPE ZSFIIP018.TYPES: END OF ty_rstgr.DATA: lw_documentheader TYPE bapiache09,"表头内容lt_accountgl TYPE STANDARD TABLE OF bapiacgl09, "总帐科目项lw_accountgl TYPE bapiacgl09,"总帐科目项工作区lt_accountpayable TYPE STANDARD TABLE OF bapiacap09, "供应商项目lw_accountpayable TYPE bapiacap09,"供应商项目工作区* lt_accountreceivable TYPE STANDARD TABLE OF bapiacar09, "客户项目* lW_accountreceivable TYPE bapiacar09,"客户项目lt_currencyamount TYPE STANDARD TABLE OF bapiaccr09, "货币项目lw_currencyamount TYPE bapiaccr09,"货币项目工作区lt_ext2 TYPE STANDARD TABLE OF bapiparex WITH HEADER LINE,"扩展字段（记账码，原因代码）lw_ext2 TYPE ZSFIIP019,"扩展字段工作区* lt_order_info TYPE STANDARD TABLE OF zfit_order_info,lv_itemno_acc TYPE posnr_acc,"会计凭证行项目号lt_return TYPE STANDARD TABLE OF bapiret2, "返回参数lw_return TYPE bapiret2, "返回参数工作区* ls_no_acc_rule TYPE zfit_no_acc_rule,* lv_order_noTYPE zfit_order_info-order_no,lv_keyTYPE bapiache09-obj_key,it_data TYPE TABLE OF ty_data,"借方结构wa_data TYPE ty_data,wa_rstgr TYPE ty_rstgr."付款原因代码"CONSTANTS: cn_bus_act TYPE glvor VALUE 'RFBU',"交易类型" cn_status_s TYPE char4 VALUE 'S000'," cn_status_e TYPE char4 VALUE 'E0M1'," cn_type_s TYPE c VALUE 'S'," cn_type_e TYPE c VALUE 'E'," cn_koart_k TYPE c VALUE 'K'," cn_koart_d TYPE c VALUE 'D'," cn_koart_s TYPE c VALUE 'S'," cn_shkzg_h TYPE c VALUE 'H'," cn_shkzg_s TYPE c VALUE 'S'," cn_blart_z5 TYPE bkpf-blart VALUE 'Z5'," cn_bschl_50 TYPE bschl VALUE '50'," cn_bschl_40 TYPE bschl VALUE '40'.DATA: l_itemno TYPE char10 VALUE '0000000000'."行项目DATA: ls_currencyamount TYPE LINE OF bapiaccr09_tab.DATA: l_wrbtr_sum TYPE bapidoccur,l_tax_sum TYPE bapidoccur.DATA: v_tabix TYPE sy-tabix,IV_SGTXT TYPE sgtxt,"项目行文本IV_BKTXT TYPE bktxt."凭证抬头文本.*IV_BUKRS = '1100'.*IV_RSTGR = 'B5'.*IV_WAERS = 'CNY'.*IV_LIFNR = '600001'.*IV_BSCHLH = '31'.*IV_SHBKZK ='A'.*IV_BLART = 'SA'.*IV_RACCTH = '100106'.*IV_BUDAT ='2003'.*IV_AC_AMOUNT = 3200.*IV_DT_AMOUNT = 2000.*IV_WRBTR = 0.*IV_PRCTR = 'PC1100'.*IV_TYPE = 'B'.*IV_NAME = '刘定'.*IV_BXTXTH = '测试B'.*IV_USNAM = 'FICO003'.**wa_data-raccts = '800100'.*wa_data-bxtxt = '办公费'.*wa_data-wrbtr = 1000.*wa_data-kostl = '11S00202'.*APPEND wa_data TO IV_INPUT .*CLEAR wa_data .****WA_DATA-RACCTS = '2221010201'.*WA_DATA-BXTXT = '材料进项1'.*WA_DATA-WRBTR = 1000.*append WA_DATA to iv_input .*clear WA_DATA .**WA_DATA-RACCTS = '2221010202'.*WA_DATA-BXTXT = '材料进项2'.*WA_DATA-WRBTR = 6000.*append WA_DATA to iv_input .*clear WA_DATA .IF IV_TYPE ='A'.IV_AC_AMOUNT = 0."预付款IV_DT_AMOUNT = 0."抵扣金额ELSEIF IV_TYPE ='B'.IV_AC_AMOUNT = 0.ELSE.IV_DT_AMOUNT = 0.ENDIF.IF IV_BSCHLH <> '39'.CLEAR IV_SHBKZK.ENDIF.*加上p_in的前导零CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput = IV_LIFNRIMPORTINGoutput = IV_LIFNR.IF IV_BUDAT IS INITIAL.IV_BUDAT = SY-DATUM.ENDIF.IF IV_NAME IS NOT INITIAL.CONCATENATE IV_NAME '报销' IV_BXTXTH INTO IV_BKTXT.ENDIF.*->填充总账信息DATA ls_accountgl TYPE bapiacgl09.* 分配字段写入“收付款单号+行项目号”* 抬头信息lw_documentheader-doc_date = IV_BUDAT."凭证中的凭证日期lw_documentheader-pstng_date = IV_BUDAT."凭证中的记账日期lw_documentheader-fisc_year = IV_BUDAT+0(4)."记账财年lw_documentheader-fis_period = IV_BUDAT+4(2)."记账月份lw_documentheader-doc_type = IV_BLART."凭证类型lw_documentheader-comp_code = IV_BUKRS."公司代码lw_documentheader-header_txt = IV_BKTXT."凭证抬头* lw_documentheader-bus_act = cn_bus_act. "'RFBU'. “交易类型lw_documentheader-username = IV_USNAM."输入者*********************---借方---*****************************LOOP AT IV_INPUT INTO wa_data."循环科目号（借）结构IF wa_data-raccts CP '22210102*'. "判断是否为进项税科目号IV_SGTXT = wa_data-bxtxt.ELSE.CONCATENATE IV_NAME '报销' wa_data-bxtxt INTO IV_SGTXT.ENDIF.ADD 1 TO l_itemno."总账相关的行项目信息lw_accountgl-itemno_acc = l_itemno . "凭证行项目lw_accountgl-gl_account = wa_data-raccts. "会计科目（借）lw_accountgl-item_text = IV_SGTXT. "项目行文本lw_accountgl-fis_period = IV_BUDAT+4(2). "记账月份lw_accountgl-pstng_date = IV_BUDAT. "凭证中的记账日期lw_accountgl-value_date = IV_BUDAT. "起息日lw_accountgl-costcenter = wa_data-kostl . "成本中心lw_accountgl-profit_ctr = IV_PRCTR . "利润中心APPEND lw_accountgl TO lt_accountgl .CLEAR lw_accountgl ."货币金额lw_currencyamount-itemno_acc = l_itemno."凭证行项目lw_currencyamount-currency = IV_WAERS."货币码lw_currencyamount-amt_doccur = wa_data-wrbtr."金额APPEND lw_currencyamount TO lt_currencyamount.CLEAR:lw_currencyamount."----------- extension2 --------------------"记账码&原因代码lw_ext2-posnr = l_itemno. "凭证行项目lw_ext2-bschl = '40'. "记账码(自动判断记账码)*lw_ext2-rstgr = IV_RSTGR. "凭证行项目原因代码IF lw_ext2 IS NOT INITIAL .lt_ext2-structure = 'ZSFIIP019'.lt_ext2-valuepart1 = lw_ext2.APPEND lt_ext2 TO lt_ext2.CLEAR lt_ext2.CLEAR lw_ext2.ENDIF.CLEAR wa_data.ENDLOOP.******************---贷方---*************************IF IV_TYPE ='B' AND IV_DT_AMOUNT <> 0."抵扣金额IV_DT_AMOUNT = - IV_DT_AMOUNT.ADD 1 TO l_itemno."供应商lw_accountpayable-itemno_acc = l_itemno. "凭证行项目lw_accountpayable-vendor_no = IV_LIFNR."员工供应商编码lw_accountpayable-bline_date = IV_BUDAT."到期日lw_accountpayable-item_text = IV_BKTXT."项目行文本（同凭证抬头）APPEND lw_accountpayable TO lt_accountpayable.CLEAR lw_accountpayable."货币金额lw_currencyamount-itemno_acc = l_itemno."凭证行项目lw_currencyamount-currency = IV_WAERS."货币码lw_currencyamount-amt_doccur = IV_DT_AMOUNT."抵扣金额APPEND lw_currencyamount TO lt_currencyamount.CLEAR:lw_currencyamount."----------- extension2 --------------------"记账码&原因代码lw_ext2-posnr = l_itemno. "凭证行项目lw_ext2-bschl = '31'. "记账码IF lw_ext2 IS NOT INITIAL .lt_ext2-structure = 'ZSFIIP019'.lt_ext2-valuepart1 = lw_ext2.APPEND lt_ext2 TO lt_ext2.CLEAR lt_ext2.CLEAR lw_ext2.ENDIF.ENDIF.IF IV_TYPE ='C' AND IV_AC_AMOUNT <> 0."预付款金额IV_AC_AMOUNT = - IV_AC_AMOUNT.ADD 1 TO l_itemno."供应商lw_accountpayable-itemno_acc = l_itemno. "凭证行项目lw_accountpayable-vendor_no = IV_LIFNR."员工供应商编码IF IV_SHBKZK IS NOT INITIAL.lw_accountpayable-sp_gl_ind = IV_SHBKZK."特别总账标识ENDIF.lw_accountpayable-bline_date = IV_BUDAT."到期日lw_accountpayable-item_text = IV_BKTXT."项目行文本（同凭证抬头）APPEND lw_accountpayable TO lt_accountpayable.CLEAR lw_accountpayable."货币金额lw_currencyamount-itemno_acc = l_itemno."凭证行项目lw_currencyamount-currency = IV_WAERS."货币码lw_currencyamount-amt_doccur = IV_AC_AMOUNT."抵扣金额APPEND lw_currencyamount TO lt_currencyamount.CLEAR:lw_currencyamount."----------- extension2 --------------------"记账码&原因代码lw_ext2-posnr = l_itemno. "凭证行项目IF IV_SHBKZK IS NOT INITIAL.lw_ext2-bschl = '39'. "记账码ELSE.lw_ext2-bschl = '31'. "记账码ENDIF.IF lw_ext2 IS NOT INITIAL .lt_ext2-structure = 'ZSFIIP019'.lt_ext2-valuepart1 = lw_ext2.APPEND lt_ext2 TO lt_ext2.CLEAR lt_ext2.CLEAR lw_ext2.ENDIF.ENDIF.*IF IV_SHBKZK IS NOT INITIAL."特别总账标识* IV_WRBTR = - IV_WRBTR.* ADD 1 TO l_itemno.* "供应商* lw_accountpayable-itemno_acc = l_itemno. "凭证行项目* lw_accountpayable-vendor_no = IV_LIFNR."员工供应商编码** lw_accountpayable-bline_date = SY-DATUM.* lw_accountpayable-item_text = IV_BKTXT."项目行文本（同凭证抬头）* APPEND lw_accountpayable TO lt_accountpayable.* CLEAR lw_accountpayable.* "货币金额* lw_currencyamount-itemno_acc = l_itemno."凭证行项目* lw_currencyamount-currency = IV_WAERS."货币码* lw_currencyamount-amt_doccur = IV_WRBTR."应付款金额* APPEND lw_currencyamount TO lt_currencyamount.* CLEAR:lw_currencyamount.* "----------- extension2 --------------------* "记账码&原因代码*lw_ext2-posnr = l_itemno. "凭证行项目*lw_ext2-bschl = '39'. "记账码* IF lw_ext2 IS NOT INITIAL .*lt_ext2-structure = 'ZSFIIP019'.*lt_ext2-valuepart1 = lw_ext2.*APPEND lt_ext2 TO lt_ext2.*CLEAR lt_ext2.*CLEAR lw_ext2.* ENDIF.* ENDIF.IF IV_INRSTGR[] IS NOT INITIAL .LOOP AT IV_INRSTGR INTO wa_rstgr."循环科目号（借）结构*IF IV_WRBTR <> 0."应付款是否为零CONCATENATE IV_NAME '报销' wa_rstgr-bxtxt INTO IV_SGTXT.ADD 1 TO l_itemno."总账相关的行项目信息lw_accountgl-itemno_acc = l_itemno. "凭证行项目lw_accountgl-gl_account = IV_RACCTH. "会计科目（贷）lw_accountgl-item_text = IV_SGTXT. "项目行文本（同凭证抬头）APPEND lw_accountgl TO lt_accountgl .CLEAR lw_accountgl ."货币金额lw_currencyamount-itemno_acc = l_itemno."凭证行项目lw_currencyamount-currency = IV_WAERS."货币码lw_currencyamount-amt_doccur = - wa_rstgr-WRBTR.."应付款金额APPEND lw_currencyamount TO lt_currencyamount.CLEAR:lw_currencyamount."----------- extension2 --------------------"记账码&原因代码lw_ext2-posnr = l_itemno. "凭证行项目lw_ext2-bschl = '50'. "记账码lw_ext2-rstgr = wa_rstgr-RSTGR. "凭证行项目原因代码IF lw_ext2 IS NOT INITIAL .lt_ext2-structure = 'ZSFIIP019'.lt_ext2-valuepart1 = lw_ext2.APPEND lt_ext2 TO lt_ext2.CLEAR lt_ext2.CLEAR lw_ext2.ENDIF.ENDLOOP.ENDIF.* ENDIF.* 调用即可：check 可以防止跳号CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'EXPORTINGdocumentheader = lw_documentheaderTABLESaccountgl= lt_accountgl[]currencyamount = lt_currencyamount[]return = lt_return[].CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'EXPORTINGdocumentheader = lw_documentheaderIMPORTING*OBJ_TYPE=obj_key = lv_key*OBJ_SYS =TABLESaccountgl = lt_accountgl[]*accountreceivable = lt_accountreceivable[]accountpayable = lt_accountpayable[]currencyamount = lt_currencyamount[]return = lt_return[]extension2 = lt_ext2[].READ TABLE lt_return INTO lw_return INDEX 1.IF lw_return-type = 'S' .CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.EV_MESBELNR = lv_key+0(10).* os_key-bukrs = lv_key+10(4).* os_key-gjahr = lv_key+14(4).ev_msgty= 'S'.EV_MESSAGE = lw_return-message.ELSE.LOOP AT lt_return INTO lw_return WHERE type = 'E'.EV_MSGTY = 'E'.IF EV_MESSAGE IS INITIAL.EV_MESSAGE = lw_return-message.ELSE.CONCATENATE EV_MESSAGE '/' lw_return-message INTO EV_MESSAGE.ENDIF.ENDLOOP.ENDIF.CLEAR:l_itemno,lt_accountgl[],lt_accountpayable[],lt_currencyamount[],lt_return[],lt_ext2[].ENDFUNCTION.

SAP接口 财务凭证集成_费用报销

调用标准的BABI方法实现。

SAP接口财务凭证集成_费用报销