REPORT z_at_select_screen.
TABLES:makt.

DATA :vg_maktx TYPE makt-maktx.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS :
  p_matnr TYPE mara-matnr.
SELECTION-SCREEN END OF BLOCK   b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
SELECT-OPTIONS:
  s_outpu FOR makt-matnr MODIF ID gr1 NO INTERVALS.
SELECTION-SCREEN END OF BLOCK   b2.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_matnr.
  BREAK-POINT.
  PERFORM z_select_makt.

AT SELECTION-SCREEN ON HELP-REQUEST FOR p_matnr.
  BREAK-POINT.
  PERFORM z_help_matnr.


AT SELECTION-SCREEN OUTPUT.
  BREAK-POINT.
  PERFORM z_trata_tela.


START-OF-SELECTION.
  BREAK-POINT.



*&---------------------------------------------------------------------*
*&      Form  Z_SELECT_MAKT
*&---------------------------------------------------------------------*
FORM z_select_makt .

  SELECT SINGLE maktx
    FROM makt
    INTO vg_maktx
    WHERE matnr = p_matnr
      AND spras = sy-langu
    .

ENDFORM.                    " Z_SELECT_MAKT

*&---------------------------------------------------------------------*
*&      Form  Z_help_MATNR
*&---------------------------------------------------------------------*
FORM z_help_matnr .

  MESSAGE 'F1 Help' TYPE 'I'.

ENDFORM.                    " Z_help_MATNR

*&---------------------------------------------------------------------*
*&      Form  Z_TRATA_TELA
*&---------------------------------------------------------------------*
FORM z_trata_tela .

  LOOP AT SCREEN.
    IF screen-group1 = 'GR1'.
      screen-intensified = '1'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

ENDFORM.                    " Z_TRATA_TELA



Serkan AKKAVAK
Computer Engineer
serkurumsal@yandex.com