Code: Alles auswählen.
g_obj->alv_show( ).
* Anzeige des User-Screens
SET PF-STATUS 'RESULT'.
WRITE / space.
Code: Alles auswählen.
SET PF-STATUS `RESULT`.
WRITE / space.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN `LOG`. PERFORM show_log.
WHEN `ERGEBNIS`. PERFORM show_ergebnis.
WHEN `EXIT`. PERFORM exit.
ENDCASE.
Code: Alles auswählen.
DATA: datex TYPE c LENGTH 10,
time(8) TYPE c,
gs_butxt2 TYPE c LENGTH 100,
gr_alv TYPE REF TO cl_salv_table,
gr_columns TYPE REF TO cl_salv_columns_table,
gr_column TYPE REF TO cl_salv_column_table,
gr_header TYPE REF TO cl_salv_form_layout_grid,
gr_h_flow TYPE REF TO cl_salv_form_layout_flow.
Try.
cl_salv_table=>factory(
IMPORTING
r_salv_table = gr_alv
CHANGING
t_table = it_kopk
).
CATCH cx_salv_msg.
ENDTRY.
gr_columns = gr_alv->get_columns( ).
gr_columns->set_optimize( abap_true ).
" Erzeugung eines Objektes für die
" Überschrift.
CREATE OBJECT gr_header.
" Funktionsaufruf um das Datum in einer
" anderen Ausgabenart anzeigen zu lassen.
CALL FUNCTION 'FORMAT_DATE_4_OUTPUT'
EXPORTING
datin = sy-datum
format = 'DD.MM.YYYY'
IMPORTING
datex = datex.
" Verbindung von der Uhrzeit in die Variable Time
" um die Uhrzeit in einer anderen Ausgabenart anzeigen
" zu lassen.
CONCATENATE sy-uzeit(2) ':' sy-uzeit+2(2) ':' sy-uzeit+4(2)
INTO time.
" setzen einer Kopfzeile der internen Tabelle
" in der ALV-Grid Darstellung. Es soll ein Text,
" Datum und Uhrzeit erscheinen.
gr_h_flow = gr_header->create_flow( row = 1 column = 1 ).
CONCATENATE: 'Kreditorennummern:'
datex '/' time '/' sy-uname
INTO gs_butxt2 SEPARATED BY space.
gr_h_flow->create_text( text = gs_butxt2 ).
CLEAR gs_butxt2.
" Setzen einer Leerzeile.
gr_h_flow = gr_header->create_flow( row = 2 column = 1 ).
gs_butxt2 = ''.
gr_h_flow->create_text( text = gs_butxt2 ).
CLEAR gs_butxt2.
" Setzen einer Kopfzeile und Anzeige der aus der Liste
" gelöschten.
gr_h_flow = gr_header->create_flow( row = 3 column = 1 ).
gs_butxt2 = 'Folgende Verträge:'.
gr_h_flow->create_text( text = gs_butxt2 ).
" Setzen einer Leerzeile.
gr_h_flow = gr_header->create_flow( row = 4 column = 1 ).
gs_butxt2 = ''.
gr_h_flow->create_text( text = gs_butxt2 ).
CLEAR gs_butxt2.
" Einschalten der Funktionssymbole vom ALV-Grid.
gr_alv->get_functions( )->set_all( abap_true ).
" Ausgabe der Daten per ALV-Grid.
gr_alv->display( ).
Code: Alles auswählen.
gr_alv->set_top_of_list( gr_header ).
Code: Alles auswählen.
METHOD set_colors.
DATA: gr_coltab TYPE REF TO cl_salv_column_table.
TRY.
gr_coltab = CAST cl_salv_column_table( co_alv->get_columns( )->get_column( 'SPALTE1' ) ).
gr_coltab->set_color( VALUE #( col = 1 int = 1 inv = 1 ) ).
CATCH cx_salv_not_found ##NO_HANDLER.
ENDTRY.
ENDMETHOD. "set_colors