一、創建憑證

主要是使用BAPI ‘BAPI_ACC_DOCUMENT_POST’創建憑證

由于’BAPI_ACC_DOCUMENT_POST‘對一些字段（如記賬碼、我們自己增強的現金流量碼等）的傳遞使用擴展字段，所以需要使用BAdI?‘ACC_DOCUMENT‘。

BAdI?‘ACC_DOCUMENT‘的增強： 來自CSDN博客，轉載請標明出處：http://blog.csdn.net/longgerr/archive/2010/10/22/5958210.aspx 1、SE11創建結構ZKS_OA_ACC_EXT 2、SE19 ，實例化ACC_DOCUMENT– ZACC_DOCUMENT 參考交易使用BKPFF 3、保存 如果保存時出現了下面這個消息，說明必須將做的Classic Badi遷移到New Badi。 此時可以選擇已有的或創建新的Badi Enhancement Implementation。我們選擇創建新的。 創建好之后，系統會提示消息。 4、刪除原始Classic Badi 回到SE19。 如果進行了遷移，則在雙擊新建的New Badi的時候會報出消息： 所以我們刪除我們之前創建的ZACC_DOCUMENT，才能保證這個增強能夠被正常調用。 刪除Classic Badi時，系統首先提示： 這個選擇Yes 隨后系統又提示： 這個提示的意思是詢問，是否刪除從這個Classic Badi遷移過去的New Badi。顯然要保留，這個選擇No啟用new badi 5、編輯代碼 在New Badi里面顯示ZACC_DOCUMENT，此時將不會報出需要刪除Classic Badi的警告了。 雙擊CHANGE方法即可進入編輯。 代碼釋義： CHANGE方法中參數FLT_VAL，C_ACCHD，C_ACCIT，C_ACCCR，C_ACCWT，C_ACCTX均與憑證數據相關。 C_EXTENSION2中傳入的數據即為BAPI_ACC_DOCUMENT_POST中EXTENSION2參數。 BAPIPAREX-TE_STRUC為數據字典中結構的名稱，其余為擴展數據。 生成BAPI的EXTENTION2參數時，就是按照ZKS_OA_ACC_EXT的數據結構順序寫入的，讀取時也按照相同的方式讀取即可。 根據參數里面的類型和說明來判斷某個參數對應憑證中的什么數據，將BAPI中無法傳入的數據從EXTENTION2里面取出，傳入CHANGE的參數里面即可。 參考代碼： method?IF_EX_ACC_DOCUMENT~CHANGE. DATA:?wa_extension?TYPE?bapiparex, zext_data?TYPE?zks_oa_acc_ext. FIELD-SYMBOLS:?<accit>?TYPE?accit. IF?c_extension2[]?IS?NOT?INITIAL. READ?TABLE?c_extension2?INTO?wa_extension?WITH?KEY?structure?=?’PARK’.”預制憑證 IF?sy-subrc?=?0. MOVE?’2′?TO?c_acchd-status_new. DELETE?c_extension2?INDEX?sy-tabix. ENDIF. LOOP?AT?c_extension2?INTO?wa_extension?WHERE?structure?=?’ZKS_OA_ACC_EXT’. zext_data?=?wa_extension-valuepart1. READ?TABLE?c_accit?ASSIGNING?<accit>?WITH?KEY?posnr?=?zext_data-posnr. IF?sy-subrc?=?0. <accit>-rstgr?=?zext_data-rstgr. <accit>-bschl?=?zext_data-bschl. <accit>-xref1_hd?=?zext_data-xref1_hd. <accit>-zfbdt?=?zext_data-zfbdt. <accit>-FKBER?=?zext_data-FKBER. <accit>-ANBWA?=?zext_data-BWASL. ENDIF. ENDLOOP. ENDIF. endmethod.

資產類憑證（AA）創建問題：

在使用BAPI_ACC_DOCUMENT_POST創建AA憑證時，參數

OBJ_TYPE 參考交易

OBJ_KEY

OBJ_SYS

BUS_ACT業務事務

為必填，根據SAP的回復，OBJ_TYPE應為自建類型，使用SM30，在表TTYP中拷貝行BKPF新建ZBKPF。注意：使用該參考交易的憑證無法使用FB08沖銷。

Dear customer, because I was not able to find an expert for BAPI area at this weekend Imyself tried to find out for you relevant information concerning the above mentioned issue: First I have lowered the priority of this message because the priority 1is intended for other problem cases -> please have a look at the attached notes 19500 and 67739. Secondly I assume that this is not a system error or program error but rather a consulting issue. However I will give you some hints: Please see note 643232, there are several restrictions when you post an asset transaction by means of a BAPI which is not from asset accounting: 1. You can only post acquisitions or credit memos to fixed asset. 2. You must maintain the acquisition value offsetting account in the Customizing of the Asset Accounting although it is not posted. 3. You must use a customer-specific object type OBJ_TYPE that starts with ” Z”. 4. The asset transaction type cannot be derived automatically, so it is absolutely necessary that you fill the line item using the BAPI (if necessary via the extension method). 5. It is absolutely necessary to assign the company code currency and possibly existing parallel currency values. The Asset Accounting performs currency translations from transaction currencies. The BAPI_ACC_DOCUMENT_POST (located in function group ACC9) as a newer BAPI only uses BTE as exit technology, no SMOD/CMOD exits. So you may copy the function module SAMPLE_INTERFACE_RWBAPI01 to something like ZRWBAPI01, then enter your program code in ZRWBAPI01, activate it and then call transaction FIBF and make there a new entry for event RWBAPI01 as a “process function module of a customer” and enter ZRWBAPI01 as function module name. You will also need to enter a product identifier here and make sure that you activate the product in FIBF.

