mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 04:08:27 +08:00
New object type WDCA - Web Dynpro Application Configuration (#3941)
* WDCA * WDCA * Dependencies Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Marc Bernard
GitHub
parent
5bde9bd549
commit
404a08fdb2
339
src/objects/zcl_abapgit_object_wdca.clas.abap
Normal file
339
src/objects/zcl_abapgit_object_wdca.clas.abap
Normal file
|
|
@ -0,0 +1,339 @@
|
|||
CLASS zcl_abapgit_object_wdca DEFINITION
|
||||
PUBLIC
|
||||
INHERITING FROM zcl_abapgit_objects_super
|
||||
FINAL
|
||||
CREATE PUBLIC .
|
||||
|
||||
PUBLIC SECTION.
|
||||
|
||||
INTERFACES zif_abapgit_object .
|
||||
PROTECTED SECTION.
|
||||
PRIVATE SECTION.
|
||||
|
||||
METHODS read
|
||||
EXPORTING
|
||||
!es_outline TYPE wdy_cfg_outline_data
|
||||
!et_data TYPE wdy_cfg_persist_data_appl_tab
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
METHODS save
|
||||
IMPORTING
|
||||
!is_outline TYPE wdy_cfg_outline_data
|
||||
!it_data TYPE wdy_cfg_persist_data_appl_tab
|
||||
!iv_package TYPE devclass
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
METHODS delete
|
||||
IMPORTING
|
||||
!iv_package TYPE devclass
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
METHODS check
|
||||
IMPORTING
|
||||
!it_messages TYPE cts_messages
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
|
||||
CLASS ZCL_ABAPGIT_OBJECT_WDCA IMPLEMENTATION.
|
||||
|
||||
|
||||
METHOD check.
|
||||
|
||||
FIELD-SYMBOLS: <ls_message> TYPE LINE OF cts_messages.
|
||||
|
||||
LOOP AT it_messages ASSIGNING <ls_message> WHERE severity = 'E'.
|
||||
zcx_abapgit_exception=>raise( <ls_message>-text ).
|
||||
ENDLOOP.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD delete.
|
||||
|
||||
DATA:
|
||||
lo_cfg TYPE REF TO cl_wdr_cfg_persistence_appl,
|
||||
lx_err TYPE REF TO cx_wd_configuration,
|
||||
lt_messages TYPE cts_messages,
|
||||
ls_key TYPE wdy_config_key,
|
||||
ls_outline TYPE wdy_cfg_outline_data,
|
||||
lv_operation TYPE i,
|
||||
lv_name TYPE wdy_md_object_name,
|
||||
lv_exists TYPE wdy_boolean,
|
||||
lv_transport TYPE trkorr.
|
||||
|
||||
ls_key = ms_item-obj_name.
|
||||
|
||||
TRY.
|
||||
CREATE OBJECT lo_cfg
|
||||
EXPORTING
|
||||
config_key = ls_key
|
||||
object_name = lv_name.
|
||||
|
||||
MOVE-CORRESPONDING ls_key TO ls_outline.
|
||||
|
||||
lo_cfg->check_config_existent(
|
||||
EXPORTING
|
||||
i_outline_data = ls_outline
|
||||
i_only_current_layer = abap_false
|
||||
i_is_original = abap_true
|
||||
IMPORTING
|
||||
e_is_existent = lv_exists ).
|
||||
|
||||
IF lv_exists = abap_false.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
lv_transport = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
|
||||
lo_cfg->set_transport( trkorr = lv_transport
|
||||
devclass = iv_package ).
|
||||
|
||||
lv_operation = if_wdr_cfg_constants=>c_cts_operation-e_delete.
|
||||
" First call, check, second call, delete
|
||||
DO 2 TIMES.
|
||||
lo_cfg->do_next_step(
|
||||
IMPORTING
|
||||
e_messages = lt_messages
|
||||
CHANGING
|
||||
c_operation = lv_operation ).
|
||||
check( lt_messages ).
|
||||
ENDDO.
|
||||
|
||||
CATCH cx_wd_configuration INTO lx_err.
|
||||
IF lx_err->textid = cx_wd_configuration=>conf_config_not_exist.
|
||||
RETURN.
|
||||
ELSE.
|
||||
zcx_abapgit_exception=>raise( 'WDCA, delete error:' && lx_err->get_text( ) ).
|
||||
ENDIF.
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD read.
|
||||
|
||||
DATA:
|
||||
lo_cfg TYPE REF TO cl_wdr_cfg_persistence_appl,
|
||||
ls_key TYPE wdy_config_key,
|
||||
lv_exists TYPE abap_bool,
|
||||
lx_err TYPE REF TO cx_wd_configuration,
|
||||
lv_name TYPE wdy_md_object_name.
|
||||
|
||||
CLEAR: es_outline, et_data.
|
||||
|
||||
ls_key = ms_item-obj_name.
|
||||
|
||||
TRY.
|
||||
CREATE OBJECT lo_cfg
|
||||
EXPORTING
|
||||
config_key = ls_key
|
||||
object_name = lv_name.
|
||||
|
||||
MOVE-CORRESPONDING ls_key TO es_outline.
|
||||
|
||||
lo_cfg->check_config_existent(
|
||||
EXPORTING
|
||||
i_outline_data = es_outline
|
||||
i_only_current_layer = abap_false
|
||||
i_is_original = abap_true
|
||||
IMPORTING
|
||||
e_is_existent = lv_exists ).
|
||||
|
||||
IF lv_exists = abap_false.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
es_outline = lo_cfg->read_outline_data( ).
|
||||
|
||||
CLEAR: es_outline-devclass,
|
||||
es_outline-author,
|
||||
es_outline-createdon,
|
||||
es_outline-changedby,
|
||||
es_outline-changedon.
|
||||
|
||||
et_data = lo_cfg->read_data( ).
|
||||
|
||||
CATCH cx_wd_configuration INTO lx_err.
|
||||
zcx_abapgit_exception=>raise( 'WDCA, read error:' && lx_err->get_text( ) ).
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD save.
|
||||
|
||||
DATA:
|
||||
lo_cfg TYPE REF TO cl_wdr_cfg_persistence_appl,
|
||||
lx_err TYPE REF TO cx_wd_configuration,
|
||||
lt_messages TYPE cts_messages,
|
||||
ls_key TYPE wdy_config_key,
|
||||
ls_data LIKE LINE OF it_data,
|
||||
lv_operation TYPE i,
|
||||
lv_name TYPE wdy_md_object_name,
|
||||
lv_exists TYPE wdy_boolean,
|
||||
lv_transport TYPE trkorr.
|
||||
|
||||
MOVE-CORRESPONDING is_outline TO ls_key.
|
||||
|
||||
TRY.
|
||||
CREATE OBJECT lo_cfg
|
||||
EXPORTING
|
||||
config_key = ls_key
|
||||
object_name = lv_name.
|
||||
|
||||
READ TABLE it_data INDEX 1 INTO ls_data.
|
||||
ASSERT sy-subrc = 0.
|
||||
|
||||
lo_cfg->check_config_existent(
|
||||
EXPORTING
|
||||
i_outline_data = is_outline
|
||||
i_only_current_layer = abap_false
|
||||
i_is_original = abap_true
|
||||
IMPORTING
|
||||
e_is_existent = lv_exists ).
|
||||
|
||||
CATCH cx_wd_configuration ##NO_HANDLER.
|
||||
" Ignore
|
||||
ENDTRY.
|
||||
|
||||
TRY.
|
||||
lv_transport = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
|
||||
lo_cfg->set_transport( trkorr = lv_transport
|
||||
devclass = iv_package ).
|
||||
lo_cfg->set_save_data( ls_data ).
|
||||
lo_cfg->set_config_description( is_outline ).
|
||||
|
||||
IF lv_exists = abap_false.
|
||||
lv_operation = if_wdr_cfg_constants=>c_cts_operation-e_create.
|
||||
ELSE.
|
||||
lv_operation = if_wdr_cfg_constants=>c_cts_operation-e_save.
|
||||
ENDIF.
|
||||
|
||||
" First call, check, second call, create/save
|
||||
DO 2 TIMES.
|
||||
lo_cfg->do_next_step(
|
||||
IMPORTING
|
||||
e_messages = lt_messages
|
||||
CHANGING
|
||||
c_operation = lv_operation ).
|
||||
check( lt_messages ).
|
||||
ENDDO.
|
||||
|
||||
CATCH cx_wd_configuration INTO lx_err.
|
||||
zcx_abapgit_exception=>raise( 'WDCA, save error:' && lx_err->get_text( ) ).
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~changed_by.
|
||||
|
||||
DATA ls_key TYPE wdy_config_key.
|
||||
|
||||
ls_key = ms_item-obj_name.
|
||||
|
||||
SELECT SINGLE changedby FROM wdy_config_appl INTO rv_user
|
||||
WHERE config_id = ls_key-config_id AND config_type = ls_key-config_type AND config_var = ls_key-config_var.
|
||||
IF sy-subrc <> 0.
|
||||
rv_user = c_user_unknown.
|
||||
ENDIF.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~delete.
|
||||
|
||||
delete( iv_package = iv_package ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~deserialize.
|
||||
|
||||
DATA: ls_outline TYPE wdy_cfg_outline_data,
|
||||
lt_data TYPE wdy_cfg_persist_data_appl_tab.
|
||||
|
||||
io_xml->read( EXPORTING iv_name = 'OUTLINE'
|
||||
CHANGING cg_data = ls_outline ).
|
||||
io_xml->read( EXPORTING iv_name = 'DATA'
|
||||
CHANGING cg_data = lt_data ).
|
||||
|
||||
save( is_outline = ls_outline
|
||||
it_data = lt_data
|
||||
iv_package = iv_package ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~exists.
|
||||
DATA: ls_wdy_config_appl TYPE wdy_config_appl.
|
||||
DATA: ls_wdy_config_key TYPE wdy_config_key.
|
||||
|
||||
ls_wdy_config_key = ms_item-obj_name.
|
||||
SELECT SINGLE * FROM wdy_config_appl
|
||||
INTO ls_wdy_config_appl
|
||||
WHERE config_id = ls_wdy_config_key-config_id
|
||||
AND config_type = ls_wdy_config_key-config_type
|
||||
AND config_var = ls_wdy_config_key-config_var. "#EC CI_GENBUFF
|
||||
rv_bool = boolc( sy-subrc = 0 ).
|
||||
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.
|
||||
rv_active = is_active( ).
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~is_locked.
|
||||
rv_is_locked = abap_false.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~jump.
|
||||
|
||||
CALL FUNCTION 'RS_TOOL_ACCESS'
|
||||
EXPORTING
|
||||
operation = 'SHOW'
|
||||
object_name = ms_item-obj_name
|
||||
object_type = ms_item-obj_type
|
||||
in_new_window = abap_true.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~serialize.
|
||||
|
||||
DATA: ls_outline TYPE wdy_cfg_outline_data,
|
||||
lt_data TYPE wdy_cfg_persist_data_appl_tab.
|
||||
|
||||
read( IMPORTING es_outline = ls_outline
|
||||
et_data = lt_data ).
|
||||
|
||||
IF ls_outline IS INITIAL.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
io_xml->add( iv_name = 'OUTLINE'
|
||||
ig_data = ls_outline ).
|
||||
io_xml->add( iv_name = 'DATA'
|
||||
ig_data = lt_data ).
|
||||
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
16
src/objects/zcl_abapgit_object_wdca.clas.xml
Normal file
16
src/objects/zcl_abapgit_object_wdca.clas.xml
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<VSEOCLASS>
|
||||
<CLSNAME>ZCL_ABAPGIT_OBJECT_WDCA</CLSNAME>
|
||||
<LANGU>E</LANGU>
|
||||
<DESCRIPT>WDCA</DESCRIPT>
|
||||
<STATE>1</STATE>
|
||||
<CLSCCINCL>X</CLSCCINCL>
|
||||
<FIXPT>X</FIXPT>
|
||||
<UNICODE>X</UNICODE>
|
||||
</VSEOCLASS>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
|
|
@ -49,7 +49,7 @@ ENDCLASS.
|
|||
|
||||
|
||||
|
||||
CLASS zcl_abapgit_dependencies IMPLEMENTATION.
|
||||
CLASS ZCL_ABAPGIT_DEPENDENCIES IMPLEMENTATION.
|
||||
|
||||
|
||||
METHOD get_ddls_dependencies.
|
||||
|
|
@ -134,6 +134,14 @@ CLASS zcl_abapgit_dependencies IMPLEMENTATION.
|
|||
ENDIF.
|
||||
WHEN 'IDOC'.
|
||||
<ls_tadir>-korrnum = '200000'.
|
||||
WHEN 'WDCA'.
|
||||
<ls_tadir>-korrnum = '174000'.
|
||||
WHEN 'WDYA'.
|
||||
<ls_tadir>-korrnum = '173000'.
|
||||
WHEN 'WDCC'.
|
||||
<ls_tadir>-korrnum = '172000'.
|
||||
WHEN 'WDYN'.
|
||||
<ls_tadir>-korrnum = '171000'.
|
||||
WHEN 'IEXT'.
|
||||
<ls_tadir>-korrnum = '150000'.
|
||||
WHEN OTHERS.
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user