Code: Alles auswählen.
PARAMETERS: layer(30) AS LISTBOX VISIBLE LENGTH 30,
modul(30) AS LISTBOX VISIBLE LENGTH 30.
AT SELECTION-SCREEN OUTPUT.
param = 'layer'.
value-key = 'L01'.
value-text = 'Layer 1 Extraktion'.
APPEND value TO values.
value-key = 'L02'.
value-text = 'Layer 3 Harmonisierung'.
APPEND value TO values.
value-key = 'L03'.
value-text = 'Layer 5 Datamart'.
APPEND value TO values.
value-key = 'L04'.
value-text = 'Layer 7 Präsentation'.
APPEND value TO values.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = param
values = values.
param = 'modul'.
value-key = 'M05'.
value-text = 'Modul CO'.
APPEND value TO values.
value-key = 'M06'.
value-text = 'Modul CP'.
APPEND value TO values.
value-key = 'M07'.
value-text = 'Modul CS'.
APPEND value TO values.
value-key = 'M08'.
value-text = 'Modul DP'.
APPEND value TO values.
value-key = 'M09'.
value-text = 'Modul FI'.
APPEND value TO values.
value-key = 'M10'.
value-text = 'Modul HR'.
APPEND value TO values.
value-key = 'M11'.
value-text = 'Modul LE'.
APPEND value TO values.
value-key = 'M12'.
value-text = 'Modul MD'.
APPEND value TO values.
value-key = 'M13'.
value-text = 'Modul MM'.
APPEND value TO values.
value-key = 'M14'.
value-text = 'Modul PM'.
APPEND value TO values.
value-key = 'M15'.
value-text = 'Modul PP'.
APPEND value TO values.
value-key = 'M16'.
value-text = 'Modul PS'.
APPEND value TO values.
value-key = 'M17'.
value-text = 'Modul QM'.
APPEND value TO values.
value-key = 'M18'.
value-text = 'Modul SD'.
APPEND value TO values.
value-key = 'M19'.
value-text = 'Modul SN'.
APPEND value TO values.
value-key = 'M20'.
value-text = 'Modul TD'.
APPEND value TO values.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = param
values = values.Code: Alles auswählen.
APPEND value TO values.Code: Alles auswählen.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = param
values = values.Code: Alles auswählen.
refresh values.entweder du verwendest zwei interne Tabellen oder du entfernst die Einträge aus der internen Tabelle nachdem du die erste Listbox gefüllt hast und bevor du die Werte für die zweite Listbox aufnimmst.patlau hat geschrieben:bitt eum Beispiel