BDS_chặn xóa khi gửi YC phê duyệt.txt
1 |
|
---|---|
2 |
ALTER PROCEDURE [dbo].[RET_MASTER_Del] |
3 |
@RET_ID varchar(15) |
4 |
AS |
5 |
DECLARE @ERRORSYS NVARCHAR(15) = '' |
6 |
IF ( NOT EXISTS ( SELECT * FROM RET_MASTER WHERE RET_ID= @RET_ID)) |
7 |
SET @ERRORSYS = 'RETM-00001' |
8 |
IF @ERRORSYS <> '' |
9 |
BEGIN |
10 |
SELECT ErrorCode Result, ErrorDesc ErrorDesc FROM SYS_ERROR WHERE ErrorCode = @ERRORSYS |
11 |
RETURN '0' |
12 |
END |
13 |
BEGIN TRANSACTION |
14 |
IF( (SELECT AUTH_STATUS FROM RET_MASTER WHERE RET_ID= @RET_ID) = 'A') |
15 |
BEGIN |
16 |
UPDATE RET_MASTER SET RECORD_STATUS = '0' |
17 |
WHERE RET_ID = @RET_ID -- 23/10 thieu where nen khi xoa bi xoa het |
18 |
IF @@Error <> 0 GOTO ABORT |
19 |
END |
20 |
------------BAODNQ 10/3/2022 : KO CHO XÓA BDS KHI ĐÃ GỬI YC PHÊ DUYỆT------ |
21 |
IF(EXISTS(SELECT * FROM RET_MASTER WHERE RET_ID = @RET_ID AND IS_SEND_APPR = 'Y')) |
22 |
BEGIN |
23 |
ROLLBACK TRANSACTION |
24 |
SELECT '-1' as Result, N'Không thể xóa BDS đã được gửi yêu cầu phê duyệt' ErrorDesc |
25 |
RETURN '-1' |
26 |
END |
27 |
ELSE |
28 |
BEGIN |
29 |
Delete FROM RET_MASTER WHERE RET_ID= @RET_ID |
30 |
IF @@Error <> 0 GOTO ABORT |
31 |
END |
32 |
COMMIT TRANSACTION |
33 |
SELECT '0' as Result, '' ErrorDesc |
34 |
RETURN '0' |
35 |
|
36 |
ABORT: |
37 |
BEGIN |
38 |
ROLLBACK TRANSACTION |
39 |
SELECT '-1' as Result, '' ErrorDesc |
40 |
RETURN '-1' |
41 |
End |
42 |
|
43 |
|
44 |
|
45 |
|
46 |
|