mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
parent
5efc7a63ab
commit
f7de72c2aa
|
@ -479,22 +479,10 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
|
||||||
zcx_abapgit_exception=>raise( 'error from INSERT REPORT .. EXTENSION TYPE' ).
|
zcx_abapgit_exception=>raise( 'error from INSERT REPORT .. EXTENSION TYPE' ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
ELSE.
|
ELSE.
|
||||||
CALL FUNCTION 'RPY_PROGRAM_INSERT'
|
INSERT REPORT is_progdir-name
|
||||||
EXPORTING
|
FROM it_source
|
||||||
development_class = iv_package
|
STATE 'I'
|
||||||
program_name = is_progdir-name
|
PROGRAM TYPE is_progdir-subc.
|
||||||
program_type = is_progdir-subc
|
|
||||||
title_string = lv_title
|
|
||||||
save_inactive = 'I'
|
|
||||||
suppress_dialog = abap_true
|
|
||||||
TABLES
|
|
||||||
source_extended = it_source
|
|
||||||
EXCEPTIONS
|
|
||||||
already_exists = 1
|
|
||||||
cancelled = 2
|
|
||||||
name_not_allowed = 3
|
|
||||||
permission_error = 4
|
|
||||||
OTHERS = 5.
|
|
||||||
IF sy-subrc <> 0.
|
IF sy-subrc <> 0.
|
||||||
zcx_abapgit_exception=>raise_t100( ).
|
zcx_abapgit_exception=>raise_t100( ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user