Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Pinguincommander
Davor musst du noch das PBO-Modul einfügen, in dem du die FREE_SELECTION festlegst.Pinguincommander hat geschrieben:das selektionsbild 2000 oder 2001 oder welches auch immer binde ich im PAI ein oder ??? mithilfe einer subscreen area
CALL SUBSCREEN subscreen1 INCLUDING 'SAPLSSEL' '2000'.
Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF TABBED BLOCK...
Im Coding hab ich jetzt keine spezielle Abfrage auf den Parameter gefunden.Pinguincommander hat geschrieben:... außerdem bringt mir der fuba immer wieder einen kurzdump, wenn ich den Parameter "as subscreen" auf X setze.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Pinguincommander
Code: Alles auswählen.
FIELD-SYMBOLS:
<lr_tree> TYPE REF TO cl_gui_simple_tree.
ASSIGN ('(SAPLSSEL)TREE') TO <lr_tree>.
IF sy-subrc EQ 0 AND <lr_tree> IS BOUND.
<lr_tree>->free( ).
FREE <lr_tree>.
CLEAR <lr_tree>.
ENDIF.
Code: Alles auswählen.
DATA: gd_changed TYPE abap_bool.
* Bei der Initialisierung des Programms
gd_changed = abap_true.
* Bei PAI
CASE sy-ucomm.
WHEN 'TAB01' OR 'TAB02'.
gd_changed = abap_True.
ENDCASE.
* Bei PBO-Modul
IF gd_changed EQ abap_true.
* --> Hier die FREE_SELECTIONS-Aufrufe usw. rein.
gd_changed = abap_false.
ENDIF.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Pinguincommander
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Pinguincommander
Hier "husten" die Funktionsbuttons des Tree-Views sowie der Tabreiterwechsel etwas hinein.a-dead-trousers hat geschrieben:3) Das mit der verlorenen Markierung muss ich mir noch anschauen.
Code: Alles auswählen.
FIELD-SYMBOLS: <ld_ucomm> TYPE syucomm.
ASSIGN ('(SAPLSSEL)SSCRFIELDS-UCOMM') TO <ld_ucomm>.
IF sy-subrc EQ 0.
CLEAR <ld_ucomm>.
ENDIF.
ASSIGN ('(SAPLSSEL)EVT_RECEIVER->SELECTED_UCOMM') TO <ld_ucomm>.
IF sy-subrc EQ 0.
CLEAR <ld_ucomm>.
ENDIF.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Pinguincommander
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Pinguincommander
Code: Alles auswählen.
DATA: lt_fields TYPE rsdsfields_t.
PERFORM fill_p_fields IN PROGRAM saplssel TABLES lt_fields.
Code: Alles auswählen.
types:
begin of exp_pars,
twhere,
texpr,
trange,
end of exp_pars.
DATA:
ls_export_x TYPE exp_pars,
ls_export TYPE rsds_type.
ls_export_x-twhere = abap_true.
ls_export_x-texpr = abap_true.
ls_export_x-trange = abap_true.
PERFORM build_exp_pars IN PROGRAM saplssel
TABLES lt_fields
CHANGING ls_export-clauses ls_export-texpr ls_export-trange ls_export_x.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Pinguincommander