Abap Forum on Gate²App

Hallo,

ist es bei einer Query mit bspw. der Log.DB PNPCE mit einfachen Mitteln möglich das Selektionsdatum in die Überschrift des Abrufs oder noch besser in die Liste (ALV) zu übernehmen?

Schon jetzt vielen Dank
Gruß Bernd

Evtl. helfen die Funktionsbausteine

- FMRP_UT_GET_SELECTIONS
- FMRP_UT_GET_SELECTIONS_PARAM

weiter.

Bei einer Ausgabe als ABAP-LIste kann man z.B. in SQ02 durch Zusatzcoding zu 'START-OF-SELECTION' eine Ausgabe der Select-Options, Benutzer und Datum/Uhrzeit erhalten:

call function 'FMRP_UT_GET_SELECTIONS'
exporting
i_report_name = sy-repid
i_add_list = 'X'.

Bei einer Ausgabe mit dem SAP-List-Viewer kann man einen Dialog mit den Selektionskriterien vor der eigentlichen Ausgabe anzeigen lassen:

call function 'FMRP_UT_GET_SELECTIONS'
exporting
i_report_name = sy-repid
i_dialog = 'X'.

Man kann natürlich auch die Tabellen, die der Funktionsbaustein zurückliefert selbst auswerten.

Viele Grüße

ml

Hallo,

vielen Dank ml
dachte Anfangs komm ohne EDV aus, aber denke.
Mit dem von Dir genannten Fuba haben wir das jetzt realisiert.

Falls das vielleicht noch wer brauchen kann:
Im Infoset der logischen DB ein Zusatzfeld angelegt (=Stichtag).
Dazu das kleine ABAP-Coding zum Zeitpunkt 'Start of Selection' und schon hat man den Stichtag als Listenfeld.

Wobei bei uns nur das PNPBEGDA ausgegeben wird, also der Abruf nach Stichtag.
Für uns reicht das, bei anderen kann/muss das wohl noch etwas verfeinert werden.

Danke nochmals - Gruß Bernd

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

1. DATA: lt_ext_sel_tab  TYPE TABLE OF   fmkbo_seltab,
2.       ls_ext_sel_tab LIKE LINE OF lt_ext_sel_tab.
3. CALL FUNCTION 'FMRP_UT_GET_SELECTIONS'
4.   EXPORTING
5.     i_report_name           = sy-repid
6. *   I_FREE_SELECTIONS       = 'X'
7. *   I_MAXCNT                = 5
8. *   I_COMPRESS              = 'X'
9. *   I_ADD_LIST              =
10. *   I_DIALOG                =
11. *   I_SIMPLE_LIST           =
12.  TABLES
13.    EXT_SEL_TAB             = lt_ext_sel_tab
14. *   I_T_SELFIELDS           =
15. * EXCEPTIONS
16. *   NO_ENTRIES              = 1
17. *   OTHERS                  = 2
18.           .
19. IF sy-subrc <> 0.
20. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
21. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
22. ENDIF.
23. READ TABLE lt_ext_sel_tab INTO ls_ext_sel_tab WITH KEY selname = 'PNPBEGDA'.
24. IF sy-subrc EQ 0.
25.   Stichtag = ls_ext_sel_tab-low.
26. ENDIF.
27.  

GeSHi ©