mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
parent
068cf963d9
commit
f1c15b1e95
|
@ -193,6 +193,28 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION.
|
|||
zcx_abapgit_exception=>raise( 'error from OBJ_GENERATE' ).
|
||||
ENDIF.
|
||||
|
||||
CALL FUNCTION 'OBJ_SET_IMPORTABLE'
|
||||
EXPORTING
|
||||
iv_objectname = ls_objh-objectname
|
||||
iv_objecttype = ls_objh-objecttype
|
||||
iv_importable = ls_objh-importable
|
||||
EXCEPTIONS
|
||||
object_not_defined = 1
|
||||
invalid = 2
|
||||
transport_error = 3
|
||||
object_enqueue_failed = 4
|
||||
OTHERS = 5.
|
||||
IF sy-subrc <> 0.
|
||||
zcx_abapgit_exception=>raise( 'error from OBJ_SET_IMPORTABLE' ).
|
||||
ENDIF.
|
||||
|
||||
* fm OBJ_GENERATE takes the defaults from the DDIC object
|
||||
* set OBJTRANSP directly, should be okay looking at the code in OBJ_SET_IMPORTABLE
|
||||
* locking has been done in OBJ_SET_IMPORTABLE plus recording of transport
|
||||
UPDATE objh SET objtransp = ls_objh-objtransp
|
||||
WHERE objectname = ls_objh-objectname
|
||||
AND objecttype = ls_objh-objecttype.
|
||||
|
||||
io_xml->read( EXPORTING iv_name = 'TOBJ'
|
||||
CHANGING cg_data = ls_tobj ).
|
||||
ls_tobj-tvdir-gendate = sy-datum.
|
||||
|
|
Loading…
Reference in New Issue
Block a user