Free selection dynamisch???

Re: Free selection dynamisch???

c oco hat geschrieben:Frage: Gibt es eine dynamischere, Entwicklerfreundlichere Weise, um nach diesen Feldern aus der freien Abgrenzung zu selektieren?
Oder komme ich nicht drumherum, alle Felder in Ranges zu füllen, und dann z.b. select from DB where feld1 in gr_1 ...gr_100 zu machen?
Das erscheint mir doch recht gruselig .

Der Fuba: FREE_SELECTIONS_DIALOG gibt doch über den IMPORTING-Paramter where_clause das zurück, was du haben willst. Mit der WHERE_CLAUSE kannst du dann einen Select mit dynamischer WEHER-Bedingung ausführen.

Wenn du mehrere Tabellen hast, ist es evtl. sinnvoll sich im DDICT einen DB-View für die Tabelle/Felder anzulegen und über diesen dann den Select auszuführen. Das macht das Coding einfacher, da der FuBa die WHERE_CLAUSE je DB-Tab zurückgibt.

Re: Free selection dynamisch???

das ist ein Beispiel



REPORT z_pg_test_1.

TYPE-POOLS:
rsds.
DATA:
ok_code TYPE sy-ucomm.
DATA:
BEGIN OF gs_sel
, selid TYPE rsdynsel-selid
, END OF gs_sel.

DATA lt_sel LIKE TABLE OF rsparams.
DATA: lv_main, lv_chld.
DATA: lv_subrc TYPE sysubrc
, lv_title TYPE sytitle
, ls_pfstatus TYPE rsdspfkey.
DATA dynpr TYPE sy-dynnr.
ls_pfstatus-pfkey = '%_CSP'.

ls_pfstatus-program = 'RSSYSTDB'.


START-OF-SELECTION.
*
PERFORM free_selection_screen.

FORM free_selection_screen.
DATA:
ls_pfkey TYPE rsdspfkey
, lt_fld TYPE rsdsfields_t WITH HEADER LINE
, lt_fldt TYPE wcb_rsdstexts_tab WITH HEADER LINE
, lt_rng TYPE rsds_trange WITH HEADER LINE.

* Field list
CLEAR lt_fld.

lt_fld-tablename = 'SFLIGHT'.
lt_fld-fieldname = 'CARRID'.
APPEND lt_fld TO lt_fld.
lt_fld-tablename = 'SFLIGHT'.
lt_fld-fieldname = 'CONNID'.
APPEND lt_fld TO lt_fld.
lt_fld-tablename = 'SFLIGHT'.
lt_fld-fieldname = 'FLDATE'.
APPEND lt_fld TO lt_fld.

* Custom field names for select-options
CLEAR lt_fldt.
lt_fldt-tablename = 'BKPF'.
lt_fldt-fieldname = 'BLDAT'.
lt_fldt-text = 'Validity Period'.
APPEND lt_fldt TO lt_fldt.

ls_pfkey-program = sy-repid.


CALL FUNCTION 'FREE_SELECTIONS_INIT'
EXPORTING
kind = 'F'
IMPORTING
selection_id = gs_sel-selid
TABLES
fields_tab = lt_fld[].

CHECK gs_sel-selid IS NOT INITIAL.

CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
EXPORTING
selection_id = gs_sel-selid
Title = 'ABAPFORUM_IBO'
Frame_text = 'ABAPFORUM_IBO'
pfkey = ls_pfstatus
tree_visible = space
AS_WINDOW = 'X'
IMPORTING
* WHERE_CLAUSES =
* EXPRESSIONS =
field_ranges = lt_rng[]
* NUMBER_OF_ACTIVE_FIELDS =
TABLES
fields_tab = lt_fld[]
* FCODE_TAB =
* FIELDS_NOT_SELECTED =
EXCEPTIONS
internal_error = 1
no_action = 2
selid_not_found = 3
illegal_status = 4
OTHERS = 5.
ENDFORM. "free_selection_screen

Re: Free selection dynamisch???

Hallo,

Du kannst mal hier nachschauen, da gibt es ein paar Beispiele.

http://www.tricktresor.de/blog/dynamisc ... tionsbild/

Ausserdem solltest Du Dir mal die Funktionsgruppe SSEL (Package SLDBV) anschauen. Da gibt es noch einige nützliche Bausteine.

Viele Grüße,

Re: Free selection dynamisch???

Hallo,

vielleicht hilft Dir ja noch das folgende Beispielprogramm weiter.

http://help.sap.com/abapdocu_702/de/abe ... _abexa.htm

Was meinst Du eigentlich mit "Übernehmen der Sel-Options in die Freien Abgrenzungen und zurück."?!? Die freien Abgrenzungen sind doch zusätzliche Abgrenzungen. Ich verstehe den Satz ehrlich gesagt nicht.

Viele Grüße,

Re: Free selection dynamisch???

edwin hat geschrieben:Hi,
nur noch ein kleiner Hinweis : Maximale Anzahl der Select-options im Free_seletions_dialog ist 75, mehr geht nicht. Ist in LSSELTOP als max_fields = 75 definiert.
/Edwin

das stimmt nur 75 Felder, aber da ist zu viel, und ich gehe davon aus, das reicht

Re: Free selection dynamisch???

Um ehrlich zu sein verstehe ich jetzt den Sinn nicht, warum GP (was auch immer das ist) sowohl im normalen Selektionsbildschirm als auch bei den freien Abgrenzungen enthalten ist?!? Egal, Du hast ja eine Lösung für Dich gefunden.