ME21N/ME22N/ME23N屏幕增强BADI ME_GUI_PO_CUST

最近想更深入学习下classic BADI, 以前没玩过BADI屏幕增强, 所以决定玩一下.

这次的屏幕增强主要用到两个BADI: ME_GUI_PO_CUST和ME_PROCESS_PO_CUST

这两个BADI都是有例子的, 可以在se18那里按GoTo->Sample code->Display来查看, 也可以直接在SE24查看类CL_EXM_IM_ME_GUI_PO_CUST和CL_EXM_IM_ME_PROCESS_PO_CUST

现在我们对PO header加上自己的subscreen, SAP的例子提供的是对item增加subscreen.

Step 1: Create Function Group

仿照Function Group MEPOBADIEX建一个Function Group

我建的Function Group如下图所示

Step 2: 在Function Group里建Screen, screen number随便

在TOP里面加入对应屏幕的变量, 这里我是直接用tables.

Step 3: 给BADI ME_GUI_PO_CUST建一个implementation

在Public Section里加上TYPE-POOLS mmmfd .

Step 4: 在Method IF_EX_ME_GUI_PO_CUST~SUBSCRIBE, 加入custom subscreen的设置代码

1. METHOD if_ex_me_gui_po_cust~subscribe.
2. DATA: lw_subscribers TYPE mepo_subscribers.
3. * we want to add a customer subscreen on the Header tab
4. CHECK im_application = 'PO'.
5. CHECK im_element     = 'HEADER'.
6. CLEAR lw_subscribers.
7. lw_subscribers-name = subscreen1.
8. lw_subscribers-dynpro = '0100'.
9. lw_subscribers-program = 'SAPLZCI_EKKODB'.
10. lw_subscribers-struct_name = 'CI_EKKODB'.
11. lw_subscribers-label = 'Zero test2'.
12. lw_subscribers-position = 11.
13. lw_subscribers-height = 8.
14. APPEND lw_subscribers TO re_subscribers.
15. ENDMETHOD.

METHOD if_ex_me_gui_po_cust~subscribe.
  DATA: lw_subscribers TYPE mepo_subscribers.

* we want to add a customer subscreen on the Header tab
  CHECK im_application = 'PO'.
  CHECK im_element     = 'HEADER'.

  CLEAR lw_subscribers.
  lw_subscribers-name = subscreen1.
  lw_subscribers-dynpro = '0100'.
  lw_subscribers-program = 'SAPLZCI_EKKODB'.
  lw_subscribers-struct_name = 'CI_EKKODB'.
  lw_subscribers-label = 'Zero test2'.
  lw_subscribers-position = 11.
  lw_subscribers-height = 8.
  APPEND lw_subscribers TO re_subscribers.
ENDMETHOD.

Step 5: 在IF_EX_ME_GUI_PO_CUST~MAP_DYNPRO_FIELDS, 加入代码, 使field name和它的数字编号关联起来

1. FIELD-SYMBOLS: <mapping> LIKE LINE OF ch_mapping.
2. LOOP AT ch_mapping ASSIGNING <mapping>.
3. CASE <mapping>-fieldname.
4. WHEN 'LV_TEST1'. <mapping>-metafield = mmmfd_cust_01.
5. WHEN 'LV_TEST2'. <mapping>-metafield = mmmfd_cust_02.
6. WHEN 'LV_TEST3'. <mapping>-metafield = mmmfd_cust_03.
7. ENDCASE.
8. ENDLOOP.

  FIELD-SYMBOLS: <mapping> LIKE LINE OF ch_mapping.

  LOOP AT ch_mapping ASSIGNING <mapping>.
    CASE <mapping>-fieldname.
      WHEN 'LV_TEST1'. <mapping>-metafield = mmmfd_cust_01.
      WHEN 'LV_TEST2'. <mapping>-metafield = mmmfd_cust_02.
      WHEN 'LV_TEST3'. <mapping>-metafield = mmmfd_cust_03.
    ENDCASE.
  ENDLOOP.

Custom的field估计只能加9个, 因为我在TYPE-POOLS mmmfd看到最大的是mmfd_cust_09,

这里也可以把一些standard field弄到custom subscreen上.

经过以上五步, 我们可以在ME23N看到custom subscreen, 但在ME21N和ME22N依然是看不到的...这个是为什么, 我还搞不清楚.

Step 6: 给BADI ME_PROCESS_PO_CUST建一个implementation

在Public Section加入TYPE-POOLS mmmfd .

Step 7: 在Method IF_EX_ME_PROCESS_PO_CUST~FIELDSELECTION_HEADER加入代码, 改变表ch_fieldselection的field status

