MIGO增强(扩展字段，屏幕增强字段，常规保存增强)

1.MIGO前台增强:

1.SE18找到增强点:MB_GOODSMOVEMENT

 2.找到相应的BADI:右键创建实施

3.找到重写的方法

  METHOD if_ex_mb_document_badi~mb_document_before_update.

    DATA:lv_stat TYPE c,
         lv_type TYPE bapi_mtype,
         lv_msg  TYPE bapi_msg.
    DATA:lv_message TYPE string.


    IF sy-tcode = 'MIGO'.
      LOOP AT xmseg ASSIGNING FIELD-SYMBOL(<lfs_mseg>).
        CALL FUNCTION 'ZMM_STATEMENT_SRM'
          EXPORTING
            mblnr   = <lfs_mseg>-mblnr
            gjahr   = <lfs_mseg>-gjahr
            zeile   = <lfs_mseg>-zeile
          IMPORTING
            ev_stat = lv_stat
            ev_type = lv_type
            ev_msg  = lv_msg.
        IF lv_stat = 1.
          lv_message = '物料凭证' && <lfs_mseg>-mblnr && '行项目' &&  <lfs_mseg>-zeile &&  '已对账不允许原单退货,请通过采购退货订单退货！' .
          MESSAGE lv_message TYPE 'E'.
        ELSE.
          CONTINUE.
        ENDIF.
      ENDLOOP.
    ENDIF.
ENDMETHOD.

2.MIGO 三代增强(BAPI会走这里,上面的那个增强BAPI不会走):

