Dialog-Container mit Toolbar/Status
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
5 Beiträge
•
Seite 1 von 1
5 Beiträge
Seite 1 von 1
Aloha,
für Nutzereingaben möchte ich gerne einen Dialog-Container nutzen, weil man die Position & Größe des Fenster (wie bei normalen Fenstern gewohnt) direkt verändern kann und beides beim Schließen auch hinterlegen und wiederverwenden kann.
Leider gefällt mir dabei aber nicht, dass es nur einen pauschalen Schließen-Knopf und kein OK/CANCEL gibt. Der Nutzer hat also keine Möglichkeit, abzubrechen oder zu bestätigen. Daher möchte ich da zusätzlich zum eigentlich angezeigten Dialog-Inhalt einen entsprechenden Status/Toolbar nutzen, was mir jedoch nicht so recht gelingen will.
Ich kann zwar den Texteditor anzeigen und etwaige Eingaben übernehmen und auch eine Toolbox mit Buttons anzeigen und auswerten, aber nicht beides gleichzeitig, weil der Splitter-Container samt Kind-Containern zwar angezeigt wird, die aber weder mit Texteditor, noch mit Toolbox befüllt werden.
Habt ihr eine Idee, woran das liegt?
Seltsam finde ich auch, dass beim SALV im Vollbildmodus Änderungen des Texteditors trotz explizitem Full-Refresh nicht direkt übernommen werden, sondern erst nach nochmaliger PAI-Triggerung.
Anbei mein Test-Report:
für Nutzereingaben möchte ich gerne einen Dialog-Container nutzen, weil man die Position & Größe des Fenster (wie bei normalen Fenstern gewohnt) direkt verändern kann und beides beim Schließen auch hinterlegen und wiederverwenden kann.
Leider gefällt mir dabei aber nicht, dass es nur einen pauschalen Schließen-Knopf und kein OK/CANCEL gibt. Der Nutzer hat also keine Möglichkeit, abzubrechen oder zu bestätigen. Daher möchte ich da zusätzlich zum eigentlich angezeigten Dialog-Inhalt einen entsprechenden Status/Toolbar nutzen, was mir jedoch nicht so recht gelingen will.
Ich kann zwar den Texteditor anzeigen und etwaige Eingaben übernehmen und auch eine Toolbox mit Buttons anzeigen und auswerten, aber nicht beides gleichzeitig, weil der Splitter-Container samt Kind-Containern zwar angezeigt wird, die aber weder mit Texteditor, noch mit Toolbox befüllt werden.
Habt ihr eine Idee, woran das liegt?
Seltsam finde ich auch, dass beim SALV im Vollbildmodus Änderungen des Texteditors trotz explizitem Full-Refresh nicht direkt übernommen werden, sondern erst nach nochmaliger PAI-Triggerung.
Anbei mein Test-Report:
Code: Alles auswählen.
report z_test.
" ___ DEFINITION ____________________________________________________
class lcl_salv_handler definition.
public section.
types:
begin of lty_parameter,
dialog_with_splitter type boolean_flg,
dialog_with_text_editor type boolean_flg,
salv_in_fullscreen type boolean_flg,
end of lty_parameter.
methods:
constructor importing is_parameter type lty_parameter.
private section.
types:
begin of lty_dialog,
container type ref to cl_gui_dialogbox_container,
begin of dimensions,
height type i,
left type i,
top type i,
width type i,
end of dimensions,
splitter_bottom type ref to cl_gui_container,
splitter_container type ref to cl_gui_splitter_container,
splitter_top type ref to cl_gui_container,
text_editor type ref to cl_gui_textedit,
toolbar type ref to cl_gui_toolbar,
end of lty_dialog.
data:
mo_salv type ref to cl_salv_table,
mt_data type standard table of sbuspart with default key,
ms_dialog type lty_dialog,
ms_parameter type lty_parameter,
mv_selected_row type i.
methods:
adopt_change,
close_dialog,
create_salv,
show_dialog,
" --- event methods -------------------------------------------
on_dialog_close for event close of cl_gui_dialogbox_container importing sender,
on_dialog_toolbar_function for event function_selected of cl_gui_toolbar importing fcode,
on_double_click for event double_click of cl_salv_events_table importing row column.
endclass.
" ___ IMPLEMENTATION ________________________________________________
class lcl_salv_handler implementation.
" === adopt change ================================================
method adopt_change.
check ms_dialog-text_editor is not initial.
ms_dialog-text_editor->get_textstream(
importing
is_modified = data(lv_is_modified)
text = data(lv_text)
).
cl_gui_cfw=>flush( ).
check lv_is_modified is not initial.
mt_data[ mv_selected_row ]-contact = lv_text.
mo_salv->refresh(
refresh_mode = if_salv_c_refresh=>full
s_stable = value #(
col = abap_true
row = abap_true
)
).
if ms_parameter-salv_in_fullscreen is not initial.
cl_gui_cfw=>set_new_ok_code( |OK| ). " change is only shown after pai trigger
endif.
endmethod.
" === close dialog ================================================
method close_dialog.
check ms_dialog-container is not initial.
ms_dialog-container->get_height( importing height = ms_dialog-dimensions-height ).
ms_dialog-container->get_left( importing left = ms_dialog-dimensions-left ).
ms_dialog-container->get_top( importing top = ms_dialog-dimensions-top ).
ms_dialog-container->get_width( importing width = ms_dialog-dimensions-width ).
" --- free text editor ------------------------------------------
if ms_dialog-text_editor is not initial.
" =============================================================
" normally, adopt_change() should only be called when the user
" clicks on 'OK'. but as the text editor and toolbar cannot be
" shown together, the call of adopt_change( ) is included here.
" this line can be removed when the issue has been resolved.
" =============================================================
adopt_change( ).
ms_dialog-text_editor->free( ).
free ms_dialog-text_editor.
endif.
" --- free toolbar ----------------------------------------------
if ms_dialog-toolbar is not initial.
ms_dialog-toolbar->free( ).
free ms_dialog-toolbar.
endif.
" --- free splitter ---------------------------------------------
if ms_dialog-splitter_container is not initial.
if ms_dialog-splitter_top is not initial.
ms_dialog-splitter_container->remove_control(
column = 1
row = 1
).
ms_dialog-splitter_top->free( ).
free ms_dialog-splitter_top.
endif.
if ms_dialog-splitter_bottom is not initial.
ms_dialog-splitter_container->remove_control(
column = 1
row = 2
).
ms_dialog-splitter_bottom->free( ).
free ms_dialog-splitter_bottom.
endif.
ms_dialog-splitter_container->free( ).
free ms_dialog-splitter_container.
endif.
" --- free dialog -----------------------------------------------
ms_dialog-container->free( ).
free ms_dialog-container.
clear mv_selected_row.
endmethod.
" === constructor =================================================
method constructor.
ms_parameter = is_parameter.
ms_dialog-dimensions = value #(
height = 200
left = 200
top = 60
width = 400
).
select *
into corresponding fields of table mt_data
from sbuspart up to 20 rows.
create_salv( ).
endmethod.
" === create salv =================================================
method create_salv.
try.
if ms_parameter-salv_in_fullscreen is initial.
cl_salv_table=>factory(
exporting
r_container = cl_gui_container=>default_screen
importing
r_salv_table = mo_salv
changing
t_table = mt_data
).
else.
cl_salv_table=>factory(
importing
r_salv_table = mo_salv
changing
t_table = mt_data
).
mo_salv->get_functions( )->set_default( abap_true ).
endif.
mo_salv->get_columns( )->set_optimize( abap_true ).
mo_salv->get_selections( )->set_selection_mode( if_salv_c_selection_mode=>cell ).
set handler on_double_click for mo_salv->get_event( ).
catch cx_root.
" ...
endtry.
mo_salv->display( ).
if ms_parameter-salv_in_fullscreen is initial.
write space.
endif.
endmethod.
" === on dialog close =============================================
method on_dialog_close.
check sender is not initial.
close_dialog( ).
endmethod.
" === on dialog toolbar function ==================================
method on_dialog_toolbar_function.
case fcode.
when 'CANCEL'. close_dialog( ).
when 'OK'. adopt_change( ). close_dialog( ).
endcase.
endmethod.
" === on double click =============================================
method on_double_click.
check row > 0
and ms_dialog-container is initial.
mv_selected_row = row.
show_dialog( ).
endmethod.
" === show dialog =================================================
method show_dialog.
check ms_dialog-container is initial.
" --- create dialog ---------------------------------------------
ms_dialog-container = new #(
height = ms_dialog-dimensions-height
left = ms_dialog-dimensions-left
parent = cl_gui_container=>default_screen
top = ms_dialog-dimensions-top
width = ms_dialog-dimensions-width
).
set handler on_dialog_close for ms_dialog-container.
" --- splitter --------------------------------------------------
if ms_parameter-dialog_with_splitter is not initial.
ms_dialog-splitter_container = new #(
columns = 1
parent = ms_dialog-container
rows = 2
).
ms_dialog-splitter_top = new cl_gui_custom_container(
container_name = 'DIALOG_TOP'
).
ms_dialog-splitter_container->add_control(
column = 1
control = ms_dialog-splitter_top
row = 1
).
ms_dialog-splitter_bottom = new cl_gui_custom_container(
container_name = 'DIALOG_BOTTOM'
).
ms_dialog-splitter_container->add_control(
column = 1
control = ms_dialog-splitter_bottom
row = 2
).
endif.
" --- text editor -----------------------------------------------
if ms_parameter-dialog_with_text_editor is not initial.
ms_dialog-text_editor = new #(
parent = switch #( ms_parameter-dialog_with_splitter
when space then ms_dialog-container
else ms_dialog-splitter_top
)
).
ms_dialog-text_editor->set_textstream(
conv #( mt_data[ mv_selected_row ]-contact )
).
endif.
" --- toolbar ---------------------------------------------------
ms_dialog-toolbar = new #(
parent = switch #( ms_parameter-dialog_with_splitter
when space then ms_dialog-container
else ms_dialog-splitter_bottom
)
).
ms_dialog-toolbar->add_button(
butn_type = cntb_btype_button
fcode = 'OK'
icon = icon_okay
text = 'OK'
).
ms_dialog-toolbar->add_button(
butn_type = cntb_btype_button
fcode = 'CANCEL'
icon = icon_cancel
text = 'Cancel'
).
ms_dialog-toolbar->set_registered_events(
value #(
(
appl_event = 'X'
eventid = ms_dialog-toolbar->m_id_function_selected
)
)
).
set handler on_dialog_toolbar_function for ms_dialog-toolbar.
endmethod.
endclass.
* ___ INITIALIZATION ________________________________________________
initialization.
parameters:
p_salvfs as checkbox, " salv in fullscreen
p_diaspl as checkbox, " dialog with splitter
p_diated as checkbox. " dialog with text editor
data lt_seltexts type standard table of rsseltexts with default key.
lt_seltexts = value #(
( kind = |P| name = |P_DIASPL| text = |Dialog with Splitter| )
( kind = |P| name = |P_DIATED| text = |Dialog with Text Editor| )
( kind = |P| name = |P_SALVFS| text = |SALV in Fullscreen| )
).
call function 'SELECTION_TEXTS_MODIFY'
exporting
program = sy-cprog
tables
seltexts = lt_seltexts.
* ___ START-OF-SELECTION ____________________________________________
start-of-selection.
data(lo_salv_handler) = new lcl_salv_handler(
value #(
dialog_with_splitter = p_diaspl
dialog_with_text_editor = p_diated
salv_in_fullscreen = p_salvfs
)
).
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Code: Alles auswählen.
" --- splitter --------------------------------------------------
if ms_parameter-dialog_with_splitter is not initial.
ms_dialog-splitter_container = new #(
columns = 1
parent = ms_dialog-container
rows = 2
).
ms_dialog-splitter_top = ms_dialog-splitter_container->get_container( column = 1 row = 1 ).
ms_dialog-splitter_bottom = ms_dialog-splitter_container->get_container( column = 1 row = 2 ).
endif.
Aber dafür dumpt die toolbar =) Habe leider nicht wirklich Ahnung von Containern, bin aber auf die Lösung gespannt.
Übernahme der geänderten Daten hat im unveränderten Code im ersten PAI funktioniert. Nutze hier SAP GUI 7.80 rev 7 for JAVA mit der Docker-Trial. Die kennt übriegens boolean_flg nicht, musste ich durch abap_bool ersetzen.
Die Anzeige ohne SALV im fullscreen ist bei mir kaputt: https://i.imgur.com/i4wEHhm.png
ich denke, die Lösung von rob_abc ist korrekt. Du kannst einen Custom-Container nur in einen auf dem Dynpro definierten Bereich "Custom Container" verwenden.
Das ganze "free splitter" kannst du dir sparen. Da kommen bei mir shortdumps.
Das ganze "free splitter" kannst du dir sparen. Da kommen bei mir shortdumps.
Beitrag
von black_adept (Top Expert / 4071 / 120 /
934
)
»
Die Lösung von rob_abc ist korrekt. Aber in der von Enno angesprochenen Routine, die den FREE auf den Splitter macht, dumpt es, weil noch versucht wird die beiden Container freizugeben. Wenn man dieses unterlässt, weil der Splitter seine Container halt gerne selber verwalten möchte, und einfach die FREE-Methode des Splitters aufruft funktioniert es. Aber nicht im Fullscreen modus - dort erst nach Auslösen eines der Funktionscode wie sortieren.
Aber den SALV im Fullscreenmodus würde ich sowieso verbieten. Der basiert auf den alten REUSE-Bausteinen und arbeitet mit Callback-Routinen etc und hat noch diverse anderen Einschränkungen. z.B. triggern die Funktionscodes der Dialogbox einen PAI des Fullscreensalv aber nicht mit sinnvollen Daten . Fullscreensalv ist so ein Ding, dass man am Besten nur zum Ausgeben einer trivialen Liste verwendet aber bei nichts, was komplexer ist.
Aber den SALV im Fullscreenmodus würde ich sowieso verbieten. Der basiert auf den alten REUSE-Bausteinen und arbeitet mit Callback-Routinen etc und hat noch diverse anderen Einschränkungen. z.B. triggern die Funktionscodes der Dialogbox einen PAI des Fullscreensalv aber nicht mit sinnvollen Daten . Fullscreensalv ist so ein Ding, dass man am Besten nur zum Ausgeben einer trivialen Liste verwendet aber bei nichts, was komplexer ist.
Sehr geil, rob_abc - es funktioniert nun wunderbar, auch als Fullscreen-Variante!
Wg. BOOLEAN_FLG: das hab ich frecherweise einfach angelegt.
Zum Triggern des PAI für die Fullscreen-Variante musste ich auf den FB "SAPGUI_SET_FUNCTIONCODE" ausweichen und einen explizit vorhandenen Funktionscode angeben. Vielleicht wäre das auch die Lösung von a-dead-trousers bei seinem Problem.
Hier der fertige Code:
Man könnte/müsste/sollte nun das ganze Dialog-Zeug noch in eine eigene Klasse separieren, aber ich bin erstmal froh, dass es überhaupt grundsätzlich geht und man sich so den ganzen üblichen Dynpro/Screen-Kram ersparen kann 🤓
Wg. BOOLEAN_FLG: das hab ich frecherweise einfach angelegt.
Zum Triggern des PAI für die Fullscreen-Variante musste ich auf den FB "SAPGUI_SET_FUNCTIONCODE" ausweichen und einen explizit vorhandenen Funktionscode angeben. Vielleicht wäre das auch die Lösung von a-dead-trousers bei seinem Problem.
Hier der fertige Code:
Code: Alles auswählen.
report z_test.
" ___ DEFINITION ____________________________________________________
class lcl_salv_handler definition.
public section.
methods:
constructor importing iv_salv_in_fullscreen type boolean_flg.
private section.
types:
begin of lty_dialog,
container type ref to cl_gui_dialogbox_container,
begin of dimensions,
height type i,
left type i,
top type i,
width type i,
end of dimensions,
splitter_container type ref to cl_gui_splitter_container,
text_editor type ref to cl_gui_textedit,
toolbar type ref to cl_gui_toolbar,
end of lty_dialog.
data:
mo_salv type ref to cl_salv_table,
mt_data type standard table of sbuspart with default key,
ms_dialog type lty_dialog,
mv_salv_in_fullscreen type boolean_flg,
mv_selected_row type i.
methods:
adopt_change,
close_dialog,
create_salv,
show_dialog,
" --- event methods -------------------------------------------
on_dialog_close for event close of cl_gui_dialogbox_container importing sender,
on_dialog_toolbar_function for event function_selected of cl_gui_toolbar importing fcode,
on_double_click for event double_click of cl_salv_events_table importing row column.
endclass.
" ___ IMPLEMENTATION ________________________________________________
class lcl_salv_handler implementation.
" === adopt change ================================================
method adopt_change.
check ms_dialog-text_editor is not initial.
ms_dialog-text_editor->get_textstream(
importing
is_modified = data(lv_is_modified)
text = data(lv_text)
).
cl_gui_cfw=>flush( ).
check lv_is_modified is not initial.
mt_data[ mv_selected_row ]-contact = lv_text.
mo_salv->refresh(
refresh_mode = if_salv_c_refresh=>full
s_stable = value #(
col = abap_true
row = abap_true
)
).
if mv_salv_in_fullscreen is not initial.
" =============================================================
" SALV in fullscreen is updated after additional PAI trigger
" =============================================================
call function 'SAPGUI_SET_FUNCTIONCODE'
exporting
functioncode = 'CANCEL'.
endif.
endmethod.
" === close dialog ================================================
method close_dialog.
check ms_dialog-container is not initial.
ms_dialog-container->get_height( importing height = ms_dialog-dimensions-height ).
ms_dialog-container->get_left( importing left = ms_dialog-dimensions-left ).
ms_dialog-container->get_top( importing top = ms_dialog-dimensions-top ).
ms_dialog-container->get_width( importing width = ms_dialog-dimensions-width ).
" --- free text editor ------------------------------------------
if ms_dialog-text_editor is not initial.
ms_dialog-text_editor->free( ).
free ms_dialog-text_editor.
endif.
" --- free toolbar ----------------------------------------------
if ms_dialog-toolbar is not initial.
ms_dialog-toolbar->free( ).
free ms_dialog-toolbar.
endif.
" --- free splitter ---------------------------------------------
if ms_dialog-splitter_container is not initial.
ms_dialog-splitter_container->free( ).
free ms_dialog-splitter_container.
endif.
" --- free dialog -----------------------------------------------
ms_dialog-container->free( ).
free ms_dialog-container.
clear mv_selected_row.
endmethod.
" === constructor =================================================
method constructor.
mv_salv_in_fullscreen = iv_salv_in_fullscreen.
ms_dialog-dimensions = value #(
height = 200
left = 200
top = 60
width = 400
).
select *
into corresponding fields of table mt_data
from sbuspart up to 20 rows.
create_salv( ).
endmethod.
" === create salv =================================================
method create_salv.
try.
if mv_salv_in_fullscreen is initial.
cl_salv_table=>factory(
exporting
r_container = cl_gui_container=>default_screen
importing
r_salv_table = mo_salv
changing
t_table = mt_data
).
else.
cl_salv_table=>factory(
importing
r_salv_table = mo_salv
changing
t_table = mt_data
).
mo_salv->get_functions( )->set_default( abap_true ).
endif.
mo_salv->get_columns( )->set_optimize( abap_true ).
mo_salv->get_selections( )->set_selection_mode( if_salv_c_selection_mode=>cell ).
set handler on_double_click for mo_salv->get_event( ).
catch cx_root.
" ...
endtry.
mo_salv->display( ).
if mv_salv_in_fullscreen is initial.
write space.
endif.
endmethod.
" === on dialog close =============================================
method on_dialog_close.
check sender is not initial.
close_dialog( ).
endmethod.
" === on dialog toolbar function ==================================
method on_dialog_toolbar_function.
case fcode.
when 'CANCEL'. close_dialog( ).
when 'OK'. adopt_change( ). close_dialog( ).
endcase.
endmethod.
" === on double click =============================================
method on_double_click.
check row > 0
and ms_dialog-container is initial.
mv_selected_row = row.
show_dialog( ).
endmethod.
" === show dialog =================================================
method show_dialog.
check ms_dialog-container is initial.
" --- create dialog ---------------------------------------------
ms_dialog-container = new #(
height = ms_dialog-dimensions-height
left = ms_dialog-dimensions-left
parent = cl_gui_container=>default_screen
top = ms_dialog-dimensions-top
width = ms_dialog-dimensions-width
).
set handler on_dialog_close for ms_dialog-container.
" --- splitter --------------------------------------------------
ms_dialog-splitter_container = new #(
columns = 1
parent = ms_dialog-container
rows = 2
).
" --- text editor -----------------------------------------------
ms_dialog-text_editor = new #(
parent = ms_dialog-splitter_container->get_container(
column = 1
row = 1
)
).
ms_dialog-text_editor->set_textstream(
conv #( mt_data[ mv_selected_row ]-contact )
).
" --- toolbar ---------------------------------------------------
ms_dialog-toolbar = new #(
parent = ms_dialog-splitter_container->get_container(
column = 1
row = 2
)
).
ms_dialog-toolbar->add_button(
butn_type = cntb_btype_button
fcode = 'OK'
icon = icon_okay
text = 'OK'
).
ms_dialog-toolbar->add_button(
butn_type = cntb_btype_button
fcode = 'CANCEL'
icon = icon_cancel
text = 'Cancel'
).
ms_dialog-toolbar->set_registered_events(
value #(
(
appl_event = 'X'
eventid = ms_dialog-toolbar->m_id_function_selected
)
)
).
set handler on_dialog_toolbar_function for ms_dialog-toolbar.
endmethod.
endclass.
* ___ INITIALIZATION ________________________________________________
initialization.
parameters:
p_salvfs as checkbox. " salv in fullscreen
data lt_seltexts type standard table of rsseltexts with default key.
lt_seltexts = value #(
( kind = |P| name = |P_SALVFS| text = |SALV in Fullscreen| )
).
call function 'SELECTION_TEXTS_MODIFY'
exporting
program = sy-cprog
tables
seltexts = lt_seltexts.
* ___ START-OF-SELECTION ____________________________________________
start-of-selection.
data(lo_salv_handler) = new lcl_salv_handler(
iv_salv_in_fullscreen = p_salvfs
).Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Seite 1 von 1
Vergleichbare Themen
5
Antw.
Antw.
4104
Views
Views
6
Antw.
Antw.
2191
Views
Views
SALV Fullscreen pf-status für Toolbar
von Cubitus » 03.05.2024 14:20 • Verfasst in ABAP® für Anfänger
von Cubitus » 03.05.2024 14:20 • Verfasst in ABAP® für Anfänger
7
Antw.
Antw.
4467
Views
Views
1
Antw.
Antw.
2310
Views
Views
1
Antw.
Antw.
4617
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Funktionscode in Dynpro auslösen nach AMC, aRFC oder ähnlichem
vor 2 Stunden von a-dead-trousers 11 / 478
vor 2 Stunden von a-dead-trousers 11 / 478
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Funktionscode in Dynpro auslösen nach AMC, aRFC oder ähnlichem
vor 2 Stunden von a-dead-trousers 11 / 478
vor 2 Stunden von a-dead-trousers 11 / 478