mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 04:08:27 +08:00
VARCL fix
This commit is contained in:
parent
f7c08c0d10
commit
5b12359538
|
@ -1194,7 +1194,10 @@ CLASS lcl_objects_program IMPLEMENTATION.
|
|||
lcx_exception=>raise( 'PROG, error inserting' ).
|
||||
ENDIF.
|
||||
|
||||
IF is_progdir-varcl = space AND ls_progdir_new = abap_true.
|
||||
SELECT SINGLE * FROM progdir INTO ls_progdir_new
|
||||
WHERE name = ls_progdir_new-name
|
||||
AND state = ls_progdir_new-state.
|
||||
IF sy-subrc = 0 AND is_progdir-varcl = space AND ls_progdir_new-varcl = abap_true.
|
||||
* function module UPDATE_PROGDIR does not update VARCL
|
||||
UPDATE progdir SET varcl = is_progdir-varcl
|
||||
WHERE name = ls_progdir_new-name
|
||||
|
|
Loading…
Reference in New Issue
Block a user