OA系统调用此接口，传输费用报销流程的凭证信息到SAP，生成费用报销类型SAP凭证。

调用标准的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 凭证抬头文本 费用归属人姓名+“报销” *" BSCHLS 40 *"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_no TYPE zfit_order_info-order_no, lv_key TYPE 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 = '1002010106'. *IV_BUDAT ='20200503'. *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 = '8001020100'. *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' EXPORTING input = IV_LIFNR IMPORTING output = 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' EXPORTING documentheader = lw_documentheader TABLES accountgl = lt_accountgl[] currencyamount = lt_currencyamount[] return = lt_return[]. CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST' EXPORTING documentheader = lw_documentheader IMPORTING * OBJ_TYPE = obj_key = lv_key * OBJ_SYS = TABLES accountgl = 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' EXPORTING wait = '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.