SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

downport CMPT (#1648)

Browse Source
This commit is contained in:
Christian Günter 2018-07-17 13:06:32 +02:00 committed by Lars Hvam
parent 394ea52d61
commit 495e832882
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/objects/zcl_abapgit_object_cmpt.clas.abap
View File

@ -10,13 +10,14 @@ CLASS zcl_abapgit_object_cmpt DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
DATA: mo_cmp_db TYPE REF TO object.
DATA: mo_cmp_db TYPE REF TO object,
mv_name TYPE c LENGTH 30.
ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
CLASS zcl_abapgit_object_cmpt IMPLEMENTATION.
METHOD constructor.
@ -32,6 +33,8 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
CATCH cx_root.
ENDTRY.
mv_name = ms_item-obj_name.
ENDMETHOD.
@ -42,7 +45,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
TRY.
CALL METHOD ('CL_CMP_TEMPLATE')=>('S_CREATE_FROM_DB')
EXPORTING
i_name = |{ ms_item-obj_name }|
i_name = mv_name
i_version = 'A'
RECEIVING
r_ref_template = lo_cmp_template.
@ -72,7 +75,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
TRY.
CALL METHOD mo_cmp_db->('IF_CMP_TEMPLATE_DB~DELETE_TEMPLATE')
EXPORTING
i_name = |{ ms_item-obj_name }|
i_name = mv_name
i_version = 'A'
i_flg_header = abap_true
i_flg_lines = abap_true
@ -138,14 +141,10 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
METHOD zif_abapgit_object~exists.
DATA: lv_name TYPE c LENGTH 30.
lv_name = ms_item-obj_name.
TRY.
CALL METHOD ('CL_CMP_TEMPLATE')=>('S_TEMPLATE_EXISTS')
EXPORTING
i_name = lv_name
i_name = mv_name
i_version = 'A'
RECEIVING
r_flg_exists = rv_bool.