Project

General

Profile

BDS_chặn xóa khi gửi YC phê duyệt.txt

Luc Tran Van, 03/10/2022 01:37 PM

 
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