以上參數在憑證頭中的位置，其中BUS_ACT?=?’RMWE’

測試發現，不止AA類憑證需要這樣處理，記帳碼的類型如果為A，則也需要同樣處理。記帳碼的類型可以從表tbsl中獲得。

參考代碼：

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

DATA?t_tbsl?LIKE?TABLE?OF?tbsl?WITH?HEADER?LINE.
DATA:ls_doc_head?LIKE?bapiache09,
lt_accountgl?LIKE?TABLE?OF?bapiacgl09?WITH?HEADER?LINE,
lt_amount?LIKE?TABLE?OF?bapiaccr09?WITH?HEADER?LINE,
lt_accountreceivable?LIKE?TABLE?OF?bapiacar09?WITH?HEADER?LINE,
lt_accountpayable?LIKE?TABLE?OF?bapiacap09?WITH?HEADER?LINE,
lt_return?LIKE?TABLE?OF?bapiret2?WITH?HEADER?LINE,
l_itemno?LIKE?bapiacgl09-itemno_acc,
l_trade_id?LIKE?lt_accountgl-trade_id.
DATA:?wa_zks_oa_acc_ext?LIKE?zks_oa_acc_ext.

DATA:?it_extension2?TYPE?STANDARD?TABLE?OF?bapiparex?WITH?HEADER?LINE.
DATA:?G_BELNR?TYPE?BSEG-BELNR,
G_GJAHR?TYPE?BSEG-GJAHR.
DATA:?BEGIN?OF?IT_BSEG?OCCURS?0,
BELNR?TYPE?BSEG-BELNR,
END?OF?IT_BSEG.
DATA:?L_AWSYS?TYPE?BKPF-AWSYS,
l_OBJ_TYPE?type?BAPIACHE09-OBJ_TYPE,
l_OBJ_KEY?type?BAPIACHE09-OBJ_KEY,
l_OBJ_SYS?type?BAPIACHE09-OBJ_SYS.
DATA:?RND_VALUE?TYPE?DATATYPE-CHAR0128.
DATA:?WA_BSEG?TYPE?ZHEC_BSEG.

DEFINE?SET_AA_HEAD.?“?資產類憑證的憑證頭的特殊處理
CALL?FUNCTION?‘OWN_LOGICAL_SYSTEM_GET’?“當前邏輯系統
IMPORTING
OWN_LOGICAL_SYSTEM?=?L_AWSYS
EXCEPTIONS
OWN_LOGICAL_SYSTEM_NOT_DEFINED?=?1.
G_GJAHR?=?i_bkpf-pstng_date(4).
“?AA憑證需要獲得將生成憑證的憑證號?作為參考字段。
SELECT?BELNR?FROM?BKPF?INTO?TABLE?IT_BSEG
WHERE?BUKRS?=?i_bkpf-comp_code
AND?GJAHR?=?G_GJAHR
AND?BLART?=?I_BKPF-DOC_TYPE.
SORT?IT_BSEG?BY?BELNR?DESCENDING.
READ?TABLE?IT_BSEG?INDEX?1.
IT_BSEG-BELNR?=?IT_BSEG-BELNR?+?1.
CALL?FUNCTION?‘CONVERSION_EXIT_ALPHA_INPUT’
EXPORTING
INPUT?=?IT_BSEG-BELNR
IMPORTING
OUTPUT?=?IT_BSEG-BELNR?.
CALL?FUNCTION?‘RANDOM_C’?“?參考字段加上2位隨機碼與正常憑證區分
EXPORTING
LEN_MIN?=?2
LEN_MAX?=?2
CHAR_MAX?=?27
IMPORTING
RND_VALUE?=?RND_VALUE
.
CONCATENATE?IT_BSEG-BELNR?i_bkpf-comp_code?G_GJAHR?RND_VALUE?INTO?ls_doc_head-OBJ_KEY.
ls_doc_head-OBJ_TYPE?=?‘ZBKPF’.
*?SHIFT?ls_doc_head-OBJ_KEY?LEFT?DELETING?LEADING?SPACE.
ls_doc_head-OBJ_SYS?=?L_AWSYS.
ls_doc_head-BUS_ACT?=?‘RMWE’.
END-OF-DEFINITION.

SELECT?*?INTO?CORRESPONDING?FIELDS?OF?TABLE?t_tbsl?FROM?tbsl.

