User must fill at list one field in a selection screen in report

Hi experts,
i have a report that the user should choose between 2 fields or he can fill them both. but he must to fill at list one of them- at the selection screen.
how do i check that the user filled at list one of them.
any help will be appreciate it.
dana.

Hi ,
You can check that in AT SELECTION-SCREEN event.
To validate that in the IF condition check whether any one of the parameters
filled or not.If both the fields are initial then give a error message to proceed further.
Check the code -
PARAMETERS : p_name(20) TYPE c,
p_id(10) TYPE c.
AT SELECTION-SCREEN.
IF p_name IS INITIAL AND p_id IS INITIAL .
MESSAGE 'Enter at least one field' TYPE 'E'.
ENDIF.
START-OF-SELECTION.
WRITE 'Test'.
Regards
Pinaki

Similar Messages

REPORT PAINTER - Add a field to a selection screen - custom report

Hi,
I'm trying to add a field to a selection screen to a CUSTOM REPORT that has been made in REPORT PAINTER (Y_DVL_xxxxxxx). How should I proceed to do so?
Thanks a lot,
Julien

Hi Julien Girard ,
Could you please check the below link :
http://help.sap.com/saphelp_erp2005/helpdata/en/56/32e339b62b3011e10000000a11402f/frameset.htm
Regards,
S.Manu.

Choose fields option in Selection Screen of report program.

Hi Experts,
      Actually In my requirement , the user wants to display the output fields in ALV Grid and also in Block ALV format.They need 10 fields to be displayed by default and the additional fields has to be displayed based on the choose fields option
( i.e like SE11 choose fields option ) provided in the selection screen of this report program.So based on this the output has to be displayed.
Pls suggest ur ideas.....
Thanks in advance.
Regards,
Srinivas.

Hi ,
The following code will be helpful for your requirement...
REPORT ypm_hist_dyn.
*              T Y P E - P O O L S                *
TYPE-POOLS: slis.
*                   T Y P E S                     *
TYPES :   BEGIN OF t_equz,
            datbi TYPE datbi,     " Valid To Date
            equnr TYPE equnr,     " Equipment Number
            erdat TYPE erdat,     " Date on Which Record Was Created
            aedat TYPE aedat,    " Changed On
            iloan TYPE iloan,     " Location and account assignment for technical object
            gewrk TYPE lgwid,     " Object ID of the Work Center
            ingrp TYPE ingrp,      " Planner Group for Customer Service and Plant Maintenance
         END OF t_equz,
           BEGIN OF t_equz1,
             datbi TYPE datbi,     " Valid To Date
             equnr TYPE equnr,     " Equipment Number
             erdat TYPE erdat,     " Date on Which Record Was Created
             aedat TYPE aedat,    " Changed On
          END OF t_equz1,
          BEGIN OF t_iloa,
            iloan TYPE iloan,   "Location and account assignment for technical object
            tplnr TYPE tplnr,    " Functional Location
            msgrp TYPE raumnr, " Room
         END OF t_iloa,
         BEGIN OF t_iflotx,
           tplnr TYPE tplnr,   "Functional Location
           pltxt TYPE pltxt, " Description of functional location
         END OF t_iflotx,
        BEGIN OF t_equi,
          equnr TYPE equnr,   " Equipment Number
          eqart TYPE eqart,   "Type of Technical Object
       END OF t_equi,
       BEGIN OF t_crhd,
          objid TYPE cr_objid, "Object ID of the resource
          arbpl TYPE arbpl,     "Work center
      END OF t_crhd,
          BEGIN OF t_eqkt,
          equnr TYPE equnr,    "Equipment Number
          eqktx TYPE ktx01,    "Description of technical object
          END OF t_eqkt,
          BEGIN OF t_t370k_t,
          eqart TYPE eqart, "Type of Technical Object
          eartx TYPE eartx, "Text for Object Type
          END OF t_t370k_t,
          BEGIN OF t_t024i,
          ingrp TYPE ingrp, "Planner Group for Customer Service and Plant Maintenance
          innam TYPE innam, "Name of the Maintenance Planner Group
          END OF t_t024i,
          BEGIN OF t_viqmel,
          equnr TYPE equnr, "Equipment Number
          qmnum TYPE qmnum, "Notification No
          qmdat TYPE qmdat, "Date of Notification
          bequi TYPE bequi, "Equipment Affected
          iloan TYPE iloan, "Location and account assignment for technical object
          END OF t_viqmel,
          BEGIN OF t_final,
           equnr TYPE equz-equnr,
           eqktx TYPE eqkt-eqktx,
           tplnr TYPE iloa-tplnr,
           pltxt TYPE iflotx-pltxt,
           iloan TYPE iloan,
           datbi TYPE equz-datbi,
           ingrp TYPE t024i-ingrp,
           erdat TYPE equz-erdat,
           enddt1 TYPE char10,
           aedat TYPE equz-aedat,
           innam TYPE t024i-innam,
           equart TYPE equi-eqart,
           eartx TYPE t370k_t-eartx,
          qmnum TYPE viqmel-qmnum,
          arbpl TYPE crhd-arbpl,
          msgrp TYPE iloa-msgrp,
          dat_diff TYPE char10,
          END OF t_final,
          BEGIN OF t_final1,
           equnr TYPE equz-equnr,
           eqktx TYPE eqkt-eqktx,
           tplnr TYPE iloa-tplnr,
           pltxt TYPE iflotx-pltxt,
          END OF t_final1.
