求教过帐后SAP写表BSEG,FAGLFLEXT的标准代码

xiaoerp

我用的是ECC6.0的系统.
用TCODE:F-02做一笔凭证,
点保存后，各个字段自动写入表BSEG和总帐表FAGLFLEXT中.

我听同事说功能范围是根据成本中心字段自动带出来的(如果CSKS表有配置功能范围的话).
我写找字段"功能范围"是怎么写入的.
能帮我找找SAP标准程序的这段代码吗?感激不尽!

yyiguangnian1

帮你顶起。。。。。

纵横四海

F-02是在SAP标准程序 MF05AFA0_ANLAGENPOSITIONEN_ERG 的 form anlagenpositionen_ergaenzen. 中保存字段"功能范围"的.但估计对你没什么用,并不是你想象的那样子.还是使用标准BAPI BAPI_ACC_GL_POSTING_POST 或 BAPI_ACC_DOCUMENT_POST 吧.

1. data:
   
2. obj_type like bapiache02-obj_type,
   
3. obj_key like bapiache02-obj_key,
   
4. obj_sys like bapiache02-obj_sys,
   
5. documentheader like bapiache08,
   
6. 
   
7. accountgl like bapiacgl08
   
8. occurs 0 with header line,
   
9. currencyamount like bapiaccr08
   
10. occurs 0 with header line,
    
11. return like bapiret2
    
12. occurs 0 with header line,
    
13. extension1 like bapiextc
    
14. occurs 0 with header line,
    
15. 
    
16. t_edidd like edidd occurs 0 with header line,
    
17. bapi_retn_info like bapiret2 occurs 0 with header line.
    
18. data: error_flag.
    
19. 
    
20. *documentheader-obj_type = 'BKPFF'.
    
21. *documentheader-obj_key = '18000000002002004'.
    
22. *documentheader-obj_type = 'BKPFF'.
    
23. *documentheader-obj_key = '180000000010002004'.
    
24. 
    
25. *documentheader-obj_sys = 'RD1CLNT200'.
    
26. 
    
27. 
    
28. documentheader-username = sy-uname.
    
29. documentheader-header_txt = 'Test using BAPI'.
    
30. documentheader-comp_code = '1000'.
    
31. 
    
32. *documentheader-ac_doc_no
    
33. *documentheader-fisc_year = '2005'.
    
34. 
    
35. documentheader-doc_date = sy-datum.
    
36. documentheader-pstng_date = sy-datum.
    
37. 
    
38. *documentheader-trans_date
    
39. *documentheader-fis_period
    
40. 
    
41. documentheader-doc_type = 'SA'.
    
42. 
    
43. 
    
44. *documentheader-ref_doc_no
    
45. *documentheader-compo_acc
    
46. *documentheader-reason_rev
    
47. 
    
48. 
    
49. 
    
50. accountgl-itemno_acc = '1'.
    
51. accountgl-gl_account = '0000160100'.
    
52. accountgl-comp_code = '1000'.
    
53. accountgl-pstng_date = sy-datum.
    
54. accountgl-doc_type = 'SA'.
    
55. accountgl-profit_ctr = '0000010000'.
    
56. append accountgl.
    
57. 
    
58. accountgl-itemno_acc = '2'.
    
59. accountgl-gl_account = '0000160100'.
    
60. accountgl-comp_code = '1000'.
    
61. accountgl-pstng_date = sy-datum.
    
62. accountgl-doc_type = 'SA'.
    
63. accountgl-profit_ctr = '0000010000'.
    
64. append accountgl.
    
65. 
    
66. 
    
67. *AC_DOC_NO
    
68. *FISC_YEAR
    
69. *FIS_PERIOD
    
70. *accountgl-STAT_CON = 'X'.
    
71. *REF_KEY_1
    
72. *REF_KEY_2
    
73. *REF_KEY_3
    
74. *CUSTOMER
    
75. *VENDOR_NO
    
76. *ALLOC_NMBR
    
77. *ITEM_TEXT
    
78. *BUS_AREA
    
79. *COSTCENTER
    
80. *ACTTYPE
    
81. *ORDERID
    
82. *ORIG_GROUP
    
83. *COST_OBJ
    
84. *PROFIT_CTR
    
85. *PART_PRCTR
    
86. *WBS_ELEMENT
    
87. *NETWORK
    
88. *ROUTING_NO
    
89. *ORDER_ITNO
    
90. 
    
91. 
    
92. currencyamount-itemno_acc = '1'.
    
93. currencyamount-currency = 'GBP'.
    
94. currencyamount-amt_doccur = '100.00'.
    
95. append currencyamount.
    
96. 
    
97. currencyamount-itemno_acc = '2'.
    
98. currencyamount-currency = 'GBP'.
    
99. currencyamount-amt_doccur = '-100.00'.
    
100. append currencyamount.
     
101. 
     
102. 
     
103. 
     
104. call BAPI-function in this system
     
105. call function 'BAPI_ACC_GL_POSTING_POST'
     
106. exporting
     
107. documentheader = documentheader
     
108. 
     
109. importing
     
110. obj_type = obj_type
     
111. obj_key = obj_key
     
112. obj_sys = obj_sys
     
113. tables
     
114. accountgl = accountgl
     
115. currencyamount = currencyamount
     
116. return = return
     
117. extension1 = extension1
     
118. exceptions
     
119. others = 1.
     
120. if sy-subrc 0.
     
121. message e999(re) with 'Problem occured'.
     
122. else.
     
123. loop at return.
     
124. if not return is initial.
     
125. clear bapi_retn_info.
     
126. move-corresponding return to bapi_retn_info.
     
127. if return-type = 'A' or return-type = 'E'.
     
128. error_flag = 'X'.
     
129. endif.
     
130. append bapi_retn_info.
     
131. endif.
     
132. endloop.
     
133. if error_flag = 'X'.
     
134. message e999(re) with 'Problem occured'.
     
135. rollback work.
     
136. else.
     
137. commit work.
     
138. endif.
     
139. endif.

复制代码