ls_doc_head-doc_type?=?i_bkpf-doc_type.?“憑證類型
ls_doc_head-fis_period?=?i_bkpf-fis_period?.“會計期間
ls_doc_head-doc_date?=?i_bkpf-doc_date.?“憑證中的憑證日期
ls_doc_head-pstng_date?=?i_bkpf-pstng_date.?“憑證中的記帳日期
ls_doc_head-header_txt?=?i_bkpf-header_txt.?“?憑證抬頭文本
ls_doc_head-ref_doc_no?=?i_bkpf-ref_doc_no.?“參考憑證編號
ls_doc_head-comp_code?=?i_bkpf-comp_code.?“公司代碼
ls_doc_head-username?=?i_bkpf-username.?“用戶名
IF?i_bkpf-doc_type?=?‘AA’.
SET_AA_HEAD.
ENDIF.

SORT?t_tbsl?BY?bschl.
LOOP?AT?t_bseg?INTO?WA_BSEG.“取供應商客戶行貿易伙伴?供原因代碼為關聯方時候用
READ?TABLE?t_tbsl?WITH?KEY?bschl?=?WA_bseg-bschl?BINARY?SEARCH.
IF?sy-subrc?=?0.
IF?t_tbsl-koart?=?‘K’.
SELECT?SINGLE?vbund?INTO?l_trade_id?FROM?lfa1?WHERE?lifnr?=?WA_bseg-vendor_no
and?vbund?like?‘HZ%’.
EXIT.
ELSEIF?t_tbsl-koart?=?‘D’.
SELECT?SINGLE?vbund?INTO?l_trade_id?FROM?kna1?WHERE?lifnr?=?WA_bseg-customer
and?vbund?like?‘HZ%’.
EXIT.
ENDIF.
ENDIF.
CLEAR?WA_bseg.
ENDLOOP.

LOOP?AT?t_bseg?INTO?WA_BSEG.
CLEAR?:?lt_accountgl,lt_accountpayable,?lt_accountreceivable.
ADD?10?TO?l_itemno.
READ?TABLE?t_tbsl?WITH?KEY?bschl?=?WA_bseg-bschl?BINARY?SEARCH.
IF?sy-subrc?=?0.
IF?t_tbsl-koart?=?‘S’.
lt_accountgl-itemno_acc?=?l_itemno.?“會計憑證行項目編
lt_accountgl-gl_account?=?WA_bseg-gl_account.“總分類帳帳目
lt_accountgl-costcenter?=?WA_bseg-costcenter.“成本中心
lt_accountgl-item_text?=?WA_bseg-item_text.“項目文本
lt_accountgl-value_date?=?WA_bseg-value_date.“起息日
lt_accountgl-alloc_nmbr?=?WA_bseg-alloc_nmbr.“分配號
lt_accountgl-PROFIT_CTR?=?WA_bseg-PROFIT_CTR.?“?利潤中心
lt_accountgl-orderid?=?WA_bseg-orderid.“訂單號
lt_accountgl-ACCT_TYPE?=?‘S’.
lt_accountgl-trade_id?=?l_trade_id.“貿易伙伴
lt_accountgl-REF_KEY_1?=?WA_BSEG-XREF1.
APPEND?lt_accountgl.
CLEAR?lt_accountgl.
ELSEIF?t_tbsl-koart?=?‘K’.
lt_accountpayable-itemno_acc?=?l_itemno.?“會計憑證行項目編
lt_accountpayable-vendor_no?=?WA_bseg-vendor_no.“供應商或債權人的帳號
lt_accountpayable-gl_account?=?WA_bseg-gl_account.“總分類帳帳目
lt_accountpayable-sp_gl_ind?=?WA_bseg-sp_gl_ind.“特殊總分類帳標志
lt_accountpayable-item_text?=?WA_bseg-item_text.“項目文本
lt_accountpayable-pmnttrms?=?WA_bseg-pmnttrms.“付款條件代碼
lt_accountpayable-alloc_nmbr?=?WA_bseg-alloc_nmbr.“分配號
lt_accountpayable-PROFIT_CTR?=?WA_bseg-PROFIT_CTR.?“?利潤中心
“功能范圍，在擴展字段中
LT_ACCOUNTPAYABLE-REF_KEY_1?=?WA_BSEG-XREF1.
APPEND?lt_accountpayable.
CLEAR?lt_accountpayable.
ELSEIF?t_tbsl-koart?=?‘D’.
lt_accountreceivable-itemno_acc?=?l_itemno.?“會計憑證行項目編
lt_accountreceivable-item_text?=?WA_bseg-item_text.“項目文本
lt_accountreceivable-customer?=?WA_bseg-customer.?“客戶編號1
lt_accountreceivable-sp_gl_ind?=?WA_bseg-sp_gl_ind.“特殊總分類帳標志
lt_accountreceivable-gl_account?=?WA_bseg-gl_account.“總分類帳帳目
lt_accountreceivable-pmnttrms?=?WA_bseg-pmnttrms.“付款條件代碼
lt_accountreceivable-alloc_nmbr?=?WA_bseg-alloc_nmbr.“分配號
lt_accountreceivable-PROFIT_CTR?=?WA_bseg-PROFIT_CTR.?“?利潤中心
lt_accountreceivable-REF_KEY_1?=?WA_BSEG-XREF1.
APPEND?lt_accountreceivable.
CLEAR?lt_accountreceivable.
ELSEIF?t_tbsl-koart?=?‘A’.
lt_accountgl-itemno_acc?=?l_itemno.?“會計憑證行項目編
lt_accountgl-GL_ACCOUNT?=?WA_bseg-GL_ACCOUNT.?“總分類帳帳目
*?lt_accountgl-CUSTOMER?=?t_bseg-CUSTOMER.?“客戶編號1
*?lt_accountgl-VENDOR_NO?=?t_bseg-VENDOR_NO.?“供應商或債權人的帳號
lt_accountgl-ITEM_TEXT?=?WA_bseg-ITEM_TEXT.?“項目文本
lt_accountgl-PROFIT_CTR?=?WA_bseg-PROFIT_CTR.?“?利潤中心
lt_accountgl-ASSET_NO?=?WA_bseg-ASSET_NO.?“?資產號
lt_accountgl-SUB_NUMBER?=?WA_bseg-SUB_NUMBER.?“?資產次級編號
lt_accountgl-PO_NUMBER?=?WA_bseg-PO_NUMBER.?“?采購單號
lt_accountgl-ACCT_TYPE?=?‘A’.
lt_accountgl-REF_KEY_1?=?WA_BSEG-XREF1.

