标签：style http os io 使用 ar for art 问题
业务需求：和银行做一个接口，要通过银行流水产生会计凭证，会计凭证的事务码是F-02，查到了BAPI方法 BAPI_ACC_DOCUMENT_POST。
昨天测试发现，有一些参数在BAPI_ACC_DOCUMENT_POST的输入和表参数中根本没有，
如 记账码Posting Key、原因代码Reason Code，那怎么把这些字段的值传进去呢？
在SDN查了一下相关问题的解决办法，发现遇到这个问题的朋友还挺多，
总结了一下，解决办法大体如下：
1、se11创建结构，必须包含行项目号POSNR字段，和其他需要扩展的字段，
如记账码Posting Key、原因代码Reason Code 2、SE19实现BADI增强ACC_DOCUMENT，这个增强是用来将BAPI_ACC_DOCUMENT_POST参数表EXTENSION2传入系统表 3、使用BAPI_ACC_DOCUMENT_POST参数表EXTENSION2，将扩展字段传入
详细步骤如下：
1、创建结构，se11，很简单，不再赘述，如下图：
2、SE19实现BADI增强ACC_DOCUMENT 通过ACC_DOCUMENT help文档知道，方法CHANGE用来完成字段的扩展，
还有一个需要注意的是参考业务类型，这个一定要选对，不然执行BAPI的时候不会调用这个BADI，我用的是BKPFF，
如下图：
激活这个BADI实现。
双击change方法创建，可以查看ACC_DOCUMENT 的实现例子CL_EXM_IM_ACC_DOCUMENT（R/3 4.7版本，其他版本可能名称不一样）
将这个实例的change方法的代码直接copy过来，激活方法，代码如下
*********************************************************************** * Example to move fields from BAPI parameter EXTENSION2 to structure * * ACCIT (accounting document line items). * * The dictionary structure (content for EXTENSION2-STRUCTURE) must * * contain field POSNR, (TYPE POSNR_ACC) to indentify the correct line * * item of the internal table ACCIT. * *********************************************************************** DATA: wa_extension TYPE bapiparex, ext_value(960) TYPE c, wa_accit TYPE accit, l_ref TYPE REF TO data. FIELD-SYMBOLS: <l_struc> TYPE ANY, <l_field> TYPE ANY. SORT c_extension2 BY structure. LOOP AT c_extension2 INTO wa_extension. AT NEW structure. CREATE DATA l_ref TYPE (wa_extension-structure). ASSIGN l_ref->* TO <l_struc>. ENDAT. CONCATENATE wa_extension-valuepart1 wa_extension-valuepart2 wa_extension-valuepart3 wa_extension-valuepart4 INTO ext_value. MOVE ext_value TO <l_struc>. ASSIGN COMPONENT ‘POSNR‘ OF STRUCTURE <l_struc> TO <l_field>. READ TABLE c_accit WITH KEY posnr = <l_field> INTO wa_accit. IF sy-subrc IS INITIAL. MOVE-CORRESPONDING <l_struc> TO wa_accit. MODIFY c_accit FROM wa_accit INDEX sy-tabix. ENDIF. ENDLOOP.
3、使用BAPI_ACC_DOCUMENT_POST参数表EXTENSION2，将扩展字段传入
********************************************************************** *INTERNAL TABLE DECLARATION ********************************************************************** *&—-G/L ACCOUNT ITEM DATA: ACCOUNTGL TYPE STANDARD TABLE OF BAPIACGL09. *&—CURRENCY ITEMS DATA: CURRENCY_AMOUNT TYPE STANDARD TABLE OF BAPIACCR09. *&—-RETURN PARAMETER DATA: RETURN TYPE STANDARD TABLE OF BAPIRET2 WITH HEADER LINE. *&—-it_extension2 ITEMS DATA: IT_EXTENSION2 TYPE STANDARD TABLE OF BAPIPAREX WITH HEADER LINE. *&—WORKAREA FOR ZEXTEN DATA: WA_ZEXTEN LIKE ZEXTEN. ”ZEXTEN就是刚才SE11创建的那个结构 ********************************************************************** *赋值 ********************************************************************** *& EXTENSION2 扩展字段增强部分 WA_ZEXTEN-POSNR = ‘0000000010‘. "凭证行项目 WA_ZEXTEN-RSTGR = ‘171‘. "凭证行项目原因代码 IT_EXTENSION2-STRUCTURE = ‘ZEXTEN‘. IT_EXTENSION2-VALUEPART1 = WA_ZEXTEN. APPEND IT_EXTENSION2. *其他参数表的字段赋值如下例 HEADER-HEADER_TXT = ‘TEST HEADER‘."凭证抬头文本 HEADER-USERNAME = SY-UNAME. "用户名 HEADER-COMP_CODE = ‘1000‘."公司代码 HEADER-DOC_DATE = ‘20090618‘."凭证中的凭证日期 HEADER-PSTNG_DATE = ‘20090618‘."凭证中的记帐日期 HEADER-DOC_TYPE = ‘S1‘."凭证类型 * HEADER-BUS_ACT = ‘RFBU‘."交易业务 WA_ACCOUNTGL-ITEMNO_ACC = ‘0000000010‘. "会计凭证行项目编号 WA_ACCOUNTGL-GL_ACCOUNT = ‘1002010105‘. "总分类帐帐目 * WA_ACCOUNTGL-ITEM_TEXT = . WA_ACCOUNTGL-BUS_AREA = ‘8000‘. "业务范围 APPEND WA_ACCOUNTGL TO ACCOUNTGL. CLEAR WA_ACCOUNTGL. WA_ACCOUNTGL-ITEMNO_ACC = ‘0000000020‘. "会计凭证行项目编号 WA_ACCOUNTGL-GL_ACCOUNT = ‘1301040000‘. "总分类帐帐目 WA_ACCOUNTGL-BUS_AREA = ‘8000‘. "业务范围 *WA_ACCOUNTGL-ITEM_TEXT = . *wa_accountgl-ACCT_TYPE = ‘R‘. APPEND WA_ACCOUNTGL TO ACCOUNTGL. CLEAR WA_ACCOUNTGL. WA_CURRENCY_AMOUNT-ITEMNO_ACC = ‘0000000010‘. "行项目编号 WA_CURRENCY_AMOUNT-AMT_DOCCUR = ‘500‘. "金额 WA_CURRENCY_AMOUNT-CURRENCY = ‘RMB‘. APPEND WA_CURRENCY_AMOUNT TO CURRENCY_AMOUNT. CLEAR WA_CURRENCY_AMOUNT. WA_CURRENCY_AMOUNT-ITEMNO_ACC = ‘0000000020‘. WA_CURRENCY_AMOUNT-AMT_DOCCUR = ‘-500‘. WA_CURRENCY_AMOUNT-CURRENCY = ‘RMB‘. APPEND WA_CURRENCY_AMOUNT TO CURRENCY_AMOUNT. CLEAR WA_CURRENCY_AMOUNT. *执行BAPI CALL FUNCTION ‘BAPI_ACC_DOCUMENT_POST‘ EXPORTING DOCUMENTHEADER = HEADER * CUSTOMERCPD = * CONTRACTHEADER = * IMPORTING * OBJ_TYPE = * OBJ_KEY = * OBJ_SYS = TABLES ACCOUNTGL = ACCOUNTGL * ACCOUNTRECEIVABLE = * ACCOUNTPAYABLE = * ACCOUNTTAX = CURRENCYAMOUNT = CURRENCY_AMOUNT * CRITERIA = * VALUEFIELD = * EXTENSION1 = RETURN = RETURN * PAYMENTCARD = * CONTRACTITEM = EXTENSION2 = IT_EXTENSION2 * REALESTATE = . IF RETURN-TYPE NA ‘EA‘. CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘ EXPORTING WAIT = ‘X‘. ENDIF.
如果还需要扩展其他字段，在结构ZEXTEN加入，然后在调用BAPI前对相应字段赋值，就行了。
使用BAPI_ACC_DOCUMENT_POST，创建会计凭证 增强
标签：style http os io 使用 ar for art 问题
原文地址：http://blog.csdn.net/forever_crazy/article/details/39176859
