PARAMETERS: Wertänderung

Wertüberprüfung und Wertänderung mit sofortiger Anzeige

über

USER-COMMAND uc1

TABELES SSCRFIELDS

Abfrage von SSCRFIELDS-UCOM = ‚UC1‘ in Event AT SELECTiON-SCREEN.

s.a.

PARAMETERS USER-COMMAND


PARAMETERS: p_green   AS CHECKBOX  USER-COMMAND g2. 
PARAMETERS: p_yellow   AS CHECKBOX  USER-COMMAND g2. 
PARAMETERS: p_red AS CHECKBOX  USER-COMMAND g2. 
PARAMETERS: p_grey   AS CHECKBOX  USER-COMMAND g2. 
PARAMETERS: p_all   AS CHECKBOX  USER-COMMAND g1. 

TABLES: sscrfields.

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'G1'.
      IF p_all EQ 'X'.
        p_green = 'X'.
        p_yellow = 'X'.
        p_red = 'X'.
        p_grey = 'X'.
      ENDIF.
    WHEN 'G2'.
      IF p_green NE 'X' OR p_red NE 'X' OR p_yellow NE 'X' OR p_grey NE 'X'.
        p_all = ' '.
      ENDIF.
  ENDCASE.

Teilen mit: