Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK b6 WITH FRAME TITLE text-007.
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME.
PARAMETERS p_mat AS LISTBOX VISIBLE LENGTH 35 USER-COMMAND txt .
SELECTION-SCREEN END OF BLOCK b4.
SELECTION-SCREEN BEGIN OF BLOCK b7 WITH FRAME TITLE text-009.
PARAMETERS p_deb AS LISTBOX VISIBLE LENGTH 35 USER-COMMAND txt.
SELECTION-SCREEN END OF BLOCK b7.
SELECTION-SCREEN BEGIN OF BLOCK b9 WITH FRAME.
PARAMETERS p_so10 AS LISTBOX VISIBLE LENGTH 35 USER-COMMAND txt.
SELECTION-SCREEN END OF BLOCK b9.
SELECTION-SCREEN END OF BLOCK b6.
INITIALIZATION.
name = 'p_mat'.
value-key = '1'.
value-text = 'Vertriebstext'.
APPEND value TO list.
value-key = '2'.
value-text = 'Grunddatentext'.
APPEND value TO list.
value-key = '3'.
value-text = 'Einkaufsbestelltext'.
APPEND value TO list.
value-key = '4'.
value-text = 'Interner Vermerk'.
APPEND value TO list.
value-key = '5'.
value-text = 'Prüftext'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.
"das selbe nochmal für die anderen beiden Boxen....
AT SELECTION-SCREEN.
CASE p_mat.
WHEN '1'.
tdid = '0001'.
tdobject = 'MVKE'.
WHEN '2'.
tdid = 'GRUN'.
tdobject = 'MATERIAL'.
WHEN '3'.
tdid = 'BEST'.
tdobject = 'MATERIAL'.
WHEN '4'.
tdid = 'IVER'.
tdobject = 'MATERIAL'.
WHEN '5'.
tdid = 'PRUE'.
tdobject = 'MATERIAL'.
* WHEN ' '.
* CLEAR tdid.
* CLEAR tdobject.
ENDCASE.
CASE p_deb.
WHEN '1'.
tdid = '0001'.
tdobject = 'KNVV'.
WHEN '2'.
tdid = 'Z001'.
tdobject = 'KNVV'.
WHEN '3'.
tdid = '0001'.
tdobject = 'KNA1'.
WHEN '4'.
tdid = '0002'.
tdobject = 'KNA1'.
WHEN '5'.
tdid = '9000'.
tdobject = 'KNA1'.
* WHEN ' '.
* CLEAR tdid.
* CLEAR tdobject.
ENDCASE.
CASE p_so10.
WHEN '1'.
tdid = 'ST'.
tdobject = 'TEXT'.
WHEN '2'.
tdid = 'ZMAT'.
tdobject = 'TEXT'.
WHEN '3'.
tdid = 'ZSBC'.
tdobject = 'TEXT'.
WHEN '4'.
tdid = 'ZSBH'.
tdobject = 'TEXT'.
WHEN '5'.
tdid = 'ZSBK'.
tdobject = 'TEXT'.
* WHEN ' '.
* CLEAR tdid.
* CLEAR tdobject.
ENDCASE.
"Versuch nur 1 Box aktiv zu halten...funktioniert aber nicht richtig....
* IF p_mat IS NOT INITIAL.
* CLEAR p_deb.
* CLEAR p_so10.
* ENDIF.
* IF p_deb IS NOT INITIAL.
* CLEAR p_mat.
* CLEAR p_so10.
* ENDIF.
* IF p_so10 IS NOT INITIAL.
* CLEAR p_mat.
* CLEAR p_deb.
*
* ENDIF.
äh. nein.xGabriel hat geschrieben: Ich hoffe ich konnte mich verständlich ausdrücken.