DATA:   it_equz TYPE STANDARD TABLE OF t_equz,
        it_iloa TYPE STANDARD TABLE OF t_iloa,
        it_iflotx TYPE STANDARD TABLE OF t_iflotx,
        it_equi TYPE STANDARD TABLE OF t_equi,
        it_crhd TYPE STANDARD TABLE OF t_crhd,
        it_eqkt TYPE STANDARD TABLE OF t_eqkt,
        it_t370k_t TYPE STANDARD TABLE OF t_t370k_t,
        it_t024i TYPE STANDARD TABLE OF t_t024i,
        it_viqmel TYPE STANDARD TABLE OF t_viqmel,
        it_final TYPE STANDARD TABLE OF t_final,
        it_final1 TYPE STANDARD TABLE OF t_final1,
        it_equz1 TYPE STANDARD TABLE OF t_equz1.
DATA:   wa_equz TYPE t_equz,
       wa_iloa TYPE t_iloa,
       wa_iflotx TYPE t_iflotx,
       wa_equi TYPE t_equi,
       wa_crhd TYPE t_crhd,
       wa_eqkt TYPE t_eqkt,
       wa_t370k_t TYPE t_t370k_t,
       wa_t024i TYPE t_t024i,
       wa_viqmel TYPE t_viqmel,
       wa_final TYPE t_final,
       wa_final1 TYPE t_final1,
       wa_equz1 TYPE t_equz.
DATA: t_equnr TYPE equz-equnr,          "EQUZ-EQUNR
      t_tplnr TYPE iloa-tplnr,          "Functional Location
      t_datbi TYPE equz-datbi,          "Date
      t_ingrp TYPE equz-ingrp,          "Planner Group
      t_eqart TYPE equi-eqart,          "Technical Object
      w_diff TYPE p,
      w_time TYPE t.
*            ALV DATA DECLARATION                 *
* Field Catalog
TYPES: BEGIN OF t_fldnam,
          fld TYPE fieldname,
          desc TYPE char30,
        END OF t_fldnam.
DATA:   is_layout TYPE slis_layout_alv,
        it_fieldcat TYPE slis_t_fieldcat_alv,
        is_fieldcat TYPE slis_fieldcat_alv,
        it_fldnam TYPE STANDARD TABLE OF t_fldnam,
        wa_fldnam TYPE t_fldnam,
        it_sort TYPE STANDARD TABLE OF slis_t_sortinfo_alv,
        wa_sort LIKE LINE OF it_sort.
DATA:   i_events   TYPE slis_t_event,
        ls_line TYPE slis_listheader,
        gt_list_top_of_page TYPE slis_t_listheader, "FOR TOP OF PAGE
        gt_list_end_of_page TYPE slis_t_listheader. "FOR END OF PAGE
DATA : formname_top_of_page TYPE slis_formname VALUE
                                              'GENERATE_TOP_OF_PAGE',
       formname_end_of_page TYPE slis_formname VALUE
                                              'GENERATE_END_OF_PAGE',
       formname_user_command TYPE slis_formname VALUE 'USER_COMMAND'.
*                C O N S T A N T S                *
*CONSTANTS: c_top         TYPE slis_formname VALUE 'TOP_OF_PAGE',
*           c_final(40)   TYPE c VALUE 'IT_FINAL',
*           c_detail(15) TYPE c VALUE 'IT_FINAL1'.
DATA :      g_save(1) TYPE c,
      g_exit(1) TYPE c,
      g_variant LIKE disvariant,
      gx_variant LIKE disvariant.
*        S E L E C T I O N   S C R E E N          *
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_equnr FOR t_equnr,
                s_tplnr FOR   t_tplnr,
                s_datbi FOR t_datbi ,
                s_ingrp FOR t_ingrp,
                s_eqart FOR t_eqart.
SELECTION-SCREEN: END OF BLOCK b1.
SELECTION-SCREEN : BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(16) text-007.
SELECTION-SCREEN POSITION 22.
PARAMETERS        : 11_flds RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND g1.
SELECTION-SCREEN COMMENT 39(13) text-009.
SELECTION-SCREEN POSITION 54.
PARAMETERS        : 6_flds RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : END OF BLOCK blk2.
SELECTION-SCREEN:BEGIN OF BLOCK b2 WITH FRAME TITLE text-003.
PARAMETERS:     alv_list RADIOBUTTON GROUP gp1 DEFAULT 'X'.
PARAMETERS: alv_grid RADIOBUTTON GROUP gp1.
SELECTION-SCREEN:END OF BLOCK b2.
SELECTION-SCREEN: BEGIN OF BLOCK b3 WITH FRAME TITLE text-005.
PARAMETERS : p_vari LIKE disvariant-variant.
SELECTION-SCREEN: END OF BLOCK b3.
AT SELECTION-SCREEN.
PERFORM date_range.
IF s_datbi[] IS INITIAL.
    MESSAGE e398(00) WITH 'ENTER A VALUE FOR DATE'(012).
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
START-OF-SELECTION.
IF 11_flds EQ 'X'.
    PERFORM fill_equz.
    PERFORM fill_iloa.
    PERFORM fill_iflotx.
    PERFORM fill_equi.
    PERFORM fill_t370k_t.
    PERFORM fill_t024i.
    PERFORM fill_crhd.
    PERFORM fill_eqkt.
    PERFORM fill_viqmel.
ELSE.
    PERFORM fill_equz.
    PERFORM fill_iloa.
    PERFORM fill_iflotx.
    PERFORM haha_final.
    PERFORM dyn_tab.
ENDIF.
PERFORM fill_final.
PERFORM get_day_diff.
*                      END-OF-SELECTION                                *
END-OF-SELECTION.
*Display Output in ALV Format
* PERFORM populate_layout.
PERFORM populate_fcat.
PERFORM populate_events .
* PERFORM gen_top.
PERFORM display_alv .
*&      Form FILL_EQUZ
*       text
* --> p1        text
* <-- p2        text
FORM fill_equz .
IF s_datbi-high IS INITIAL.
    s_datbi-high = '99990701'.
ENDIF.
* IF s_datbi-LOW IS INITIAL.
*    s_datbi-LOW = '20071201'.
* ENDIF.
    SELECT datbi
            equnr
            erdat
            aedat
            iloan
            gewrk
            ingrp
            FROM equz
        INTO CORRESPONDING FIELDS OF TABLE it_equz
*      WHERE datbi IN s_datbi AND equnr IN s_equnr.
        WHERE equnr IN s_equnr
         AND ingrp IN s_ingrp
         AND datbi LE s_datbi-high
        AND datbi GE s_datbi-low.
ENDFORM.                    " FILL_EQUZ
*&      Form FILL_ILOA
*       text
* --> p1        text
* <-- p2        text
FORM fill_iloa .
SELECT iloan
          tplnr
          msgrp
         INTO CORRESPONDING FIELDS OF TABLE it_iloa
          FROM iloa
          FOR ALL ENTRIES IN it_equz
          WHERE iloan = it_equz-iloan.
ENDFORM.                    " FILL_ILOA
*&      Form FILL_IFLOTX
*       text
* --> p1        text
* <-- p2        text
FORM fill_iflotx .
SELECT tplnr
          pltxt
          INTO CORRESPONDING FIELDS OF TABLE it_iflotx
          FROM iflotx
          FOR ALL ENTRIES IN it_iloa
          WHERE tplnr = it_iloa-tplnr.
ENDFORM.                    " FILL_IFLOTX
*&      Form FILL_EQUI
*       text
* --> p1        text
* <-- p2        text
FORM fill_equi .
SELECT equnr
        eqart
        INTO CORRESPONDING FIELDS OF TABLE it_equi
        FROM equi
        FOR ALL ENTRIES IN it_equz
        WHERE equnr = it_equz-equnr.
ENDFORM.                    " FILL_EQUI
*&      Form FILL_T370K_T
*       text
* --> p1        text
* <-- p2        text
FORM fill_t370k_t .
SELECT eqart
        eartx
        INTO CORRESPONDING FIELDS OF TABLE it_t370k_t
        FROM t370k_t
        FOR ALL ENTRIES IN it_equi
        WHERE eqart = it_equi-eqart.
ENDFORM.                    " FILL_T370K_T
*&      Form FILL_T024I
*       text
* --> p1        text
* <-- p2        text
FORM fill_t024i .
SELECT ingrp
          innam
          INTO CORRESPONDING FIELDS OF TABLE it_t024i
          FROM t024i
          FOR ALL ENTRIES IN it_equz
          WHERE ingrp = it_equz-ingrp.
ENDFORM.                    " FILL_T024I
*&      Form FILL_CRHD
*       text
* --> p1        text
* <-- p2        text
FORM fill_crhd .
SELECT objid
          arbpl
          INTO CORRESPONDING FIELDS OF TABLE it_crhd
          FROM crhd
          FOR ALL ENTRIES IN it_equz
          WHERE objid = it_equz-gewrk.
ENDFORM.                    " FILL_CRHD
*&      Form FILL_EQKT
*       text
* --> p1        text
* <-- p2        text
FORM fill_eqkt .
SELECT equnr
         eqktx
         INTO CORRESPONDING FIELDS OF TABLE it_eqkt
         FROM eqkt
         FOR ALL ENTRIES IN it_equz
         WHERE equnr = it_equz-equnr.
ENDFORM.                    " FILL_EQKT
*&      Form FILL_VIQMEL
*       text
* --> p1        text
* <-- p2        text
FORM fill_viqmel .
ENDFORM.                    " FILL_VIQMEL
*&      Form SHW_DATA
*       text
* --> p1        text
* <-- p2        text
FORM shw_data .
LOOP AT it_final1 INTO wa_final1.
    WRITE : wa_final1-equnr , wa_final1-eqktx , wa_final1-tplnr , wa_final1-pltxt.
    CLEAR wa_final1.
ENDLOOP.
ENDFORM.                    " SHW_DATA
*&      Form POPULATE_LAYOUT
*       text
* --> p1        text
* <-- p2        text
*FORM populate_layout .
* is_layout-zebra = 'X'.
* is_layout-colwidth_optimize = 'X'.
* APPEND is_layout.
*ENDFORM.                    " POPULATE_LAYOUT
*&      Form POPULATE_FCAT
*       text
* --> p1        text
* <-- p2        text
FORM populate_fcat .
IF 11_flds EQ 'X'.
    APPEND 'EQUNR                         EQUIP NUMBER         ' TO it_fldnam.
    APPEND 'EQKTX                         DESC OF EQUIP        ' TO it_fldnam.
    APPEND 'ERDAT                         START DATE           ' TO it_fldnam.
    APPEND 'DATBI                         END DATE             ' TO it_fldnam.
    APPEND 'AEDAT                         CHND ON              ' TO it_fldnam.
    APPEND 'ILOAN                         LOC ON ACCOUNT       ' TO it_fldnam.
    APPEND 'TPLNR                         FUNC LOC             ' TO it_fldnam.
    APPEND 'PLTXT                         DESC FUNC LOC        ' TO it_fldnam.
    APPEND 'INGRP                         PLANNER GRP          ' TO it_fldnam.
    APPEND 'INNAM                         MAINT PLN GRP        ' TO it_fldnam.
    APPEND 'DAT_DIFF                      DATE DIFF            ' TO it_fldnam.
ENDIF.
IF 6_flds EQ 'X'.
    APPEND 'TPLNR                         FUNC LOCATION        ' TO it_fldnam.
    APPEND 'PLTXT                         DESC OF FUC LOC      ' TO it_fldnam.
    APPEND 'DATBI                         END DATE             ' TO it_fldnam.
    APPEND 'EQUNR                         EQUIP NUMBER         ' TO it_fldnam.
    APPEND 'ERDAT                         START DATE           ' TO it_fldnam.
    APPEND 'AEDAT                         CHND ON              ' TO it_fldnam.