IF?ls_doc_head-OBJ_TYPE?IS?INITIAL.
SET_AA_HEAD.
ENDIF.
APPEND?lt_accountgl.
CLEAR?lt_accountgl.
ENDIF.
lt_amount-itemno_acc?=?l_itemno.?“會計憑證行項目編
IF?t_tbsl-shkzg?=?‘S’.“金額正負處理
IF?WA_bseg-amt_doccur?<?0.
lt_amount-amt_doccur?=?WA_bseg-amt_doccur?*?-1.?“金額
ELSE.
lt_amount-amt_doccur?=?WA_bseg-amt_doccur.?“金額
ENDIF.
ELSEIF?t_tbsl-shkzg?=?‘H’.
IF?WA_bseg-amt_doccur?>?0.
lt_amount-amt_doccur?=?WA_bseg-amt_doccur?*?-1.?“金額
ELSE.
lt_amount-amt_doccur?=?WA_bseg-amt_doccur.?“金額
ENDIF.
ENDIF.
lt_amount-currency?=?i_bkpf-currency.?“貨幣
wa_zks_oa_acc_ext-posnr?=?l_itemno.?“憑證行項目
wa_zks_oa_acc_ext-zfbdt?=?WA_bseg-bline_date.?“到期日
wa_zks_oa_acc_ext-bschl?=?WA_bseg-bschl.“記賬碼
wa_zks_oa_acc_ext-rstgr?=?WA_bseg-rstgr.“付款原因代碼
wa_zks_oa_acc_ext-BWASL?=?WA_bseg-BWASL.?“?資產事務類型
wa_zks_oa_acc_ext-xref1_hd?=?i_bkpf-xref1_hd.“參考字段（標題1），說明該憑證來自HEC系統
*?IF?t_tbsl-koart?=?‘K’.
wa_zks_oa_acc_ext-FKBER?=?WA_bseg-FKBER.?“功能范圍
*?ENDIF.
wa_zks_oa_acc_ext-BWASL?=?WA_bseg-BWASL.?“?事務類型
it_extension2-structure?=?‘ZKS_OA_ACC_EXT’.
it_extension2-valuepart1?=?wa_zks_oa_acc_ext.

APPEND:lt_amount,it_extension2.
CLEAR:lt_amount,it_extension2.
ELSE.
i_return-type?=?‘E’.
i_return-message?=?‘記賬碼有誤‘.
ENDIF.
CLEAR?WA_bseg.

ENDLOOP.

CALL?FUNCTION?‘BAPI_ACC_DOCUMENT_POST’
EXPORTING
documentheader?=?ls_doc_head
IMPORTING
OBJ_TYPE?=?l_OBJ_TYPE
OBJ_KEY?=?l_OBJ_KEY
OBJ_SYS?=?l_OBJ_SYS
TABLES
accountgl?=?lt_accountgl
currencyamount?=?lt_amount
accountpayable?=?lt_accountpayable
accountreceivable?=?lt_accountreceivable
return?=?lt_return
extension2?=?it_extension2.
READ?TABLE?lt_return?WITH?KEY?type?=?‘E’.
IF?sy-subrc?=?0.
CALL?FUNCTION?‘BAPI_TRANSACTION_ROLLBACK’.
LOOP?AT?lt_return.
i_return-type?=?‘E’.
CONCATENATE?i_return-message?‘/’?lt_return-message?INTO?i_return-message.
CLEAR?lt_return.
ENDLOOP.
ELSE.
CALL?FUNCTION?‘BAPI_TRANSACTION_COMMIT’
EXPORTING
wait?=?‘X’.
LOOP?AT?lt_return.
i_return-type?=?‘S’.
IF?lt_return-type?=?‘S’.
IF?i_bkpf-doc_type?=?‘AA’.
SELECT?SINGLE?BELNR?FROM?BKPF?INTO?i_return-BELNR?“?根據參考碼得到真正的憑證號，用于返回
WHERE?BUKRS?=?i_bkpf-comp_code
AND?GJAHR?=?G_GJAHR
AND?AWTYP?=?l_OBJ_TYPE
AND?AWKEY?=?l_OBJ_KEY.
CONCATENATE?G_GJAHR?‘_’?i_bkpf-comp_code?‘_’?i_return-BELNR?INTO?i_return-BELNR.
ELSE.
CONCATENATE?lt_return-message_v2+14(4)?‘_’?lt_return-message_v2+10(4)?‘_’?lt_return-message_v2+0(10)?INTO?i_return-belnr.
ENDIF.
ENDIF.
CONCATENATE?i_return-message?‘/’?lt_return-message?INTO?i_return-message.
CLEAR?lt_return.
ENDLOOP.