'-'代表hidden, '+'或'.'表示editable, '*'代表display

1. METHOD if_ex_me_process_po_cust~fieldselection_header.
2. DATA: lv_persistent TYPE mmpur_bool.
3. FIELD-SYMBOLS: <fs> LIKE LINE OF ch_fieldselection.
4. DEFINE set_input.
5. read table ch_fieldselection assigning <fs> with table key metafield = &1.
6. if sy-subrc = 0.
7. if im_header->is_changeable( ) = mmpur_yes.
8. <fs>-fieldstatus = '+'.
9. else.
10. <fs>-fieldstatus = '*'.
11. endif.
12. endif.
13. END-OF-DEFINITION.
14. * if the item is already on the database, we disallow to change field badi_bsgru
15. lv_persistent = im_header->is_persistent( ).
16. set_input mmmfd_cust_01.
17. set_input mmmfd_cust_02.
18. set_input mmmfd_cust_03.
19. ENDMETHOD.

METHOD if_ex_me_process_po_cust~fieldselection_header.
  DATA: lv_persistent TYPE mmpur_bool.
  FIELD-SYMBOLS: <fs> LIKE LINE OF ch_fieldselection.

  DEFINE set_input.
    read table ch_fieldselection assigning <fs> with table key metafield = &1.
    if sy-subrc = 0.
     if im_header->is_changeable( ) = mmpur_yes.
       <fs>-fieldstatus = '+'.
     else.
       <fs>-fieldstatus = '*'.
     endif.
    endif.
  END-OF-DEFINITION.

* if the item is already on the database, we disallow to change field badi_bsgru
  lv_persistent = im_header->is_persistent( ).

  set_input mmmfd_cust_01.
  set_input mmmfd_cust_02.
  set_input mmmfd_cust_03.

ENDMETHOD.

这里有两点注意下:

1. im_header->is_changeable()可以判断当前这些field是不是处于可编辑状态, 如果是则为'X'. 比如刚进TCODE ME21N, ME22N它们是可编辑的, 但当按save保存成功后, 它们暂时是不可以编辑的, 要再按把它改回编辑状态才可以编辑,这里就实现了这个功能.

2. im_header->is_persistent()可以判断当这些field在数据库里有值了, 它就是'X', 当我们把数据写进表里就不想它被修改时, 可以用这个来判断, 比如把某个field设置成ME21N可编辑, ME22N不可编辑.

经过这七步, ME21N/ME22N/ME23N都可以看到这个custom subscreen, 但所有自建field都是可编辑状态, 必需做完第八步, 才能正常显示

Step 8: 在screen中调用2个module

这两个module存放在下图的程序里

注意: 如果不调用这两个module, BADI ME_GUI_PO_CUST下面的4个method都不会触发

TRANSPORT_FROM_MODEL
TRANSPORT_TO_DYNP
TRANSPORT_FROM_DYNP
TRANSPORT_TO_MODEL

Step 9: 在Method IF_EX_ME_GUI_PO_CUST~TRANSPORT_FROM_MODEL加入代码

把header的三个自建field传到attribute dynp_data_pho里

1. METHOD if_ex_me_gui_po_cust~transport_from_model.
2. DATA:     lw_header       TYPE REF TO if_purchase_order_mm,
3. lw_mepoheader   TYPE mepoheader,
4. lw_customer     TYPE ci_ekkodb.
5. *--------------------------------------------------------------------*
6. * system asks to transport data from the business logic into the view
7. *--------------------------------------------------------------------*
8. IF im_name = subscreen1.
9. * is it an Header? im_model can be header or item.
10. mmpur_dynamic_cast lw_header im_model.
11. CHECK NOT lw_header IS INITIAL.
12. * transport standard fields
13. lw_mepoheader = lw_header->get_data( ).
14. * store info for later use
15. MOVE-CORRESPONDING lw_mepoheader TO dynp_data_pbo.
16. ENDIF.
17. ENDMETHOD.

METHOD if_ex_me_gui_po_cust~transport_from_model.
  DATA:     lw_header       TYPE REF TO if_purchase_order_mm,
            lw_mepoheader   TYPE mepoheader,
            lw_customer     TYPE ci_ekkodb.
*--------------------------------------------------------------------*
* system asks to transport data from the business logic into the view
*--------------------------------------------------------------------*

  IF im_name = subscreen1.
* is it an Header? im_model can be header or item.
    mmpur_dynamic_cast lw_header im_model.
    CHECK NOT lw_header IS INITIAL.