ENDIF.
ENDFORM.                    " POPULATE_FCAT
*&      Form DISPLAY_ALV
*       text
* --> p1        text
* <-- p2        text
FORM display_alv .
*--------------------------------------------------Preparing the Layout*
is_layout-colwidth_optimize = 'X'.
is_layout-zebra = 'X'.
*-------------------------------------------Preparing the Field Catalog*
    BREAK-POINT.
LOOP AT it_fldnam INTO wa_fldnam.
    is_fieldcat-tabname       = 'IT_FINAL'.
    is_fieldcat-fieldname     = wa_fldnam-fld.
    is_fieldcat-seltext_l     = wa_fldnam-desc.
    is_fieldcat-col_pos       = sy-tabix.
    IF wa_fldnam-fld = 'EQKTX'.
      is_fieldcat-lowercase       = ' '.
    ENDIF.
    APPEND is_fieldcat TO it_fieldcat.
    CLEAR : is_fieldcat, wa_fldnam.
ENDLOOP.
*-------------------------------------------------------Calling Display*
IF alv_list = 'X'.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        i_callback_program = sy-repid
        is_layout          = is_layout
        it_fieldcat        = it_fieldcat
        it_events          = i_events[]
        i_default          = 'X'
      TABLES
        t_outtab           = it_final
      EXCEPTIONS
        program_error      = 1
        OTHERS             = 2.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
ELSE.
*    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
*      EXPORTING
*        i_callback_program     = sy-repid
*        i_callback_top_of_page = 'GEN_TOP'
*        is_layout              = is_layout
*        it_fieldcat            = it_fieldcat
*        it_events              = i_events[]
*        i_save                 = g_save
*        is_variant             = g_variant
*        i_default              = 'A'
*      TABLES
*        t_outtab               = it_final
*      EXCEPTIONS
*        program_error          = 1
*        OTHERS                 = 2.
*    IF sy-subrc <> 0.
*      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*    ENDIF.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
       i_callback_program                = sy-repid
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
       i_callback_top_of_page            = 'GEN_TOP'
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
       is_layout                         = is_layout
       it_fieldcat                       = it_fieldcat
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
       i_save                            = 'A'
*   IS_VARIANT                        = g_variant
*   IT_EVENTS                         = i_events[]
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 20
*   I_SCREEN_START_LINE               = 30
*   I_SCREEN_END_COLUMN               = 100
*   I_SCREEN_END_LINE                 = 40
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
      TABLES
        t_outtab                          = it_final
     EXCEPTIONS
       program_error                     = 1
       OTHERS                            = 2
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF.
ENDFORM.                    " DISPLAY_ALV
*&      Form GET_DAY_DIFF
*       text
* --> p1        text
* <-- p2        text
FORM get_day_diff .
w_time = '00:00:00'.
FIELD-SYMBOLS: <deb> LIKE LINE OF it_final.
LOOP AT it_final ASSIGNING <deb>.
    CALL FUNCTION 'SD_DATETIME_DIFFERENCE'
      EXPORTING
        date1                  = <deb>-datbi
        time1                  = w_time
        date2                  = <deb>-erdat
        time2                  = w_time
     IMPORTING
       datediff               = w_diff
*   TIMEDIFF               =
*   EARLIEST               =
* EXCEPTIONS
*   INVALID_DATETIME       = 1
*   OTHERS                 = 2
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ELSEIF sy-subrc = 0.
      <deb>-dat_diff = w_diff.
*      MODIFY it_final FROM WA_FINAL TRANSPORTING dat_diff.
    ENDIF.
ENDLOOP.
ENDFORM.                    " GET_DAY_DIFF
*&      Form HAHA_FINAL
*       text
* --> p1        text
* <-- p2        text
FORM haha_final .
* FIELD-SYMBOLS: <deb> LIKE LINE OF it_final.
LOOP AT it_iflotx INTO wa_iflotx.
*    wa_final1-equnr = wa_iflotx-equnr.
*    wa_final1-eqktx = wa_iflotx-eqktx.
    wa_final1-tplnr = wa_iflotx-tplnr.
    wa_final1-pltxt = wa_iflotx-pltxt.
    APPEND wa_final1 TO it_final1.
ENDLOOP.
ENDFORM.                    " HAHA_FINAL
*&      Form DYN_TAB
*       text
* --> p1        text
* <-- p2        text
FORM dyn_tab .
LOOP AT it_equz INTO wa_equz.
    wa_equz1-datbi = wa_equz-datbi.
    wa_equz1-equnr = wa_equz-equnr.
    wa_equz1-erdat = wa_equz-erdat.
    wa_equz1-aedat = wa_equz-aedat.
    APPEND wa_equz1 TO it_equz1.
