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

Refactoring of CORR_INSERT and adjustment for object types (#2392)

Browse Source 
* Refactoring of CORR_INSERT and adjustment for object types

* CORR_INSERT without CORR_CHECK

* Z exception
This commit is contained in:
Martin Fuchs 2019-02-15 12:26:42 +01:00 committed by Lars Hvam
parent c4839e11b4
commit 94c95d46cb
9 changed files with 30 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/objects/zcl_abapgit_object_doma.clas.abap
View File

@ -265,7 +265,7 @@ CLASS ZCL_ABAPGIT_OBJECT_DOMA IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD07V_TAB'
CHANGING cg_data = lt_dd07v ).
corr_insert( iv_package ).
corr_insert( iv_package = iv_package iv_object_class = 'DICT' ).
lv_name = ms_item-obj_name. " type conversion

2
src/objects/zcl_abapgit_object_dtel.clas.abap
View File

@ -194,7 +194,7 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'TPARA'
CHANGING cg_data = ls_tpara ).
corr_insert( iv_package ).
corr_insert( iv_package = iv_package iv_object_class = 'DICT' ).
lv_name = ms_item-obj_name. " type conversion

2
src/objects/zcl_abapgit_object_enqu.clas.abap
View File

@ -72,7 +72,7 @@ CLASS zcl_abapgit_object_enqu IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD27P_TABLE'
CHANGING cg_data = lt_dd27p ).
corr_insert( iv_package ).
corr_insert( iv_package = iv_package iv_object_class = 'DICT' ).
lv_name = ms_item-obj_name.

15
src/objects/zcl_abapgit_object_msag.clas.abap
View File

@ -335,20 +335,7 @@ CLASS ZCL_ABAPGIT_OBJECT_MSAG IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'T100'
CHANGING cg_data = lt_t100 ).
CALL FUNCTION 'RS_CORR_INSERT'
EXPORTING
global_lock = abap_true
devclass = iv_package
object = ls_t100a-arbgb
object_class = 'T100'
mode = 'INSERT'
EXCEPTIONS
cancelled = 01
permission_failure = 02
unknown_objectclass = 03.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from RS_CORR_INSERT' ).
ENDIF.
corr_insert( iv_package ).
SELECT * FROM t100u INTO TABLE lt_before
WHERE arbgb = ls_t100a-arbgb ORDER BY msgnr. "#EC CI_GENBUFF "#EC CI_BYPASS

2
src/objects/zcl_abapgit_object_shlp.clas.abap
View File

@ -165,7 +165,7 @@ CLASS zcl_abapgit_object_shlp IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD33V_TABLE'
CHANGING cg_data = lt_dd33v ).
corr_insert( iv_package ).
corr_insert( iv_package = iv_package iv_object_class = 'DICT' ).
lv_name = ms_item-obj_name.

2
src/objects/zcl_abapgit_object_tabl.clas.abap
View File

@ -524,7 +524,7 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD36M'
CHANGING cg_data = lt_dd36m ).
corr_insert( iv_package ).
corr_insert( iv_package = iv_package iv_object_class = 'DICT' ).
lv_name = ms_item-obj_name. " type conversion

2
src/objects/zcl_abapgit_object_ttyp.clas.abap
View File

@ -150,7 +150,7 @@ CLASS zcl_abapgit_object_ttyp IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD43V'
CHANGING cg_data = lt_dd43v ).
corr_insert( iv_package ).
corr_insert( iv_package = iv_package iv_object_class = 'DICT' ).
lv_name = ms_item-obj_name. " type conversion

2
src/objects/zcl_abapgit_object_view.clas.abap
View File

@ -77,7 +77,7 @@ CLASS zcl_abapgit_object_view IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD28V_TABLE'
CHANGING cg_data = lt_dd28v ).
corr_insert( iv_package ).
corr_insert( iv_package = iv_package iv_object_class = 'DICT' ).
lv_name = ms_item-obj_name. " type conversion

33
src/objects/zcl_abapgit_objects_super.clas.abap
View File

@ -37,6 +37,7 @@ CLASS zcl_abapgit_objects_super DEFINITION PUBLIC ABSTRACT.
METHODS corr_insert
IMPORTING
!iv_package TYPE devclass
!iv_object_class TYPE any OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS tadir_insert
@ -141,28 +142,38 @@ CLASS ZCL_ABAPGIT_OBJECTS_SUPER IMPLEMENTATION.
METHOD corr_insert.
DATA: ls_object TYPE ddenqs.
DATA: lv_object TYPE string,
lv_object_class TYPE string.
ls_object-objtype = ms_item-obj_type.
ls_object-objname = ms_item-obj_name.
IF iv_object_class IS NOT INITIAL.
lv_object_class = iv_object_class.
IF iv_object_class = 'DICT'.
CONCATENATE ms_item-obj_type ms_item-obj_name INTO lv_object.
ELSE.
lv_object = ms_item-obj_name.
ENDIF.
ELSE.
lv_object_class = ms_item-obj_type.
lv_object = ms_item-obj_name.
ENDIF.
CALL FUNCTION 'RS_CORR_INSERT'
EXPORTING
object = ls_object
object_class = 'DICT'
object = lv_object
object_class = lv_object_class
devclass = iv_package
master_language = mv_language
mode = 'INSERT'
global_lock = abap_true
author = sy-uname
mode = 'I'
suppress_dialog = abap_true
EXCEPTIONS
cancelled = 1
permission_failure = 2
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc = 1.
zcx_abapgit_exception=>raise( 'Cancelled' ).
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT' ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.