How to set Custom screen in ME21N when Payment Terms as particular value ?

Question

Dear ABAP Experts,
                                     I created one Custom Tab under Header level in me21n using screen exit MM06E005.
                 It's working fine. but  My requirement is, whenever  user will select Payment term as '0001' in Delivery / Invoice Tab then my Custom tab will open in ME21N t-code . My Custom tab will have different input fields which are entered manually, those values will store in Custom table(Z-table) when the user  press save button.
So, How to do this?

Answer 1

Hi,
The ME2xN transactions reads the user settings from table ESDUS using function module ES_READ_USER_SETTINGS, and save them at the end of the transaction using function module ES_APPEND_USER_SETTINGS.
You need to overwrite the displayed header tab number using  ES_APPEND_USER_SETTINGS just at the beginning of the transaction. I think that a godd point to do this is in the subroutine INIT_TRANSACTION of report RM_MEPO_GUI. You can do this using the enhacement framework. I have tested it and it works for me. This is the code you should insert:
FORM init_transaction CHANGING ch_document        TYPE mepo_document
                               ch_exit            TYPE mmpur_bool
                               ch_requisitions    TYPE mereq_t_eban_mem
                               ch_requisition_acc TYPE mereq_t_ebkn.
"""""""""""""""""""""""""""""$"$\SE:(1 ) Forma INIT_TRANSACTION, Inicio                                                                                D
*$*$-Start: (1 )-----------------------------$*$*
ENHANCEMENT 1  ZTEST.    "active version
*Expand header------
    CALL FUNCTION 'ES_APPEND_USER_SETTINGS'
      EXPORTING
        iaction  = 'PurchaseOrder'
        ielement = 'DYN_4000-BUTTON     TOGGLE_STATE'
        iactive  = '2'.
*Move to 2nd tab ----
    CALL FUNCTION 'ES_APPEND_USER_SETTINGS'
      EXPORTING
        iaction  = 'PurchaseOrder'
        ielement = 'HEADER-TABSTRIP     SUBVIEW_INDEX'
        iactive  = '2'.
ENDENHANCEMENT.
*$*$-End:   (1 )-----------------------------$*$*
  DATA: l_ebeln  TYPE ekko-ebeln,
        l_ebelp  TYPE ekpo-ebelp,