1.SE19:创建BADI实施:

  METHOD if_ex_mb_migo_badi~post_document.

    DATA:lv_message TYPE string.
    FIELD-SYMBOLS: <lfs_objnr_all> TYPE ANY TABLE.
    DATA lt_ripw0_t TYPE STANDARD TABLE OF ripw0 WITH NON-UNIQUE SORTED KEY uii COMPONENTS uii.

    ASSIGN ('(SAPLIPW1)XOBJK_ALL[]') TO <lfs_objnr_all>.
    IF <lfs_objnr_all> IS ASSIGNED.
      lt_ripw0_t[] = <lfs_objnr_all>.
    ENDIF.
    IF lt_ripw0_t[] IS NOT INITIAL.
      SELECT
        e~equnr,
        e~matnr,
        e~lbbsa
        FROM v_equi_eqbs_sml AS e
        FOR ALL ENTRIES IN @lt_ripw0_t
        WHERE e~equnr = @lt_ripw0_t-equnr
        INTO TABLE @DATA(lt_ser).
      LOOP AT it_mseg INTO DATA(is_mseg) WHERE bwart = '344'.
        READ TABLE lt_ser INTO DATA(ls_ser) WITH KEY matnr = is_mseg-matnr lbbsa = '07'.
        IF sy-subrc = 0.
          lv_message = '行项目' && is_mseg-zeile
                    && '物料' &&  ls_ser-matnr
                    && '序列号'  &&  ls_ser-equnr && '不能重复冻结库存' .
          MESSAGE lv_message TYPE 'E'.
        ENDIF.
      ENDLOOP.
    ENDIF.


    DATA: wa_zzsmseg TYPE ztmseg,
          lt_zzsmseg TYPE TABLE OF ztmseg,
          wa_item    TYPE zzsmseg_s,
          wa_mseg    TYPE mseg.

    IF it_item[] IS NOT INITIAL.
      LOOP AT it_item INTO wa_item.
        READ TABLE it_mseg INTO wa_mseg
            WITH KEY line_id = wa_item-line_id.
        IF sy-subrc EQ 0.
          wa_zzsmseg-mblnr = wa_mseg-mblnr.
          wa_zzsmseg-mjahr = wa_mseg-mjahr.
          wa_zzsmseg-zeile = wa_mseg-zeile.
          wa_zzsmseg-zshdh = wa_item-zshdh.
          wa_zzsmseg-zshdh_item = wa_item-zshdh_item.
          APPEND wa_zzsmseg TO lt_zzsmseg.
        ENDIF.
      ENDLOOP.

      CALL FUNCTION 'ZFMMM_UPDATE_DATA' IN UPDATE TASK
        TABLES
          it_item = lt_zzsmseg.
    ENDIF.
  ENDMETHOD.

 3.ITEM检查增强:这里增强没有前台页面行项目数据 需要在自定义类中手动添加,初始化,行更新删除时都需要更新此全局表

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

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

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

      MODIFY it_item FROM wa_item_new TRANSPORTING zshdh zshdh_item WHERE line_id = i_line_id.
    ENDIF.
    DELETE gt_item WHERE ebeln = cs_goitem-ebeln AND ebelp = cs_goitem-ebelp .
    APPEND cs_goitem TO gt_item .
  ENDMETHOD.

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

  METHOD if_ex_mb_migo_badi~pbo_detail.
    IF gf_class_id = i_class_id.
      DATA: wa_item TYPE zzsmseg_s.

      CHECK i_line_id IS NOT INITIAL.
      e_cprog = 'SAPLZFGMM_08'(001).   "'SAPL + 'FG Name'
      e_dynnr = '9010'.
      e_heading = 'SRM客制化页签'.

      g_line_id = i_line_id.
      READ TABLE it_item INTO wa_item WITH KEY line_id = i_line_id.

      CALL FUNCTION 'ZFMMM_SET_ITEM_DATA'
        EXPORTING
          i_input = wa_item.
    ENDIF.
  ENDMETHOD.

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

    CHECK i_line_id <> 0.

    CALL FUNCTION 'ZFMMM_GET_ITEM_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.

  METHOD if_ex_mb_migo_badi~reset.
    CLEAR:it_item,
          g_no_input,
          g_cancel,
          g_line_id.
    CLEAR gt_item .
    CLEAR gs_gohead .
  ENDMETHOD.

  METHOD if_ex_mb_migo_badi~post_document.

    DATA:lv_message TYPE string.
    FIELD-SYMBOLS: <lfs_objnr_all> TYPE ANY TABLE.
    DATA lt_ripw0_t TYPE STANDARD TABLE OF ripw0 WITH NON-UNIQUE SORTED KEY uii COMPONENTS uii.

    ASSIGN ('(SAPLIPW1)XOBJK_ALL[]') TO <lfs_objnr_all>.
    IF <lfs_objnr_all> IS ASSIGNED.
      lt_ripw0_t[] = <lfs_objnr_all>.
    ENDIF.
    IF lt_ripw0_t[] IS NOT INITIAL.
      SELECT
        e~equnr,
        e~matnr,
        e~lbbsa
        FROM v_equi_eqbs_sml AS e
        FOR ALL ENTRIES IN @lt_ripw0_t
        WHERE e~equnr = @lt_ripw0_t-equnr
        INTO TABLE @DATA(lt_ser).
      LOOP AT it_mseg INTO DATA(is_mseg) WHERE bwart = '344'.
        READ TABLE lt_ser INTO DATA(ls_ser) WITH KEY matnr = is_mseg-matnr lbbsa = '07'.
        IF sy-subrc = 0.
          lv_message = '行项目' && is_mseg-zeile
                    && '物料' &&  ls_ser-matnr
                    && '序列号'  &&  ls_ser-equnr && '不能重复冻结库存' .
          MESSAGE lv_message TYPE 'E'.
        ENDIF.
      ENDLOOP.
    ENDIF.


    DATA: wa_zzsmseg TYPE ztmseg,
          lt_zzsmseg TYPE TABLE OF ztmseg,
          wa_item    TYPE zzsmseg_s,
          wa_mseg    TYPE mseg.

    IF it_item[] IS NOT INITIAL.
      LOOP AT it_item INTO wa_item.
        READ TABLE it_mseg INTO wa_mseg
            WITH KEY line_id = wa_item-line_id.
        IF sy-subrc EQ 0.
          wa_zzsmseg-mblnr = wa_mseg-mblnr.
          wa_zzsmseg-mjahr = wa_mseg-mjahr.
          wa_zzsmseg-zeile = wa_mseg-zeile.
          wa_zzsmseg-zshdh = wa_item-zshdh.
          wa_zzsmseg-zshdh_item = wa_item-zshdh_item.
          APPEND wa_zzsmseg TO lt_zzsmseg.
        ENDIF.
      ENDLOOP.

      CALL FUNCTION 'ZFMMM_UPDATE_DATA' IN UPDATE TASK
        TABLES
          it_item = lt_zzsmseg.
    ENDIF.
  ENDMETHOD.

  METHOD if_ex_mb_migo_badi~check_item.
    DATA: gs_item_old TYPE goitem,
          wa_item_old TYPE zzsmseg_s.

    FIELD-SYMBOLS: <fs_kernel_class> TYPE any.
    DATA: lv_ref_kernel TYPE REF TO object.
    FIELD-SYMBOLS:<l_action> TYPE goaction,
                  <l_refdoc> TYPE refdoc.

    ASSIGN:('(SAPLMIGO)GODYNPRO-REFDOC') TO <l_refdoc>,
('(SAPLMIGO)GODYNPRO-ACTION') TO <l_action>.

    ASSIGN ('(SAPLMIGO)LCL_MIGO_GLOBALS=>KERNEL') TO <fs_kernel_class>.
    lv_ref_kernel ?= <fs_kernel_class>.
    IF <l_action> IS ASSIGNED AND <l_refdoc> IS ASSIGNED.
      IF <l_action> EQ 'A01' AND <l_refdoc> EQ 'R01'.

        LOOP AT gt_item INTO gs_item_old WHERE take_it = 'X' AND zeile = i_line_id.
          SELECT COUNT(*) FROM ekpo WHERE ebeln = gs_item_old-ebeln AND zyxt = 'SRM'.

          IF sy-subrc = 0.
            READ TABLE it_item  INTO wa_item_old WITH KEY line_id = gs_item_old-zeile.

            IF wa_item_old-zshdh IS INITIAL OR wa_item_old-zshdh_item IS INITIAL.

              MESSAGE i_line_id && 'SRM送货单号,SRM送货单号和行项目不能为空' TYPE 'E'.

            ENDIF.
          ENDIF.


        ENDLOOP.

      ENDIF .
    ENDIF .




  ENDMETHOD.

  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 'ZFMMM_SET_GOACTION'
      EXPORTING
        i_goaction = i_action.


  ENDMETHOD.

  METHOD if_ex_mb_migo_badi~pai_header.
    gs_gohead = is_gohead.
  ENDMETHOD.

  METHOD if_ex_mb_migo_badi~check_header.
    DATA : lv_answer TYPE  c.
    DATA :lv_name(50) TYPE c.
    DATA :lv_mblnr TYPE mblnr.

    FIELD-SYMBOLS: <fs_kernel_class> TYPE any.
    DATA: lv_ref_kernel TYPE REF TO object.
    FIELD-SYMBOLS:<l_action> TYPE goaction,
                  <l_refdoc> TYPE refdoc.
    DATA:lv_count TYPE i.
    DATA:ls_bapiret TYPE bapiret2.
    DATA: gs_item_old TYPE goitem.

    ASSIGN:('(SAPLMIGO)GODYNPRO-REFDOC') TO <l_refdoc>,
    ('(SAPLMIGO)GODYNPRO-ACTION') TO <l_action>.

    ASSIGN ('(SAPLMIGO)LCL_MIGO_GLOBALS=>KERNEL') TO <fs_kernel_class>.
    lv_ref_kernel ?= <fs_kernel_class>.
    IF <l_action> IS ASSIGNED AND <l_refdoc> IS ASSIGNED.
      IF <l_action> EQ 'A01' AND <l_refdoc> EQ 'R01'.

        LOOP AT gt_item INTO gs_item_old WHERE take_it = 'X'.
          SELECT COUNT(*) FROM ekpo WHERE ebeln = gs_item_old-ebeln AND zyxt = 'SRM'.

          IF sy-subrc = 0.

            IF gs_gohead-bktxt IS  INITIAL.
              MESSAGE '抬头文本不能为空' TYPE 'E'.
            ELSE.
              SELECT SINGLE mblnr INTO lv_mblnr  FROM mkpf WHERE bktxt = gs_gohead-bktxt .

              IF lv_mblnr IS NOT INITIAL.
                lv_name = '抬头文本重复凭证号：' && lv_mblnr && '可能存在收货，请确认是否过账！'.


                CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
                  EXPORTING
*                   DEFAULTOPTION        = 'Y'
                    textline1 = lv_name
*                   TEXTLINE2 = '否'
                    titel     = '是否继续'
*                   START_COLUMN         = 25
*                   START_ROW = 6
*                   CANCEL_DISPLAY       = 'X'
                  IMPORTING
                    answer    = lv_answer.

                IF sy-subrc = 0.
                  IF lv_answer = 'N'.
                    MESSAGE '操作被终止' TYPE 'E'.
                  ELSEIF lv_answer = 'A'..
                    MESSAGE '操作取消' TYPE 'E'.
                  ENDIF.
                ENDIF.

              ENDIF.
            ENDIF.

          ENDIF.

        ENDLOOP.

      ENDIF.

    ENDIF.

  ENDMETHOD.

