Add zfield on headerlevel

Question

Dear Abap Experts,
the requirement is to add a zfield (zdate) on headerlevel into the tabstrip 'Additional Data' at T-code ME21N (Create Purchase Order). Privously it was easier to implement such requirements through USER EXIT MM06E005.
But with the new T-code ME21N i have no idea how to do that.
I have added a field in the structure MEPO1229 in order to see whether it is visible within t-code ME21N since other fields
are defined right in this structure too. It was unsuccessful .
Later the field vale which has been enteren must be inserted into EKKO-zdate.
Can you please tell me the procedured to achieve this ?
Regards
MArco M.

Answer 1

Hi Marco,
Please find the sample code below.
  INCLUDE LXM06F36                                                   *
store transaction type for later modification of screen attributes
gl_aktyp = i_trtyp.
gl_no_screen = i_no_screen.
store current state of customer data in ekko_ci (structure for screen)
ekko_ci  = i_ci_ekko.
store reference document
if i_rekko-ebeln ne gl_rekko-ebeln and
   not i_rekko-ebeln is initial    and
   gl_rekko-ebeln is initial.
   ekko_ci-zzflag = i_rekko-zzflag.
   gl_rekko = i_rekko.
endif.
  INCLUDE LXM06F37                                                   *
e_ci_ekko is the returning parameter
gl_ekko_ci : values stored at PBO
e_ci_ekko        = gl_ekko_ci.
ekko_ci contains the actual values of the Dynpro fields
e_ci_update is only set if you really want the fields
on the Dynpro to be saved. You must set it then to 'X'
the field ekko_ci-zzflag will here only be saved if there
was a change and the transaction is not in display mode
if gl_ekko_ci-zzflag ne ekko_ci-zzflag.
  e_ci_ekko-zzflag = ekko_ci-zzflag.
  if gl_aktyp ne 'A'.
    e_ci_update = 'X'.
  endif.
endif.
  INCLUDE LXM06F38                                                   *
store ekko to gl_ekko
move-corresponding i_ekko to gl_ekko_ci.
  INCLUDE LXM06F39                                                   *
clear: ekko_ci,
       ekpo_ci,
       gl_no_screen,
       gl_aktyp,
       gl_ekko_ci,
       gl_rekko,
       gl_ekpo,
       gl_ucomm.
refresh: gt_ref_ekpo_tab.
  INCLUDE LXM06F40                                                   *
move stored global values back to the returning structure
e_ci_ekpo        = gl_ekpo_ci.
in case the Button was clicked the value of ekpo_ci-zzfield
will be taken from the copied PO
if i_ucomm = 'ZZDETERMINE'.
  data: ls_ref_ekpo like line of gt_ref_ekpo_tab.
gt_ref_ekpo_tab contains all positions of the copied PO
  read table gt_ref_ekpo_tab into ls_ref_ekpo
      with key ebelp = gl_ekpo-ebelp.
  if sy-subrc is initial.
    ekpo_ci-zzfield = ls_ref_ekpo-ekpo-zzfield.
  endif.
else.
return the function code of the Screen. This code will be handled
in the SAP program. It can only be handled if you use SAP function
codes
  e_ucomm = i_ucomm.
endif.
ekko_ci contains the actual values of the Dynpro fields
e_ci_update is only set if you really want the fields
on the Dynpro to be saved. You must set it then to 'X'
the field ekko_ci-zzfield will here only be saved if there
was a change and the transaction is not in display mode
if gl_ekpo_ci-zzfield ne ekpo_ci-zzfield.
  e_ci_ekpo-zzfield = ekpo_ci-zzfield.
  if gl_aktyp ne 'A'.
    e_ci_update = 'X'.
  endif.
endif.
  INCLUDE LXM06F41                                                   *
data: ls_ref_ekpo like line of gt_ref_ekpo_tab.
store transaction type for later modification of screen attributes
gl_aktyp = i_aktyp.
gl_no_screen = i_no_screen.
store current state of customer data in ekko_ci (structure for screen)
ekpo_ci  = i_ci_ekpo.
gl_ekpo = i_ekpo.
if not i_rekpo-ebeln is initial and
   not i_ekpo-ebelp is initial.
  clear ls_ref_ekpo.
  read table gt_ref_ekpo_tab into ls_ref_ekpo
      with key ebelp = i_ekpo-ebelp.
  if ls_ref_ekpo-ekpo-ebeln ne i_rekpo-ebeln and
     ls_ref_ekpo-ekpo-ebelp ne i_rekpo-ebelp.
     ls_ref_ekpo-ebelp = i_ekpo-ebelp.
     ls_ref_ekpo-ekpo = i_rekpo.
     if sy-subrc is initial.
       modify gt_ref_ekpo_tab from ls_ref_ekpo index sy-tabix.
     else.
       append ls_ref_ekpo to gt_ref_ekpo_tab.
     endif.
  endif.
endif.
  INCLUDE LXM06F42                                                   *
move-corresponding i_ekpo to gl_ekpo_ci.
gl_ekpo = i_ekpo.
Also refer SAP Notes 0000206043, 0000407975 and 000040801.
If you still face the problems, please let me know.
Regards,
Anil Salekar