1、文档说明

本方法是将新增字段，展示在MIGO的新增页签中，并保存到自建表。

新增页签的方法，和采购订单新增页签的方法原理基本一致，都是需要创建函数组，并实现相应方法和屏幕，并在增强中调用该函数组，展示出屏幕，实现对应操作。

2、实现过程

2.1、创建自建表和结构

自建表中存储物料凭证主键和增强的字段ZNUM单据号

参考自建表，创建对应的结构，用于函数组数据传递

创建表类型，用于增强实施类

2.2、增强和函数组

为了清楚的展示增强和调用的函数之间的关系，此处将增强和函数实现放在一起讲解

2.2.1、创建增强实施和函数组

根据增强点MB_MIGO_BADI创建实施

点击实施类，添加表类型到实施类属性

创建函数组ZEMIGO，并声明全局变量

2.2.2、初始化

实现增强方法IF_EX_MB_MIGO_BADI~INIT

"--------------------@斌将军--------------------

method IF_EX_MB_MIGO_BADI~INIT.

  APPEND gf_class_id TO ct_init.

endmethod.

"--------------------@斌将军--------------------

2.2.3、实现PBO

创建SET函数ZEMIGO_SET_DATA

创建子屏幕9001，类型选择子屏幕

实现增强方法IF_EX_MB_MIGO_BADI~PBO_DETAIL

"--------------------@斌将军--------------------

METHOD if_ex_mb_migo_badi~pbo_detail.

  IF gf_class_id =  i_class_id.

    DATA: wa_item TYPE zspp001.

    CHECK i_line_id IS NOT INITIAL.

    e_cprog = 'SAPLZEMIGO'."函数组

    e_dynnr = '9001'."展示的页签屏幕

    e_heading = '客户数据'."页签标题

    g_line_id = i_line_id.

    READ TABLE it_item  INTO wa_item WITH KEY line_id = i_line_id.

    CALL FUNCTION 'ZEMIGO_SET_DATA'

      EXPORTING

        i_input = wa_item.

  ENDIF.

ENDMETHOD.

"--------------------@斌将军--------------------

2.2.4、实现PAI

创建GET函数ZEMIGO_GET_DATA

实现增强方法IF_EX_MB_MIGO_BADI~PAI_DETAIL

"--------------------@斌将军--------------------

METHOD if_ex_mb_migo_badi~pai_detail.

  DATA: wa_item_new TYPE zspp001,

        wa_item_old TYPE zspp001.

  CHECK i_line_id <> 0.

  CALL FUNCTION 'ZEMIGO_GET_DATA'

    IMPORTING

      e_out = wa_item_new.

  MODIFY  it_item FROM wa_item_new  TRANSPORTING znum WHERE  line_id = i_line_id.

  READ TABLE it_item INTO wa_item_old WITH  KEY line_id = i_line_id.

  IF wa_item_new-line_id <> i_line_id.

    e_force_change = 'X'.

  ENDIF.

ENDMETHOD.

"--------------------@斌将军--------------------

2.2.5、实现MODIFY

实现增强方法IF_EX_MB_MIGO_BADI~LINE_MODIFY

"--------------------@斌将军--------------------

METHOD if_ex_mb_migo_badi~line_modify.

  DATA: wa_item_new      TYPE zspp001,

        wa_item_old      TYPE zspp001,

        wa_ztmm_i_migo01 TYPE ztpp001,

        l_subrc          TYPE sy-subrc.

  READ TABLE it_item INTO wa_item_old WITH KEY line_id = i_line_id.

  l_subrc = sy-subrc.

  IF sy-subrc <> 0.

    IF cs_goitem-mblnr IS NOT INITIAL

      AND cs_goitem-mjahr IS NOT INITIAL

      AND cs_goitem-zeile IS NOT INITIAL.

      SELECT SINGLE * FROM ztpp001

      INTO wa_ztmm_i_migo01

      WHERE mblnr = cs_goitem-mblnr

        AND mjahr = cs_goitem-mjahr

        AND zeile = cs_goitem-zeile.

      IF wa_ztmm_i_migo01 IS NOT INITIAL.

        MOVE-CORRESPONDING wa_ztmm_i_migo01 TO wa_item_new.

      ENDIF.

    ENDIF.

    wa_item_new-line_id = i_line_id.

    INSERT wa_item_new INTO TABLE it_item.

  ELSE.

    CHECK g_line_id = i_line_id.

    CALL FUNCTION 'ZEMIGO_GET_DATA'

      IMPORTING

        e_out = wa_item_new.

