mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
VCLS: Fix - replace meth corr_insert( )
Replaces the call of corr_insert( ) with its own call of FM RS_CORR_INSERT because the parameters used in corr_insert aren't valid for VCLS
This commit is contained in:
parent
b3186e9202
commit
9822822403
|
@ -70,7 +70,24 @@ CLASS ZCL_ABAPGIT_OBJECT_VCLS IMPLEMENTATION.
|
||||||
vclstrudep_tab = lt_vclstrudep
|
vclstrudep_tab = lt_vclstrudep
|
||||||
vclmf_tab = lt_vclmf.
|
vclmf_tab = lt_vclmf.
|
||||||
|
|
||||||
corr_insert( iv_package ).
|
CALL FUNCTION 'RS_CORR_INSERT'
|
||||||
|
EXPORTING
|
||||||
|
object = ms_item-obj_name
|
||||||
|
object_class = ms_item-obj_type
|
||||||
|
devclass = iv_package
|
||||||
|
master_language = mv_language
|
||||||
|
mode = 'INSERT'
|
||||||
|
global_lock = abap_true
|
||||||
|
EXCEPTIONS
|
||||||
|
cancelled = 1
|
||||||
|
permission_failure = 2
|
||||||
|
unknown_objectclass = 3
|
||||||
|
OTHERS = 4.
|
||||||
|
IF sy-subrc = 1.
|
||||||
|
zcx_abapgit_exception=>raise( 'Cancelled' ).
|
||||||
|
ELSEIF sy-subrc <> 0.
|
||||||
|
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT' ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
lv_objectname = ls_vcldir_entry-vclname.
|
lv_objectname = ls_vcldir_entry-vclname.
|
||||||
CALL FUNCTION 'OBJ_GENERATE'
|
CALL FUNCTION 'OBJ_GENERATE'
|
||||||
|
|
Loading…
Reference in New Issue
Block a user