********函数组：

FUNCTION zfmmm_get_item_data.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  EXPORTING
*"     REFERENCE(E_OUTPUT) TYPE  ZZSMSEG_S
*"----------------------------------------------------------------------

  MOVE-CORRESPONDING gs_zzsmseg TO e_output.


ENDFUNCTION.


FUNCTION zfmmm_set_goaction.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(I_GOACTION) TYPE  GOACTION
*"----------------------------------------------------------------------

  g_goaction = i_goaction.

ENDFUNCTION.




FUNCTION zfmmm_set_item_data.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(I_INPUT) TYPE  ZZSMSEG_S
*"----------------------------------------------------------------------

  MOVE-CORRESPONDING i_input TO gs_zzsmseg.



ENDFUNCTION.


FUNCTION zfmmm_update_data.
*"----------------------------------------------------------------------
*"*"更新函数模块：
*"
*"*"本地接口：
*"  TABLES
*"      IT_ITEM STRUCTURE  ZTMSEG
*"----------------------------------------------------------------------

  IF it_item[] IS NOT INITIAL.
    MODIFY ztmseg FROM TABLE it_item[].
  ENDIF.

ENDFUNCTION.

LZFGMM_08TOP

* INCLUDE LZFGMM_08D...                      " Local class definition

DATA:gs_zzsmseg TYPE zzsmseg_s.
DATA:g_goaction TYPE goaction.

LINE_ID	类型	MIGO_GLOBAL_COUNTER	NUMC	6	0	0	一行的唯一编号
.INCLUDE	类型	ZTMSEG		0	0	0	MIGO行项目增强字段 
MANDT	类型	MANDT	CLNT	3	0	0	客户端 
MBLNR	类型	MBLNR	CHAR	10	0	0	物料凭证编号
MJAHR	类型	MJAHR	NUMC	4	0	0	物料凭证的年份 
ZEILE	类型	MBLPO	NUMC	4	0	0	物料凭证中的项目
.INCLUDE	类型	ZSMSEG		0	0	0	MIGO增强字段
ZSHDH	类型	ZDEZSHDH	CHAR	50	0	0	SRM送货单号
ZSHDH_ITEM	类型	ZDEZSHDH_ITEM	NUMC	10	0	0	SRM送货单号行项目 
EBELN	类型	EBELN	CHAR	10	0	0	采购凭证编号
                                                                                                                                                                                                                                                  	

*----------------------------------------------------------------------*
***INCLUDE LZFGMM_08O01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_9010 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9010 OUTPUT.
  LOOP AT SCREEN.
    IF screen-group1 = 'G1' AND g_goaction = 'A04'.
      screen-input = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
ENDMODULE.

拓展预留字段：

se18->MB_GOODSMOVEMENT

METHOD if_ex_mb_bapi_goodsmvt_create~extensionin_to_matdoc.

  DATA:
    c_lenstruc          TYPE i VALUE 30,
    wa_bapi_mb_header   TYPE bapi_te_xmkpf,
    wa_bapi_mb_item     TYPE bapi_te_xmseg,
    wa_extension_in     TYPE bapiparex.

  FIELD-SYMBOLS:
    <fs_imseg>          TYPE imseg.

  CHECK NOT extension_in[] IS INITIAL.

* Analyze IMSEG for document structure and assign LINE_IDs if necessary
  CALL METHOD cl_mmim_line_id_manager=>analyze_mb_create
    CHANGING
      ct_imseg          = ct_imseg[]
    EXCEPTIONS
      duplicate_line_id = 1
      OTHERS            = 2.

  LOOP AT extension_in INTO wa_extension_in.
    CASE wa_extension_in-structure.
* extension of MKPF
      WHEN 'BAPI_TE_XMKPF'.
        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_header.
        MOVE-CORRESPONDING wa_bapi_mb_header TO cs_imkpf.
* extension of MSEG
      WHEN 'BAPI_TE_XMSEG'.
        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_item.
        READ TABLE ct_imseg
          WITH KEY line_id = wa_bapi_mb_item-matdoc_itm
          ASSIGNING <fs_imseg>.
        IF sy-subrc EQ 0.
          MOVE-CORRESPONDING wa_bapi_mb_item TO <fs_imseg>.
        ENDIF.
    ENDCASE.
  ENDLOOP.

ENDMETHOD.