*    wa_item_new-line_id = i_line_id.

    MODIFY it_item FROM wa_item_new TRANSPORTING znum WHERE line_id = i_line_id.

  ENDIF.

ENDMETHOD.

"--------------------@斌将军--------------------

2.2.6、实现DELETE

实现增强方法IF_EX_MB_MIGO_BADI~LINE_DELETE

"--------------------@斌将军--------------------

METHOD IF_EX_MB_MIGO_BADI~LINE_DELETE.

  DELETE TABLE it_item WITH TABLE KEY line_id = i_line_id.

ENDMETHOD.

"--------------------@斌将军--------------------

2.2.7、实现RESET

实现增强方法IF_EX_MB_MIGO_BADI~RESET

"--------------------@斌将军--------------------

METHOD IF_EX_MB_MIGO_BADI~RESET.

* Clear all internal data:

  CLEAR: gt_extdata,

         g_no_input,

         gs_exdata_header,

         g_cancel,

         it_item,

         g_line_id.

ENDMETHOD.

"--------------------@斌将军--------------------

2.2.8、实现存表

创建UPDATE函数ZEMIGO_UPDATE_DATA

选择处理类型

实现增强方法IF_EX_MB_MIGO_BADI~POST_DOCUMENT

"--------------------@斌将军--------------------

METHOD if_ex_mb_migo_badi~post_document.

  DATA: wa_ztmm_i_migo01 TYPE ztpp001,

        lt_ztmm_i_migo01 TYPE TABLE OF ztpp001,

        wa_item          TYPE zspp001,

        wa_mseg          TYPE mseg.

  IF it_item IS NOT INITIAL.

    LOOP AT it_item INTO wa_item.

      IF g_cancel IS INITIAL.

        READ TABLE it_mseg INTO wa_mseg

          WITH KEY line_id = wa_item-line_id.

      ELSE.

        READ TABLE it_mseg INTO wa_mseg

          WITH KEY smbln = wa_item-mblnr

                   smblp = wa_item-zeile

                   sjahr = wa_item-mjahr.

      ENDIF.

      IF sy-subrc IS INITIAL.

        MOVE-CORRESPONDING wa_item TO wa_ztmm_i_migo01.

        MOVE-CORRESPONDING wa_mseg TO wa_ztmm_i_migo01.

        APPEND wa_ztmm_i_migo01 TO lt_ztmm_i_migo01.

      ENDIF.

    ENDLOOP.

    CALL FUNCTION 'ZEMIGO_UPDATE_DATA' IN UPDATE TASK

      TABLES

        t_item = lt_ztmm_i_migo01.

  ENDIF.

ENDMETHOD.

"--------------------@斌将军--------------------

2.2.9、控制编辑状态

可以通过里面对应的ACTION，来控制增强字段的显示效果，比如在A04显示物料凭证时，设置增强字段为不可更改

创建函数ZEMIGO_SET_GOACTION接收ACTION

实现屏幕流

实现增强方法IF_EX_MB_MIGO_BADI~MODE_SET

"--------------------@斌将军--------------------

METHOD if_ex_mb_migo_badi~mode_set.

* ACTION and REFDOC will discribe the mode of transaction MIGO.

* ----------------------------------------------------------------------

* i_action:

* A01 = Goods receipt

* A02 = Return delivery

* A03 = Cancellation

* A04 = Display

* A05 = Release GR bl.st.

* A06 = Subsequent deliv.

* A07 = Goods issue

*

* i_refdoc:

* R01 = Purchase order

* R02 = Material document

* R03 = Delivery note

* R04 = Inbound delivery

* R05 = Outbound delivery

* R06 = Transport

* R07 = Transport ID code

* R08 = Order

* R09 = Reservation

* R10 = Other GR

*-----------------------------------------------------------------------

* In case of 'DISPLAY' the global field G_NO_INPUT will be set to 'X'.

* The result is that a different external subscreen will be choosen in

* method PBO_DETAIL.

  IF i_action = 'A04' OR i_action = 'A03'.

    g_no_input = 'X'.

  ENDIF.

* In case of 'CANCEL' the global field G_CANCEL will be set to 'X'.

* The result is that in method POST_DOCUMENT a different handling is

* used

  IF i_action = 'A03'.

    g_cancel = 'X'.

  ENDIF.

  CALL FUNCTION 'ZEMIGO_SET_GOACTION'

    EXPORTING

      i_goaction = i_action.

ENDMETHOD.

"--------------------@斌将军--------------------

2.3、测试效果

存表成功

到此，MIGO新增页签就实现了

定期更文，欢迎关注

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal