Project

General

Profile

ACREATE_STORED.txt

Luc Tran Van, 01/16/2023 04:57 PM

 
1

    
2
SET NUMERIC_ROUNDABORT OFF
3
GO
4
SET ANSI_PADDING, ANSI_WARNINGS, CONCAT_NULL_YIELDS_NULL, ARITHABORT, QUOTED_IDENTIFIER, ANSI_NULLS ON
5
GO
6
SET XACT_ABORT ON
7
GO
8
IF @@ERROR <> 0 SET NOEXEC ON
9
GO
10
PRINT N'Creating [dbo].[TR_REQUEST_DOC_GET_LINK]'
11
GO
12

    
13

    
14
CREATE   PROCEDURE [dbo].[TR_REQUEST_DOC_GET_LINK]
15
@p_REQ_CODE	NVARCHAR(100),
16
@p_USER_LOGIN VARCHAR(50)
17
AS
18

    
19
DECLARE @p_REQ_ID VARCHAR(15) = (SELECT REQ_ID FROM TR_REQUEST_DOC WHERE REQ_CODE = @p_REQ_CODE)
20

    
21
IF(@p_REQ_ID IS NULL OR @p_REQ_ID = '')
22
BEGIN
23
	SELECT '-1' as Result, '' REQ_DOC_LINK,
24
		N'Số phiếu yêu cầu mua sắm không hợp lệ' ErrorDesc
25
	RETURN '-1'
26
END
27

    
28
DECLARE @p_CURRENT_PROCESS_ID VARCHAR(50) = (SELECT TOP 1 PROCESS_ID FROM PL_REQUEST_PROCESS WHERE REQ_ID = @p_REQ_ID AND STATUS = 'C')
29
IF(@p_CURRENT_PROCESS_ID IN ('NEW', 'SIGN', 'APPNEW', 'DMMS', 'DVCM') 
30
	OR @p_CURRENT_PROCESS_ID IS NULL OR @p_CURRENT_PROCESS_ID = '')
31
BEGIN
32
	SELECT '-1' as Result, '' REQ_DOC_LINK,
33
		N'Không thể lấy đường dẫn. Phiếu yêu cầu mua sắm số: ' + @p_REQ_CODE +
34
		N' chưa đến cấp lãnh đạo phê duyệt' ErrorDesc
35
	RETURN '-1'
36
END
37
IF(@p_CURRENT_PROCESS_ID = 'APPROVE')
38
BEGIN
39
	SELECT '-1' as Result, '' REQ_DOC_LINK,
40
		N'Không thể lấy đường dẫn. Phiếu yêu cầu mua sắm số: ' + @p_REQ_CODE +
41
		N' đã được phê duyệt hoàn tất' ErrorDesc
42
	RETURN '-1'
43
END
44

    
45
DECLARE @p_REQ_DOC_LINK VARCHAR(MAX) = 
46
	(SELECT TITLE FROM TL_MESSAGE WHERE PROCESS_ID = 'UAT') + 
47
	'RequestDocProcess-view;id=' + @p_REQ_ID
48

    
49
SELECT '0' as Result, @p_REQ_DOC_LINK REQ_DOC_LINK,
50
	N'Lấy đường dẫn thành công. Bạn có thể copy đường dẫn bên dưới gửi cho cấp lãnh đạo duyệt' ErrorDesc
51
RETURN '0'
52

    
53

    
54

    
55
GO
56
IF @@ERROR <> 0 SET NOEXEC ON
57
GO
58
IF @@ERROR <> 0 SET NOEXEC ON
59
GO
60
DECLARE @Success AS BIT
61
SET @Success = 1
62
SET NOEXEC OFF