regarding Hardcoding selection-screen field.

[Former Member]

Hi frnds,

I want to hardcode vbak-erdat in my selection screen , i m using loop at screen . and i m also usiing INITIALIZATION EVENT,where i am initializing vbak-erdat.

so frnds can anyone help me in this regard.

Thanks,

satish

[former_member156446]

PARAMETERS: pa_logic RADIOBUTTON GROUP e1 USER-COMMAND inv DEFAULT 'X',

pa_equip RADIOBUTTON GROUP e1,

pa_ob RADIOBUTTON GROUP e1.

PARAMETERS: pa_zpms AS CHECKBOX MODIF ID i1.

SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME TITLE text-002.

PARAMETERS :

pa_pex1 TYPE rlgrap-filename MODIF ID i2, " buyers list PC

pa_uex1(200) LOWER CASE MODIF ID i2. " buyers list Unix

SELECTION-SCREEN END OF BLOCK a2.

SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.

PARAMETERS:

pa_pex2 TYPE rlgrap-filename MODIF ID i2, "Commercial list PC

pa_uex2(200) LOWER CASE MODIF ID i2. "Commercial list Unix

SELECTION-SCREEN END OF BLOCK a1.

and now loop at screen

LOOP AT SCREEN.

IF screen-group1 = 'I1'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF pa_logic <> 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'I2'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

[Former Member]

Hi jay,

Thanks for replying,

My senario is

WHEN Frst Radio button.

S_VBAK

S_ERDAT

When second Radiobutton pressed.

S_ERDAT

S_AUART

We have to do this using LOOP AT SCREEN.

frnds can anyone help me for the above.

[former_member156446]

para : rb1 group g1,

rb2 group g1.

S_VBAK modif id i1.

S_ERDAT modif id i1.

S_ERDAT modif id i2.

S_AUART modif id i2.

LOOP AT SCREEN.

IF screen-group1 = 'I1'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

LOOP AT SCREEN.

IF screen-group1 = 'I2'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

[Former Member]

Hi,

Please look at the code below :

TABLES : bsis.

SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETER : sp_sel radiobutton group rad USER-COMMAND radio DEFAULT 'X',

sp_all RADIOBUTTON GROUP rad.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

SELECT-OPTIONS : so_bukrs FOR bsis-bukrs MODIF ID sp1.

SELECT-OPTIONS : so_hkont FOR bsis-hkont MODIF ID sp2.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF sp_sel = 'X'.

IF screen-group1 = 'SP2'.

screen-input = '0'.

screen-invisible = '0'.

screen-required = '0'.

MODIFY SCREEN.

ENDIF.

elseif sp_all = 'X'.

IF screen-group1 = 'SP1'.

screen-input = '0'.

screen-invisible = '0'.

screen-required = '0'.

MODIFY SCREEN.

ENDIF.

endif.

ENDLOOP.

Thanks,

Sriram Ponna.

[kesavadas_thekkillath]

select-options:so_erdat for mkpf-budat no-extension.

initialization.

so_erdat-low = sy-datum.

so_erdat-high = sy-datum

append so_erdat.