mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
parent
c37ce5ff06
commit
f1a0307fa9
|
@ -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.
|
||||
|
|
Loading…
Reference in New Issue
Block a user