DYNP_VALUES_UPDATE 實時更新 Selection Screen

zjut_xiongfeng

DYNP_VALUES_UPDATE 實時更新 Selection Screen在 AT SELECTION-SCREEN 事件中更新 PARAMETER 或 SELECT-OPTIONS 的數值時，當前的畫面並不會立即更新，要按 Enter 之後才會顯示最新數值。以下代碼是用 DYNP_VALUES_UPDATE 實現實時更新。(1) 觸發 AT SELECTION-SCREEN ON VALUE-REQUEST FOR XXX.(2) REUSE_ALV_POPUP_TO_SELECT 彈出選單，Double Click 以選擇目標。(3) 立即更新已選的兩個數值。DYNP_VALUES_UPDATE – Update the Selection Screen dynamicallyREPORT ztest.TYPE-POOLS: slis.*----------------------------------------------------------------------**        T A B L E S*----------------------------------------------------------------------**----------------------------------------------------------------------**        T Y P E S*----------------------------------------------------------------------** Main internal table for processTYPES: BEGIN OF ty_bwart,  zeile TYPE mseg-zeile,  bwart TYPE mseg-bwart,  sobkz TYPE mseg-sobkz,  rmtxt TYPE string,END OF ty_bwart.*----------------------------------------------------------------------**        I N T E R N A L   T A B L E*----------------------------------------------------------------------*DATA: t_bwart         TYPE ty_bwart  OCCURS 0 WITH HEADER LINE.*----------------------------------------------------------------------**        W O R K I N G   A R E A S                                     **----------------------------------------------------------------------*DATA: w_bwart           TYPE ty_bwart.*----------------------------------------------------------------------**        S E L E C T I O N  -  S C R E E N*----------------------------------------------------------------------*SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE c_title.PARAMETER: p_bwart LIKE mseg-bwart OBLIGATORY, "MOV Type           p_sobkz LIKE mseg-sobkz.            "Special StockSELECTION-SCREEN SKIP 1.SELECTION-SCREEN END OF BLOCK b1.*----------------------------------------------------------------------**        L O A D - O F - P R O G R A M*----------------------------------------------------------------------*LOAD-OF-PROGRAM.*----------------------------------------------------------------------**        I N I T I A L I Z A T I O N*----------------------------------------------------------------------*INITIALIZATION.  c_title = 'DYNP_VALUES_UPDATE Demo'.  t_bwart-bwart = '322'.  t_bwart-sobkz = ''.  t_bwart-rmtxt = 'Unrest. Use > QI (WH stock)'.  APPEND t_bwart.  t_bwart-bwart = '344'.  t_bwart-sobkz = 'K'.  t_bwart-rmtxt = 'Unrest. Use > Blocked (Consignment)'.  APPEND t_bwart.  t_bwart-bwart = '321'.  t_bwart-sobkz = ''.  t_bwart-rmtxt = 'QI > to Unrest. Use (WH stock)'.  APPEND t_bwart.  t_bwart-bwart = '350'.  t_bwart-sobkz = 'E'.  t_bwart-rmtxt = 'QI > Blocked (SO stock)'.  APPEND t_bwart.  t_bwart-bwart = '350'.  t_bwart-sobkz = 'K'.  t_bwart-rmtxt = 'QI > Blocked (Consignment)'.  APPEND t_bwart.*----------------------------------------------------------------------**        A T   S E L E C T I O N  -  S C R E E N*----------------------------------------------------------------------*AT SELECTION-SCREEN. "ON VALUE-REQUEST FOR P_LAYOUT.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bwart.  DATA l_selfield TYPE slis_selfield.  DATA: wa_fcat TYPE slis_fieldcat_alv,        fcat TYPE slis_t_fieldcat_alv.  "Field Cat. for Error Message Display  CLEAR wa_fcat.  wa_fcat-row_pos   = '1'.  wa_fcat-col_pos   = '1'.  wa_fcat-fieldname = 'BWART'.  wa_fcat-tabname   = 'T_BWART'.  wa_fcat-seltext_m = 'Movement'.  wa_fcat-outputlen = 5.  APPEND wa_fcat TO fcat.  CLEAR wa_fcat.  wa_fcat-row_pos   = '1'.  wa_fcat-col_pos   = '2'.  wa_fcat-fieldname = 'SOBKZ'.  wa_fcat-tabname   = 'T_BWART'.  wa_fcat-seltext_m = 'Spec.Stk.'.  wa_fcat-outputlen = 5.  APPEND wa_fcat TO fcat.  CLEAR wa_fcat.  wa_fcat-row_pos   = '1'.  wa_fcat-col_pos   = '3'.  wa_fcat-fieldname = 'RMTXT'.  wa_fcat-tabname   = 'T_BWART'.  wa_fcat-seltext_m = 'Description'.  wa_fcat-outputlen = 50.  APPEND wa_fcat TO fcat.  CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'          EXPORTING            i_selection          = 'X'            i_zebra              = 'X'            it_fieldcat          = fcat            i_tabname            = 'T_BWART'*              I_CHECKBOX_FIELDNAME = 'CHECKBOX'          IMPORTING            es_selfield          = l_selfield          TABLES            t_outtab             = t_bwart.  IF l_selfield-tabindex GT 0.    CLEAR w_bwart.    READ TABLE t_bwart INDEX l_selfield-tabindex INTO w_bwart.    IF w_bwart-bwart IS NOT INITIAL.      DATA: ltab_fields LIKE dynpread OCCURS 0 WITH HEADER LINE.      DATA: lc_dyname LIKE sy-repid.      DATA: lc_dynumb LIKE sy-dynnr.      lc_dyname = sy-repid.      lc_dynumb = sy-dynnr.      ltab_fields-fieldname  = 'P_BWART'.      ltab_fields-fieldvalue = w_bwart-bwart.      APPEND ltab_fields.      ltab_fields-fieldname  = 'P_SOBKZ'.      ltab_fields-fieldvalue = w_bwart-sobkz.      APPEND ltab_fields.      CALL FUNCTION 'DYNP_VALUES_UPDATE'        EXPORTING          dyname     = lc_dyname          dynumb     = lc_dynumb        TABLES          dynpfields = ltab_fields        EXCEPTIONS          OTHERS     = 8.    ENDIF.  ENDIF.http://w1ng.hk/dynp_values_update-update-selection/