KO02内部订单关联结算规则

没有标准bapi，可通过一系列函数和ABAP内存传递参数实现。

1. *.COBRA-Buffer (see FM KOBS)
   
2.   TYPES: BEGIN OF ty_cobra_buf.
   
3.            INCLUDE STRUCTURE cobra.
   
4.            TYPES:   uflag LIKE dkobr-upd_flag,
   
5.          END OF ty_cobra_buf.
   
6. *.COBRB-Puffer mit Änderungsflag (see FM KOBS)
   
7.   TYPES: BEGIN OF ty_cobrb_buf.
   
8.            INCLUDE STRUCTURE cobrb.
   
9.            TYPES:   uflag LIKE dkobr-upd_flag,
   
10.          END OF ty_cobrb_buf.
    
11.   DATA:lt_ALV   TYPE TABLE OF ty_alv.
    
12.   DATA:ls_alv   TYPE ty_alv.
    
13.   DATA:lv_objnr TYPE cobra-objnr.
    
14.   DATA:lt_objnr TYPE TABLE OF ionrb WITH HEADER LINE.
    
15.   DATA:ls_cobra_buf TYPE ty_cobra_buf.
    
16.   DATA:l_mem_cobra TYPE TABLE OF ty_cobra_buf.
    
17.   DATA:ls_cobrb_buf TYPE ty_cobrb_buf.
    
18.   DATA:l_mem_cobrb TYPE TABLE OF ty_cobrb_buf.
    
19.   DATA:ls_cobra TYPE cobra,
    
20.        lt_cobra TYPE TABLE OF cobra,
    
21.        ls_cobrb TYPE cobrb,
    
22.        lt_cobrb TYPE TABLE OF cobrb.
    
23. 
    
24.   lt_alv[] = gt_alv[].
    
25.   SORT lt_alv BY aufnr_as.
    
26.   DELETE ADJACENT DUPLICATES FROM lt_alv COMPARING aufnr_as.
    
27. 
    
28.   LOOP AT lt_alv INTO ls_alv.
    
29.     CLEAR:lt_objnr[],lt_cobra[],lt_cobrb[],lv_objnr,l_mem_cobra[],l_mem_cobrb[].
    
30.     lv_objnr = 'OR' && ls_alv-aufnr_as.
    
31. 
    
32.     CLEAR:lt_objnr.
    
33.     lt_objnr-objnr = lv_objnr.
    
34.     APPEND lt_objnr.
    
35.     CALL FUNCTION 'K_SRULE_PRE_READ'
    
36.       TABLES
    
37.         t_sender_objnr   = lt_objnr[]
    
38.         t_cobra          = lt_cobra
    
39.       EXCEPTIONS
    
40.         wrong_parameters = 1
    
41.         OTHERS           = 2.
    
42. 
    
43. * Fill internal buffer with settlement rules
    
44.     CALL FUNCTION 'K_SETTLEMENT_RULE_GET'
    
45.       EXPORTING
    
46.         objnr     = lv_objnr
    
47.         x_all     = ' '
    
48.       TABLES
    
49.         e_cobra   = lt_cobra
    
50.         e_cobrb   = lt_cobrb
    
51.       EXCEPTIONS
    
52.         not_found = 1
    
53.         OTHERS    = 2.
    
54. 
    
55.     IF lt_cobra[] IS INITIAL.
    
56.       "create a new rule header
    
57.       CALL FUNCTION 'K_SRULE_CREATE'
    
58.         EXPORTING
    
59.           i_objnr             = lv_objnr
    
60.         IMPORTING
    
61.           e_cobra             = ls_cobra
    
62.         EXCEPTIONS
    
63.           rule_already_exists = 1
    
64.           OTHERS              = 2.
    
65.       APPEND ls_cobra TO lt_cobra.
    
66.     ENDIF.
    
67. 
    
68. * Save settlement rule in ABAP-Memory
    
69.     CALL FUNCTION 'K_SRULE_EXPORT_IMPORT'
    
70.       EXPORTING
    
71.         i_mode     = 'EX'
    
72.       EXCEPTIONS
    
73.         wrong_mode = 1
    
74.         OTHERS     = 2.
    
75. 
    
76. * Read ABAP-Memory
    
77.     IMPORT l_mem_cobra l_mem_cobrb FROM MEMORY ID 'K_SRULE'."内存变量不能修改
    
78.     CLEAR:l_mem_cobra,l_mem_cobrb.
    
79. 
    
80.     "分配结算规则-抬头
    
81.     LOOP AT lt_cobra INTO ls_cobra.
    
82.       CLEAR:ls_cobra_buf.
    
83.       MOVE-CORRESPONDING ls_cobra TO ls_cobra_buf.
    
