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

Implement IS_LOCKED for W3*, TTYP, TRAN, SSFO, SSST

Browse Source
This commit is contained in:
christianguenter2 2018-06-19 18:05:09 +02:00
parent 145a82e9ef
commit 002f5ba73d
6 changed files with 32 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/objects/zcl_abapgit_object_intf.clas.abap
View File

@ -268,7 +268,14 @@ CLASS ZCL_ABAPGIT_OBJECT_INTF IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
DATA: lv_object TYPE eqegraarg.
lv_object = |{ ms_item-obj_name }|.
OVERLAY lv_object WITH '==============================P'.
lv_object = lv_object && '*'.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESEOCLASS'
iv_argument = lv_object ).
ENDMETHOD.

3
src/objects/zcl_abapgit_object_ssfo.clas.abap
View File

@ -285,7 +285,8 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'E_SMFORM'
iv_argument = |{ ms_item-obj_name }| ).
ENDMETHOD.

3
src/objects/zcl_abapgit_object_ssst.clas.abap
View File

@ -264,7 +264,8 @@ CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'E_SMSTYLE'
iv_argument = |{ ms_item-obj_name }| ).
ENDMETHOD.

10
src/objects/zcl_abapgit_object_tran.clas.abap
View File

@ -485,7 +485,15 @@ CLASS ZCL_ABAPGIT_OBJECT_TRAN IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
DATA: lv_object TYPE eqegraarg.
lv_object = |TN{ ms_item-obj_name }|.
OVERLAY lv_object WITH ' '.
lv_object = lv_object && '*'.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'EEUDB'
iv_argument = lv_object ).
ENDMETHOD.

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

@ -177,7 +177,8 @@ CLASS zcl_abapgit_object_ttyp IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESDICT'
iv_argument = |{ ms_item-obj_type }{ ms_item-obj_name }| ).
ENDMETHOD.

11
src/objects/zcl_abapgit_object_w3super.clas.abap
View File

@ -56,7 +56,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_W3SUPER IMPLEMENTATION.
CLASS zcl_abapgit_object_w3super IMPLEMENTATION.
METHOD constructor.
@ -494,7 +494,14 @@ CLASS ZCL_ABAPGIT_OBJECT_W3SUPER IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
DATA: lv_object TYPE eqegraarg.
lv_object = |{ ms_item-obj_type+2(2) }{ ms_item-obj_name }|.
OVERLAY lv_object WITH ' '.
lv_object = lv_object && '*'.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'E_WWW_HTML'
iv_argument = lv_object ).
ENDMETHOD.