* Tabelle T001W als Bezug (Werke/Niederlassungen) DATA: lv_werks TYPE t001w-werks. SELECT-OPTIONS: so_werks FOR lv_werks.
* Tabelle T001W als Bezug (Werke/Niederlassungen) SELECT-OPTIONS: so_werks FOR (t001w-werks).
* PARAMETERS
* Element, dass ein-/bzw. ausgeblendet werden soll
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (9) lbl1 FOR FIELD p_test.
PARAMETERS: p_test TYPE matnr.
SELECTION-SCREEN END OF LINE.
* Radiobutton 1, sendet USER_COMMAND, damit beim Umschalten AT SELECTION-SCREEN OUTPUT ausgelöst wird
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (9) lbl2 FOR FIELD p_rb1.
PARAMETERS: p_rb1 RADIOBUTTON GROUP grp DEFAULT 'X' USER-COMMAND rb.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (9) lbl3 FOR FIELD p_rb2.
PARAMETERS: p_rb2 RADIOBUTTON GROUP grp.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
lbl1 = 'Material:'.
lbl2 = ' An:'.
lbl3 = ' Aus:'.
AT SELECTION-SCREEN OUTPUT.
* Elemente des Selektionsbiles durchgehen
LOOP AT SCREEN INTO DATA(wa).
* Wenn Element 'P_TEST'
IF wa-name = 'P_TEST'.
* Aktvsetzung in Abhängigkeit von RB2
wa-active = COND #( WHEN p_rb2 = abap_true THEN 0 ELSE 1 ).
MODIFY SCREEN FROM wa.
ENDIF.
ENDLOOP.
* Element, dass ein-/bzw. ausgeblendet werden soll
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (9) lbl1 FOR FIELD so_test.
SELECT-OPTIONS: so_test FOR sy-uname MODIF ID 100.
SELECTION-SCREEN END OF LINE.
* Radiobutton 1, sendet USER_COMMAND, damit beim Umschalten AT SELECTION-SCREEN OUTPUT ausgelöst wird
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (9) lbl2 FOR FIELD p_rb1.
PARAMETERS: p_rb1 RADIOBUTTON GROUP grp DEFAULT 'X' USER-COMMAND rb.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (9) lbl3 FOR FIELD p_rb2.
PARAMETERS: p_rb2 RADIOBUTTON GROUP grp.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
lbl1 = 'Name:'.
lbl2 = ' An:'.
lbl3 = ' Aus:'.
AT SELECTION-SCREEN OUTPUT.
* Elemente des Selektionsbiles durchgehen
LOOP AT SCREEN INTO DATA(wa).
* Wenn Element 'SO_TEST'
IF wa-group1 = '100'.
* Aktvsetzung in Abhängigkeit von RB2
wa-active = COND #( WHEN p_rb2 = abap_true THEN 0 ELSE 1 ).
MODIFY SCREEN FROM wa.
ENDIF.
ENDLOOP.
Bei Datenbankzugriffen mit AMDP / NATIVE SQL besteht nicht die Möglichkeit einfach RANGES in den SELECT-Statements zu übergeben.
Die RANGES müssen dazu zuerst in einen String umgewandelt werden. Dieser String kann dann in der WHERE-Condition verarbeitet werden.
DATA: lv_usnam TYPE rkpf-usnam.
SELECT-OPTIONS: so_usnam FOR lv_usnam.
INITIALIZATION.
so_usnam[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'USER1' high = '' )
( sign = 'I' option = 'EQ' low = 'USER2' high = '' )
).
START-OF-SELECTION.
* wandelt ein SELECT-OPTIONS / RANGE in WHERE-String um
TRY.
* WHERE-Condition ohne fehlerhaft gesetzte Klammern und unnötige Leerzeichen
DATA(lv_where) = condense( cl_shdb_seltab=>new( so_usnam[] )->sql_where_condition( 'USNAM' ) ).
WRITE: / lv_where.
CATCH cx_root INTO DATA(e_txt).
ENDTRY.
DATA: lv_usnam TYPE rkpf-usnam.
SELECT-OPTIONS: so_usnam FOR lv_usnam.
INITIALIZATION.
so_usnam[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'USER1' high = '' )
( sign = 'I' option = 'EQ' low = 'USER2' high = '' )
).
START-OF-SELECTION.
* wandelt ein oder mehrere SELECT-OPTIONS / RANGE in WHERE-String um
TRY.
* WHERE-Condition mit fehlerhaft gesetzte Klammern und unnötigen Leerzeichen
DATA(lv_where) = cl_shdb_seltab=>combine_seltabs(
it_named_seltabs = VALUE #(
(
name = 'USNAM' " RKPF-USNAM
dref = REF #( so_usnam[] ) " Referenz auf SELECT-OPTIONS / RANGE
)
)
).
WRITE: / lv_where.
CATCH cx_root INTO DATA(e_txt).
ENDTRY.
DATA: lv_usnam TYPE rkpf-usnam.
SELECT-OPTIONS: so_usnam FOR lv_usnam.
INITIALIZATION.
so_usnam[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'USER1' high = '' )
( sign = 'I' option = 'EQ' low = 'USER2' high = '' )
).
START-OF-SELECTION.
* wandelt ein SELECT-OPTIONS / RANGE in WHERE-String um
TRY.
* WHERE-Condition ohne fehlerhaft gesetzte Klammern und unnötige Leerzeichen
DATA(lv_where) = condense( cl_lib_seltab=>new( so_usnam[] )->sql_where_condition( 'USNAM' ) ).
WRITE: / lv_where.
CATCH cx_root INTO DATA(e_txt).
ENDTRY.
DATA: lv_usnam TYPE rkpf-usnam.
SELECT-OPTIONS: so_usnam FOR lv_usnam.
INITIALIZATION.
so_usnam[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'USER1' high = '' )
( sign = 'I' option = 'EQ' low = 'USER2' high = '' )
).
START-OF-SELECTION.
DATA(it_ranges) = VALUE rsds_trange(
(
* Tabellenname
tablename = 'RKPF'
frange_t = VALUE #(
(
* Feldname
fieldname = 'USNAM'
* RANGE aus SELECT-OPTIONS
selopt_t = VALUE #( FOR <so> IN so_usnam
(
sign = <so>-sign
option = <so>-option
low = <so>-low
high = <so>-high
)
)
)
)
)
).
* Rückgabe
DATA: it_where TYPE rsds_twhere.
* Freie Abgrenzungen: Konvertierung Format RSDS_TRANGE ==> RSDS_TWHERE
CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_WHERE'
EXPORTING
field_ranges = it_ranges
IMPORTING
where_clauses = it_where.
* Ausgabe
LOOP AT it_where ASSIGNING FIELD-SYMBOL(<e>).
WRITE: / 'Table:', <e>-tablename.
LOOP AT <e>-where_tab ASSIGNING FIELD-SYMBOL(<w>).
WRITE: / <w>-line.
ENDLOOP.
ENDLOOP.
**********************************************************************
*
* Variablen
*
**********************************************************************
DATA: gv_screen_status TYPE string VALUE 'INIT'.
DATA: gv_carrid TYPE spfli-carrid.
DATA: gv_connid TYPE spfli-connid.
DATA: o_alv TYPE REF TO cl_gui_alv_grid.
DATA: it_spfli TYPE STANDARD TABLE OF spfli WITH DEFAULT KEY.
**********************************************************************
*
* leeres Dynpro als Dummy für ALV-Grid
*
**********************************************************************
SELECTION-SCREEN BEGIN OF SCREEN 2000.
SELECTION-SCREEN END OF SCREEN 2000.
**********************************************************************
*
* SELECTION-SCREEN
*
**********************************************************************
SELECT-OPTIONS: so_carr FOR gv_carrid.
SELECT-OPTIONS: so_conn FOR gv_connid.
**********************************************************************
*
* Eventhandler
*
**********************************************************************
CLASS lcl_events DEFINITION.
PUBLIC SECTION.
CLASS-METHODS:
on_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING
e_object
e_interactive
sender.
CLASS-METHODS:
on_user_command FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING
e_ucomm
sender.
CLASS-METHODS:
on_data_changed FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING
er_data_changed
sender.
ENDCLASS.
CLASS lcl_events IMPLEMENTATION.
METHOD on_data_changed.
* geänderte Zellen durchgehen
LOOP AT er_data_changed->mt_good_cells ASSIGNING FIELD-SYMBOL(<c>).
IF <c> IS ASSIGNED.
* Zeile x aus der iTab it_spfli rausholen und daraus die Zelle anhand des Spaltennamens (Feldnamens) holen
ASSIGN COMPONENT <c>-fieldname OF STRUCTURE it_spfli[ <c>-row_id ] TO FIELD-SYMBOL(<f>).
IF <f> IS ASSIGNED.
* Änderungswert in die Zelle der iTab (it_spfli) rückschreiben
<f> = <c>-value.
ENDIF.
ENDIF.
ENDLOOP.
* DB Update
FIELD-SYMBOLS: <tab> TYPE table.
FIELD-SYMBOLS: <row> TYPE spfli.
ASSIGN er_data_changed->mp_mod_rows->* TO <tab>.
LOOP AT <tab> ASSIGNING <row>.
* DB Update hier
ENDLOOP.
ENDMETHOD.
METHOD on_user_command.
* wenn BTN_REFRESH geklickt
IF e_ucomm = 'BTN_REFRESH'.
IF o_alv IS BOUND.
SELECT * FROM spfli INTO TABLE @it_spfli
WHERE carrid IN @so_carr
AND connid IN @so_conn.
sender->refresh_table_display( is_stable = VALUE lvc_s_stbl( row = abap_true
col = abap_true )
i_soft_refresh = abap_false ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD on_toolbar.
* alle Buttons entfernen, bis auf folgende:
DELETE e_object->mt_toolbar WHERE
function NE cl_gui_alv_grid=>mc_fc_refresh " Refresh
AND function NE cl_gui_alv_grid=>mc_mb_export " Excel
AND function NE cl_gui_alv_grid=>mc_fc_current_variant. " Layout
LOOP AT e_object->mt_toolbar ASSIGNING FIELD-SYMBOL(<fs_button>) WHERE ( function = cl_gui_alv_grid=>mc_fc_refresh ).
* neues USER-Command setzen, damit bei Button-Klick on_user_command getriggert wird
<fs_button>-function = 'BTN_REFRESH'.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
**********************************************************************
*
* INITIALIZATION
*
**********************************************************************
INITIALIZATION.
* Vorbelegungen für Selektionsbild
so_carr[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'LH' ) ).
**********************************************************************
*
* AT SELECTION-SCREEN OUTPUT
*
**********************************************************************
AT SELECTION-SCREEN OUTPUT.
* Wenn vorher das Selektionsbild 1000 angezeigt wurde
IF gv_screen_status = 'IN_SELECTION'.
* Daten holen
SELECT * FROM spfli INTO TABLE @it_spfli
WHERE carrid IN @so_carr
AND connid IN @so_conn.
* ALV-Gitter anzeigen
o_alv = NEW #( i_parent = cl_gui_container=>default_screen
i_appl_events = abap_true ).
* Eventhandler registrieren
SET HANDLER lcl_events=>on_toolbar FOR o_alv.
SET HANDLER lcl_events=>on_data_changed FOR o_alv.
SET HANDLER lcl_events=>on_user_command FOR o_alv.
* Ereignisse registrieren
o_alv->register_edit_event( i_event_id = cl_gui_alv_grid=>mc_evt_enter ).
o_alv->register_edit_event( i_event_id = cl_gui_alv_grid=>mc_evt_modified ).
* ALV-Grid selektionsbereit setzen
o_alv->set_ready_for_input( i_ready_for_input = 1 ).
* Layout des ALV setzen
DATA(lv_layout) = VALUE lvc_s_layo( zebra = abap_true
cwidth_opt = 'A'
grid_title = 'Flugverbindungen' ).
* Feldkatalog automatisch durch SALV erstellen lassen
DATA: o_salv TYPE REF TO cl_salv_table.
cl_salv_table=>factory( IMPORTING
r_salv_table = o_salv
CHANGING
t_table = it_spfli ).
DATA(it_fcat) = cl_salv_controller_metadata=>get_lvc_fieldcatalog( r_columns = o_salv->get_columns( )
r_aggregations = o_salv->get_aggregations( ) ).
* im Feldkatalog alle Zellen der Spalte "CITYFROM" des ALV-Grids auf
* editierbar stellen, die restlichen Zellen sind nicht editierbar
LOOP AT it_fcat ASSIGNING FIELD-SYMBOL(<fcat>).
CASE <fcat>-fieldname.
WHEN 'CITYFROM'.
<fcat>-edit = abap_true.
WHEN OTHERS.
<fcat>-edit = abap_false.
ENDCASE.
ENDLOOP.
* ALV anzeigen
o_alv->set_table_for_first_display( EXPORTING
i_bypassing_buffer = abap_false
i_save = 'A'
is_layout = lv_layout
CHANGING
it_fieldcatalog = it_fcat
it_outtab = it_spfli ).
* Drucktastenleiste: Button "Ausführen (F8)" entfernen
DATA: it_exclude_btn TYPE STANDARD TABLE OF rsexfcode WITH DEFAULT KEY.
it_exclude_btn = VALUE #( ( fcode = 'ONLI' ) ).
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
EXPORTING
p_status = '%_00' " akt. Standard-PF-Status des Dypro 2000
TABLES
p_exclude = it_exclude_btn.
* leere SAP-Toolbar ausblenden
cl_abap_list_layout=>suppress_toolbar( ).
* Focus auf ALV setzen
cl_gui_alv_grid=>set_focus( control = o_alv ).
* Flag für Screen-Status auf ALV-Anzeige setzen
gv_screen_status = 'IN_ALV'.
ENDIF.
**********************************************************************
*
* START-OF-SELECTION
*
**********************************************************************
START-OF-SELECTION.
* Wir befinden uns im Anzeigebereich des Selektionsbildes
gv_screen_status = 'IN_SELECTION'.
* Trick: leeren Dummy-Screen 2000 anzeigen und intern für das ALV-Grid in
* AT SELECTION-SCREEN OUTPUT als cl_gui_container=>default_screen nutzen
CALL SELECTION-SCREEN 2000.
DATA: gv_num TYPE i.
SELECT-OPTIONS: p_num FOR gv_num.
INITIALIZATION.
* Zahlenwerte 3 und 9
p_num[] = VALUE #( ( sign = 'I' option = 'EQ' low = 3 )
( sign = 'I' option = 'EQ' low = 9 ) ).
DATA: gv_matnr TYPE mara-matnr. DATA: gv_werks TYPE mard-werks. SELECT-OPTIONS: so_matnr FOR gv_matnr. SELECT-OPTIONS: so_werks FOR gv_werks. INITIALIZATION. * MATNR von / bis so_matnr[] = VALUE #( ( sign = 'I' option = 'BT' low = '000000001000000000' high = '000000002000000000' ) ). * Werk 0001 so_werks[] = VALUE #( ( sign = 'I' option = 'EQ' low = '0001' ) ).
DATA: gv_werks TYPE mard-werks. SELECT-OPTIONS: so_werks FOR gv_werks. INITIALIZATION. * Ausschluss Werk 0001 so_werks[] = VALUE #( ( sign = 'E' option = 'EQ' low = '0001' ) ).
Ein RANGE definiert eine spezielle interne Tabelle vom Typ STANDARD TABLE mit Header Line zur Abbildung von Intervallen (z.B. für SELECT-OPTIONS und WHERE … IN).
Die Definition von RANGES an sich ist obsolet.
Weiterführende Infos: Link und Link
* SELOPT * RSDSSELOPT * RSIS_S_RANGE
* RSELOPTION * CMS_TAB_BII_CAG_TYP_RNG * FIWTIN_T_SELOPT * PIQ_SELOPT_T * PSI_WE_SELOPT_TT
IF_FSBP_CONST_RANGE (Konstanten für die Selektionstabellen bzw. Ranges-Tabellen) * OPTION_BETWEEN 'BT' * OPTION_CONTAINS_PATTERN 'CP' * OPTION_EQUAL 'EQ' * OPTION_GREATER 'GT' * OPTION_GREATER_EQUAL 'GE' * OPTION_LESS 'LT' * OPTION_LESS_EQUAL 'LE' * OPTION_NOT_BETWEEN 'NB' * OPTION_NOT_CONTAINS_PATTERN 'NP' * OPTION_NOT_EQUAL 'NE' * SIGN_EXCLUDE 'E' * SIGN_INCLUDE 'I'
REPORT zrange_demo.
* Klasse für Demo der Übergabe von RANGEs (SELECT-OPTIONS)
CLASS lcl_matnr DEFINITION.
PUBLIC SECTION.
CLASS-METHODS:
get_data
IMPORTING
i_it_matnr TYPE STANDARD TABLE. " RANGE (SELECT-OPTIONS) als STANDARD TABLE übergeben
ENDCLASS.
CLASS lcl_matnr IMPLEMENTATION.
METHOD get_data.
DATA: it_mara TYPE STANDARD TABLE OF mara WITH DEFAULT KEY.
* STANDARD TABLE im SQL verwenden
SELECT * FROM mara INTO TABLE @it_mara
WHERE matnr IN @i_it_matnr.
...
ENDMETHOD.
ENDCLASS.
* SELECT-OPTIONS festlegen
DATA: lv_matnr TYPE mara-matnr.
* RANGE so_matnr für MATNR definieren
SELECT-OPTIONS: so_matnr FOR lv_matnr.
INITIALIZATION.
* RANGE so_matnr initialisieren
so_matnr[] = VALUE #( ( sign = 'I'
option = 'EQ'
low = '0000012345'
high = '' ) ).
START-OF-SELECTION.
* Datenbereich des RANGE so_matnr übergeben
lcl_matnr=>get_data( i_it_matnr = so_matnr[] ).
* erzeugt eine interne Tabelle vom Typ STANDARD TABLE mit Header Line mit den Datenfeldern * SIGN (C(1)) | OPTION (C(2)) | LOW (C(10)) | HIGH (C(10)) DATA: it_kunnr TYPE RANGE OF kunnr.
TYPES: BEGIN OF ty_range,
sign TYPE ddsign,
option TYPE ddoption,
low TYPE char18, " char18 für 18-stellige MATNR
high TYPE char18, " char18 für 18-stellige MATNR
END OF ty_range.
* erzeugt eine interne Tabelle vom Typ STANDARD TABLE mit den Datenfeldern
* SIGN (C(1)) | OPTION (C(2)) | LOW (C(18)) | HIGH (C(18))
DATA: it_matnr TYPE STANDARD TABLE OF ty_range WITH DEFAULT KEY.
DATA(rg_so_carrid) = VALUE rseloption( ( sign = 'I'
option = 'EQ'
low = 'AA'
high = '' ) ).
DATA(rg_carrid) = VALUE rseloption( ( sign = 'I' option = 'EQ' low = 'AA' high = '' )
( sign = 'I' option = 'EQ' low = 'LH' high = '' )
).
SELECT *
INTO TABLE @DATA(it_sflight)
FROM sflight
WHERE carrid IN @rg_carrid.
cl_demo_output=>display( it_sflight ).
* Liste mit Namen
DATA(it_names) = VALUE string_table( ( |Horst| ) ( |Heiner| ) ( |Ida| ) ( |Lotte| ) ( |Hanna| ) ).
* Range mit Suchbegriffen
DATA(rg_search) = VALUE rseloption( ( sign = 'I' option = 'EQ' low = 'Ida' high = '' )
( sign = 'I' option = 'EQ' low = 'Lotte' high = '' )
).
* Filtern der Liste mittels WHERE-Condition + RANGE
LOOP AT it_names ASSIGNING FIELD-SYMBOL(<n>) WHERE table_line IN rg_search.
WRITE: / <n>.
ENDLOOP.
DATA: lv_matnr TYPE matnr.
* Parameterfeld von ... bis mit Dictionary-Type
SELECT-OPTIONS: so_matnr FOR lv_matnr DEFAULT '0000000001' TO '1000000000'.
START-OF-SELECTION.
* so_matnr ist eine itab mit Kopfzeile
IF lines( so_matnr ) > 0.
* erstes Element der itab ausgeben
WRITE: / so_matnr[ 1 ]-sign, so_matnr[ 1 ]-option, so_matnr[ 1 ]-low, so_matnr[ 1 ]-high.
ENDIF.
* von 01.01.1999 bis Systemdatum
SELECT-OPTIONS: so_date FOR sy-datum DEFAULT '19990101' TO sy-datum.
START-OF-SELECTION.
* so_date ist eine itab mit Kopfzeile
IF lines( so_date ) > 0.
* erstes Element der itab ausgeben
WRITE: / so_date[ 1 ]-sign, so_date[ 1 ]-option, so_date[ 1 ]-low, so_date[ 1 ]-high.
ENDIF.
SELECT-OPTIONS: so_date FOR sy-datum.
INITIALIZATION.
* Initialwerte für so_date setzen
so_date[] = VALUE #( ( sign = 'I'
option = 'BT'
low = sy-datum - 5
high = sy-datum
)
).
START-OF-SELECTION.
* so_date ist eine itab mit Kopfzeile
IF lines( so_date ) > 0.
* erstes Element der itab ausgeben
WRITE: / so_date[ 1 ]-sign, so_date[ 1 ]-option, so_date[ 1 ]-low, so_date[ 1 ]-high.
ENDIF.
* Zugriff Tabellenobjekt aus dem Dictionary deklarieren,
* automatische Verknüpfung der Suchilfe auch zu and. Objekten des Selektionsbildschirms
* obsolet (sollte nicht mehr verwendet werden)
TABLES: mara.
* Parameterfeld von ... bis mit Dictionary-Type
SELECT-OPTIONS: so_matnr FOR mara-matnr DEFAULT '0000000001' TO '1000000000'.
START-OF-SELECTION.
* so_matnr ist eine itab mit Kopfzeile
IF lines( so_matnr ) > 0.
* erstes Element der itab ausgeben
WRITE: / so_matnr[ 1 ]-sign, so_matnr[ 1 ]-option, so_matnr[ 1 ]-low, so_matnr[ 1 ]-high.
ENDIF.