MM 获取抬头条件净价

SE24
IF_PURCHASE_ORDER_MM
IM_HEADER是个接口，由系统负责实例化。
其中GET_CONDITIONS是获取抬头条件TAB页数据，可是直接通过IM_HEADER调用方法，返回的是空值。
查看方法GET_CONDITIONS，根据行号获取指定的条件定价值。全部的条目在变量po_tkomv_hash_table或tkomv中，可以尝试指针指向这两个变量。
观察行上获取条件净价的方法，标准方法通过宏命令mmpur_dynamic_cast强转my_parent，直接通过l_header调用get_tkomv获取。查看l_header方法GET_TKOMV是继承自接口IF_PURCHASING_DOCUMENT。可以用如下代码获取抬头条件净价

1.     DATA: lo_po_doc TYPE REF TO if_purchasing_document .
2.     DATA: lt_tkomv TYPE mmpur_tkomv .
3.     lo_po_doc ?= ir_header.
4.     lo_po_doc->get_tkomv( IMPORTING  ex_tkomv = lt_tkomv ) .

复制代码

SAP标准代码
抬头获取条件净价

1. METHOD if_purchase_order_mm~get_conditions .
3.   DATA: ls_cond_entry TYPE komv,
4.         l_kposn       TYPE komv-kposn.
6.   CLEAR ex_conditions.
8.   READ TABLE po_tkomv_hash_table WITH KEY kposn = l_kposn BINARY SEARCH
9.              TRANSPORTING NO FIELDS.
10.   IF sy-subrc IS INITIAL.
11.     LOOP AT po_tkomv_hash_table INTO ls_cond_entry FROM sy-tabix.
12.       IF ls_cond_entry-kposn NE l_kposn.
13.         EXIT.
14.       ENDIF.
15.       APPEND ls_cond_entry TO ex_conditions.
16.     ENDLOOP.
17.   ELSE.
18.     PERFORM mepo_badi_get_conditions IN PROGRAM saplmepo
19.                                 USING    l_kposn
20.                                 CHANGING ex_conditions.
21.   ENDIF.
23. ENDMETHOD.                    "IF_PURCHASE_ORDER_MM~GET_CONDITIONS

复制代码

行获取条件净价

1. METHOD if_purchase_order_item_mm~get_conditions .
3.   DATA: l_header      TYPE REF TO cl_po_header_handle_mm,
4.         lt_conditions TYPE mmpur_tkomv,
5.         ls_cond_entry LIKE LINE OF lt_conditions,
6.         l_kposn       TYPE komv-kposn.
8.   CLEAR ex_conditions.
9.   mmpur_dynamic_cast l_header my_parent.
10.   CHECK NOT l_header IS INITIAL.
12.   CALL METHOD l_header->get_tkomv
13.     IMPORTING
14.       ex_tkomv = lt_conditions.
16.   l_kposn = po_item_number.
17.   READ TABLE lt_conditions WITH KEY kposn = l_kposn BINARY SEARCH
18.              TRANSPORTING NO FIELDS.
19.   IF sy-subrc IS INITIAL.
20.     LOOP AT lt_conditions INTO ls_cond_entry FROM sy-tabix.
21.       IF ls_cond_entry-kposn NE l_kposn.
22.         EXIT.
23.       ENDIF.
24.       APPEND ls_cond_entry TO ex_conditions.
25.     ENDLOOP.
26.   ELSE.
27.     PERFORM mepo_badi_get_conditions IN PROGRAM saplmepo
28.                                     USING    l_kposn
29.                                     CHANGING ex_conditions.
30.   ENDIF.
32. ENDMETHOD.

复制代码

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！