VCLS clear CHANGEDATE #2227

VCLS clear CHANGEDATE #2227
This commit is contained in:
larshp 2018-12-29 11:48:15 +00:00 committed by Lars Hvam
parent c37ce5ff06
commit f1a0307fa9

View File

@ -3,6 +3,7 @@ CLASS zcl_abapgit_object_vcls DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
PUBLIC SECTION.
INTERFACES zif_abapgit_object.
PROTECTED SECTION.
PRIVATE SECTION.
* See include MTOBJCON:
CONSTANTS: c_cluster_type TYPE c VALUE 'C'.
@ -12,7 +13,7 @@ ENDCLASS.
CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
CLASS ZCL_ABAPGIT_OBJECT_VCLS IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by.
@ -61,6 +62,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
CHANGING cg_data = lt_vclmf ).
ls_vcldir_entry-author = sy-uname.
ls_vcldir_entry-changedate = sy-datum.
CALL FUNCTION 'VIEWCLUSTER_SAVE_DEFINITION'
EXPORTING
@ -138,6 +140,11 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
@ -236,6 +243,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
ENDIF.
CLEAR ls_vcldir_entry-author.
CLEAR ls_vcldir_entry-changedate.
io_xml->add( iv_name = 'VCLDIR'
ig_data = ls_vcldir_entry ).
@ -247,9 +255,4 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
ig_data = lt_vclmf ).
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
ENDCLASS.