Radio button (AT Selection Screen Output)

 

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE TEXT-005.
  PARAMETERS:r_march RADIOBUTTON GROUP g1 USER-COMMAND usr DEFAULT 'X',
             r_mardh RADIOBUTTON GROUP g1,
             r_mslbh RADIOBUTTON GROUP g1,
             r_mskuh RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b5.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS:s_matnr1 FOR march-matnr MODIF ID a1,
                 s_werks1 FOR march-werks MODIF ID a1,
                 s_lfgja1 FOR march-lfgja MODIF ID a1,
                 s_lfmon1 FOR march-lfmon MODIF ID a1.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
  SELECT-OPTIONS:s_matnr2 FOR mardh-matnr MODIF ID a2,
                 s_werks2 FOR mardh-werks MODIF ID a2,
                 s_lfgja2 FOR mardh-lfgja MODIF ID a2,
                 s_lfmon2 FOR mardh-lfmon MODIF ID a2.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE TEXT-003.
  SELECT-OPTIONS:s_matnr3 FOR mslbh-matnr MODIF ID a3,
                 s_werks3 FOR mslbh-werks MODIF ID a3,
                 s_sobkz3 FOR mslbh-sobkz MODIF ID a3 DEFAULT 'O' NO INTERVALS NO-EXTENSION,
                 s_lfgja3 FOR mslbh-lfgja MODIF ID a3,
                 s_lfmon3 FOR mslbh-lfmon MODIF ID a3.
SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE TEXT-004.
  SELECT-OPTIONS:s_matnr4 FOR mskuh-matnr MODIF ID a4,
                 s_werks4 FOR mskuh-werks MODIF ID a4,
                 s_sobkz4 FOR mskuh-sobkz MODIF ID a4 DEFAULT 'W' NO INTERVALS NO-EXTENSION,
                 s_lfgja4 FOR mskuh-lfgja MODIF ID a4,
                 s_lfmon4 FOR mskuh-lfmon MODIF ID a4.
SELECTION-SCREEN END OF BLOCK b4.


AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF r_march = 'X' AND screen-group1 = 'A1'.
      screen-active = 1.
      MODIFY SCREEN.
    ELSEIF r_march = ' ' AND screen-group1 = 'A1'.
      screen-active = 0.
      MODIFY SCREEN.
    ELSEIF r_mardh = 'X' AND screen-group1 = 'A2'.
      screen-active = 1.
      MODIFY SCREEN.
    ELSEIF r_mardh = ' ' AND  screen-group1 = 'A2'.
      screen-active = 0.
      MODIFY SCREEN.
    ELSEIF r_mslbh = 'X' AND screen-group1 = 'A3'.
      screen-active = 1.
      MODIFY SCREEN.
    ELSEIF r_mslbh = ' ' AND  screen-group1 = 'A3'.
      screen-active = 0.
      MODIFY SCREEN.
    ELSEIF r_mskuh = 'X' AND screen-group1 = 'A4'.
      screen-active = 1.
      MODIFY SCREEN.
    ELSEIF r_mskuh = ' ' AND  screen-group1 = 'A4'.
      screen-active = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

Comments

Post a Comment

Popular posts from this blog

CDS Views: Table Functions with Example

Image
1.Which supports the additional functionalities which are not supported by CDS. 2.SQL statements will written and will use SQL functions and methodologies. 3.Table function has optional input parameters and return parameters. 4.Needs class and method to define. -Class:Public, Method:Static 5.The statement Interface:IF_AMDP_MARKER_HDB must be use. 1.Creation of Table Function: Create a Data Definition and select template 'Define Table Function with Parameters' @EndUserText.label: 'Prod Order TF' define table function ZVB_TF_PROD_ORD //with parameters parameter_name : parameter_type returns { client : abap . clnt ; Prod_order : aufnr ; order_type : auart ; } implemented by method zvb_class_tf => get_ord_details ;   2.Creation of Class: CLASS zvb_class_tf DEFINITION PUBLIC . PUBLIC SECTION. CLASS-METHODS: get_ord_details FOR TABLE FUNCTION ZVB_TF_PROD_ORD . INTERFACES: IF_AMDP_MARKER_HDB . PROTECTED SECTION. PRIVATE SECTION. ENDCLASS. ...
Read more

Passing Dynamic Variables to SO10 TEXT

REPORT  ZTEST_POPUP . PARAMETERS : A  TYPE  i ,  B  TYPE  i . DATA:  C TYPE  i ,       lv_text  TYPE  string , C  =  A + B .   data : it_final  TYPE  TABLE  OF  tline . DATA : CHANGED  TYPE  STRING . CALL  FUNCTION  'READ_TEXT'    EXPORTING     CLIENT                         =  SY - MANDT      id                             =  'ST'      language                       =  SY - LANGU  ...
Read more

Adobe Form/PDF Form Introduction

  Introduction: ·        Adobe forms are interactive smartforms. ·       We can interact with the layout of the adobe forms. ·        Adobe forms provides the output in the form of PDF. ·        T-code for Adobe form id SFP. ·        In Adobe form, we need to create an interface, the same interface can be used in multiple adobe forms. ·        Adobe form also generates a function at runtime. ·        Adobe life cycle designer(ADLC) is required to design the adobe form layout. Difference b/w smart form and adobe form: ·        Smart forms are not interactive whereas adobe forms are interactive. ·        In Smart forms the form interface, global definitions, pages, windows are all together whereas in A...
Read more