How to create a custom TAB for MIGO Item Details

Dear all, I have implemented a custom tab in MIGO, you can follow the steps.

My requirement was to add a new tab named “Warranty” in MIGO.

Step1 : Create a custom table to store the data of  “Warranty”  tab

 

The first four fields should be the key fields, and the rest fields are your required custom fields.

Step 2: create a structure with the custom field you require on the MIGO.

 

Step 3: open structure GOITEM and append the same custom structure into it as shown below.

 

Step 4: Create another structure and append the table created in Step-1.

 

Step 5:  Create a Table type of the structure created in step-4 as shown below.

 

Step 6: go to SE80 and create a program as shown below. This screen must contain two screen.

 

Step 7: SE19 -> Badi Name: MB_MIGO_BADI

Press Create Impl. Button and create Implementation: ZMIGO_WARRENTY as shown below.

 

Step 8: Create a Class : ZCLASS_MIGO_WARRENTY as shown below.

Step 9: Maintain the following attributes in your Class Interface as shown below.

 

Step 10: Write the following codes for the methods shown below.

 

(a) for    IF_EX_MB_MIGO_BADI~INIT

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

(b) for   IF_EX_MB_MIGO_BADI~PBO_DETAIL

METHOD if_ex_mb_migo_badi~pbo_detail.
DATA: wa_extdata  TYPE zst_warrenty.
DATA :gf_class_id TYPE migo_class_id.
gf_class_id = ‘ZCLASS_MIGO_WARRENTY’.
CHECK i_class_id = gf_class_id.
IF g_no_input IS INITIAL.
e_cprog   = ‘ZSAPMZMM_MIGO_WARENTY’.
e_dynnr   = ‘9001’.                     “External fields: Input
e_heading = ‘Warranty’(001).
ELSE.
e_cprog   = ‘ZSAPMZMM_MIGO_WARENTY’.
e_dynnr   = ‘9002’.                     “External fields: Display
e_heading = ‘Warranty’(001).
ENDIF.
g_line_id = i_line_id.
READ TABLE gt_extdata INTO wa_extdata WITH KEY line_id = g_line_id.
IF sy–subrc = 0 AND wa_extdata–mblnr IS NOT INITIAL AND wa_extdata–mjahr IS NOT INITIAL AND wa_extdata–zeile IS NOT INITIAL.
SELECT SINGLE * FROM ztb_warrenty
CLIENT SPECIFIED INTO CORRESPONDING FIELDS OF wa_extdata
WHERE mandt = sy–mandt
AND   mblnr = wa_extdata–mblnr
AND   mjahr = wa_extdata–mjahr
AND   zeile = wa_extdata–zeile.
SET PARAMETER ID: ‘ZWARANTY’ FIELD wa_extdata–zzwarnt,
‘ZWARBEGD’ FIELD wa_extdata–zzwbegd,
‘ZWARENDD’ FIELD wa_extdata–zzwendd.
ELSE.
SET PARAMETER ID: ‘ZWARANTY’ FIELD space,
‘ZWARBEGD’ FIELD space,
‘ZWARENDD’ FIELD space.
ENDIF.ENDMETHOD.

(c) for    IF_EX_MB_MIGO_BADI~PAI_DETAIL

METHOD if_ex_mb_migo_badi~pai_detail.
e_force_change = ‘X’.ENDMETHOD.

(d) for    IF_EX_MB_MIGO_BADI~LINE_MODIFY

METHOD if_ex_mb_migo_badi~line_modify.
DATA: ls_extdata  TYPE zst_warrenty.
IF cs_goitem–mblnr IS NOT INITIAL AND cs_goitem–mjahr IS NOT INITIAL AND cs_goitem–zeile IS NOT INITIAL.
ls_extdata–line_id  = i_line_id.
ls_extdata–mblnr    = cs_goitem–mblnr.
ls_extdata–mjahr    = cs_goitem–mjahr.
ls_extdata–zeile    = cs_goitem–zeile.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
INSERT ls_extdata INTO TABLE gt_extdata.
ELSE.
ls_extdata–line_id  = i_line_id.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
INSERT ls_extdata INTO TABLE gt_extdata.
ENDIF.ENDMETHOD.

(e) for    IF_EX_MB_MIGO_BADI~RESET

METHOD if_ex_mb_migo_badi~reset.
CLEAR: gt_extdata,
g_no_input,
gs_exdata_header,
g_cancel,
g_line_id.ENDMETHOD.

(f) for    IF_EX_MB_MIGO_BADI~POST_DOCUMENT

METHOD if_ex_mb_migo_badi~post_document.
DATA: wa_warrenty TYPE ztb_warrenty,
it_warrenty TYPE TABLE OF ztb_warrenty,
wa_mseg     TYPE mseg,
wa_extdata  TYPE zst_warrenty.

LOOP AT it_mseg INTO wa_mseg.
READ TABLE gt_extdata INTO wa_extdata WITH KEY line_id = wa_mseg–line_id.
IF sy–subrc = 0.
MOVE-CORRESPONDING wa_mseg TO wa_extdata.
MOVE-CORRESPONDING wa_extdata TO wa_warrenty.
APPEND wa_warrenty TO it_warrenty.
ENDIF.
ENDLOOP.
MODIFY ztb_warrenty FROM TABLE it_warrenty.
ENDMETHOD.

(g) for    IF_EX_MB_MIGO_BADI~CHECK_ITEM

METHOD if_ex_mb_migo_badi~check_item.
DATA: wa_extdata  TYPE zst_warrenty,
ls_bapiret TYPE bapiret2.

READ TABLE gt_extdata INTO wa_extdata WITH TABLE KEY line_id = i_line_id.
IF wa_extdata–zzwarnt IS INITIAL.
ls_bapiret–type       = ‘E’.
ls_bapiret–id         = ‘M7’.
ls_bapiret–number     = ‘895’.
ls_bapiret–message_v1 = ‘Enter warranty condition’(002).
APPEND ls_bapiret TO et_bapiret2.
ENDIF.
IF wa_extdata–zzwarnt = ‘YES’ AND ( wa_extdata–zzwbegd IS INITIAL OR wa_extdata–zzwendd IS INITIAL OR ( wa_extdata–zzwbegd GT wa_extdata–zzwendd ) ).
ls_bapiret–type       = ‘E’.
ls_bapiret–id         = ‘M7’.
ls_bapiret–number     = ‘895’.
ls_bapiret–message_v1 = ‘Enter appropriate warranty Start and End date’(003).
APPEND ls_bapiret TO et_bapiret2.
ENDIF.
ENDMETHOD.

(h) for    IF_EX_MB_MIGO_BADI~MODE_SET

METHOD if_ex_mb_migo_badi~mode_set.
CLEAR : g_no_input.
IF i_action = ‘A04’ .
g_no_input = ‘X’.
ENDIF.

IF i_action = ‘A03’.
g_cancel = ‘X’.
ENDIF.ENDMETHOD.

Note: Leave the other Methods blank. Do not write any thing in that.

Step 11: Open MIGO , you will be able to see the new tab “WARRANTY” as shown below.

 

The system will store the data of your custom screen into the table created in Step-1.

Thanks

Debdutta Satpathy