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:
Christian Guenter 2018-07-18 10:55:08 +00:00 committed by Lars Hvam
parent b3186e9202
commit 9822822403

View File

@ -70,7 +70,24 @@ CLASS ZCL_ABAPGIT_OBJECT_VCLS IMPLEMENTATION.
vclstrudep_tab = lt_vclstrudep
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.
CALL FUNCTION 'OBJ_GENERATE'