mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
1cbda2f2ae
* refactor export package to zip to HTML form * change literal to constant * downport statement * remove popup package_export * reorder methods, unify whitespace Co-authored-by: Lars Hvam <larshp@hotmail.com>
145 lines
4.1 KiB
ABAP
145 lines
4.1 KiB
ABAP
CLASS zcl_abapgit_gui_page_ex_object DEFINITION
|
|
PUBLIC
|
|
INHERITING FROM zcl_abapgit_gui_component
|
|
FINAL
|
|
CREATE PRIVATE.
|
|
|
|
PUBLIC SECTION.
|
|
INTERFACES zif_abapgit_gui_event_handler.
|
|
INTERFACES zif_abapgit_gui_renderable.
|
|
|
|
CLASS-METHODS create
|
|
RETURNING
|
|
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
|
|
RAISING
|
|
zcx_abapgit_exception.
|
|
METHODS constructor
|
|
RAISING
|
|
zcx_abapgit_exception.
|
|
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
CONSTANTS:
|
|
BEGIN OF c_id,
|
|
object_type TYPE string VALUE 'object_type',
|
|
object_name TYPE string VALUE 'object_name',
|
|
END OF c_id.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_event,
|
|
go_back TYPE string VALUE 'go-back',
|
|
export TYPE string VALUE 'export',
|
|
choose_object_type TYPE string VALUE 'choose-object-type',
|
|
END OF c_event.
|
|
|
|
|
|
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
|
|
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
|
|
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map.
|
|
DATA mo_form_util TYPE REF TO zcl_abapgit_html_form_utils.
|
|
|
|
METHODS get_form_schema
|
|
RETURNING
|
|
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form.
|
|
|
|
METHODS export_object
|
|
RAISING
|
|
zcx_abapgit_exception.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_gui_page_ex_object IMPLEMENTATION.
|
|
METHOD constructor.
|
|
super->constructor( ).
|
|
CREATE OBJECT mo_validation_log.
|
|
CREATE OBJECT mo_form_data.
|
|
mo_form = get_form_schema( ).
|
|
mo_form_util = zcl_abapgit_html_form_utils=>create( mo_form ).
|
|
ENDMETHOD.
|
|
|
|
METHOD create.
|
|
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_ex_object.
|
|
CREATE OBJECT lo_component.
|
|
|
|
ri_page = zcl_abapgit_gui_page_hoc=>create(
|
|
iv_page_title = 'Export Object to Files'
|
|
ii_child_component = lo_component ).
|
|
ENDMETHOD.
|
|
|
|
METHOD get_form_schema.
|
|
ro_form = zcl_abapgit_html_form=>create( iv_form_id = 'export-object-to-files' ).
|
|
|
|
ro_form->text(
|
|
iv_label = 'Object Type'
|
|
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_name = c_id-object_name
|
|
iv_required = abap_true
|
|
iv_upper_case = abap_true
|
|
)->command(
|
|
iv_label = 'Export'
|
|
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
|
|
iv_action = c_event-export
|
|
)->command(
|
|
iv_label = 'Back'
|
|
iv_action = c_event-go_back ).
|
|
ENDMETHOD.
|
|
|
|
METHOD zif_abapgit_gui_event_handler~on_event.
|
|
mo_form_data = mo_form_util->normalize( ii_event->form_data( ) ).
|
|
|
|
CASE ii_event->mv_action.
|
|
WHEN c_event-go_back.
|
|
|
|
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
|
|
|
|
WHEN c_event-export.
|
|
|
|
export_object( ).
|
|
MESSAGE 'Object successfully exported' TYPE 'S'.
|
|
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
|
|
|
|
WHEN c_event-choose_object_type.
|
|
|
|
mo_form_data->set(
|
|
iv_key = c_id-object_type
|
|
iv_val = zcl_abapgit_ui_factory=>get_popups( )->popup_search_help( 'TADIR-OBJECT' ) ).
|
|
|
|
IF mo_form_data->get( c_id-object_type ) IS NOT INITIAL.
|
|
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
|
|
ELSE.
|
|
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
|
|
ENDIF.
|
|
ENDCASE.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD export_object.
|
|
DATA lv_object_type TYPE trobjtype.
|
|
DATA lv_object_name TYPE sobj_name.
|
|
|
|
lv_object_type = mo_form_data->get( c_id-object_type ).
|
|
lv_object_name = mo_form_data->get( c_id-object_name ).
|
|
|
|
zcl_abapgit_zip=>export_object(
|
|
iv_object_type = lv_object_type
|
|
iv_object_name = lv_object_name ).
|
|
ENDMETHOD.
|
|
|
|
METHOD zif_abapgit_gui_renderable~render.
|
|
gui_services( )->register_event_handler( me ).
|
|
|
|
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
|
|
|
|
ri_html->add( mo_form->render(
|
|
io_values = mo_form_data
|
|
io_validation_log = mo_validation_log ) ).
|
|
ENDMETHOD.
|
|
|
|
ENDCLASS.
|