* transport standard fields
    lw_mepoheader = lw_header->get_data( ).
* store info for later use
    MOVE-CORRESPONDING lw_mepoheader TO dynp_data_pbo.
  ENDIF.

ENDMETHOD.

Step 10: 在Method IF_EX_ME_GUI_PO_CUST~TRANSPORT_TO_DYNP加入代码

通过调用FM:ZCI_EKKODB_PUSH 把attribute

1. METHOD if_ex_me_gui_po_cust~transport_to_dynp.
2. IF im_name = subscreen1.
3. CALL FUNCTION 'ZCI_EKKODB_PUSH'
4. EXPORTING
5. im_dynp_data = dynp_data_pbo.
6. ENDIF.
7. ENDMETHOD.

METHOD if_ex_me_gui_po_cust~transport_to_dynp.

  IF im_name = subscreen1.
    CALL FUNCTION 'ZCI_EKKODB_PUSH'
      EXPORTING
        im_dynp_data = dynp_data_pbo.
  ENDIF.
ENDMETHOD.

Step 11: 在IF_EX_ME_GUI_PO_CUST~TRANSPORT_FROM_DYNP加入代码

PAI事件时, 把屏幕的值传到attribute dynp_data_pai, 并且比较dynp_data_pbo和dynp_data_pai, 确定自建field的值有所改变, 把re_changed置为'X', 这样IF_EX_ME_PROCESS_PO_CUST~PROCESS_HEADER就会触发.

1. METHOD if_ex_me_gui_po_cust~transport_from_dynp.
2. IF im_name = subscreen1.
3. CALL FUNCTION 'ZCI_EKKODB_POP'
4. IMPORTING
5. ex_dynp_data = dynp_data_pai.
6. ENDIF.
7. IF dynp_data_pai <> dynp_data_pbo.
8. * something has changed therefor we have to notify the framework
9. * to transport data to the model
10. re_changed = mmpur_yes.
11. ENDIF.
12. ENDMETHOD.

METHOD if_ex_me_gui_po_cust~transport_from_dynp.
  IF im_name = subscreen1.
    CALL FUNCTION 'ZCI_EKKODB_POP'
      IMPORTING
        ex_dynp_data = dynp_data_pai.

  ENDIF.

  IF dynp_data_pai <> dynp_data_pbo.
* something has changed therefor we have to notify the framework
* to transport data to the model
    re_changed = mmpur_yes.
  ENDIF.
ENDMETHOD.

Step 12: 在IF_EX_ME_GUI_PO_CUST~TRANSPORT_TO_MODEL加入代码, 把修改后的数据传到bussiness object里

1. METHOD if_ex_me_gui_po_cust~transport_to_model.
2. DATA: lw_header            TYPE REF TO if_purchase_order_mm,
3. lw_mepoheader        TYPE mepoheader,
4. lw_customer          TYPE ci_ekkodb,
5. lw_po_header_handle  TYPE REF TO cl_po_header_handle_mm.
6. *--------------------------------------------------------------------*
7. * data have to be transported to business logic
8. *--------------------------------------------------------------------*
9. IF im_name = subscreen1.
10. * is it an item? im_model can be header or item.
11. mmpur_dynamic_cast lw_header im_model.
12. CHECK NOT lw_header IS INITIAL.
13. lw_mepoheader = lw_header->get_data( ).
14. * standard fields changed?
15. IF dynp_data_pbo-lv_test1 <> dynp_data_pai-lv_test1
16. OR dynp_data_pbo-lv_test2 <> dynp_data_pai-lv_test2
17. OR dynp_data_pbo-lv_test3 <> dynp_data_pai-lv_test3.
18. * update standard fields
19. lw_mepoheader-lv_test1 = dynp_data_pai-lv_test1.
20. lw_mepoheader-lv_test2 = dynp_data_pai-lv_test2.
21. lw_mepoheader-lv_test3 = dynp_data_pai-lv_test3.
22. CALL METHOD lw_header->set_data
23. EXPORTING
24. im_data = lw_mepoheader.
25. ENDIF.
26. ENDIF.
27. ENDMETHOD.

METHOD if_ex_me_gui_po_cust~transport_to_model.

  DATA: lw_header            TYPE REF TO if_purchase_order_mm,
        lw_mepoheader        TYPE mepoheader,
        lw_customer          TYPE ci_ekkodb,
        lw_po_header_handle  TYPE REF TO cl_po_header_handle_mm.
*--------------------------------------------------------------------*
* data have to be transported to business logic
*--------------------------------------------------------------------*
  IF im_name = subscreen1.