ENDLOOP.
ENDFORM.                    " DYN_TAB
*&      Form FILL_FINAL1
*       text
* --> p1        text
* <-- p2        text
FORM fill_final.
IF 11_flds EQ 'X'.
    FIELD-SYMBOLS: <deb> LIKE LINE OF it_equz,
                 <deb1> LIKE LINE OF it_final.
    CLEAR wa_equz.
    REFRESH : it_final[].
    LOOP AT it_equz ASSIGNING <deb>.
      wa_final-equnr = <deb>-equnr.
      wa_final-datbi = <deb>-datbi.
      wa_final-erdat = <deb>-erdat.
      wa_final-aedat = <deb>-aedat.
      wa_final-iloan = <deb>-iloan.
      wa_final-ingrp = <deb>-ingrp.
      APPEND wa_final TO it_final.
      CLEAR wa_final.
    ENDLOOP.
    LOOP AT it_final ASSIGNING <deb1>.
      READ TABLE it_iloa INTO wa_iloa WITH KEY iloan = <deb1>-iloan.
      <deb1>-tplnr = wa_iloa-tplnr.
    ENDLOOP.
    LOOP AT it_final ASSIGNING <deb1>.
      READ TABLE it_iflotx INTO wa_iflotx WITH KEY tplnr = <deb1>-tplnr.
      <deb1>-pltxt = wa_iflotx-pltxt.
    ENDLOOP.
    LOOP AT it_final ASSIGNING <deb1>.
      READ TABLE it_eqkt INTO wa_eqkt WITH KEY equnr = <deb1>-equnr.
      <deb1>-eqktx = wa_eqkt-eqktx.
    ENDLOOP.
    LOOP AT it_final ASSIGNING <deb1>.
      READ TABLE it_t024i INTO wa_t024i WITH KEY ingrp = <deb1>-ingrp.
      <deb1>-innam = wa_t024i-innam.
    ENDLOOP.
ELSE.
    REFRESH : it_final[].
    LOOP AT it_equz INTO wa_equz.
      wa_final-datbi = wa_equz-datbi.
      wa_final-equnr = wa_equz-equnr.
      wa_final-erdat = wa_equz-erdat.
      wa_final-aedat = wa_equz-aedat.
      wa_final-iloan = wa_equz-iloan.
      APPEND wa_final TO it_final.
      CLEAR wa_final.
    ENDLOOP.
    FIELD-SYMBOLS: <deb2> LIKE LINE OF it_final.
    LOOP AT it_final ASSIGNING <deb2>.
      READ TABLE it_iloa INTO wa_iloa WITH KEY iloan = <deb2>-iloan.
      <deb2>-tplnr = wa_iloa-tplnr.
    ENDLOOP.
    LOOP AT it_final ASSIGNING <deb2>.
      READ TABLE it_iflotx INTO wa_iflotx WITH KEY tplnr = <deb2>-tplnr.
      <deb2>-pltxt = wa_iflotx-pltxt.
    ENDLOOP.
ENDIF.
ENDFORM.                    " FILL_FINAL
*&      Form DATE_RANGE
*       text
* --> p1        text
* <-- p2        text
FORM date_range .
DATA :l_dat TYPE i.
IF s_datbi-high IS NOT INITIAL.
    CALL FUNCTION 'DAYS_BETWEEN_TWO_DATES'
      EXPORTING
        i_datum_bis             = s_datbi-high
        i_datum_von             = s_datbi-low
      IMPORTING
        e_tage                  = l_dat
      EXCEPTIONS
        days_method_not_defined = 1
        OTHERS                  = 2.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    IF l_dat GT '31'.
      MESSAGE e398(00) WITH 'Split Your Planning for a range of 31 Days'(012).
      LEAVE LIST-PROCESSING.
    ENDIF.
ENDIF.
ENDFORM.                    " DATE_RANGE
*&      Form GEN_TOP
*       text
* --> p1        text
* <-- p2        text
FORM gen_top .
DATA: info(60),
        w_dt TYPE d.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = 'ALV DISPLAY'.
APPEND ls_line TO gt_list_top_of_page.
CONCATENATE 'Date :' s_datbi-low ' TO ' s_datbi-high INTO info SEPARATED BY space.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = info.
APPEND ls_line TO gt_list_top_of_page.
CLEAR ls_line.
ls_line-typ = 'A'.
ls_line-info = 'By Debarshi Roy'.
APPEND ls_line TO gt_list_top_of_page.
* Generate the End of Page
* CLEAR ls_line.
* ls_line-typ = 'H'.
* ls_line-info = 'ECL'.
* APPEND ls_line TO gt_list_end_of_page.
CLEAR: ls_line.
* PERFORM generate_top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_list_top_of_page
      i_logo             = 'DEB'.
ENDFORM.                    " GEN_TOP
*&      Form POPULATE_EVENTS
*       text
* --> p1        text
* <-- p2        text
FORM populate_events .
DATA: l_i_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = i_events[].
*----- Pass top-of-page
READ TABLE i_events WITH KEY name = slis_ev_top_of_page
                           INTO l_i_event.
IF sy-subrc = 0.
    MOVE formname_top_of_page TO l_i_event-form.
    APPEND l_i_event TO i_events.
ENDIF.
CLEAR l_i_event.
*----- Pass end-of-page
READ TABLE i_events WITH KEY name = slis_ev_end_of_page
                           INTO l_i_event.
IF sy-subrc = 0.
    MOVE formname_end_of_page TO l_i_event-form.
    APPEND l_i_event TO i_events.
ENDIF.
CLEAR l_i_event.
*----- Pass user-command
READ TABLE i_events WITH KEY name = slis_ev_user_command
                           INTO l_i_event.
IF sy-subrc = 0.
    MOVE formname_user_command TO l_i_event-form.
    APPEND l_i_event TO i_events.
ENDIF.
ENDFORM.                    " POPULATE_EVENTS
*&      Form generate_top_of_page
*       text
*FORM generate_top_of_page.
* CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
*    EXPORTING
*      it_list_commentary = gt_list_top_of_page
*      i_logo             = 'DEB'.
*ENDFORM.                    "generate_top_of_page
*&      Form generate_end_of_page
*       text
FORM generate_end_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = gt_list_end_of_page
*   I_LOGO                   =
ENDFORM.                    "generate_end_of_page
*&      Form F4_FOR_VARIANT
*       text
* --> p1        text
* <-- p2        text
FORM f4_for_variant .
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = g_variant
      i_save     = g_save
    IMPORTING
      e_exit     = g_exit
      es_variant = gx_variant
    EXCEPTIONS
      not_found = 2.
IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S'      NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
    IF g_exit = space.
      p_vari = gx_variant-variant.
    ENDIF.
ENDIF.
ENDFORM.                    " F4_FOR_VARIANT

To get plant field in my selection screen based on user profile maintained

Hi All,
I have plant (WERKS) field in my selection screen. Now I need to get the plant value maintained in the user profile for that user. So how to get the plant value based on the user profile.
Please let me know if anyone having idea on this. I will reward to you with the valid points.
Regards
raghu.

Hi Raghu,
I have searched and found this information, check it may help you
Check the SY-UNAME with the the name of the Plant
User Plant user data take it from T001W table
and All logon User data will be in USR02 table
take the data from corresponding tables and check.
If you are working in SRM
Use FM BBP_READ_ATTRIBUTES to get the User plant after passing the User ID to the FM.
in SUIM go to Users by Complex Selection criterion.
In that there would be the Authorization Object..select an object which has the value plant in it and enter the value inthat....
Also u can enter WERKS value as 1120 in the object field and get the list,
Regards,
Satish

To disable one field of standard sap screen.

Hi,
I want to disable one field of standard SAP screen for example
tran code : MD61
Field : Version.
Can Anybody suggest me with simple coding.
thanks
naresh

Naresh,
I guess this can be done using Transaction Variant SHD0.
Just try to check the links related to transaction variant.
1.go to SHD0
2.give the transaction as MD61
3.Transacation variant as zmd61
4.now press create button
4.Here you will get to see the initial screen on MD61
5.Press enter
6.You will get to see the field attributes in a screen called 'Confirm Screen entries"
7.There you can make a field as required/invisible/ouputonly.
Do check other links available in SDN for more info.
K.Kiran.

Adding field in the selection-screen of a zprogram

hi gurus,
i have to add field in the selection-screen of oppurtunities. in database i have a field salesvalues, some of oppurtunity guids have this field value. first i need to add in selection-screen in this alv report. and fetch the data from ztable into required field . if the input fields of the salesvalues field id filled, then filter the global guids(from global table which had the guid values already) with this guids related to salesvalues. and if one single guid mathes to 2 values of salesvalues then concatenate 2 values with comma and display in single field. if select-options are blank then fetch all opportunity guids which have salesvalues. pls give solution.

Hi Srini,
Thanks for your Reply
I have kept 01 against the field BSEG-AUGDT and selected the preselect check box also.
But still that field is not visible in the dynamic selection screen.
Thanks
Ajay.D

I need below fields at my selection screen.From which table we can find the

Sales Org > only one selection field
Division > only one selection field
Channel > from u2013 to fields
Sales Office Channel > from u2013 to fields
Sales Rep Channel > from u2013 to fields
User ID of the CSR Channel > from u2013 to fields
Customer Channel > from u2013 to fields
Material Channel > from u2013 to fields
Date: Channel > from u2013 to fields
I need these fields at my selection screen.From which tables I find these things.I need this logic also.

I need help

How to Add a new fields in the selection screen of LDB.

Hi All,
I want to add a new fields in the selection screen of LDB & then i need to select the data for that fields.
So could you please tell me for that where i need to add the code for selecting the data.
Thanks
Roli

Hi
welcome to SDN forum
If you are designing your own LDB with your own tables you can define tree structure and then the selection screen for the tables
if you wants to modify the std LDB of SAp means take the access key and to modify that code
if you add the extra field you have to modify the where conditions in the code also
see the doc
A logical database is a special ABAP/4 program which combines the contents of certain database tables. You can link a logical database to an ABAP/4 report program as an attribute. The logical database then supplies the report program with a set of hierarchically structured table lines which can be taken from different database tables.
LDB offers an easy-to-use selection screens. You can modify the pre-generated selection screen to your needs. It offers check functions to check whether user input is complete, correct, and plausible. It offers reasonable data selections. It contains central authorization checks for data base accesses. Enhancements such as improved performance immediately apply to all report programs that use the logical database.
Less coding s required to retrieve data compared to normal internel tables.
Tables used LDB are in hierarchial structure.
Mainly we used LDBs in HR Abap Programming.
Where all tables are highly inter related so LDBs can optimize the performance there.
Check this Document. All abt LDB's
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.highlightedcontent?documenturi=%2flibrary%2fabap%2fabap-code-samples%2fldb+browser.doc
GO THROUGH LINKS -
http://www.sap-basis-abap.com/saptab.htm
http://help.sap.com/saphelp_nw04/helpdata/en/9f/db9bfa35c111d1829f0000e829fbfe/content.htm
http://help.sap.com/saphelp_nw04/helpdata/en/9f/db9b5e35c111d1829f0000e829fbfe/frameset.htm
http://help.sap.com/saphelp_nw04/helpdata/en/c6/8a15381b80436ce10000009b38f8cf/frameset.htm
/people/srivijaya.gutala/blog/2007/03/05/why-not-logical-databases
Re: **LDB**
www.sapbrain.com/FAQs/TECHNICAL/SAP_ABAP_Logical_Database_FAQ.html
www.sap-img.com/abap/abap-interview-question.htm
www.sap-img.com/abap/quick-note-on-design-of-secondary-database-indexes-and-logical-databases.htm
http://help.sap.com/saphelp_nw04/helpdata/en/9f/db9b5e35c111d1829f0000e829fbfe/content.htm
http://help.sap.com/saphelp_nw2004s/helpdata/en/9f/db9bb935c111d1829f0000e829fbfe/content.htm
Gothru the blog which provides info on LDB's:
/people/srivijaya.gutala/blog/2007/03/05/why-not-logical-databases
Sample code
TABLES: SPFLI,
SFLIGHT,
SBOOK,
SCARR.
START-OF-SELECTION.
GET SPFLI.
WRITE:/ SPFLI: , SPFLI-CARRID, SPFLI-CONNID,
SPFLI-AIRPFROM, SPFLI-AIRPTO.
GET SFLIGHT.
WRITE:/ SFLIGHT: , SFLIGHT-CARRID, SFLIGHT-CONNID, SFLIGHT-FLDATE.
GET SBOOK.
WRITE:/ SBOOK: , SBOOK-CARRID, SBOOK-CONNID,
SBOOK-FLDATE, SBOOK-BOOKID.
GET SFLIGHT LATE.
WRITE:/ GET SFLIGHT LATE: , SFLIGHT-FLDATE.
Regards
anji

