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.
验证效果
