MM--MIGO的屏幕格式由来学习
migo的屏幕格式的由来
migo的屏幕格式是根据用户选择的操作，由操作决定参考单据（操作和参考单据有个固定关系，在次关系基础上用户可以配置哪些TCODE可以使用哪些操作，操作参照哪些文档），在根据用输入的操作和参考文档，系统内部决定交易/事件类型，交易/事件类型内部决定操作代码(migo_mode ),有了操作代码就决定了屏幕的格式。具体内容和代码请参见下面的摘抄。
GOACTION： MIGO 事务中执行操作
Goods Receipt收货 A01
Return Delivery返回交货 A02
Cancellation取消 A03
Display显示 A04
Release GR blocked stock下达收货冻结库存 A05
Subsequent Delivery后续交货 A06
Goods Issue发货 A07
Transfer Posting转移过帐 A08
Remove from Storage出库 A09
Place in Storage入库 A10
Subsequent Adjustment后续调整 A11
REFDOC:MIGO参考凭证
Purchase Order采购订单 R01
Material Document物料凭证 R02
Delivery Note交货单 R03
Inbound Delivery向内发货 R04
Outbound Delivery向外交货 R05
Transport传送 R06
Transport ID Code运输标识代码 R07
Order订单 R08
Reservation预留 R09
Others其他 R10
配置：设置业务和参考单据
Path： IMG－物料管理－库存管理和实际库存-Enjoy 事务设置－货物移动设置 (MIGO_CUST_ACTION)
MIGO 事务中屏幕：执行操作和参考文档对应关系参见代码(LMIGOGL2:CLASS lcl_migo_globals IMPLEMENTATION.)
************************************************************************
* Create the internal customozing table.
* It contains the valid combinations of action and refdoc, derived
* a) From an internal default combination scheme
* b) The customizing, which is able to delete entries.
************************************************************************
METHOD customizing_read.
DATA: l_action_list TYPE string,
l_refdoc_list TYPE string,
lt_action TYPE TABLE OF goaction,
lt_refdoc TYPE TABLE OF refdoc,
l_action TYPE goaction,
l_refdoc TYPE refdoc,
ls_cust TYPE ty_s_cust,
ls_cust_action TYPE migo_cust_action,
ls_cust_refdoc TYPE migo_cust_refdoc.
* Create the default entries. These are the superset of all allowed
* combinations. Customizing can only delete entries.
l_action_list = 'A01 A02 A03 A04 A05 A06 A07 A08 A09 A10 A11'.
SPLIT l_action_list AT ' ' INTO TABLE lt_action.
LOOP AT lt_action INTO l_action.
CASE l_action.
WHEN 'A01'. l_refdoc_list = 'R01 R04 R05 R06 R07 R08 R09 R10'.
WHEN 'A02'. l_refdoc_list = 'R02 R03'.
WHEN 'A03'. l_refdoc_list = 'R02'.
WHEN 'A04'. l_refdoc_list = 'R02'.
WHEN 'A05'. l_refdoc_list = 'R02'.
WHEN 'A06'. l_refdoc_list = 'R02 R03'.
WHEN 'A07'. l_refdoc_list = 'R01 R08 R09 R10'.
WHEN 'A08'. l_refdoc_list = 'R09 R10'.
WHEN 'A09'. l_refdoc_list = 'R10'.
WHEN 'A10'. l_refdoc_list = 'R02 R10'.
WHEN 'A11'. l_refdoc_list = 'R01'.
ENDCASE.
SPLIT l_refdoc_list AT ' ' INTO TABLE lt_refdoc.
LOOP AT lt_refdoc INTO l_refdoc.
ls_cust-action = l_action.
ls_cust-refdoc = l_refdoc.
APPEND ls_cust TO t_cust.
ENDLOOP.
ENDLOOP.
* Read the customizing and eliminate found entries which are deselected.
SELECT * FROM migo_cust_action INTO ls_cust_action
WHERE tcode = caller_sytcode.
IF ls_cust_action-active = space.
DELETE t_cust WHERE action = ls_cust_action-action.
ELSE.
SELECT * FROM migo_cust_refdoc INTO ls_cust_refdoc
WHERE tcode = ls_cust_action-tcode
AND action = ls_cust_action-action.
IF ls_cust_refdoc-active = space.
DELETE t_cust WHERE action = ls_cust_refdoc-action
AND refdoc = ls_cust_refdoc-refdoc.
ENDIF.
ENDSELECT.
ENDIF.
ENDSELECT.
ENDMETHOD.
MIGO根据用户选择的操作选择参考文档的代码(LMIGOFL4: lcl_migo_firstline)
************************************************************************
* Fill the values for the REFDOC-listbox according to P_ACTION
* Entries can be deactivated in customizing table MIGO_CUST_REFDOC
************************************************************************
METHOD listbox_refdoc_set.
DATA: ls_ddic_info TYPE dd07v,
lt_ddic_info TYPE TABLE OF dd07v,
ls_refdoc TYPE pty_s_refdoc.
CLEAR pt_refdoc.
* Get all domain texts
CALL FUNCTION 'DDUT_DOMVALUES_GET'
EXPORTING
name = 'REFDOC'
texts_only = x
TABLES
dd07v_tab = lt_ddic_info
EXCEPTIONS
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
sy-subrc = sy-subrc.
ENDIF.
* Loop over the allowed refdocs
LOOP AT lt_ddic_info INTO ls_ddic_info.
ls_refdoc-refdoc = ls_ddic_info-domvalue_l.
ls_refdoc-value = ls_ddic_info-ddtext.
READ TABLE lcl_migo_globals=>t_cust
WITH KEY action = p_action
refdoc = ls_refdoc-refdoc
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
APPEND ls_refdoc TO pt_refdoc.
ENDIF.
ENDLOOP.
SORT pt_refdoc BY value.
ENDMETHOD. "listbox_refdoc_set
操作和参考单据决定了交易/事件类型(代码参见)，再由交易类型来决定操作类型(操作类型又用于决定屏幕格式)(LMIGOKS1)
*_______________________________________________________________________
* INTERNAL DOCUMENTATION:
* How to set migo_mode.
* Possible values: GR (goods receipt [MB01]), GI (goods issue [MB11]),
* GO (goods receipt for production order [MB31]),
* GS (subsequent adjustment).
* Note: The allowed combinations for MIGO are layed out in LMIGOGL2
* (METHOD customizing_read).
* Determines the selected table control.
*
* /REFDOC |
* / |
* / |
* / |
* ACTION / |R01|R02|R03|R04|R05|R06|R07|R08|R09|R10|
*___________________________________________________________
* Goods receipt |GR | - | - |GR |GR |GR |GR |GO |GI |GI |
* Return delivery | - | * | * | - | - | - | - | - | - | - |
* cancellation | - | * | - | - | - | - | - | - | - | - |
* Display | - | * | - | - | - | - | - | - | - | - |
* Release GR bl.st.|GR | * | - |GR |GR |GR |GR | - | - | - |
* Subsequent deliv.| - | * | * | - | - | - | - | - | - | - |
* goods issue |GI | - | - | - | - | - | - |GI |GI |GI |
* transfer | - | - | - | - | - | - | - | - |GT |GT |
* remove from stor.| - | - | - | - | - | - | - | - | - |GT |
* place in stor. | - |GR | - | - | - | - | - | - | - |GR |
* Subsequent adjust|GS | - | - | - | - | - | - | - | - | - |
*___________________________________________________________
* Note: * means: determined by the material document to be read.
* Before reading, a default is set. Will be overwritten
* immedeately by the material document!
* Default today is: GR
*_______________________________________________________________________
************************************************************************
* Set a new kernel mode.
* According the to flags and fields in S_CONTROL, the data in
* S_ACTION are derived.
************************************************************************
METHOD mode_set.
DATA: lt_mvt TYPE TABLE OF bwart,
l_vgart TYPE vgart,
ls_action_old TYPE ty_s_action.
ls_action_old = s_action.
* Nothing to do if old and new mode are identical. Execute always
* if called from within RESET.
IF is_control <> s_control OR i_unconditional = abap_true.
* If either ACTION or REFDOC has changed, clear VGART. It will be
* set later in this routine to a default or set when reading a
* material document.
* Exception: Setting of VGART forced by flag. Needed for predoc,
* as this routing calls MODE_SET once with a complete set of data.
* Result:
* - New ACTION/REFDOC --> Correct combination set.
* - Read material document --> New VGART set.
* - Change another flag (e.g. new positions) --> No modif to VGART.
l_vgart = is_control-vgart.
IF ( s_control-action <> is_control-action OR
s_control-refdoc <> is_control-refdoc ) AND
i_keep_vgart = abap_false.
CLEAR l_vgart.
ENDIF.
s_control = is_control.
s_control-vgart = l_vgart.
* Create S_ACTION
CLEAR s_action.
* Settings for transaction type. If posting with reference to a
* material document, this is set by the material document reading
* routine. (Importing parameter I_VGART). If not given --> cleared.
* In all other cases, it is derived from ACTION/REFDOC.
CASE s_control-action.
WHEN 'A01'.
s_control-vgart = 'WE'.
IF 'R08' CS s_control-refdoc. s_control-vgart = 'WF'. ENDIF.
IF 'R09 R10' CS s_control-refdoc. s_control-vgart = 'WA'. ENDIF.
WHEN 'A05'.
IF 'R02' NS s_control-refdoc. s_control-vgart = 'WE'. ENDIF.
WHEN 'A07'. s_control-vgart = 'WA'.
WHEN 'A08'. s_control-vgart = 'WA'.
WHEN 'A09'. s_control-vgart = 'WA'.
WHEN 'A10'. s_control-vgart = 'WA'."583649
WHEN 'A11'. s_control-vgart = 'WO'.
ENDCASE.
* Goods receipt/issue others: Table control will be ready for input
IF s_control-refdoc = 'R10'.
s_control-new_line_mode = x.
ENDIF.
* Derive the MIGO_MODE.
* Controls the selection of the a table control variant, field
* selection and authority checks.
CASE s_control-vgart.
WHEN 'WE'. s_action-migo_mode = 'GR'.
WHEN 'WA'.
IF s_control-action = 'A08' or s_control-action = 'A09'.
s_action-migo_mode = 'GT'.
ELSE.
s_action-migo_mode = 'GI'.
ENDIF.
WHEN 'WF'. s_action-migo_mode = 'GO'.
WHEN 'WO'. s_action-migo_mode = 'GS'.
WHEN space. s_action-migo_mode = 'GR'.
WHEN OTHERS. s_action-migo_mode = 'GI'.
ENDCASE.
* If a transfer material document was read by materialdocument_get
* MIGO_MODE has to be 'GT' (only method materialdocument_get can set
* parameter i_transfer).
IF i_transfer = abap_true.
s_action-migo_mode = 'GT'.
ENDIF.
* set accounting VGART for accounting assignment block
CASE s_control-vgart. "431091
WHEN 'WE'. s_control-rw_vorgn = 'RMWE'. "431091 交易业务
WHEN 'WA'. s_control-rw_vorgn = 'RMWA'. "431091
WHEN 'WF'. s_control-rw_vorgn = 'RMWF'. "431091
* additional VGARTs for display material document "431091
WHEN 'WI'. s_control-rw_vorgn = 'RMWI'. "431091
WHEN 'WL'. s_control-rw_vorgn = 'RMWL'. "431091
WHEN 'WO'. s_control-rw_vorgn = 'RMWE'. "431091
WHEN 'WQ'. s_control-rw_vorgn = 'RMWQ'. "431091
WHEN 'WR'. s_control-rw_vorgn = 'RMRU'. "431091
WHEN 'WS'. s_control-rw_vorgn = 'RMRU'. "431091
WHEN 'WZ'. s_control-rw_vorgn = 'RMWA'. "431091
WHEN others. s_control-rw_vorgn = 'RMWA'. "431091
ENDCASE. "431091
* Set the small dependent flags in S_ACTION.
CASE s_control-action.
WHEN 'A01'.
s_action-create = abap_true.
IF s_action-migo_mode = 'GI'.
s_action-issue = abap_true.
ELSE.
s_action-receipt = abap_true.
ENDIF.
WHEN 'A02'.
s_action-create = abap_true.
s_action-return = abap_true.
WHEN 'A03'.
s_action-create = abap_true.
s_action-cancel = abap_true.
WHEN 'A04'.
s_action-display = abap_true.
WHEN 'A05'.
s_action-create = abap_true.
s_action-release = abap_true.
WHEN 'A06'.
s_action-create = abap_true.
s_action-subsequent = abap_true.
WHEN 'A07'.
s_action-create = abap_true.
s_action-issue = abap_true.
WHEN 'A08'.
s_action-create = abap_true.
WHEN 'A09'.
s_action-create = abap_true.
when 'A10'.
s_action-create = abap_true.
s_action-place = abap_true.
WHEN 'A11'.
s_action-create = abap_true.
ENDCASE.
* Set the type of reference document for this combination of
* ACTION and REFDOC.
CASE s_control-refdoc. "381404
WHEN 'R01' OR 'R04' OR 'R05' OR 'R06' OR 'R07'. "381404
* Purchase order, Inbound/Outbound delivery, Transport, TraId.
s_action-refdoctype = c_refdoctype_po. "381404
WHEN 'R02' OR 'R03'. "381404
* Material document, delivery note.
s_action-refdoctype = c_refdoctype_matdoc. "381404
WHEN 'R08'. "381404
* Order. Can be MB31 or goods issue for reservation.
CASE s_control-action. "381404
WHEN 'A01'. "381404
s_action-refdoctype = c_refdoctype_order. "381404
WHEN 'A07'. "381404
s_action-refdoctype = c_refdoctype_reservation. "381404
ENDCASE. "381404
WHEN 'R09'. "381404
* Reservation.
s_action-refdoctype = c_refdoctype_reservation. "381404
WHEN 'R10'. "381404
* No reference document.
s_action-refdoctype = c_refdoctype_none. "381404
ENDCASE. "381404
* Set context for the table control
CALL FUNCTION 'SET_TC_KONTEXT'
EXPORTING
programname = 'SAPLMIGO'
controlname = 'TV_GOITEM'
kontext = s_action-migo_mode. "#EC DOM_EQUAL
* The REFRESH ***after*** the context has been set ensures that the
* R/3 kernel creates the new table control structure using the
* correct settings from that context.
* This refresh has nothing to do with a refresh of the context!
REFRESH CONTROL 'TV_GOITEM' FROM SCREEN '0200'. "354686
* The detail toggler has to use different subscreens for transfer
* postings. Therefore it needs to be updated with the correct screens
* when migo_mode changes.
if s_action-migo_mode = 'GT'.
* To display all tabsprips, the control TS_GOITEM has to be cleared
CLEAR ts_goitem.
call method oref_detail_toggler->screen_set exporting
i_active_dyn = '0303'
i_inactive_dyn = '0302'
i_subscreen_dyn = '0305'
i_subscreen = 'G_DETAIL_SUBSCREEN'.
else.
* To display all tabsprips, the control TS_GOITEM has to be cleared
CLEAR ts_goitem.
call method oref_detail_toggler->screen_set exporting
i_active_dyn = '0301'
i_inactive_dyn = '0302'
i_subscreen_dyn = '0300'
i_subscreen = 'G_DETAIL_SUBSCREEN'.
endif.
def_sms 'MIGO_DETAIL_CARRIER_CHANGE' space space.
ENDIF. "S_CONTROL changed...
* Default values for header data
CALL METHOD header_defaults_set.
* BAdI: MODE SET
IF NOT lcl_migo_globals=>if_badi is initial. "552774
CALL METHOD lcl_migo_globals=>if_badi->mode_set
EXPORTING
i_action = s_control-action
i_refdoc = s_control-refdoc.
ENDIF. "552774
* Send message
def_sms 'KERNEL_MODE_CHANGED' ls_action_old-migo_mode
s_action-migo_mode.
* New 'migo_mode'-depending fieldselection
CALL METHOD screen_modify_mode.
* Get allowed movemtent types (from T158B / MIGO_T156)
CALL METHOD lcl_migo_buffer=>allowed_mvt_get
EXPORTING i_migo_mode = s_action-migo_mode
i_migo_action = s_control-action
IMPORTING et_mvt = lt_mvt.
* Export pt_mvt to memory, because F4-Help for BWART needs it.
EXPORT lt_mvt FROM lt_mvt TO MEMORY ID 'MIGO_MVT'.
ENDMETHOD.
MIGO的屏幕格式是如何来的？(代码摘自：LMIGOSM2)
* CLASS lcl_migo_screenmanager IMPLEMENTATION
METHOD lif_migo_frame~message_handler.
* Set the correct bit in the status data
* Mapping: <status> = 'ABC' with A = Header, B = Table, C = Item
CASE i_message_id.
WHEN 'MIGO_HEADER_TOGGLER_STATUS'. p_status+0(1) = is_message-data2.
WHEN 'MIGO_DETAIL_TOGGLER_STATUS'. p_status+2(1) = is_message-data2.
WHEN 'MIGO_DETAIL_CARRIER_CHANGE'. "new carrier screen with 'old'
"p_status
ENDCASE.
p_status+1(1) = x. "Table always visible
* Choose the appropriate subscreen
IF lcl_migo_globals=>kernel->s_action-migo_mode = 'GT'.
* Transfer posting
g_detail_subscreen = '0305'.
CASE p_status.
WHEN 'XX '. g_screenmanager_dynnr = '0006'.
WHEN 'XXX'. g_screenmanager_dynnr = '0007'.
WHEN ' X '. g_screenmanager_dynnr = '0008'.
WHEN ' XX'. g_screenmanager_dynnr = '0009'.
ENDCASE.
ELSE.
* Normal posting (mode: GI/GR/GS/GO)
g_detail_subscreen = '0300'.
CASE p_status.
WHEN 'XX '. g_screenmanager_dynnr = '0002'.
WHEN 'XXX'. g_screenmanager_dynnr = '0003'.
WHEN ' X '. g_screenmanager_dynnr = '0004'.
WHEN ' XX'. g_screenmanager_dynnr = '0005'.
ENDCASE.
endif.
ENDMETHOD.
