SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

export object page: allow exporting list of objs (#5936)

Browse Source 
Co-authored-by: Marc Bernard <59966492+mbtools@users.noreply.github.com>
This commit is contained in:
Lars Hvam 2022-12-15 11:54:36 +01:00 committed by GitHub
parent 8a0c93e92f
commit 1bcf259a41
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 27 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/ui/zcl_abapgit_gui_page_ex_object.clas.abap
View File

@ -72,24 +72,34 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_EX_OBJECT IMPLEMENTATION.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = 'Export Object to Files'
iv_page_title = 'Export Objects to Files'
ii_child_component = lo_component ).
ENDMETHOD.
METHOD export_object.
DATA lv_object_type TYPE trobjtype.
DATA lv_object_name TYPE sobj_name.
DATA lt_names TYPE STANDARD TABLE OF sobj_name WITH DEFAULT KEY.
DATA lv_name LIKE LINE OF lt_names.
DATA lv_list TYPE string.
DATA lv_only_main TYPE abap_bool.
lv_object_type = mo_form_data->get( c_id-object_type ).
lv_object_name = mo_form_data->get( c_id-object_name ).
lv_list = mo_form_data->get( c_id-object_name ).
lv_only_main = mo_form_data->get( c_id-only_main ).
zcl_abapgit_zip=>export_object(
iv_main_language_only = lv_only_main
iv_object_type = lv_object_type
iv_object_name = lv_object_name ).
REPLACE ALL OCCURRENCES OF |\r| IN lv_list WITH ''.
SPLIT lv_list AT |\n| INTO TABLE lt_names.
LOOP AT lt_names INTO lv_name.
IF lv_name IS INITIAL.
CONTINUE.
ENDIF.
zcl_abapgit_zip=>export_object(
iv_main_language_only = lv_only_main
iv_object_type = lv_object_type
iv_object_name = lv_name ).
ENDLOOP.
ENDMETHOD.
@ -101,11 +111,13 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_EX_OBJECT IMPLEMENTATION.
iv_name = c_id-object_type
iv_required = abap_true
iv_upper_case = abap_true
iv_side_action = c_event-choose_object_type
)->text(
iv_label = 'Object Name'
iv_side_action = c_event-choose_object_type ).
ro_form->textarea(
iv_label = 'Object Names'
iv_name = c_id-object_name
iv_required = abap_true
iv_placeholder = 'One object name per line'
iv_upper_case = abap_true ).
ro_form->checkbox(

2
src/ui/zcl_abapgit_html_form.clas.abap
View File

@ -56,6 +56,7 @@ CLASS zcl_abapgit_html_form DEFINITION
!iv_placeholder TYPE csequence OPTIONAL
!iv_rows TYPE i OPTIONAL
!iv_cols TYPE i OPTIONAL
!iv_upper_case TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS number
@ -906,6 +907,7 @@ CLASS zcl_abapgit_html_form IMPLEMENTATION.
ls_field-placeholder = iv_placeholder.
ls_field-rows = iv_rows.
ls_field-cols = iv_cols.
ls_field-upper_case = iv_upper_case.
APPEND ls_field TO mt_fields.

4
src/ui/zcl_abapgit_html_form_utils.clas.abap
View File

@ -178,7 +178,9 @@ CLASS zcl_abapgit_html_form_utils IMPLEMENTATION.
ro_form_data->set(
iv_key = <ls_field>-name
iv_val = boolc( lv_value = 'on' ) ) ##TYPE.
ELSEIF <ls_field>-type = zif_abapgit_html_form=>c_field_type-text AND <ls_field>-upper_case = abap_true.
ELSEIF ( <ls_field>-type = zif_abapgit_html_form=>c_field_type-text
OR <ls_field>-type = zif_abapgit_html_form=>c_field_type-textarea )
AND <ls_field>-upper_case = abap_true.
ro_form_data->set(
iv_key = <ls_field>-name
iv_val = to_upper( lv_value ) ).