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

More is_locked: ENHO, FORM, SFPF, SFPI (#1646)

Browse Source
This commit is contained in:
Christian Günter 2018-07-17 07:40:01 +02:00 committed by Lars Hvam
parent a4f8b4eed8
commit 394ea52d61
4 changed files with 43 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -213,7 +213,14 @@ CLASS zcl_abapgit_object_enho IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked. METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false. DATA: lv_object TYPE seqg3-garg.
lv_object = |{ ms_item-obj_type }{ ms_item-obj_name }|.
OVERLAY lv_object WITH ' '.
lv_object = lv_object && '*'.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'E_ENHANCE'
iv_argument = lv_object ).
ENDMETHOD. ENDMETHOD.

12
src/objects/zcl_abapgit_object_form.clas.abap
View File

@ -436,7 +436,17 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked. METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false. DATA: lv_object TYPE seqg3-garg.
" example lock entry
"'001FORM ZTEST_SAPSCRIPT TXT'
lv_object = |{ sy-mandt }{ ms_item-obj_type } { ms_item-obj_name }|.
OVERLAY lv_object WITH ' '.
lv_object = lv_object && '*'.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESSFORM'
iv_argument = lv_object ).
ENDMETHOD. ENDMETHOD.

18
src/objects/zcl_abapgit_object_sfpf.clas.abap
View File

@ -12,16 +12,16 @@ CLASS zcl_abapgit_object_sfpf DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
METHODS: METHODS:
load load
RETURNING VALUE(ri_wb_form) TYPE REF TO if_fp_wb_form RETURNING VALUE(ri_wb_form) TYPE REF TO if_fp_wb_form
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
form_to_xstring form_to_xstring
RETURNING VALUE(rv_xstr) TYPE xstring RETURNING VALUE(rv_xstr) TYPE xstring
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SFPF IMPLEMENTATION. CLASS zcl_abapgit_object_sfpf IMPLEMENTATION.
METHOD fix_oref. METHOD fix_oref.
@ -134,7 +134,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SFPF IMPLEMENTATION.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA: lv_name TYPE fpname, DATA: lv_name TYPE fpname,
lo_wb_form TYPE REF TO cl_fp_wb_form. lo_wb_form TYPE REF TO cl_fp_wb_form.
@ -227,7 +227,15 @@ CLASS ZCL_ABAPGIT_OBJECT_SFPF IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked. METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false. DATA: lv_object TYPE seqg3-garg.
lv_object = |{ ms_item-obj_name }|.
OVERLAY lv_object WITH ' '.
lv_object = lv_object && '*'.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'EFPFORM'
iv_argument = lv_object ).
ENDMETHOD. ENDMETHOD.

15
src/objects/zcl_abapgit_object_sfpi.clas.abap
View File

@ -8,10 +8,10 @@ CLASS zcl_abapgit_object_sfpi DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
METHODS: METHODS:
load load
RETURNING VALUE(ri_wb_interface) TYPE REF TO if_fp_wb_interface RETURNING VALUE(ri_wb_interface) TYPE REF TO if_fp_wb_interface
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
interface_to_xstring interface_to_xstring
RETURNING VALUE(rv_xstr) TYPE xstring RETURNING VALUE(rv_xstr) TYPE xstring
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. ENDCLASS.
@ -67,7 +67,7 @@ CLASS zcl_abapgit_object_sfpi IMPLEMENTATION.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA: lv_name TYPE fpname, DATA: lv_name TYPE fpname,
lo_wb_interface TYPE REF TO cl_fp_wb_interface. lo_wb_interface TYPE REF TO cl_fp_wb_interface.
@ -159,7 +159,14 @@ CLASS zcl_abapgit_object_sfpi IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked. METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false. DATA: lv_object TYPE seqg3-garg.
lv_object = |{ ms_item-obj_name }|.
OVERLAY lv_object WITH ' '.
lv_object = lv_object && '*'.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'EFPINTERFACE'
iv_argument = lv_object ).
ENDMETHOD. ENDMETHOD.