New Tab Data need to be Saved in Me22n

Question

Hi All,
I ading a new Tab in Me22n T-code in the Item level and the tab name is Date.
The scenario is like that in the date I created 4 fields there are 1) Expected Production Date
2)Expected Shipping Date Remaning 3)Actual Production Date  and 4)Actual Shiped Date
Now when ever the date chosen from the above 4 fields and click on save then date must me saved.
I have used 2 badi's for this functionality, but i'm not able to get the exact code to save the date.
Below is my Code:
Code1:
method IF_EX_ME_GUI_PO_CUST~SUBSCRIBE.
if sy-uname eq 'ZDEVELOP'.
  DATA: ls_subscriber LIKE LINE OF re_subscribers.
To add a customer subscreen on the item detail tab
  CHECK im_application = 'PO'.
  CHECK im_element     = 'ITEM'.
each line in re_subscribers generates a subscreen.  added one subscreen in this example
  CLEAR re_subscribers[].
the name is a unique identifier for the subscreen and defined in this class definition
  ls_subscriber-name = SUBSCREEN1.
the dynpro number to use
  ls_subscriber-dynpro = '9000'.
the program where the dynpro can be found
  ls_subscriber-program = 'SAPLZMMPR_CUSTFIELD'.
each subscreen needs his own DDIC-Structure
  ls_subscriber-struct_name = 'ZMMPR_DATES'.
a label can be defined
  ls_subscriber-label = 'DATES'. "text-001.
the position within the tabstrib can be defined
  ls_subscriber-position = 13.
the height of the screen can be defined here. Currently we suport two screen sizes:
value <= 7 a sevel line subscreen
value > 7  a 16 line subscreen
  ls_subscriber-height = 7.
  APPEND ls_subscriber TO re_subscribers.
endif.
endmethod.
code2:
method IF_EX_ME_PROCESS_PO_CUST~FIELDSELECTION_ITEM.
if sy-uname eq 'ZDEVELOP'.
  TYPE-POOLS: mmmfd.
DATA: l_persistent TYPE mmpur_bool.
  FIELD-SYMBOLS: <fs> LIKE LINE OF ch_fieldselection.
  READ TABLE ch_fieldselection ASSIGNING <fs> WITH TABLE KEY metafield = mmmfd_cust_01.
  IF sy-subrc IS INITIAL.
    <fs>-fieldstatus = '+'. " editable
  ENDIF.
    READ TABLE ch_fieldselection ASSIGNING <fs> WITH TABLE KEY metafield = mmmfd_cust_02.
  IF sy-subrc IS INITIAL.
    <fs>-fieldstatus = '+'. " editable
  ENDIF.
    READ TABLE ch_fieldselection ASSIGNING <fs> WITH TABLE KEY metafield = mmmfd_cust_03.
  IF sy-subrc IS INITIAL.
    <fs>-fieldstatus = '+'. " editable
  ENDIF.
    READ TABLE ch_fieldselection ASSIGNING <fs> WITH TABLE KEY metafield = mmmfd_cust_04.
  IF sy-subrc IS INITIAL.
    <fs>-fieldstatus = '+'. " editable
  ENDIF.
endif.
endmethod.
Kindly, provide some code to save the date.

Answer 1

Hi Venky,
i was worked with this requirement. try this:
take a enhancement:MM06E005, here u have screen exits, function exits and include tables.
1. add your customized fields to : CI_EKKODB  and CI_EKPODB Structurs
2. add ur new tab in screen numb: 111, keep all fileds in under on group.
3. write code at PBO and PAI for 111 screen
4. implemente the code at this function exists: exit_sapmm06e_006, exit_sapmm06e_008, exit_sapmm06e_012.
exit_sapmm06e_016
5.pass your screeen fileds data to DB in exit_sapmm06e_018
thanks
kallam