Functional area(FKBER( field in the selection screen))

Hi,
I have a requirement to add functional area field in the selection screen for a report painter report. This report using library 1VK and table 'CCSS'. I added functional area field in the general data selection . After the execution of report with functional area field filled with value. report not giving any output. do i need to maintain any setting to achieve?
Regards,
Palani

Hi,
How you have filled the values?
It is 16 CHAR long.

Functional area(FKBER field in the selection screen of the report painter))

Hi,
I have a requirement to add functional area field in the selection screen for a report painter report. This report using library 1VK and table 'CCSS'. I added functional area field in the general data selection . After the execution of report with functional area field filled with value. report not giving any output. do i need to maintain any setting to achieve?
Regards,
Palani

1. Call GR22 and click "Characteristics".
2. Check FKBER and assign a position number to it.
3. Save and close the library.
4. Call your report in GRR2 and you should now see FKBER as an available characteristic.
5. Use it in the General Data Selection or as a Lead Column, as per requirement.
Or,
1. Call GR21 and create a custom library. Provide a name and description and also provide a library you can copy from (scan for the best-fit library).
2. Now follow the steps 2 through 5 above to achieve your result.
Hope this helps.
Cheers.

User option in selection screen of report

In a report, want to give user an initial option of Calendar year/month OR calendar year/week...
Only the one the user wants should be displayed on the selection screen.
1 Is there a way to give user an option while running the query before the selection screen(variables - uesr input) of the report appears
OR
2 Is there a way to give user a toggle option on the selection screen which displays either calendar year/month or calendar year/week based on user choice but not both.
I am aware that user can easily toggle once the report has been executed, but the purpose is to give user this option initially.
As of now, in the report at the selection screen there are four periods based on calendar year/month. (to facilitate comparison of periods)
eg (m- cal year/month, w - cal year/week)
P1(m)
P2(m)
P3(m)
P4(m)
If we add four more for week
then user will have a cluttered selection screen (as there are many other selection options apart from time)
eg 8 time choices
P1(m)
P2(m)
P3(m)
P4(m)
P1(w)
P2(w)
P3(w)
P4(w)
What I need is a way for at any time, either cal year/month or cal year/week is visible based on user choice.

In a report, want to give user an initial option of Calendar year/month OR calendar year/week...
Only the one the user wants should be displayed on the selection screen.
1 Is there a way to give user an option while running the query before the selection screen(variables - uesr input) of the report appears
OR
2 Is there a way to give user a toggle option on the selection screen which displays either calendar year/month or calendar year/week based on user choice but not both.
I am aware that user can easily toggle once the report has been executed, but the purpose is to give user this option initially.
As of now, in the report at the selection screen there are four periods based on calendar year/month. (to facilitate comparison of periods)
eg (m- cal year/month, w - cal year/week)
P1(m)
P2(m)
P3(m)
P4(m)
If we add four more for week
then user will have a cluttered selection screen (as there are many other selection options apart from time)
eg 8 time choices
P1(m)
P2(m)
P3(m)
P4(m)
P1(w)
P2(w)
P3(w)
P4(w)
What I need is a way for at any time, either cal year/month or cal year/week is visible based on user choice.

Currency field on a selection screen of type 'DMBTR'.

Hello ABAPers,
      Could you please tell me how to do it?
       I have a currency field on a selection screen of type 'DMBTR'.
       When i input and press the enter key ,i want the value to be displayed in the following style.
          1. CURRENCY     EQ    'JPY'
                EX:
                      Value before pressing EnterKey =   123456
                      Value after pressing   EnterKey =    123,456
                  i.c the value should be displayed without decimal point
        2. CURRENCY      NE    'JPY'
                EX:
                      Value before pressing EnterKey =   123456
                      Value after pressing   EnterKey =    123,456.00
                  i.c the value should be displayed with decimal point
      Note:The above trick has already been done on a standard dynpro screen of Tr.Code FB60 and Field 'Amount'.
<removed_by_moderator>
Thanks and Regards,
Mohan
Edited by: Govindasamy Mohan on Oct 8, 2009 6:22 PM
Edited by: Julius Bussche on Oct 9, 2009 1:36 PM

Hi ABAP Lover,
   Thanks a lot for your reply.
   I had the same idea as yours like using data type 'P'.
But, the problem is that there is only one currency field on the screen .There is also a field of 'Company Code'.
Both fields are mandatory .
Hence,the requirement is to convert the currency value to the currency of the company code which is input .
The conversion should yield the following output on the screen after pressing the enter button.
1. When currency EQ 'JPY' , the value should be displayed without decimal point
2.When currency NE 'JPY' , the value should be displayed with decimal point
I am very sorry for not explaining you clearly in my first posting.
Thanks and Regards,
Mohan

Can you "combine" criteria for 2 or more fields on a Selection Screen?

