MIGO新增页签增强

1、文档说明

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

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

2、实现过程

2.1、创建自建表和结构

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

MIGO新增页签增强_MIGO

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

MIGO新增页签增强_MIGO_02

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

MIGO新增页签增强_MIGO_03

MIGO新增页签增强_MIGO_04

2.2、增强和函数组

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

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

根据增强点MB_MIGO_BADI创建实施

MIGO新增页签增强_MIGO_05

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

MIGO新增页签增强_MIGO_06

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

MIGO新增页签增强_MIGO_07

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

MIGO新增页签增强_MIGO_08

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

MIGO新增页签增强_MIGO_09

实现增强方法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'EXPORTINGi_input = wa_item.ENDIF.
ENDMETHOD.
"--------------------@斌将军--------------------

2.2.4、实现PAI

创建GET函数ZEMIGO_GET_DATA

MIGO新增页签增强_MIGO_10

实现增强方法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'IMPORTINGe_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 INITIALAND cs_goitem-mjahr IS NOT INITIALAND cs_goitem-zeile IS NOT INITIAL.SELECT SINGLE * FROM ztpp001INTO wa_ztmm_i_migo01WHERE mblnr = cs_goitem-mblnrAND mjahr = cs_goitem-mjahrAND 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'IMPORTINGe_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

MIGO新增页签增强_MIGO_11

选择处理类型

MIGO新增页签增强_MIGO_12

实现增强方法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_msegWITH KEY line_id = wa_item-line_id.ELSE.READ TABLE it_mseg INTO wa_msegWITH KEY smbln = wa_item-mblnrsmblp = wa_item-zeilesjahr = wa_item-mjahr.ENDIF.IF sy-subrc IS INITIAL."IF ls_item-zysfs = '2' AND ls_item-zfslch IS INITIAL."MESSAGE e001(zsd01) WITH '运输方式为专车时必输'."运输方式为专车时必输"ENDIF.MOVE-CORRESPONDING wa_item TO wa_ztmm_i_migo01.wa_ztmm_i_migo01-mblnr = ls_mseg-mblnr."物料凭证编号wa_ztmm_i_migo01-mjahr = ls_mseg-mjahr."物料凭证的年份wa_ztmm_i_migo01-zeile = ls_mseg-zeile."物料凭证中的项目APPEND wa_ztmm_i_migo01 TO lt_ztmm_i_migo01.ENDIF.ENDLOOP.CALL FUNCTION 'ZEMIGO_UPDATE_DATA' IN UPDATE TASKTABLESt_item = lt_ztmm_i_migo01.ENDIF.ENDMETHOD. 
"--------------------@斌将军--------------------

2.2.9、控制编辑状态

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

MIGO新增页签增强_MIGO_13

创建函数ZEMIGO_SET_GOACTION接收ACTION

MIGO新增页签增强_MIGO_14

实现屏幕流

MIGO新增页签增强_MIGO_15

实现增强方法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
* usedIF i_action = 'A03'.g_cancel = 'X'.ENDIF.CALL FUNCTION 'ZEMIGO_SET_GOACTION'EXPORTINGi_goaction = i_action.
ENDMETHOD. 
"--------------------@斌将军--------------------