SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

SFPF: Error by pulling of an existing object

Browse Source 
SFPF: Error by pulling of an existing object #2352
This commit is contained in:
larshp 2019-02-05 10:43:07 +01:00 committed by Lars Hvam
parent cb4479b95b
commit 6c3e6b85ed
1 changed files with 26 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,6 +8,7 @@ CLASS zcl_abapgit_object_sfpf DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
fix_oref fix_oref
IMPORTING ii_document TYPE REF TO if_ixml_document. IMPORTING ii_document TYPE REF TO if_ixml_document.
PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
METHODS: METHODS:
load load
@ -21,7 +22,7 @@ ENDCLASS.
CLASS zcl_abapgit_object_sfpf IMPLEMENTATION. CLASS ZCL_ABAPGIT_OBJECT_SFPF IMPLEMENTATION.
METHOD fix_oref. METHOD fix_oref.
@ -164,6 +165,11 @@ CLASS zcl_abapgit_object_sfpf IMPLEMENTATION.
TRY. TRY.
li_form = cl_fp_helper=>convert_xstring_to_form( lv_xstr ). li_form = cl_fp_helper=>convert_xstring_to_form( lv_xstr ).
IF zif_abapgit_object~exists( ) = abap_true.
cl_fp_wb_form=>delete( lv_name ).
ENDIF.
tadir_insert( iv_package ). tadir_insert( iv_package ).
li_wb_object = cl_fp_wb_form=>create( i_name = lv_name li_wb_object = cl_fp_wb_form=>create( i_name = lv_name
i_form = li_form ). i_form = li_form ).
@ -201,6 +207,25 @@ CLASS zcl_abapgit_object_sfpf IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
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.
METHOD zif_abapgit_object~jump. METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS' CALL FUNCTION 'RS_TOOL_ACCESS'
@ -224,22 +249,4 @@ CLASS zcl_abapgit_object_sfpf IMPLEMENTATION.
io_xml->set_raw( li_document->get_root_element( ) ). io_xml->set_raw( li_document->get_root_element( ) ).
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
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.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
ENDCLASS. ENDCLASS.