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

Disabled WDCA-class in order to enable generic plugin

Browse Source
This commit is contained in:
mrsimpson 2016-03-02 18:02:24 +00:00
parent ed4038481b
commit eea42abdfb
2 changed files with 45 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.112'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v0.113'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -1339,7 +1339,7 @@ CLASS lcl_xml IMPLEMENTATION.
METHOD constructor. METHOD constructor.
CONSTANTS: c_version TYPE string VALUE 'version' ##NO_TEXT, CONSTANTS: c_version TYPE string VALUE 'version' ##NO_TEXT,
c_abapgit_tag TYPE string VALUE 'abapGit'. c_abapgit_tag TYPE string VALUE 'abapGit'.
DATA: li_stream_factory TYPE REF TO if_ixml_stream_factory, DATA: li_stream_factory TYPE REF TO if_ixml_stream_factory,
@ -6546,6 +6546,11 @@ CLASS lcl_object_wdca DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES lif_object. INTERFACES lif_object.
METHODS constructor
IMPORTING
is_item TYPE ty_item
RAISING cx_sy_create_object_error. "Curious: Though the exception is a dynamic one, it needs to be declared so that it can be caught...
PRIVATE SECTION. PRIVATE SECTION.
METHODS read METHODS read
EXPORTING es_outline TYPE wdy_cfg_outline_data EXPORTING es_outline TYPE wdy_cfg_outline_data
@ -6567,6 +6572,13 @@ ENDCLASS. "lcl_object_wdca DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
CLASS lcl_object_wdca IMPLEMENTATION. CLASS lcl_object_wdca IMPLEMENTATION.
METHOD constructor.
super->constructor( is_item = is_item ).
RAISE EXCEPTION TYPE cx_sy_create_object_error.
* This serializer is currently not yet functional.
* Prevent instantiation in order to enable handling of WDCA by plugins
ENDMETHOD.
METHOD lif_object~exists. METHOD lif_object~exists.
DATA: ls_outline TYPE wdy_cfg_outline_data. DATA: ls_outline TYPE wdy_cfg_outline_data.
@ -6578,33 +6590,35 @@ CLASS lcl_object_wdca IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD save. METHOD save.
_raise 'WDCA, save not implemented'.
DATA: lo_cfg TYPE REF TO cl_wdr_cfg_persistence_appl, * below code are ideas, does not seem to work though
ls_key TYPE wdy_config_key, * DATA: lo_cfg TYPE REF TO cl_wdr_cfg_persistence_appl,
ls_data LIKE LINE OF it_data, * ls_key TYPE wdy_config_key,
lv_operation TYPE i, * ls_data LIKE LINE OF it_data,
lv_name TYPE wdy_md_object_name. * lv_operation TYPE i,
* lv_name TYPE wdy_md_object_name.
*
MOVE-CORRESPONDING is_outline TO ls_key. *
* MOVE-CORRESPONDING is_outline TO ls_key.
TRY. *
CREATE OBJECT lo_cfg * TRY.
EXPORTING * CREATE OBJECT lo_cfg
config_key = ls_key * EXPORTING
object_name = lv_name. * config_key = ls_key
* object_name = lv_name.
READ TABLE it_data INDEX 1 INTO ls_data. *
ASSERT sy-subrc = 0. * READ TABLE it_data INDEX 1 INTO ls_data.
* ASSERT sy-subrc = 0.
lo_cfg->set_save_data( ls_data ). *
* lo_cfg->set_save_data( ls_data ).
lv_operation = if_wdr_cfg_constants=>c_cts_operation-e_save. *
lo_cfg->do_next_step( CHANGING c_operation = lv_operation ). * lv_operation = if_wdr_cfg_constants=>c_cts_operation-e_save.
* lo_cfg->do_next_step( CHANGING c_operation = lv_operation ).
CATCH cx_wd_configuration. *
_raise 'WDCA, save error'. * CATCH cx_wd_configuration.
ENDTRY. * _raise 'WDCA, save error'.
* ENDTRY.
ENDMETHOD. "save ENDMETHOD. "save

6
zabapgit.prog.xml
View File

@ -6,7 +6,7 @@
<SQLX></SQLX> <SQLX></SQLX>
<EDTX></EDTX> <EDTX></EDTX>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL></DBAPL> <DBAPL>S</DBAPL>
<DBNA></DBNA> <DBNA></DBNA>
<CLAS></CLAS> <CLAS></CLAS>
<TYPE></TYPE> <TYPE></TYPE>
@ -22,14 +22,14 @@
<LEVL></LEVL> <LEVL></LEVL>
<RSTAT></RSTAT> <RSTAT></RSTAT>
<RMAND></RMAND> <RMAND></RMAND>
<RLOAD>E</RLOAD> <RLOAD></RLOAD>
<FIXPT>X</FIXPT> <FIXPT>X</FIXPT>
<SSET></SSET> <SSET></SSET>
<SDATE>00000000</SDATE> <SDATE>00000000</SDATE>
<STIME></STIME> <STIME></STIME>
<IDATE>00000000</IDATE> <IDATE>00000000</IDATE>
<ITIME></ITIME> <ITIME></ITIME>
<LDBNAME></LDBNAME> <LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<RSMPE_ADM> <RSMPE_ADM>