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'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接口财务凭证集成_费用报销相关推荐

SAP接口财务凭证集成_差旅费报销
OA系统调用此接口,传输差旅费报销流程的凭证信息到SAP,生成借款类型SAP凭证. 调用标准的BABI方法实现. 1.首先先介绍一下实现会计凭证生成的BAPI,参考链接. 2.增强操作在另一篇文章(S ...
SAP接口集成-PO/PI-SLD配置
SAP接口集成-PO/PI-SLD配置前言一.SLD-system landscape directory 系统框架目录.系统格局目录二.ESR/IR -integration reposito ...
SAP接口集成-abap调用外部数据库
SAP接口集成-abap调用外部数据库前言一.SAP配置外部数据源二.使用步骤 1.新建测试程序 2.使用场景介绍总结前言 PI/PO集成方式很多,但是有趣的灵魂不多,现在介绍一个直接用ab ...
网络费用报销管理系统的设计与实现
[ 摘要 ] 以纸化报销单做为介质的传统费用报销模式,在现代企业环境下存在诸多管理问题,包括资金预算管理乏力.财务管理滞后.员工满意度低.单据签批占用领导时间长,不适应移动办公需要等问题,已经 ...
php集成支付宝接口,支付宝接口开发集成支付环境小结
支付宝接口开发集成支付环境小结来源:中文源码网浏览: 次日期:2018年9月2日 [下载文档: 支付宝接口开发集成支付环境小结.txt ] (友情提示:右键点上行txt文档名-&g ...
金蝶携手工商银行完成首单数字人民币费用报销业务
2021年12月17日,金蝶业务系统成功完成首单使用数字人民币进行的公转私支付业务.据悉,这是中国工商银行股份有限公司(以下简称"工商银行")第一笔使用"数字人民币+银企 ...
BPM软件_财务报销流程管理解决方案_K2工作流引擎
财务报销,对任何企业都是日常运营中重要的一个环节.但报销流程周期长,反复签字手续繁杂,报销过程不透明 ,单据归档保存.检索困难等问题也让员工头疼.为了解决这些困扰,财务报销流程电子化一时成为热门之选. ...
【GoodERP专题】第一章 GoodERP应用专题之good_expense 费用报销的使用
文章目录一.模块设计二.模块 1.主数据 2.费用申请单 3.借款单[付款] 4.费用报销单[挂账/付款] 5.出差申请单 6.出差借款单[付款] 7.差旅费报销单[挂账/付款] 总结一.模块设 ...
使用html5+js完成费用报销单的功能
费用报销单的功能的前端功能完成代码 <tr><td nowrap="nowrap" align="center"><center ...

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

调用标准的BABI方法实现。

SAP接口财务凭证集成_费用报销相关推荐

最新文章

热门文章

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

调用标准的BABI方法实现。

SAP接口 财务凭证集成_费用报销相关推荐

最新文章

热门文章

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

SAP接口财务凭证集成_费用报销相关推荐