Good day everyone,
Here's my question: I understand that I can put fields on a Selection Screen and pre-fill them with data values. In this particular case, I want to pre-fill a couple of hidden fields with data values that will be used as criteria when I read data from the database; however, I need to pull back records that have this COMBINATION of data. For example:
WERKS     BTRTL
Z002      Z001
Z002      Z002
Z003      Z001
Z003      Z002
So in my SQL, if I say "werks IN s_werks" and "btrtl IN s_brtrl", true, it will still work. But really, I need to say "if werks = 'z002' and btrtl = 'z001', or werks = 'z002' and btrtl = 'z002', etc. I can't rely on the simple "IN" functionality because it's possible a new value could be added in the future:
WERKS     BTRTL
Z003      Z003
So if I use the "IN" logic and the record has werks = 'Z002' and btrtl = 'Z003', it would be returned. But I really don't want it returned, since a combination of werks = 'Z002' and btrtl = 'Z003' doesn't exist in my table of valid combinations.
Is this even possible to do in a Selection Screen? Do I go ahead and populate the fields separately, use the "IN" functionality, then spin through my resulting internal table and delete anything that doesn't match my "table" of valid combinations? Do I skip putting these on a Selection Screen completely and check the values in my SQL statement?
Thanks in advance -- points, as always, will be given.

Hi
Yuo can try to use FOR ALL ENTRIES option.
IF you have:
WERKS BTRTL
Z002 Z001
Z002 Z002
Z003 Z001
Z003 Z002
You should do something like that:
DATA: BEGIN OF <TAB_SEL> OCCURS 1,
       WERKS TYPE WERKS,
       BTRTL TYPE BTRTL,
      END   OF <TAB_SEL>.
WERKS BTRTL
<TAB_SEL>-WERKS = 'Z002'. <TAB_SEL>-BTRTL = 'Z001'.
APPEND <TAB_SEL>.
<TAB_SEL>-WERKS = 'Z002'. <TAB_SEL>-BTRTL = 'Z002'.
APPEND <TAB_SEL>.
<TAB_SEL>-WERKS = 'Z003'. <TAB_SEL>-BTRTL = 'Z001'.
APPEND <TAB_SEL>.
<TAB_SEL>-WERKS = 'Z003'. <TAB_SEL>-BTRTL = 'Z002'.
APPEND <TAB_SEL>.
SELECT * FROM <TABLE> INTO TABLE ITAB
   FOR ALL ENTRIES IN <TAB_SEL>
                   WHERE WERKS = <TAB_SEL>-WERKS
                      AND BTRTL = <TAB_SEL>-BTRTL.
In this case you need to fill correctly the internal table <TAB_SEL> with the all combinations.
Max

Field in the Selection Screen.

Hello Experts,
I need some info to list all the reports which uses a field in the selection screen.
For example the field SAKNR (G/L Account). If this field used in the 10 reports selection screen, then I need to display all the 10 reports.
Is it possible to get the fields used in the Sel. screen of a report.
Please give some suggestion.
Regards,
Vasanth

Hello Narendra,
Thanks for the reply.
See In a program I declared the field like this:
PARAMETERS: P_SAKNR LIKE EKKN-SAKTO.
So in this case I have to list this report name.
Hope you understand my requirement.
Thanks !!!
Vasanth

Disabling certain fields on the selection screen.

Hi all,
I want to disable certain fields on selection screen of my program, also i want to display certain fields on selection screen only if a particular field on the selection screen is checked or selected. Please guide me how this can be achieved via coding in a program.
Thanks & regards,
Chetan.

Hi Chetan,
try this.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: pa_file TYPE rlgrap-filename MODIF ID abc,
pa_lifnr TYPE lfa1-lifnr MODIF ID abc,
pa_vkorg TYPE vbak-vkorg MODIF ID abc.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: pa_kunnr TYPE vbak-kunnr MODIF ID def.
SELECT-OPTIONS: s_lifnr FOR gs_lfa1-lifnr MODIF ID def,
s_date FOR gs_lfa1-erdat MODIF ID def,
s_augru FOR gs_vbak-augru MODIF ID def,
s_vbeln FOR gs_vbak-vbeln MODIF ID def.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pa_upd RADIOBUTTON GROUP g1 USER-COMMAND uc01 DEFAULT 'X'."#EC *
SELECTION-SCREEN COMMENT 3(60) text-004 FOR FIELD pa_upd.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pa_rep RADIOBUTTON GROUP g1 ."#EC *
SELECTION-SCREEN COMMENT 3(60) text-005 FOR FIELD pa_rep.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.
IF pa_rep EQ gc_x.
LOOP AT SCREEN.
IF screen-group1 = gc_abc.
screen-input = gc_zero_num.
ELSEIF screen-group1 = gc_def.
screen-active = gc_one_num.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSEIF pa_upd EQ gc_x.
*For Reprocessing
LOOP AT SCREEN.
IF screen-group1 = gc_def.
screen-input = gc_zero_num.
ELSEIF screen-group1 = gc_abc.
screen-active = gc_one_num.
ENDIF.
MODIFY SCREEN.
CLEAR pa_upd.
ENDLOOP.
ENDIF.
REPORT zrich_001.
PARAMETERS: p_rad1 RADIOBUTTON GROUP grp1 DEFAULT 'X'
user-command chk,
p_rad2 RADIOBUTTON GROUP grp1.
SELECT-OPTIONS: s_datum1 FOR sy-datum MODIF ID d1,
s_datum2 FOR sy-datum MODIF ID d2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF p_rad1 = 'X'
AND screen-group1 = 'D2'.
screen-active = '0'.
ENDIF.
IF p_rad2 = 'X'
AND screen-group1 = 'D1'.
screen-active = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
reward if useful.
regards,
sravanthi.

User must fill at list one field in a selection screen in report

Similar Messages

Maybe you are looking for