mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-03 05:18:59 +08:00
297 lines
7.7 KiB
ABAP
297 lines
7.7 KiB
ABAP
CLASS zcl_abapgit_object_area DEFINITION
|
|
PUBLIC
|
|
INHERITING FROM zcl_abapgit_objects_super
|
|
FINAL
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
INTERFACES zif_abapgit_object .
|
|
|
|
ALIASES mo_files
|
|
FOR zif_abapgit_object~mo_files .
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_object_area IMPLEMENTATION.
|
|
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
|
|
DATA: lv_user TYPE string.
|
|
|
|
SELECT SINGLE tstpnm FROM ('RSDAREA') INTO lv_user.
|
|
|
|
rv_user = lv_user.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~delete.
|
|
|
|
DATA:
|
|
lr_area TYPE REF TO object.
|
|
|
|
CREATE OBJECT lr_area TYPE ('CL_NEW_AWB_AREA').
|
|
|
|
CALL METHOD lr_area->('IF_RSAWBN_FOLDER_TREE~DELETE_NODE')
|
|
EXPORTING
|
|
i_nodename = ms_item-obj_name
|
|
i_with_dialog = ''.
|
|
|
|
IF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( |Error while deleting AREA: { ms_item-obj_name }| ).
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~deserialize.
|
|
|
|
DATA:
|
|
lv_nodename TYPE c LENGTH 40,
|
|
lv_parentname TYPE c LENGTH 40,
|
|
lv_txtsh TYPE c LENGTH 20,
|
|
lv_txtlg TYPE c LENGTH 60,
|
|
lr_area TYPE REF TO object.
|
|
|
|
io_xml->read( EXPORTING iv_name = 'NODENAME'
|
|
CHANGING cg_data = lv_nodename ).
|
|
|
|
io_xml->read( EXPORTING iv_name = 'PARENTNAME'
|
|
CHANGING cg_data = lv_parentname ).
|
|
|
|
io_xml->read( EXPORTING iv_name = 'TXTSH'
|
|
CHANGING cg_data = lv_txtsh ).
|
|
|
|
io_xml->read( EXPORTING iv_name = 'TXTLG'
|
|
CHANGING cg_data = lv_txtlg ).
|
|
|
|
CREATE OBJECT lr_area TYPE ('CL_NEW_AWB_AREA').
|
|
|
|
CALL METHOD lr_area->('IF_RSAWBN_FOLDER_TREE~CREATE_NODE')
|
|
EXPORTING
|
|
i_parentname = lv_parentname
|
|
i_nodename = lv_nodename
|
|
i_txtsh = lv_txtsh
|
|
i_txtlg = lv_txtlg.
|
|
|
|
IF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( |Error while creating AREA: { ms_item-obj_name }| ).
|
|
ENDIF.
|
|
|
|
CALL FUNCTION 'TR_TADIR_INTERFACE'
|
|
EXPORTING
|
|
wi_test_modus = abap_false
|
|
wi_tadir_pgmid = 'R3TR'
|
|
wi_tadir_object = ms_item-obj_type
|
|
wi_tadir_obj_name = ms_item-obj_name
|
|
wi_tadir_devclass = iv_package
|
|
EXCEPTIONS
|
|
tadir_entry_not_existing = 1
|
|
tadir_entry_ill_type = 2
|
|
no_systemname = 3
|
|
no_systemtype = 4
|
|
original_system_conflict = 5
|
|
object_reserved_for_devclass = 6
|
|
object_exists_global = 7
|
|
object_exists_local = 8
|
|
object_is_distributed = 9
|
|
obj_specification_not_unique = 10
|
|
no_authorization_to_delete = 11
|
|
devclass_not_existing = 12
|
|
simultanious_set_remove_repair = 13
|
|
order_missing = 14
|
|
no_modification_of_head_syst = 15
|
|
pgmid_object_not_allowed = 16
|
|
masterlanguage_not_specified = 17
|
|
devclass_not_specified = 18
|
|
specify_owner_unique = 19
|
|
loc_priv_objs_no_repair = 20
|
|
gtadir_not_reached = 21
|
|
object_locked_for_order = 22
|
|
change_of_class_not_allowed = 23
|
|
no_change_from_sap_to_tmp = 24
|
|
OTHERS = 25.
|
|
|
|
IF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( |Error while changing package of AREA: { ms_item-obj_name }| ).
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~exists.
|
|
|
|
DATA:
|
|
lr_area TYPE REF TO object,
|
|
lr_tab_tree TYPE REF TO data,
|
|
lr_str_tee TYPE REF TO data.
|
|
|
|
FIELD-SYMBOLS:
|
|
<lt_tree> TYPE STANDARD TABLE,
|
|
<ls_tree> TYPE any.
|
|
|
|
CREATE OBJECT lr_area TYPE ('CL_NEW_AWB_AREA').
|
|
|
|
CREATE DATA lr_tab_tree TYPE STANDARD TABLE OF ('RSAWBN_S_TREEORG').
|
|
ASSIGN lr_tab_tree->* TO <lt_tree>.
|
|
|
|
CREATE DATA lr_str_tee TYPE STANDARD TABLE OF ('RSAWBN_S_TREEORG').
|
|
ASSIGN lr_str_tee->* TO <ls_tree>.
|
|
|
|
CALL METHOD lr_area->('IF_RSAWBN_FOLDER_TREE~GET_TREE')
|
|
EXPORTING
|
|
i_objvers = ''
|
|
i_langu = ''
|
|
IMPORTING
|
|
e_t_tree = <lt_tree>.
|
|
|
|
IF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( |Error while read AREA tree| ).
|
|
ENDIF.
|
|
|
|
READ TABLE <lt_tree> WITH KEY ('NODENAME') = ms_item-obj_name ASSIGNING <ls_tree>.
|
|
|
|
IF sy-subrc = 0.
|
|
rv_bool = abap_true.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_comparator.
|
|
RETURN.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_deserialize_steps.
|
|
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_metadata.
|
|
rs_metadata = get_metadata( ).
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~is_active.
|
|
|
|
DATA:
|
|
lr_area TYPE REF TO object,
|
|
lr_tab_tree TYPE REF TO data,
|
|
lr_str_tee TYPE REF TO data.
|
|
|
|
FIELD-SYMBOLS:
|
|
<lt_tree> TYPE STANDARD TABLE,
|
|
<ls_tree> TYPE any.
|
|
|
|
CREATE OBJECT lr_area TYPE ('CL_NEW_AWB_AREA').
|
|
|
|
CREATE DATA lr_tab_tree TYPE STANDARD TABLE OF ('RSAWBN_S_TREEORG').
|
|
ASSIGN lr_tab_tree->* TO <lt_tree>.
|
|
|
|
CREATE DATA lr_str_tee TYPE STANDARD TABLE OF ('RSAWBN_S_TREEORG').
|
|
ASSIGN lr_str_tee->* TO <ls_tree>.
|
|
|
|
CALL METHOD lr_area->('IF_RSAWBN_FOLDER_TREE~GET_TREE')
|
|
EXPORTING
|
|
i_objvers = 'A'
|
|
i_langu = mv_language
|
|
IMPORTING
|
|
e_t_tree = <lt_tree>.
|
|
|
|
IF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( |Error while read AREA tree| ).
|
|
ENDIF.
|
|
|
|
READ TABLE <lt_tree> WITH KEY ('NODENAME') = ms_item-obj_name ASSIGNING <ls_tree>.
|
|
|
|
IF sy-subrc = 0.
|
|
rv_active = abap_true.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~is_locked.
|
|
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ERSDAREA' ).
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~jump.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~serialize.
|
|
|
|
DATA:
|
|
lr_area TYPE REF TO object,
|
|
lr_tab_tree TYPE REF TO data,
|
|
lr_str_tee TYPE REF TO data,
|
|
lr_rsdareat TYPE REF TO data,
|
|
lv_select TYPE string.
|
|
|
|
FIELD-SYMBOLS:
|
|
<lt_tree> TYPE STANDARD TABLE,
|
|
<ls_tree> TYPE any,
|
|
<lv_parentname> TYPE any,
|
|
<ls_rsdareat> TYPE any,
|
|
<lv_txtlg> TYPE any,
|
|
<lv_txtsh> TYPE any.
|
|
|
|
CREATE OBJECT lr_area TYPE ('CL_NEW_AWB_AREA').
|
|
|
|
CREATE DATA lr_tab_tree TYPE STANDARD TABLE OF ('RSAWBN_S_TREEORG').
|
|
ASSIGN lr_tab_tree->* TO <lt_tree>.
|
|
|
|
CREATE DATA lr_str_tee TYPE STANDARD TABLE OF ('RSAWBN_S_TREEORG').
|
|
ASSIGN lr_str_tee->* TO <ls_tree>.
|
|
|
|
CREATE DATA lr_rsdareat TYPE ('RSDAREAT').
|
|
ASSIGN lr_rsdareat->* TO <ls_rsdareat>.
|
|
|
|
CALL METHOD lr_area->('IF_RSAWBN_FOLDER_TREE~GET_TREE')
|
|
EXPORTING
|
|
i_objvers = 'A'
|
|
i_langu = mv_language
|
|
IMPORTING
|
|
e_t_tree = <lt_tree>.
|
|
|
|
IF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( |Error while read AREA tree| ).
|
|
ENDIF.
|
|
|
|
READ TABLE <lt_tree> WITH KEY ('NODENAME') = ms_item-obj_name ASSIGNING <ls_tree>.
|
|
|
|
lv_select = |INFOAREA = '{ ms_item-obj_name }'|.
|
|
|
|
SELECT SINGLE * FROM ('RSDAREAT')
|
|
INTO <ls_rsdareat>
|
|
WHERE infoarea = ms_item-obj_name.
|
|
|
|
ASSIGN COMPONENT 'TXTSH' OF STRUCTURE <ls_rsdareat> TO <lv_txtsh>.
|
|
ASSIGN COMPONENT 'TXTLG' OF STRUCTURE <ls_rsdareat> TO <lv_txtlg>.
|
|
|
|
|
|
ASSIGN COMPONENT 'PARENTNAME' OF STRUCTURE <ls_tree> TO <lv_parentname>.
|
|
|
|
io_xml->add( iv_name = 'NODENAME'
|
|
ig_data = ms_item-obj_name ).
|
|
|
|
io_xml->add( iv_name = 'PARENTNAME'
|
|
ig_data = <lv_parentname> ).
|
|
|
|
io_xml->add( iv_name = 'TXTSH'
|
|
ig_data = <lv_txtsh> ).
|
|
|
|
io_xml->add( iv_name = 'TXTLG'
|
|
ig_data = <lv_txtlg> ).
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|