* is it an item? im_model can be header or item.
    mmpur_dynamic_cast lw_header im_model.
    CHECK NOT lw_header IS INITIAL.
    lw_mepoheader = lw_header->get_data( ).
* standard fields changed?
    IF dynp_data_pbo-lv_test1 <> dynp_data_pai-lv_test1
    OR dynp_data_pbo-lv_test2 <> dynp_data_pai-lv_test2
    OR dynp_data_pbo-lv_test3 <> dynp_data_pai-lv_test3.
* update standard fields
      lw_mepoheader-lv_test1 = dynp_data_pai-lv_test1.
      lw_mepoheader-lv_test2 = dynp_data_pai-lv_test2.
      lw_mepoheader-lv_test3 = dynp_data_pai-lv_test3.

      CALL METHOD lw_header->set_data
        EXPORTING
          im_data = lw_mepoheader.

    ENDIF.
  ENDIF.
ENDMETHOD.

Step 13: 如果要check这些field的值的话, 可以写在IF_EX_ME_PROCESS_PO_CUST~PROCESS_HEADER, 这里我要check field1必须是PALM.

1. METHOD if_ex_me_process_po_cust~process_header.
2. DATA: lw_mepoheader TYPE mepoheader,
3. lw_customer TYPE ci_ekkodb.
4. DATA: lv_testflag TYPE c.
5. INCLUDE mm_messages_mac. "useful macros for message handling
6. lw_mepoheader = im_header->get_data( ).
7. IF lw_mepoheader-lv_test1 <> 'PALM'.
8. * Place the cursor onto field lv_test1. The metafield was defined in BAdI ME_GUI_PO_CUST,
9. * Method MAP_DYNPRO_FIELDS.
10. mmpur_metafield mmmfd_cust_01.
11. mmpur_message_forced 'E' 'ZDEV001' '999' '' '' '' ''.
12. *    MESSAGE 'This field should be filled ''PALM''' TYPE 'W'.
13. *    CLEAR lv_testflag.
14. *    lv_testflag = 'X'.
15. *    EXPORT lv_testflag FROM lv_testflag TO MEMORY ID 'Z_ZERO_ME22N'.
16. * invalidate the object
17. CALL METHOD im_header->invalidate( ).
18. ENDIF.
19. ENDMETHOD.

METHOD if_ex_me_process_po_cust~process_header.
  DATA: lw_mepoheader TYPE mepoheader,
        lw_customer TYPE ci_ekkodb.

  DATA: lv_testflag TYPE c.

  INCLUDE mm_messages_mac. "useful macros for message handling

  lw_mepoheader = im_header->get_data( ).

  IF lw_mepoheader-lv_test1 <> 'PALM'.
* Place the cursor onto field lv_test1. The metafield was defined in BAdI ME_GUI_PO_CUST,
* Method MAP_DYNPRO_FIELDS.

    mmpur_metafield mmmfd_cust_01.
    mmpur_message_forced 'E' 'ZDEV001' '999' '' '' '' ''.
*    MESSAGE 'This field should be filled ''PALM''' TYPE 'W'.

*    CLEAR lv_testflag.
*    lv_testflag = 'X'.
*    EXPORT lv_testflag FROM lv_testflag TO MEMORY ID 'Z_ZERO_ME22N'.

* invalidate the object
    CALL METHOD im_header->invalidate( ).
  ENDIF.

ENDMETHOD.

如果按回车来check的话, 它会显示error message,一次改变后按一次回车有反应, 第二次就没反应.

这里有一个缺陷, 当我们按save里, 这条message是不会显示到message表中的(研究了很久, 没研究出来怎么搞), 幸好这里有个功能十分不错, 选中PO header data still faulty这个message, 按Edit, 就可以定位到error message的field.

至此, 增强完成.

补充:

1. IF_EX_ME_PROCESS_PO_CUST~INITIALIZE: initialize function groupZCI_EKKODB的变量语句可以写在这.

1. METHOD if_ex_me_process_po_cust~initialize.
2. CALL FUNCTION 'ZCI_EKKODB_INIT'
3. .
4. ENDMETHOD.

METHOD if_ex_me_process_po_cust~initialize.
  CALL FUNCTION 'ZCI_EKKODB_INIT'
            .
ENDMETHOD.

2. IF_EX_ME_PROCESS_PO_CUST~OPEN: 如果要select自建表的东西可以写在这里, 这里有个field IM_TRTYP有一定的控制作用, 具体可以查看它的domain值.

3. IF_EX_ME_PROCESS_PO_CUST~POST: update自建表的语句可以写在这里.

