selection screen

 

https://www.youtube.com/watch?v=BXtn6jUheNY&list=PL-9XBzq-UEp4OBpdluj4NIoDqurXErLmk&index=63

*&---------------------------------------------------------------------*
*& Report ZCOMPLEX_SELECTIONSCREEN
*&---------------------------------------------------------------------*
*&  BUTTONS DONT WORK AND DONT HIDE
*&---------------------------------------------------------------------*
REPORT zcomplex_selectionscreen.

TABLES: sflight, scarr.
DATA: BEGIN OF ipgmi OCCURS 0,
        fldate   TYPE sflight-fldate,
        price    TYPE sflight-price,
        currency TYPE sflight-currency,
      END OF ipgmi.

DATA: wpgmi LIKE LINE OF ipgmi.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t01.
"select options with obligatory param
SELECT-OPTIONS: price FOR sflight-price OBLIGATORY MODIF ID ob.

PARAMETERS: carrname LIKE scarr-carrname DEFAULT 'Boeing'.
"define radiobut
PARAMETERS: s1 RADIOBUTTON GROUP g1,
            s2 RADIOBUTTON GROUP g1,
            s3 RADIOBUTTON GROUP g1.

SELECTION-SCREEN END OF BLOCK b1.













SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-t02.
"define radiobuttons
PARAMETERS: s4 RADIOBUTTON GROUP g2,
            s5 RADIOBUTTON GROUP g2.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE TEXT-t03.
"define radiobuttons
PARAMETERS: s6 RADIOBUTTON GROUP g3 USER-COMMAND radyo,
            s7 RADIOBUTTON GROUP g3.

"define checkboxes
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_ch1 AS CHECKBOX MODIF ID sl.
"define screen text
SELECTION-SCREEN COMMENT 3(20)  TEXT-001 MODIF ID sl.
PARAMETERS p_ch2 AS CHECKBOX MODIF ID sl.
SELECTION-SCREEN COMMENT 27(20) TEXT-002 MODIF ID sl.
PARAMETERS p_ch3 AS CHECKBOX MODIF ID sl.
SELECTION-SCREEN COMMENT 51(20) TEXT-003 MODIF ID sl.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.

TYPE-POOLS icon.
DATA functxt TYPE smp_dyntxt.

"add buttons to screen
SELECTION-SCREEN: FUNCTION KEY 1,
FUNCTION KEY 2.

INITIALIZATION.
  s7 = 'X'.
  functxt-icon_id = icon_alarm.
  functxt-quickinfo = 'alarm'.
  functxt-icon_text = 'alarm'.
  scarr-carrname = functxt.
  scarr-currcode = '777'.

AT SELECTION-SCREEN.
    CASE scarr-currcode.
      WHEN '777'.
        write: 'OSOZNAN'.
      WHEN '888'.
        write: 'SPOKOEN'.
      WHEN OTHERS.
    ENDCASE.

  AT SELECTION-SCREEN OUTPUT.
    PERFORM checkradio.

  START-OF-SELECTION.
    perform getdata.




FORM checkradio.
  LOOP AT SCREEN.
    "hide  show object
    IF s6 = 'X'.
      IF screen-group1 = 'sl'.
        screen-active = 1.
      ENDIF.
    ELSEIF s6 = 'X'.

      IF screen-group1 = 'sl'.
        screen-active = 0.
      ENDIF.
    ENDIF.

    "display blue
    IF screen-group1 = 'OB'.
      screen-intensified = '1'.
    ENDIF.

    "display an object
    IF screen-name = 'S5'.
      screen-input = 0.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GETDATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM getdata .
"add code to select data
ENDFORM.