Selection Screen bei Programmstart dynamisch generieren

[Lilly3943]

Hallo zusammen,

ich habe folgende Ausgangssituation:
Es gibt eine Tabellen mit mehreren Einträgen, zu denen ich jeweils eine Check-Box anzeigen möchte. Diese Tabelle kann sich ändern - zur Laufzeit des Reports kann dies aber ignoriert werden.

Nun möchte ich beim Programmstart einen Selektionsbildschirm anzeigen, wo unter anderem halt auch für jeden Eintrag eine Checkbox vorhanden ist.

Einfach durchloopen und einen Parameters-Eintrag hinzufügen geht ja soweit ich weiß nicht.

Bei der Recherche kam immer wieder der Hinweis, dass man ja einzelne Oberflächen-Elemente auch ausblenden oder verändern kann.
Da ich aber jetzt nicht weiß, wieviele Einträge später mal vorhanden sind, kann ich ja schlecht 30 unsichtbare Dummy-Checkboxen erstellen, die ich dann ggf. richtig benenne und einblende.

Eine andere Möglichkeit die ich gefunden habe, ist es, zur Laufzeit eine Include-Programm zu erstellen, in welches ich den Selection Screen quasi reinschreibe und dann include. Auf der Sandbox funktionierte das auch, allerdings ist dies von Kundenseite nicht gewünscht, da es Probleme mit den Transporten und Unicode geben könnte.

Hat hier vllt. jemand noch eine andere Idee?

[ewx]

http://tricktresor.de/content/index.php ... 25&aID=402
Du kannst aber auch einfach ein ALV-Grid oder ein TableControl einbinden!! Es muss ja nicht mal auf dem SelScreen sein, sondern es könnte auch auf Anforderung (Drucktaste) ein popup mit diesen dynamischen Werten kommen.

[Ilja583]

Wenn das Programm "nur" online laufen soll, kannst du z.B. ein eingabebereites ALV-Control an den Selektionsscreen anklemmen, in dem du für jedes dynamische erkannte Feld eine Zeile mit Beschriftung und Checkbox anzeigst.
Sowas sieht i.A. auch ganz nett aus und auf den typischen generierten Selektionsbildern ist mit den heutzutage benutzen Bildschirmen auch hinreichend Platz dafür.

[Lilly3943]

Der Report soll sich vom Look-And-Feel an einem bereits existierendes Programm orientieren, in dem das ganze (ohne die Tabelle) hardgecoded ist. Ich möchte das allerdings dynamisch machen, damit man da nicht ewig im Code rumfrickeln muss, wenn sich einer der Einträge ändert.

Der Report wird nicht online, sondern über den "normalen" SapGUI aufgerufen.

Danke schonmal für eure Antworten. Ich werde direkt mal den Tipp aus dem Tricktresor ausprobieren. Das Beispiel-Programm sieht ja schonmal vielversprechend aus

Kleine Ergänzung noch: Ich habe mich mich in meinem Eingangspost unverständlich ausgedrückt. Es handelt sich um Radio-Buttons, nicht um normale Check-Boxen.

[ewx]

Es handelt sich um Radio-Buttons, nicht um normale Check-Boxen.

Dann kannst du doch auch eine Listbox nehmen, das ist super einfach zu realisieren...

[Lilly3943]

Es handelt sich um Radio-Buttons, nicht um normale Check-Boxen.

Dann kannst du doch auch eine Listbox nehmen, das ist super einfach zu realisieren...

Das stimmt natürlich. Das macht die Abfrage, welcher Eintrag ausgewählt wurde auch viel einfacher. Allerdings möchte der Kunde das lieber mit Radio-Buttons haben
Naja, werde nochmal mit ihm reden...

Danke für den Hinweis!

[Lilly3943]

Ich habe das ganze jetzt mal mit einer Listbox umgesetzt, aber immernoch ein Problem.

Ich habe das mit dem User-Command nicht so ganz verstanden und kann den ausgewählten Eintrag nicht auslesen.

Der Parameter ist wie folgt erstellt:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. PARAMETERS p_tlist TYPE tabname AS LISTBOX VISIBLE LENGTH 25 USER-COMMAND TLST.

GeSHi ©

Gefüllt mit:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.  LOOP AT itab_tables.
2.     VALUE-KEY = sy-tabix.
3.     VALUE-TEXT = itab_tables-table.
4.     APPEND VALUE TO LIST.
5.   ENDLOOP.
6.  
7.   CALL FUNCTION 'VRM_SET_VALUES'
8.     EXPORTING
9.       ID     = 'p_tlist'
10.       VALUES = LIST.

GeSHi ©

Die Listbox ist auch korrekt gefüllt.

Die Fehlerbehandlung soll so laufen:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. ************************************************************************
2. AT SELECTION-SCREEN ON p_tlist.
3. ************************************************************************
4.  
5. *  p_tlist = itab_tables-table.
6.  
7.   IF p_tlist EQ space.
8.     MESSAGE e081. "Fehlermeldung
9.   ENDIF.

GeSHi ©

Wenn ich dort debugge, ist SY-UCOMM logischerweise auf 'TLST'.
Wie komme ich jetzt an den ausgewählten Inhalt von p_tlist?
Laut Debugger ist es leer...

[ewx]

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. type-pools vrm.
2. DATA lt_values TYPE vrm_values.
3. DATA ls_value  TYPE vrm_value.
4.  
5. PARAMETERS p_list AS LISTBOX VISIBLE LENGTH 50.
6.  
7. INITIALIZATION.
8.  
9.   ls_value-key = '1'.
10.   ls_value-text = 'Eins'.
11.   APPEND ls_value TO lt_values.
12.   ls_value-key = '2'.
13.   ls_value-text = 'Zwei'.
14.   APPEND ls_value TO lt_values.
15.   ls_value-key = '3'.
16.   ls_value-text = 'Drei'.
17.   APPEND ls_value TO lt_values.
18.  
19.   CALL FUNCTION 'VRM_SET_VALUES'
20.     EXPORTING
21.       id     = 'P_LIST'
22.       values = lt_values.
23.  

GeSHi ©

In P_LIST steht dann einer der Werte space,1,2 oder 3...

[Silke1341]

...

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. ...
2.   CALL FUNCTION 'VRM_SET_VALUES'
3.     EXPORTING
4.       ID     = 'p_tlist'
5.       VALUES = LIST.

GeSHi ©

...

möglicherweise geht es nicht, weil der Name des Feldes nicht groß geschrieben wurde!!!

[ewx]

Doch. Der FB ist schlau...

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.   translate vrm_id to upper case.
2.  

GeSHi ©