Code: Alles auswählen.
AT SELECTION-SCREEN OUTPUT.
IF se_fast = 'X'.
LOOP AT SCREEN.
IF screen-name = 'P_USER'.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSEIF se_short = 'X'.
LOOP AT SCREEN.
IF screen-name = 'P_USER'.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
Code: Alles auswählen.
*-------------------------------------------------------------------*
* Selektionsbildschirm *
*-------------------------------------------------------------------*
selection-screen skip.
selection-screen begin of block choice.
selection-screen begin of line.
selection-screen position 1.
parameters se_fast radiobutton group wahl default 'X' user-command fst.
selection-screen position 20.
parameters se_short radiobutton group wahl.
selection-screen end of line.
selection-screen end of block choice.
* Einrichtung - Pflichtfeld
selection-screen begin of line.
selection-screen comment 1(11) text-s01 for field se_einri.
selection-screen position pos_low.
parameters se_einri like nfal-einri modif id slw
obligatory default '1'.
selection-screen position 42.
selection-screen end of line.
* Datum - Pflichtfeld
SELECTION-SCREEN SKIP.
selection-screen begin of line.
Selection-screen position pos_low.
PARAMETERS se_datum like ndoc-erdat .
SELECTION-SCREEN POSITION 42.
SELECTION-SCREEN end of LINE.
* ---------------------------------------------------------------------*
* At selection-screen on *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
IF se_fast = 'X'.
LOOP AT SCREEN.
IF screen-name = 'se_einri'.
screen-active = 1.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSEIF se_short = 'X'.
LOOP AT SCREEN.
IF screen-name = 'se_datum'.
screen-active = 1.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
Code: Alles auswählen.
*-------------------------------------------------------------------*
* Selektionsbildschirm *
*-------------------------------------------------------------------*
selection-screen skip.
selection-screen begin of block choice.
selection-screen begin of line.
selection-screen position 1.
parameters se_fast radiobutton group wahl default 'X'." user-command fst
selection-screen position 20.
parameters se_short radiobutton group wahl.
selection-screen end of line.
selection-screen end of block choice.
* Einrichtung - Pflichtfeld
selection-screen begin of line.
selection-screen comment 1(11) text-s01 for field se_einri.
selection-screen position pos_low.
parameters se_einri like nfal-einri modif id slw
obligatory default '1'.
selection-screen position 42.
selection-screen end of line.
* Datum - Pflichtfeld
selection-screen skip.
selection-screen begin of line.
selection-screen position pos_low.
parameters se_datum like ndoc-erdat .
selection-screen position 42.
selection-screen end of line.
Code: Alles auswählen.
* ---------------------------------------------------------------------*
* At selection-screen on *
*----------------------------------------------------------------------*
at selection-screen output.
if se_fast = 'X'.
loop at screen.
IF screen-name = 'SE_EINRI'.
screen-active = 1.
else.
screen-active = 0.
ENDIF.
modify screen.
endloop.
elseif se_short = 'X'.
loop at screen.
if screen-name = 'SE_DATUM'.
screen-active = 1.
endif.
modify screen.
endloop.
endif.
Code: Alles auswählen.
* ---------------------------------------------------------------------*
* At selection-screen on *
*----------------------------------------------------------------------*
at selection-screen output.
if se_fast = 'X'.
loop at screen.
IF screen-name = 'SE_EINRI'.
screen-active = 1.
else.
screen-active = 0.
ENDIF.
modify screen.
endloop.
elseif se_short = 'X'.
loop at screen.
if screen-name = 'SE_DATUM'.
screen-active = 1.
endif.
modify screen.
endloop.
endif.
Code: Alles auswählen.
* ---------------------------------------------------------------------*
* at selection-screen on *
*----------------------------------------------------------------------*
at selection-screen output.
IF se_fast = 'X'.
LOOP AT SCREEN.
IF screen-name = 'SE_EINRI'.
screen-active = 1.
ELSEIF screen-name = 'SE_DATUM'.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSEIF se_short = 'X'.
LOOP AT SCREEN.
IF screen-name = 'SE_DATUM'.
screen-active = 1.
ELSEIF screen-name = 'SE_EINRI'.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
Code: Alles auswählen.
*-------------------------------------------------------------------*
* Selektionsbildschirm *
*-------------------------------------------------------------------*
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK choice.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS se_fast RADIOBUTTON GROUP wahl DEFAULT 'X' user-command fst.
SELECTION-SCREEN POSITION 20.
PARAMETERS se_short RADIOBUTTON GROUP wahl.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK choice.
* Einrichtung - Pflichtfeld
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(11) text-s01 FOR FIELD se_einri.
SELECTION-SCREEN POSITION POS_LOW.
PARAMETERS se_einri LIKE nfal-einri MODIF ID slw
OBLIGATORY DEFAULT '1'.
SELECTION-SCREEN POSITION 42.
SELECTION-SCREEN END OF LINE.
* Datum - Pflichtfeld
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION POS_LOW.
PARAMETERS se_datum LIKE ndoc-erdat MODIF ID slw.
SELECTION-SCREEN POSITION 42.
SELECTION-SCREEN END OF LINE.
* ---------------------------------------------------------------------*
* at selection-screen on *
*----------------------------------------------------------------------*
at selection-screen output.
IF se_fast = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SLW'.
screen-active = 1.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSEIF se_short = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SLW'.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.