Po enhancement thro badi

Question

Hi experts,
I have implemented me_gui_po_cust and me_process_po_cust to get a new tab in po screen header.i am getting the tab.
problem is its not getting saved in ekko table.
subscibe method
  DATA: ls_subscriber LIKE LINE OF re_subscribers.
  CHECK im_application = 'PO'.
  CHECK im_element     = 'HEADER'.
  CLEAR re_subscribers[].
  ls_subscriber-name = subscreen.
  ls_subscriber-dynpro = '0001'.
  ls_subscriber-program = 'SAPLZMM_FUNCGROUP'.
ls_subscriber-struct_name = 'ZPO_CUSTOMFIELDS'.
  ls_subscriber-struct_name = 'CI_EKKODB'.
  ls_subscriber-label = text-001.
  ls_subscriber-position = 13.
  ls_subscriber-height = 8.
  APPEND ls_subscriber TO re_subscribers.
METHOD if_ex_me_gui_po_cust~map_dynpro_fields. 
FIELD-SYMBOLS: <mapping> LIKE LINE OF ch_mapping.
INCLUDE MM_MESSAGES_MAC.
TYPE-POOLS: MMMFD.
  LOOP AT ch_mapping ASSIGNING <mapping>.
    CASE <mapping>-fieldname.
      WHEN 'ZTENDER'.
        <mapping>-metafield = mmmfd_cust_05.
      WHEN 'ZEMDAPPLICABLE'.
        <mapping>-metafield = mmmfd_cust_06.
      WHEN 'ZPBGAPPLICABLE'.
        <mapping>-metafield = mmmfd_cust_07.
      WHEN 'ZEMDAMOUNT'.
        <mapping>-metafield = mmmfd_cust_08.
      WHEN 'ZEMDVALIDITY'.
        <mapping>-metafield = mmmfd_cust_09.
    ENDCASE.
  ENDLOOP.
ENDMETHOD.
METHOD if_ex_me_gui_po_cust~transport_from_model.
  DATA:     l_header  TYPE REF TO if_purchase_order_mm,
            ls_mepoheader  TYPE mepoheader,
            ls_customer TYPE ci_ekkodb.
            ls_customer TYPE ekko.
BREAK-POINT.
  CASE im_name.
    WHEN subscreen.
      mmpur_dynamic_cast l_header im_model.
      CHECK NOT l_header IS INITIAL.
     ls_customer = l_header->get_data( ).
      ls_mepoheader = l_header->get_data( ).
      CALL FUNCTION 'ZMM_GET_DATA'
        EXPORTING
          im_ebeln       = ls_mepoheader-ebeln
           im_ebelp       = ls_mepoheader-ebelp
       IMPORTING
         ex_data        = ls_customer .
      MOVE-CORRESPONDING ls_mepoheader TO dynp_data_pbo.
      MOVE ls_customer-ztender TO dynp_data_pbo-ztender.
      MOVE ls_customer-zemdapplicable TO dynp_data_pbo-zemdapplicable.
      MOVE ls_customer-zpbgapplicable TO dynp_data_pbo-zpbgapplicable.
      MOVE ls_customer-zemdamount TO dynp_data_pbo-zemdamount.
      MOVE ls_customer-zemdvalidity TO dynp_data_pbo-zemdvalidity.
    WHEN OTHERS.
  ENDCASE.
ENDMETHOD.
METHOD if_ex_me_gui_po_cust~transport_to_dynp.
  CASE im_name.
    WHEN subscreen.
      CALL FUNCTION 'ZMM_PUSH'
        EXPORTING
          im_dynp_data = dynp_data_pbo.
    WHEN OTHERS.
  ENDCASE.
ENDMETHOD.
method IF_EX_ME_GUI_PO_CUST~TRANSPORT_FROM_DYNP.  
CASE im_name.
  WHEN subscreen.
  CALL FUNCTION 'ZMM_POP'
   IMPORTING
     ex_dynp_data = dynp_data_pai.
  IF dynp_data_pai NE dynp_data_pbo.
     re_changed = mmpur_yes.
   ENDIF.
   WHEN OTHERS.
    ENDCASE.
endmethod.
METHOD if_ex_me_gui_po_cust~transport_to_model.
  DATA: l_header TYPE REF TO if_purchase_order_mm,
        ls_mepoheader TYPE mepoheader,
     ls_customer TYPE ekko,
        l_po_header_handle   TYPE REF TO cl_po_header_handle_mm.
  CASE im_name.
    WHEN subscreen.
      mmpur_dynamic_cast l_header im_model.
      CHECK NOT l_header IS INITIAL.
      ls_mepoheader = l_header->get_data( ).
      IF dynp_data_pbo-ztender NE dynp_data_pai-ztender
        OR dynp_data_pbo-zemdapplicable NE dynp_data_pai-zemdapplicable
        OR dynp_data_pbo-zpbgapplicable NE dynp_data_pai-zpbgapplicable
        OR dynp_data_pbo-zemdamount NE dynp_data_pai-zemdamount
        OR dynp_data_pbo-zemdvalidity NE dynp_data_pai-zemdvalidity.
        ls_mepoheader-ztender = dynp_data_pai-ztender.
        ls_mepoheader-zemdapplicable = dynp_data_pai-zemdapplicable.
        ls_mepoheader-zpbgapplicable = dynp_data_pai-zpbgapplicable.
        ls_mepoheader-zemdamount = dynp_data_pai-zemdamount.
        ls_mepoheader-zemdvalidity = dynp_data_pai-zemdvalidity.
                 CALL METHOD l_header->set_data
          EXPORTING
            im_data = ls_mepoheader.
              ENDIF.
    WHEN OTHERS.
  ENDCASE.
ENDMETHOD.
please guide me if anybody has solved this isuue already.in transport_to_model changes are updated to ls_header.but after this it goes to transport_from model.here ls_header is again populated by this stmt
ls_header = l_header->get_data.
after this ls_header doesnot have have any custom field values.

Answer 1

Hi,
Thanks for your reply.I implemented me_gui_po_cust and me_process_po_cust .i followed the sample code of both the badi's.
data is getting saved in ztable which has all my custom fields.i want to save it in ci_ekkodb customer include in ekko table.
Thanks in advance.
Kavitha