84.       APPEND ls_cobra_buf TO l_mem_cobra.
    
85.     ENDLOOP.
    
86. 
    
87.     "分配结算规则-行项目
    
88.     LOOP AT gt_alv ASSIGNING FIELD-SYMBOL(<fs_alv>) WHERE aufnr_as = ls_alv-aufnr_as.
    
89.       CLEAR:ls_cobrb_buf.
    
90.       ls_cobrb_buf-objnr = lv_objnr.
    
91.       ls_cobrb_buf-uflag = <fs_alv>-uflag.
    
92.       ls_cobrb_buf-lfdnr = <fs_alv>-lfdnr.
    
93.       ls_cobrb_buf-extnr = <fs_alv>-lfdnr.
    
94.       ls_cobrb_buf-gabja = <fs_alv>-gabja."起始-年
    
95.       ls_cobrb_buf-gabpe = <fs_alv>-gabpe."起始-月
    
96.       ls_cobrb_buf-gbisj = <fs_alv>-gbisj."截止-年
    
97.       ls_cobrb_buf-gbisp = <fs_alv>-gbisp."截止-月
    
98.       ls_cobrb_buf-avorg = 'KOAO'."结算交易
    
99.       ls_cobrb_buf-perbz = 'PER'. "总账科目
    
100.       ls_cobrb_buf-prozs = <fs_alv>-rate. "比例
     
101.       ls_cobrb_buf-konty = <fs_alv>-konty. "科目分配种类
     
102.       ls_cobrb_buf-kokrs = <fs_alv>-kokrs. "成本控制范围
     
103.       ls_cobrb_buf-werks = <fs_alv>-werks. "工厂
     
104.       ls_cobrb_buf-gsber = <fs_alv>-gsber. "业务范围
     
105.       ls_cobrb_buf-bukrs = <fs_alv>-bukrs. "公司代码
     
106.       ls_cobrb_buf-kostl = <fs_alv>-kostl. "成本中心
     
107.       ls_cobrb_buf-aufnr = <fs_alv>-aufnr_yf. "内部订单
     
108.       IF <fs_alv>-konty = 'OR'.
     
109.         ls_cobrb_buf-rec_objnr1 = 'OR' && <fs_alv>-aufnr_yf. "研发订单
     
110.       ELSEIF <fs_alv>-konty = 'KS'.
     
111.         ls_cobrb_buf-rec_objnr1 = 'KS' && <fs_alv>-kokrs && <fs_alv>-kostl.
     
112.       ENDIF.
     
113.       APPEND ls_cobrb_buf TO l_mem_cobrb.
     
114.     ENDLOOP.
     
115. 
     
116. * Clear internal buffer
     
117.     CALL FUNCTION 'K_SETTLEMENT_RULE_REFRESH'
     
118.       EXPORTING
     
119.         objnr = lv_objnr.
     
120. 
     
121. * Fill ABAP-Memory with new rules
     
122.     EXPORT l_mem_cobra l_mem_cobrb TO MEMORY ID 'K_SRULE'.
     
123. 
     
124. * Fill internal buffer with new rules
     
125.     CALL FUNCTION 'K_SRULE_EXPORT_IMPORT'
     
126.       EXPORTING
     
127.         i_mode     = 'IM'
     
128.       EXCEPTIONS
     
129.         wrong_mode = 1
     
130.         OTHERS     = 2.
     
131. 
     
132. * Save new rules
     
133.     CALL FUNCTION 'K_SETTLEMENT_RULE_SAVE'
     
134.       EXPORTING
     
135.         Dialog            = 'X'
     
136.         objnr             = lv_objnr
     
137.         i_status_update   = ' '
     
138.       EXCEPTIONS
     
139.         no_rule_for_objnr = 1
     
140.         OTHERS            = 2.
     
141.     IF sy-subrc = 0.
     
142.       COMMIT WORK.
     
143.       LOOP AT gt_alv ASSIGNING <fs_alv> WHERE aufnr_as = ls_alv-aufnr_as.
     
144.         <fs_alv>-zid = icon_green_light.
     
145.         <fs_alv>-zmessage = '结算规则创建成功'.
     
146.       ENDLOOP.
     
147.     ELSE.
     
148.       ROLLBACK WORK.
     
149.       LOOP AT gt_alv ASSIGNING <fs_alv> WHERE aufnr_as = ls_alv-aufnr_as.
     
150.         <fs_alv>-zid = icon_red_light.
     
151.         <fs_alv>-zmessage = '结算规则创建失败'.
     
152.       ENDLOOP.
     
153.     ENDIF.
     
154.   ENDLOOP.

复制代码