ENDIF.

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

另外，上面BAdI ACC_DOCUMENT的參考交易為BKPFF，這將導致使用ZBKPF的AA類憑證無法激活BAdI，無法傳輸擴展字段，需要修改BAdI的過濾器值，增加or AWTYP = ZBKPF

KZ類憑證?預付帳款－在建工程?創建問題：

使用BAPI ‘BAPI_ACC_DOCUMENT_POST’創建預付賬款-在建工程憑證（29 -J）時無法完成以下功能：

1）無法將AUC號傳給供應商

2）無法自動生成50 70兩行項目

參考使用錄屏方式完成，該錄屏方式號稱可以實現所有類型憑證的創建。

另外，錄屏方式返回的失敗錯誤信息需要讀取SM35中的類似錯誤信息

1) 通過Session name查找session的屬性

SELECT?*?FROM?apql
INTO?TABLE?i_apql
WHERE?groupid?=?L_GROUPID
AND?mandant?=?sy-mandt.

2）使用程序rsbdc_protocol的Function “read_bdc_log_plain”，通過session的屬性查找Session日志的Message

PERFORM?read_bdc_log_plain(rsbdc_protocol)
TABLES
logtable
USING
i_apql-temseid?i_apql-mandant.

3）通過上面的Message - logtable 輸出Message的具體信息。

bapiret2-ID?=?logtable-logmessage+74(16).
bapiret2-NUMBER?=?logtable-logmessage+94(3).
bapiret2-message_v1?=?logtable-logmessage+100(20).
CALL?FUNCTION?’BAPI_MESSAGE_GETDETAIL’
EXPORTING
ID?????????=?bapiret2-ID
NUMBER?????=?bapiret2-NUMBER
textformat?=?’ASC’
message_v1?=?bapiret2-message_v1
IMPORTING
MESSAGE????=?bapiret2-MESSAGE.
CONCATENATE?bapiret2-MESSAGE?’//’?L_MESSAGE?INTO?L_MESSAGE.

參考代碼：

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

*——————————————-

* Import

** I_BKPF

DOC_TYPE BLART

CURRENCY WAERS

FIS_PERIOD MONAT

DOC_DATE BLDAT

PSTNG_DATE BUDAT

HEADER_TXT BKTXT

REF_DOC_NO XBLNR

COMP_CODE BUKRS

XREF1_HD XREF1_HD

USERNAME USNAM

XREF2_HD XREF2_HD

______________________________ ______________________________

* Table

**T_BSEG

COSTCENTER KOSTL

BSCHL BSCHL

SP_GL_IND ACPI_UMSKZ

CUSTOMER KUNNR

VENDOR_NO LIFNR

GL_ACCOUNT HKONT

ITEM_TEXT SGTXT

AMT_DOCCUR WRBTR

RSTGR RSTGR

VALUE_DATE VALUT

BLINE_DATE ACPI_ZFBDT

PMNTTRMS ACPI_ZTERM

ALLOC_NMBR ACPI_ZUONR

ORDERID AUFNR

PROFIT_CTR PRCTR

ASSET_NO ANLN1

SUB_NUMBER ANLN2

PO_NUMBER EBELN

FKBER FKBER

BWASL BWASL

XREF1 XREF1

______________________________ ______________________________

TABLES:TBSL.

DATA ? WA_BSEG TYPE ZHEC_BSEG.

DATA: L_NUM TYPE BKPF-NUMPG,

G_GROUPID TYPE ?APQI-GROUPID.

DATA: L_TCODE TYPE SY-TCODE.

DATA: L_STYPE LIKE FTPOST-STYPE.

DATA: L_COUNTER TYPE COUNT_PI.

DATA: L_FVALUE ?TYPE BDC_FVAL.

DATA: LT_FTPOST TYPE STANDARD TABLE OF FTPOST.

DATA: L_SUBRC TYPE SY-SUBRC.

DATA: LT_BLNTAB TYPE STANDARD TABLE OF BLNTAB.

DATA: LT_FTTAX TYPE STANDARD TABLE OF FTTAX.