4. Custom subscreen的field必须引用method IF_EX_ME_GUI_PO_CUST~SUBSCRIBE里的定义的那个structure, from dict要勾上.

5. 如果有自建表里面的field, 必须在method IF_EX_ME_GUI_PO_CUST~TRANSPORT_TO_MODEL判断自建表的field改变时, 加上语句CALL METHOD lw_header->set_changed( ), 不这样的话, 你的自建表的field怎么变在保存时都会提示No data changed. 下面代码是例子.

1. METHOD if_ex_me_gui_po_cust~transport_to_model.
2. DATA: lw_header            TYPE REF TO if_purchase_order_mm,
3. lw_mepoheader        TYPE mepoheader,
4. lw_customer          TYPE ci_ekkodb,
5. lw_po_header_handle  TYPE REF TO cl_po_header_handle_mm.
6. *--------------------------------------------------------------------*
7. * data have to be transported to business logic
8. *--------------------------------------------------------------------*
9. IF im_name = subscreen1.
10. * is it an item? im_model can be header or item.
11. mmpur_dynamic_cast lw_header im_model.
12. CHECK NOT lw_header IS INITIAL.
13. lw_mepoheader = lw_header->get_data( ).
14. * standard fields changed?
15. IF dynp_data_pbo-lv_test1 <> dynp_data_pai-lv_test1
16. OR dynp_data_pbo-lv_test2 <> dynp_data_pai-lv_test2
17. OR dynp_data_pbo-lv_test3 <> dynp_data_pai-lv_test3.
18. * update standard fields
19. lw_mepoheader-lv_test1 = dynp_data_pai-lv_test1.
20. lw_mepoheader-lv_test2 = dynp_data_pai-lv_test2.
21. lw_mepoheader-lv_test3 = dynp_data_pai-lv_test3.
22. CALL METHOD lw_header->set_data
23. EXPORTING
24. im_data = lw_mepoheader.
25. ENDIF.
26. IF dynp_data_pbo-zdamon <> dynp_data_pai-zdamon.
27. CALL FUNCTION 'ZCI_EKKODB_SET_DATA'
28. EXPORTING
29. im_damon = dynp_data_pai-zdamon.
30. CALL METHOD lw_header->set_changed( ).
31. ENDIF.
32. ENDIF.
33. ENDMETHOD.

METHOD if_ex_me_gui_po_cust~transport_to_model.

  DATA: lw_header            TYPE REF TO if_purchase_order_mm,
        lw_mepoheader        TYPE mepoheader,
        lw_customer          TYPE ci_ekkodb,
        lw_po_header_handle  TYPE REF TO cl_po_header_handle_mm.
*--------------------------------------------------------------------*
* data have to be transported to business logic
*--------------------------------------------------------------------*
  IF im_name = subscreen1.

* is it an item? im_model can be header or item.
    mmpur_dynamic_cast lw_header im_model.
    CHECK NOT lw_header IS INITIAL.
    lw_mepoheader = lw_header->get_data( ).
* standard fields changed?
    IF dynp_data_pbo-lv_test1 <> dynp_data_pai-lv_test1
    OR dynp_data_pbo-lv_test2 <> dynp_data_pai-lv_test2
    OR dynp_data_pbo-lv_test3 <> dynp_data_pai-lv_test3.
* update standard fields
      lw_mepoheader-lv_test1 = dynp_data_pai-lv_test1.
      lw_mepoheader-lv_test2 = dynp_data_pai-lv_test2.
      lw_mepoheader-lv_test3 = dynp_data_pai-lv_test3.

      CALL METHOD lw_header->set_data
        EXPORTING
          im_data = lw_mepoheader.

    ENDIF.

    IF dynp_data_pbo-zdamon <> dynp_data_pai-zdamon.
      CALL FUNCTION 'ZCI_EKKODB_SET_DATA'
        EXPORTING
          im_damon = dynp_data_pai-zdamon.

      CALL METHOD lw_header->set_changed( ).
    ENDIF.

  ENDIF.
ENDMETHOD.

6.Method IF_EX_ME_GUI_PO_CUST~EXECUTE可以处理function code.

1. METHOD if_ex_me_gui_po_cust~execute.
2. IF im_fcode = 'ZZZZ'.
3. MESSAGE 'Zero test' TYPE 'I'.
4. ENDIF.
5. ENDMETHOD.

METHOD if_ex_me_gui_po_cust~execute.
  IF im_fcode = 'ZZZZ'.
    MESSAGE 'Zero test' TYPE 'I'.
  ENDIF.
ENDMETHOD.