Defining Selection-Screen Depending on Client

Question

Good Morning,
I need to hide one parameter from my selection-screen depending on sy-mandt.
Is it possible? If yes, can anyone show an example?
Regards,
Pedro Gaspar

Answer 1

hi
u can put ur fields in a block sepicific for a particular client.
u check the mandt and display the corresponding block while hiding the others.
check this sample code:
TABLES: eban,
        SSCRFIELDS.
SELECTION-SCREEN BEGIN OF SCREEN 100 TITLE title.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
PARAMETER:rad1 RADIOBUTTON GROUP rad USER-COMMAND frad1 DEFAULT 'X',
          rad2 RADIOBUTTON GROUP rad .
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
PARAMETER: mtr AS CHECKBOX MODIF ID g3 USER-COMMAND chk1,
           p_matnr TYPE eban-matnr MODIF ID g1,
           sloc AS CHECKBOX MODIF ID g3 USER-COMMAND chk2,
           str_loc TYPE eban-lgort MODIF ID g4.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.
SELECT-OPTIONS: matnr1 FOR eban-matnr MODIF ID g2.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN PUSHBUTTON /20(10) name USER-COMMAND UCOM.
SELECTION-SCREEN END OF SCREEN 100.
name = 'FETCH'.
title = 'Test Report'.
CALL SELECTION-SCREEN '100'.
TYPE-POOLS slis.
declaration of internal tables and work areas to be used
DATA: BEGIN OF it_pr OCCURS 0,
      banfn TYPE eban-banfn,
      bnfpo TYPE eban-bnfpo,
      loekz TYPE eban-loekz,
      statu TYPE eban-statu,
      ekgrp TYPE eban-ekgrp,
      matnr TYPE eban-matnr,
      werks TYPE eban-werks,
      lgort TYPE eban-lgort,
      preis TYPE eban-preis,
      peinh TYPE eban-peinh,
      END OF it_pr.
DATA: BEGIN OF it_mat OCCURS 0,
      matnr TYPE eban-matnr,
      END OF it_mat.
*DATA:BEGIN OF ITAB1 OCCURS 0,
  DATA: l_answer.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat LIKE LINE OF it_fieldcat,
      it_event TYPE slis_t_event,
      wa_event TYPE slis_alv_event.
declaration of variables to be used
DATA: r_ucomm TYPE sy-ucomm,
      mat_no TYPE eban-matnr,
      len TYPE i VALUE 1,
      count TYPE i VALUE IS INITIAL,
      iflag TYPE i VALUE IS INITIAL,
      iflag1 TYPE i VALUE 0.
DATA :pr_id TYPE sy-repid,
rt_extab TYPE slis_t_extab.
INITIALIZATION.
  pr_id = sy-repid.
AT SELECTION-SCREEN OUTPUT.
<b>  IF rad1 = 'X' AND SY-MANDT = <client 1></b>
    LOOP AT SCREEN.
      IF screen-group1 = 'G1' OR screen-group1 = 'G4'.
        screen-active = '1'.
        screen-input = 0.
      ELSEIF screen-group1 = 'G2'.
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  <b>ELSEIF rad2 = 'X'  and sy-mandt = <client 1></b>
    LOOP AT SCREEN.
      IF screen-group1 = 'G1'  OR screen-group1 = 'G4' OR screen-group1 = 'G3' OR screen-group1 = 'G5'.
        screen-active = '0'.
      ELSEIF screen-group1 = 'G2'.
        screen-active = '1'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.
  IF mtr = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'G1'.
        screen-input = 1 .
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.
  IF sloc = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'G4'.
        screen-input = 1 .
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.
clear sy-ucomm.
iflag = 1.
endif.
regards
ravish
<b>plz dont forget to reward points if helpful</b>