DATA: RND_VALUE TYPE DATATYPE-CHAR0128.

DATA : L_GJAHR TYPE BKPF-GJAHR.

DATA: L_BELNR LIKE BKPF-BELNR.

CLEAR L_NUM.

LOOP AT T_BSEG INTO WA_BSEG.

L_NUM = L_NUM + 1.

ENDLOOP.

L_GJAHR = I_BKPF-PSTNG_DATE(4).

CALL FUNCTION ‘RANDOM_C’

EXPORTING

LEN_MIN = 2

LEN_MAX = 2

CHAR_MAX = 27

IMPORTING

RND_VALUE ? ? ? = RND_VALUE.

CONCATENATE ‘FI’ SY-DATUM+4(4) SY-UZEIT(4) RND_VALUE INTO G_GROUPID. “生成會話名稱session name

*開始錄屏

CALL FUNCTION ‘POSTING_INTERFACE_START’

EXPORTING

I_FUNCTION = ‘B’

I_XBDCC ? ?= ‘X’

I_KEEP ? ? = ‘X’

I_GROUP ? ?= G_GROUPID

* ? ? ?I_MODE ? ? = L_MODE

I_USER ? ? = SY-UNAME.

MOVE ‘FB01′ TO L_TCODE.

CLEAR L_COUNTER.

L_COUNTER = L_COUNTER + 1.

L_STYPE = ‘K’.

* ? fill Hearder

MOVE I_BKPF-COMP_CODE TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BKPF-BUKRS’ L_FVALUE . “公司代碼

MOVE I_BKPF-DOC_TYPE TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BKPF-BLART’ L_FVALUE . ?”憑證類型

WRITE I_BKPF-PSTNG_DATE TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BKPF-BUDAT’ L_FVALUE . ?” 過賬日期

WRITE I_BKPF-DOC_DATE TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BKPF-BLDAT’ L_FVALUE . ? “憑證日期

IF I_BKPF-FIS_PERIOD IS NOT INITIAL.

WRITE I_BKPF-FIS_PERIOD TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BKPF-MONAT’ L_FVALUE . ?” 過賬期間

ENDIF.

WRITE I_BKPF-CURRENCY TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BKPF-WAERS’ L_FVALUE . ?”貨幣

IF I_BKPF-HEADER_TXT IS NOT INITIAL.

WRITE I_BKPF-HEADER_TXT TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BKPF-BKTXT’ L_FVALUE . ? ” 憑證抬頭文本

ENDIF.

* IF I_BKPF-REF_DOC_NO IS NOT INITIAL.

* WRITE I_BKPF-REF_DOC_NO TO L_FVALUE.

* ?PERFORM F_FILL_FIELD

* ? ? ? ?TABLES LT_FTPOST

* ? ? ? ?USING L_STYPE L_COUNTER ‘BKPF-XBLNR’ L_FVALUE . ?” 參照

* ENDIF.

* PAGES

WRITE L_NUM TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BKPF-NUMPG’ L_FVALUE . ” 頁數，取憑證行項目數

* FILL ITEM

L_STYPE = ‘P’.

CLEAR L_COUNTER.

LOOP AT T_BSEG INTO WA_BSEG.

L_COUNTER = L_COUNTER + 1.

MOVE WA_BSEG-BSCHL TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-BSCHL’ L_FVALUE . ?” 過賬碼

WRITE WA_BSEG-amt_doccur TO L_FVALUE LEFT-JUSTIFIED.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-WRBTR’ L_FVALUE . ? ” 憑證貨幣金額

MOVE WA_BSEG-sp_gl_ind TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-UMSKZ’ L_FVALUE . ? ” 特殊 G/L 標識

IF WA_BSEG-BSCHL(1) = 3. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?” 科目/供應商/客戶

MOVE WA_BSEG-VENDOR_NO TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-LIFNR’ L_FVALUE .

ELSEIF WA_BSEG-BSCHL(1) = 0.

MOVE WA_BSEG-CUSTOMER TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-KUNNR’ L_FVALUE .

ELSEIF WA_BSEG-BSCHL(1) = 2.

MOVE WA_BSEG-VENDOR_NO TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-HKONT’ L_FVALUE .

ELSE.

MOVE WA_BSEG-GL_ACCOUNT TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-HKONT’ L_FVALUE .

ENDIF.

* ? ?INTERNAL ORDER

IF WA_BSEG-orderid IS NOT INITIAL.

WRITE WA_BSEG-orderid TO L_FVALUE LEFT-JUSTIFIED.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘COBL-AUFNR’ L_FVALUE . ? ? ” 訂單號

ENDIF.

* ? Profit center

IF WA_BSEG-PROFIT_CTR IS NOT ?INITIAL. ? ? ? ? ? ? ? ? ?” 利潤中心

CLEAR L_FVALUE.

WRITE WA_BSEG-PROFIT_CTR TO L_FVALUE LEFT-JUSTIFIED.

IF WA_BSEG-BSCHL(1) = 2.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-PRCTR’ L_FVALUE .

ELSE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘COBL-PRCTR’ L_FVALUE .

ENDIF.

ENDIF.

* ? ?REASON CODE

IF WA_BSEG-RSTGR IS NOT ?INITIAL.

WRITE WA_BSEG-RSTGR TO L_FVALUE LEFT-JUSTIFIED.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-RSTGR’ L_FVALUE . ? ? ” 原因代碼

ENDIF.

IF WA_BSEG-costcenter IS NOT INITIAL.

WRITE WA_BSEG-costcenter TO L_FVALUE LEFT-JUSTIFIED.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘COBL-KOSTL’ L_FVALUE . ? ? ?” ?成本中心

ENDIF.

IF WA_BSEG-BSCHL <> ‘40′ AND WA_BSEG-BSCHL <> ‘50′.

IF WA_BSEG-PMNTTRMS IS NOT INITIAL.

MOVE WA_BSEG-PMNTTRMS TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-ZTERM’ L_FVALUE . ? ?” 付款條件

ENDIF.

ENDIF.

IF WA_BSEG-alloc_nmbr IS NOT INITIAL.

MOVE WA_BSEG-alloc_nmbr TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-ZUONR’ L_FVALUE . ? ” 分配編號

ENDIF.

IF WA_BSEG-item_text ?IS NOT INITIAL.

MOVE WA_BSEG-item_text TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-SGTXT’ L_FVALUE . ? ?” 項目文本

ENDIF.

IF WA_BSEG-ASSET_NO IS NOT INITIAL.

MOVE WA_BSEG-ASSET_NO TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-ANLN1′ L_FVALUE . ? ” 資產號

MOVE WA_BSEG-SUB_NUMBER TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-ANLN2′ L_FVALUE .

ENDIF.

* ? ?CLEAR TBSL.

* ? ?SELECT SINGLE * FROM TBSL WHERE BSCHL = WA_BSEG-BSCHL.

* ? ?IF TBSL-KOART = ‘K’.

MOVE WA_BSEG-XREF1 TO L_FVALUE.

PERFORM F_FILL_FIELD

TABLES LT_FTPOST

USING L_STYPE L_COUNTER ‘BSEG-XREF1′ L_FVALUE . ? ” 參考碼，用于憑證過濾

* ? ?ENDIF.

CLEAR WA_BSEG.

ENDLOOP.

CALL FUNCTION ‘POSTING_INTERFACE_DOCUMENT’

EXPORTING

I_TCODE ? ? ? ? ? ? ? ? ?= L_TCODE

IMPORTING

E_SUBRC ? ? ? ? ? ? ? ? ?= L_SUBRC

TABLES

T_BLNTAB ? ? ? ? ? ? ? ? = LT_BLNTAB

T_FTPOST ? ? ? ? ? ? ? ? = LT_FTPOST

T_FTTAX ? ? ? ? ? ? ? ? ?= LT_FTTAX

EXCEPTIONS

ACCOUNT_MISSING ? ? ? ? ?= 1

COMPANY_CODE_MISSING ? ? = 2

POSTING_KEY_INVALID ? ? ?= 3

POSTING_KEY_MISSING ? ? ?= 4

RECORD_TYPE_INVALID ? ? ?= 5

TRANSACTION_CODE_INVALID = 6

AMOUNT_FORMAT_ERROR ? ? ?= 7

TOO_MANY_LINE_ITEMS ? ? ?= 8

COMPANY_CODE_INVALID ? ? = 9

SCREEN_NOT_FOUND ? ? ? ? = 10

NO_AUTHORIZATION ? ? ? ? = 11

OTHERS ? ? ? ? ? ? ? ? ? = 12.

IF SY-SUBRC <> 0.

I_RETURN-TYPE = ‘E’.

ENDIF.

CALL FUNCTION ‘POSTING_INTERFACE_END’. ? ? ” 錄屏結束

* 調用會話，執行錄屏內容

SUBMIT RSBDCSUB WITH MAPPE EQ G_GROUPID

WITH VON EQ SY-DATUM

WITH BIS EQ SY-DATUM

WITH Z_VERARB EQ ‘X’

WITH FEHLER EQ ”

EXPORTING LIST TO MEMORY

AND RETURN.

* 等待5S后，讀取生成的憑證號

WAIT UP TO 5 SECONDS.

SELECT SINGLE BELNR FROM BKPF INTO L_BELNR

WHERE bukrs = ?I_BKPF-COMP_CODE

AND GJAHR = L_GJAHR

AND GRPID = G_GROUPID.

IF SY-subrc = 0.

I_RETURN-TYPE = ‘S’.

CONCATENATE L_GJAHR ‘_’ I_BKPF-COMP_CODE ‘_’ L_BELNR INTO I_RETURN-BELNR.

* ———————————————————————————–

* ?MODIFY USER FROM rfc USER

* ———————————————————————————–

UPDATE BKPF SET USNAM = I_BKPF-USERNAME

XREF1_HD = I_BKPF-XREF1_HD

XREF2_HD = I_BKPF-XREF2_HD

WHERE BUKRS = I_BKPF-COMP_CODE

AND ? BELNR = L_BELNR

AND ? GJAHR = L_GJAHR.

IF SY-SUBRC = 0 .

COMMIT WORK.

ELSE.

ROLLBACK WORK.

ENDIF.

* —————————————————————————————

ELSE.

I_RETURN-TYPE = ‘E’.

PERFORM FM_BDC_LOG USING G_GROUPID

CHANGING I_RETURN-MESSAGE.

ENDIF.

*&———————————————————————*

*& ? ? ?Form ?FM_BDC_LOG

*&———————————————————————*

* 如果SESSION執行出錯，讀取錯誤信息

*———————————————————————-*

* ? ? ?–>P_G_GROUPID ?text

* ? ? ?<–P_I_RETURN_MESSAGE ?text

*———————————————————————-*

FORM FM_BDC_LOG ?USING ? ?L_GROUPID TYPE APQI-GROUPID

CHANGING L_MESSAGE TYPE BAPI_MSG.

TABLES:bapiret2.

DATA: I_APQL TYPE TABLE OF APQL WITH HEADER LINE.

DATA: BEGIN OF logtable OCCURS 50, ? ” plain log information in TemSe

enterdate LIKE btctle-enterdate,

entertime LIKE btctle-entertime,

logmessage(400) TYPE C,

END OF logtable.

DATA: l_logtable LIKE logtable.

SELECT * FROM apql

INTO TABLE i_apql

WHERE groupid = L_GROUPID

AND mandant = sy-mandt.

LOOP AT i_apql.

FREE logtable.

PERFORM read_bdc_log_plain(rsbdc_protocol)

TABLES

logtable

USING

i_apql-temseid i_apql-mandant.

LOOP AT logtable .

l_logtable = logtable.

IF logtable-logmessage+9(20) NE ”.

CLEAR bapiret2.

bapiret2-ID = logtable-logmessage+74(16).

bapiret2-NUMBER = logtable-logmessage+94(3).

bapiret2-message_v1 = logtable-logmessage+100(20).

CALL FUNCTION ‘BAPI_MESSAGE_GETDETAIL’

EXPORTING

ID ? ? ? ? = bapiret2-ID

NUMBER ? ? = bapiret2-NUMBER

textformat = ‘ASC’

message_v1 = bapiret2-message_v1

IMPORTING

MESSAGE ? ?= bapiret2-MESSAGE.

CONCATENATE bapiret2-MESSAGE ‘//’ L_MESSAGE INTO L_MESSAGE.

ENDIF.

ENDLOOP.

ENDLOOP.

ENDFORM.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

二、沖銷憑證

問題1：原使用CALL?FUNCTION?’NUMBER_RANGE_DEQUEUE’獲取下一個憑證號，卻發生跳號現象。只得人工計算下個憑證號。沖銷憑證BAPI需要參數-OBJ_KEY（憑證號+公司代碼+會計年度）

SELECT?SINGLE?STBLA?FROM?T003?INTO?L_STBLA
WHERE?BLART?=?LS_BKPF-BLART.????“?獲取沖銷憑證的憑證類型
SELECT?SINGLE?NUMKR?FROM?T003?INTO?L_NUMKR
WHERE?BLART?=?L_STBLA.??????????“?沖銷憑證號碼段
CONCATENATE?L_NUMKR?’%’?INTO?L_STRING.
SELECT?BELNR??FROM?BKPF?INTO?TABLE?IT_BSEG
WHERE?BUKRS?=?I_COMP_CODE
AND?GJAHR?=?L_GJAHR
AND?BLART?=?L_STBLA
AND?BELNR?LIKE?L_STRING.
if?SY-SUBRC?=?0.
SORT?IT_BSEG?BY?BELNR?DESCENDING.
READ?TABLE?IT_BSEG?INDEX?1.
IT_BSEG-BELNR?=?IT_BSEG-BELNR?+?1.

問題2：1、se37 . run ‘Z_DOCUMENT_REV_POST’. (This function calls BAPI-
BAPI_ACC_GL_POSTING_REV_POST).
2、with Parameter
BELNR RE PSTNG_DATE FI USERNAME
2012_H001_2000000271 03
3、created reversal document 2000000281 successfully
4、But in FBN1(COMPANY:H001), the current number is still 2000000280.

SAP的回復如下：

You use a custom function module (Z_DOCUMENT_REV_POST) which then
calls the BAPI BAPI_ACC_GL_POSTING_REV_POST. And you submit the document number directly to the BAPI in field REVERSAL-OBJ_KEY. The document is
posted correctly with the document number entered, but the document
number itself has not been drawn from the database.
This is why document number level is not updated, but document is posted correctly.

As we talked via phone, you use the function module
BAPI_ACC_GL_POSTING_POST to post the source document . ?This function module will draw the document number for OBJ_TYPE = BKPFF automatically, but the reversal BAPI will NOT do this.

We have two options for this issue:
1.Call function module RF_GET_DOCUMENT_NUMBER before calling the
reversal BAPI BAPI_ACC_GL_POSTING_REV_POST to get the next free document number

總結

以上是生活随笔為你收集整理的关于凭证和冲销凭证的RFC的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。