SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +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. INTERFACES zif_abapgit_object.
PRIVATE SECTION. 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. ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION. CLASS zcl_abapgit_object_cmpt IMPLEMENTATION.
METHOD constructor. METHOD constructor.
@ -32,6 +33,8 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
CATCH cx_root. CATCH cx_root.
ENDTRY. ENDTRY.
mv_name = ms_item-obj_name.
ENDMETHOD. ENDMETHOD.
@ -42,7 +45,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
TRY. TRY.
CALL METHOD ('CL_CMP_TEMPLATE')=>('S_CREATE_FROM_DB') CALL METHOD ('CL_CMP_TEMPLATE')=>('S_CREATE_FROM_DB')
EXPORTING EXPORTING
i_name = |{ ms_item-obj_name }| i_name = mv_name
i_version = 'A' i_version = 'A'
RECEIVING RECEIVING
r_ref_template = lo_cmp_template. r_ref_template = lo_cmp_template.
@ -72,7 +75,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
TRY. TRY.
CALL METHOD mo_cmp_db->('IF_CMP_TEMPLATE_DB~DELETE_TEMPLATE') CALL METHOD mo_cmp_db->('IF_CMP_TEMPLATE_DB~DELETE_TEMPLATE')
EXPORTING EXPORTING
i_name = |{ ms_item-obj_name }| i_name = mv_name
i_version = 'A' i_version = 'A'
i_flg_header = abap_true i_flg_header = abap_true
i_flg_lines = abap_true i_flg_lines = abap_true
@ -138,14 +141,10 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
METHOD zif_abapgit_object~exists. METHOD zif_abapgit_object~exists.
DATA: lv_name TYPE c LENGTH 30.
lv_name = ms_item-obj_name.
TRY. TRY.
CALL METHOD ('CL_CMP_TEMPLATE')=>('S_TEMPLATE_EXISTS') CALL METHOD ('CL_CMP_TEMPLATE')=>('S_TEMPLATE_EXISTS')
EXPORTING EXPORTING
i_name = lv_name i_name = mv_name
i_version = 'A' i_version = 'A'
RECEIVING RECEIVING
r_flg_exists = rv_bool. r_flg_exists = rv_bool.