SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Add Select all/none buttons to table select popup

Browse Source
This commit is contained in:
apex8 2017-10-05 15:48:26 +02:00 committed by GitHub
parent 051f3fb6a3
commit 8ed5d896ab
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/zabapgit_popups.prog.abap
View File

@ -749,8 +749,8 @@ CLASS lcl_popups IMPLEMENTATION.
CHANGING t_table = lt_popup_list ).
GET REFERENCE OF lt_popup_list INTO mtr_select_list.
mo_select_list_popup->set_screen_status( pfstatus = 'ST850'
report = 'SAPLKKBL' ).
mo_select_list_popup->set_screen_status( pfstatus = '102'
report = 'SAPMSVIM' ).
mo_select_list_popup->set_screen_popup( start_column = 1
end_column = 65
@ -808,13 +808,33 @@ CLASS lcl_popups IMPLEMENTATION.
ENDMETHOD.
METHOD on_select_list_function_click.
DATA:
lsr_line TYPE REF TO t_popup_select_list.
CASE e_salv_function.
WHEN 'GOON'.
WHEN 'O.K.'.
mo_select_list_popup->close_screen( ).
WHEN 'ABR'.
"Canceled: clear list to overwrite nothing
CLEAR mtr_select_list->*.
mo_select_list_popup->close_screen( ).
WHEN 'SALL'.
LOOP AT mtr_select_list->* REFERENCE INTO lsr_line.
lsr_line->selected = abap_true.
ENDLOOP.
mo_select_list_popup->refresh( ).
WHEN 'DSEL'.
LOOP AT mtr_select_list->* REFERENCE INTO lsr_line.
lsr_line->selected = abap_false.
ENDLOOP.
mo_select_list_popup->refresh( ).
WHEN OTHERS.
CLEAR mtr_select_list->*.
mo_select_list_popup->close_screen( ).
ENDCASE.
ENDMETHOD.