MIGO行项目屏幕增强

一、增强描述

由于在事务码MIGO中存在的字段中没有能够满足客户需求的字段，所以需要在事务码MIGO的屏幕中添加一个新的页签用来保存物料凭证中行项目增加的字段。
通过查找BADI的程序ZDEMO_BADI,输入参数MIGO后，得到对应BADI为MB_MIGO_BADI。

二、增强步骤

创建增强数据表和增强结构
- 创建增强数据存储表。
- 创建增强数据结构
- 创建增强数据表类型结构。
创建增强屏幕
- 新建Function Group，定义全局变量。
- 创建函数ZMM_I_GET_DATA（行项目：从屏幕获取数据）
- 创建函数ZMM_I_SET_DATA（行项目：输出数据到屏幕）
- 创建函数ZMM_UPDATE_DATA（抬头/行项目：更新数据到数据库）
- 创建函数ZMM_SET_GOACTION（抬头/行项目：设置屏幕Action Code）
创建行项目子屏幕9000
- 创建屏幕9000.
- 创建屏幕字段根据自建表的增强字段命名。
- 给屏幕创建PBO事件。

创建BADI实施

使用事务码SE19创建BADI实施,最后一步建立空类。
新增实施类属性

IF_EX_MB_MIGO_BADI~INIT

METHOD if_ex_mb_migo_badi~init.
  APPEND gf_class_id TO ct_init.
ENDMETHOD.

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 zsmm_migo01.

      CHECK i_line_id IS NOT INITIAL.
      e_cprog = 'SAPLZMM_MIGO01'(001).   "'SAPL + 'FG Name'
      e_dynnr = '9000'.
      e_heading = 'Item Addition1'.
      g_line_id = i_line_id.
      READ TABLE it_item INTO wa_item WITH KEY line_id = i_line_id.

      CALL FUNCTION 'ZMM_I_SET_DATA'
        EXPORTING
          i_input = wa_item.
    ENDIF.

  ENDMETHOD.

IF_EX_MB_MIGO_BADI~PAI_DETAIL

  METHOD if_ex_mb_migo_badi~pai_detail.
    DATA: wa_item_new TYPE zsmm_migo01,
          wa_item_old TYPE zsmm_migo01.

    CHECK i_line_id <> 0.

    CALL FUNCTION 'ZMM_I_GET_DATA'
      IMPORTING
        e_output = wa_item_new.

    READ TABLE it_item INTO wa_item_old WITH  KEY line_id = i_line_id.
    IF wa_item_new <> wa_item_old.
      e_force_change = 'X'.
    ENDIF.
  ENDMETHOD.

IF_EX_MB_MIGO_BADI~LINE_MODIFY

METHOD if_ex_mb_migo_badi~line_modify.
    DATA: wa_item_new    TYPE zsmm_migo01,
          wa_item_old    TYPE zsmm_migo01,
          wa_ztmm_migo01 TYPE ztmm_migo01,
          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 ztmm_migo01
        INTO wa_ztmm_migo01
        WHERE mblnr = cs_goitem-mblnr
          AND mjahr = cs_goitem-mjahr
          AND zeile = cs_goitem-zeile.

        IF wa_ztmm_migo01 IS NOT INITIAL.
          MOVE-CORRESPONDING wa_ztmm_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 'ZMM_I_GET_DATA'
        IMPORTING
          e_output = wa_item_new.

      MODIFY it_item FROM wa_item_new TRANSPORTING ztest01 ztest02 WHERE line_id = i_line_id.
    ENDIF.
  ENDMETHOD.

IF_EX_MB_MIGO_BADI~LINE_DELETE

METHOD if_ex_mb_migo_badi~line_delete.
    DELETE it_item WHERE line_id = i_line_id.
ENDMETHOD.

IF_EX_MB_MIGO_BADI~RESET

 CLEAR: it_item,
         g_no_input,
         g_cancel,
         g_line_id.

IF_EX_MB_MIGO_BADI~POST_DOCUMENT

  METHOD if_ex_mb_migo_badi~post_document.
    DATA: wa_ztmm_migo01 TYPE ztmm_migo01,
          lt_ztmm_migo01 TYPE TABLE OF ztmm_migo01,
          wa_item        TYPE zsmm_migo01,
          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_migo01.
          MOVE-CORRESPONDING wa_mseg TO wa_ztmm_migo01.
          APPEND wa_ztmm_migo01 TO lt_ztmm_migo01.
        ENDIF.
      ENDLOOP.
      CALL FUNCTION 'ZMM_UPDATE_DATA' IN UPDATE TASK
        TABLES
          it_item = lt_ztmm_migo01.
    ENDIF.
  ENDMETHOD.

IF_EX_MB_MIGO_BADI~MODE_SET

  METHOD if_ex_mb_migo_badi~mode_set.
    " 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
*------------------------------------------------*
    IF i_action = 'A03' OR i_action = 'A04' .
      g_no_input = abap_true.
    ENDIF.
    IF i_action = 'A03'.
      g_cancel = abap_true.
    ENDIF.

    CALL FUNCTION 'ZMM_SET_GOACTION'
      EXPORTING
        i_goaction = i_action.
  ENDMETHOD.