使用BAPI_ACC_DOCUMENT_POST生成FI凭证

requirement：使用BAPI_ACC_DOCUMENT_POST创建FI凭证，模拟的是前台tcode:FB01.
issue：未找到posting key的传入字段。
solution:使用BAPI_ACC_DOCUMENT_POST的表参数extension2来传入posting key信息，
增强badi ACC_DOCUMENT来将传入的posting key更新到FI凭证生成时所使用的内表。

本人的实现过程，供参考：
1.编写调用bapi的代码

点击(此处)折叠或打开

1. DATA header TYPE bapiache09.
   
2. DATA accountgl LIKE TABLE OF bapiacgl09 WITH HEADER LINE.
   
3. DATA currencyamount LIKE TABLE OF bapiaccr09 WITH HEADER LINE.
   
4. DATA lt_return LIKE TABLE OF bapiret2 WITH HEADER LINE .
   
5. 
   
6. header-doc_date = sy-datum.
   
7. header-username = sy-uname.
   
8. header-pstng_date = sy-datum.
   
9. header-doc_type = \'SA\'.
   
10. header-comp_code = \'5000\'.
    
11. 
    
12. accountgl-itemno_acc = \'10\'.
    
13. accountgl-profit_ctr = \'9941500020\'.
    
14. accountgl-gl_account = \'0017100011\'.
    
15. APPEND accountgl.
    
16. 
    
17. accountgl-itemno_acc = \'20\'.
    
18. accountgl-profit_ctr = \'9941500020\'.
    
19. accountgl-gl_account = \'0017101001\'.
    
20. APPEND accountgl.
    
21. 
    
22. currencyamount-itemno_acc = \'10\'.
    
23. currencyamount-currency = \'CNY\'.
    
24. currencyamount-amt_doccur = 100.
    
25. APPEND currencyamount.
    
26. 
    
27. currencyamount-itemno_acc = \'20\'.
    
28. currencyamount-currency = \'CNY\'.
    
29. currencyamount-amt_doccur = -100.
    
30. APPEND currencyamount.
    
31. DATA : it_bapiparex TYPE TABLE OF bapiparex,
    
32.          wa_bapiparex TYPE bapiparex.
    
33. 
    
34. * Populate the Extension table
    
35. wa_bapiparex-structure = \'POSTING_KEY\'.
    
36. wa_bapiparex-valuepart1 = \'10\'. \" Item number
    
37. wa_bapiparex-valuepart2 = \'40\'. \" Posting Key
    
38. APPEND wa_bapiparex TO it_bapiparex.
    
39. wa_bapiparex-valuepart1 = \'20\'. \" Item number
    
40. wa_bapiparex-valuepart2 = \'50\'. \" Posting Key
    
41. APPEND wa_bapiparex TO it_bapiparex.
    
42. 
    
43. CALL FUNCTION \'BAPI_ACC_DOCUMENT_POST\'
    
44.   EXPORTING
    
45.     documentheader = header
    
46.   TABLES
    
47.     accountgl = accountgl[]
    
48.     currencyamount = currencyamount[]
    
49.     return = lt_return[]
    
50.     extension2 = it_bapiparex[].
    
51. 
    
52. 
    
53. CALL FUNCTION \'BAPI_TRANSACTION_COMMIT\'.
    
54. 
    
55. LOOP AT lt_return.
    
56.   WRITE : / lt_return-message.
    
57. ENDLOOP.

2.implement badi : ACC_DOCUMENT 在change method中写入代码如下：

点击(此处)折叠或打开

1. DATA: wa_extension TYPE bapiparex,
   
2.               wa_accit TYPE accit.
   
3. 
   
4.     LOOP AT c_extension2 INTO wa_extension.
   
5. 
   
6. * Extend BAPI to have Posting Keys defined by user
   
7.       IF wa_extension-structure = \'POSTING_KEY\'.
   
8.         CLEAR wa_accit.
   
9.         READ TABLE c_accit INTO wa_accit
   
10.                            WITH KEY posnr = wa_extension-valuepart1.
    
11.         IF sy-subrc = 0.
    
12.           wa_accit-bschl = wa_extension-valuepart2.
    
13.           MODIFY c_accit FROM wa_accit INDEX sy-tabix TRANSPORTING bschl.
    
14.         ENDIF.
    
15. 
    
16.       ENDIF.
    
17. 
    
18.     ENDLOOP.

执行的结果就是FI凭证生成了。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/7714329/viewspace-1467162/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/7714329/viewspace-1467162/