Project

General

Profile

DC.txt

Luc Tran Van, 04/04/2023 02:33 PM

 
1
ALTER PROCEDURE dbo.ASS_TRANSFER_MULTI_MASTER_Ins
2
@p_BRANCH_ID	varchar(15)  = NULL,
3
@p_TRANSFER_DT	VARCHAR(20) = NULL,
4
@p_USER_TRANSFER	nvarchar(200)  = NULL,
5
@p_NOTES	nvarchar(1000)  = NULL,
6
@p_RECORD_STATUS	varchar(1)  = NULL,
7
@p_AUTH_STATUS	varchar(1)  = NULL,
8
@p_MAKER_ID	varchar(100)  = NULL,
9
@p_CREATE_DT	VARCHAR(20) = NULL,
10
@p_CHECKER_ID	varchar(100)  = NULL,
11
@p_APPROVE_DT	VARCHAR(20) = NULL,
12
@p_AUTH_STATUS_KT	varchar(15)  = NULL,
13
@p_CREATE_DT_KT	varchar(100) = NULL,
14
@p_APPROVE_DT_KT	VARCHAR(20) = NULL,
15
@p_MAKER_ID_KT	varchar(100)  = NULL,
16
@p_CHECKER_ID_KT	varchar(100)  = NULL,
17
@p_REPORT_STATUS	varchar(15)  = NULL,
18
@p_BRANCH_CREATE varchar(15)  = NULL,
19
@p_TRANSFER_CONTENT NVARCHAR(MAX) = NULL,
20
@p_REQ_PARENT_ID VARCHAR(15) = NULL,
21
@p_REQ_PARENT_CODE VARCHAR(15) = NULL,
22

    
23
@p_XmlData XML = NULL
24
AS
25
/*
26

    
27
*/
28
DECLARE 
29
		@ASSET_ID	varchar(15),
30
		@ASSET_CODE	varchar(100),
31
		@BRANCH_ID	varchar(15),
32
		@KHOI_ID	    varchar(15),
33
		@CENTER_ID	varchar(15),
34
		@DEPT_ID	varchar(15),
35
		@EMP_ID	varchar(15),
36
	    @LOCATION	varchar(500),
37
		@DESCRIPTION	nvarchar(1000),
38
		@BRANCH_ID_OLD	varchar(15),
39
		@KHOI_ID_OLD	varchar(15),
40
		@CENTER_ID_OLD	varchar(15),
41
		@DEPT_ID_OLD	varchar(15),
42
		@EMP_ID_OLD	varchar(15),
43
		@REMAIN_VALUE	DECIMAL(18,0),
44
		@BUY_PRICE	DECIMAL(18,0),
45
		@DEPT_CREATE VARCHAR(15) = (SELECT SECUR_CODE FROM dbo.TL_USER WHERE TLNANME = @p_MAKER_ID)
46
Declare @hdoc INT
47
	Exec sp_xml_preparedocument @hdoc Output,@p_XmlData
48

    
49
	DECLARE XmlData CURSOR FOR
50
	SELECT *
51
	FROM OPENXML(@hdoc,'/Root/XmlData',2)
52
	WITH 
53
	(
54
		ASSET_ID	varchar(15),
55
		ASSET_CODE	varchar(100),
56
		BRANCH_ID	varchar(15),
57
        KHOI_ID VARCHAR(15),
58
        CENTER_ID VARCHAR(15),
59
		DEP_ID	varchar(15),
60
		EMP_ID	varchar(15),
61
        BRANCH_ID_OLD	varchar(15),
62
		KHOI_ID_OLD	varchar(15),
63
		CENTER_ID_OLD	varchar(15),
64
		DEPT_ID_OLD	varchar(15),
65
		EMP_ID_OLD	varchar(15),
66
	    LOCATION	varchar(500),
67
		[DESCRIPTION]	nvarchar(1000),
68
		REMAIN_VALUE DECIMAL(18,0),
69
		BUY_PRICE DECIMAL(18,0)
70
	)
71
	OPEN XmlData
72

    
73
BEGIN TRANSACTION
74
DECLARE @l_TRANS_MULTI_MASTER_ID VARCHAR(15)
75
		EXEC SYS_CodeMasters_Gen 'ASS_TRANSFER_MULTI_MASTER', @l_TRANS_MULTI_MASTER_ID out
76
		IF @l_TRANS_MULTI_MASTER_ID='' OR @l_TRANS_MULTI_MASTER_ID IS NULL GOTO ABORT
77
		print 'error'
78
		INSERT INTO ASS_TRANSFER_MULTI_MASTER([TRANS_MULTI_MASTER_ID],[BRANCH_ID],[TRANSFER_DT],[USER_TRANSFER],[NOTES],[RECORD_STATUS],[AUTH_STATUS],[MAKER_ID],[CREATE_DT],[CHECKER_ID],[APPROVE_DT],[REPORT_STATUS],[DEPT_CREATE], TRANSFER_CONTENT, REQ_ID, REQ_CODE, STATUS)
79
		VALUES(@l_TRANS_MULTI_MASTER_ID ,@p_BRANCH_ID ,CONVERT(DATETIME, @p_TRANSFER_DT, 103) ,@p_USER_TRANSFER ,@p_NOTES ,@p_RECORD_STATUS ,@p_AUTH_STATUS ,@p_MAKER_ID ,CONVERT(DATETIME, @p_CREATE_DT, 103) ,@p_CHECKER_ID ,CONVERT(DATETIME, @p_APPROVE_DT, 103) ,@p_REPORT_STATUS,@DEPT_CREATE, @p_TRANSFER_CONTENT, @p_REQ_PARENT_ID, @p_REQ_PARENT_CODE, 'ADDNEW')
80
		IF @@Error <> 0 GOTO ABORT
81

    
82
		DECLARE @COUNT INT;
83
		SET @COUNT = 1;
84

    
85
		--Insert XmlData
86
		FETCH NEXT FROM XmlData INTO  @ASSET_ID,@ASSET_CODE,@BRANCH_ID, @KHOI_ID, @CENTER_ID,@DEPT_ID,@EMP_ID,@BRANCH_ID_OLD,@KHOI_ID_OLD,@CENTER_ID_OLD,@DEPT_ID_OLD,
87
		                                @EMP_ID_OLD,@LOCATION,@DESCRIPTION, @REMAIN_VALUE, @BUY_PRICE
88
		WHILE @@FETCH_STATUS = 0
89
		BEGIN
90
				
91
                DECLARE @BRANCH_TYPE VARCHAR(15) = (SELECT CB.BRANCH_TYPE FROM CM_BRANCH CB WHERE CB.BRANCH_ID = @BRANCH_ID)
92

    
93
				DECLARE @ERRORSYS NVARCHAR(200) = ''--,@ASSET_CODE nVARCHAR(20)
94

    
95
                IF (@BRANCH_ID IS NULL OR @BRANCH_ID = '')
96
				BEGIN
97
					SET @ERRORSYS = N'Dòng số '+ CAST(@COUNT AS NVARCHAR) + N': Đơn vị nhận bắt buộc chọn.'
98
					CLOSE XmlData
99
					DEALLOCATE XmlData
100
					ROLLBACK TRANSACTION
101
					SELECT '-1' as Result, '' TRANS_MULTI_MASTER_ID, @ERRORSYS ErrorDesc
102
					RETURN '-1'
103
				
104
				END
105
                IF (@BRANCH_TYPE = 'HS')
106
				IF ((@DEPT_ID IS NULL OR @DEPT_ID = '') AND (@KHOI_ID IS NULL OR @KHOI_ID = '') AND (@CENTER_ID IS NULL OR @CENTER_ID = ''))
107
				BEGIN
108
					SET @ERRORSYS = N'Dòng số '+ CAST(@COUNT AS NVARCHAR) + N': phải chọn Phòng ban nhận hoặc Khối nhận hoặc Trung tâm nhận.'
109
					CLOSE XmlData
110
					DEALLOCATE XmlData
111
					ROLLBACK TRANSACTION
112
					SELECT '-1' as Result, '' TRANS_MULTI_MASTER_ID, @ERRORSYS ErrorDesc
113
					RETURN '-1'
114
				
115
				END
116

    
117
                DECLARE @MESSAGE_VALIDATION NVARCHAR(MAX) = ''
118
                DECLARE @check TABLE(TRANSFER_ID VARCHAR(20), ASSET_ID VARCHAR(20))
119
                INSERT INTO @check SELECT TRANS_MULTI_MASTER_ID, ASSET_ID FROM ASS_TRANSFER_MULTI_DT WHERE [ASSET_ID] = @ASSET_ID AND AUTH_STATUS<>'A'
120

    
121
				IF (EXISTS(SELECT TOP 1 * FROM @check))
122
				  BEGIN
123
                    SET @MESSAGE_VALIDATION = (SELECT REPLACE((SELECT 
124
                                                                    CASE WHEN ROW_NUMBER() OVER (ORDER BY (SELECT 0)) = 1 THEN ''
125
                                                                    ELSE '|' END 
126
                                                                    + N'Tài sản mã: ' + C.ASSET_CODE + N' đang được điều chuyển ở phiếu: ' + C.TRANS_MULTI_MASTER_ID
127
                                                              FROM (SELECT ISNULL(C.ASSET_CODE,C.ASS_CODE_TMP) AS ASSET_CODE,A.TRANS_MULTI_MASTER_ID
128
                                                                    FROM ASS_TRANSFER_MULTI_DT A
129
                                                                    LEFT JOIN ASS_TRANSFER_MULTI_MASTER B ON A.TRANS_MULTI_MASTER_ID = B.TRANS_MULTI_MASTER_ID
130
                                                                    LEFT JOIN ASS_MASTER C ON A.ASSET_ID = C.ASSET_ID
131
                                                                    WHERE A.ASSET_ID IN (SELECT ASSET_ID FROM @check)
132
                                                                    AND B.AUTH_STATUS <> 'A') C
133
                                                              FOR XML PATH (''))
134
                                                            , '|', '<br />'))
135
					CLOSE XmlData
136
					DEALLOCATE XmlData
137
					ROLLBACK TRANSACTION
138
					SELECT '-1' as Result, '' TRANS_MULTI_MASTER_ID, @MESSAGE_VALIDATION ErrorDesc
139
					RETURN '-1'
140
				
141
				  END
142

    
143
				DECLARE @l_TRANSFER_MULTI_ID VARCHAR(15)
144
				EXEC SYS_CodeMasters_Gen 'ASS_TRANSFER_MULTI_DT', @l_TRANSFER_MULTI_ID out
145
				IF @l_TRANSFER_MULTI_ID='' OR @l_TRANSFER_MULTI_ID IS NULL GOTO ABORT
146
				
147

    
148
				--LAY THONG TIN DON VI CU TRUOC DIEU CHUYEN
149
				SELECT @BRANCH_ID_OLD = BRANCH_ID, @DEPT_ID_OLD = DEPT_ID, @EMP_ID_OLD = EMP_ID
150
				FROM ASS_MASTER
151
				WHERE ASSET_ID = @ASSET_ID
152

    
153
				--thieuvq 07/09/2016 -- ngay 231120 Thieuvq bo sung neu la HOI SO thi khong kiem tra trung theo yeu cau Anh Tan - dieu chuyen ts tu kho HCQT cho HCQT su dung
154
				IF @BRANCH_ID_OLD <> 'DV0001' AND @BRANCH_ID = @BRANCH_ID_OLD AND ISNULL(@DEPT_ID,'') = ISNULL(@DEPT_ID_OLD,'') AND ISNULL(@EMP_ID,'') = ISNULL(@EMP_ID_OLD,'')
155
				BEGIN
156
					SET @ASSET_CODE=(SELECT ASSET_CODE FROM ASS_MASTER WHERE  [ASSET_ID] = @ASSET_ID)
157
					SELECT '-1' Result, ''  TRANSFER_ID, N'TS: '+@ASSET_CODE+ N' Đơn vị nhận hoặc người nhận phải khác với đơn vị/nhân viên đang sử dụng hiện tại.' ErrorDesc 
158
					CLOSE XmlData
159
					DEALLOCATE XmlData
160
					ROLLBACK TRANSACTION
161
					RETURN '-1'
162
				END
163

    
164
				-- luctv 03/08/2021 người nhận phải cùng đơn vị nhận
165
				IF (SELECT BRANCH_ID FROM CM_DEPARTMENT WHERE DEP_ID = @DEPT_ID)  <> @BRANCH_ID
166
				BEGIN
167
					SET @ASSET_CODE=(SELECT ASSET_CODE FROM ASS_MASTER WHERE  [ASSET_ID] = @ASSET_ID)
168
					SELECT '-1' Result, ''  TRANSFER_ID, N'TS: '+ @ASSET_CODE + N' Phòng bản nhận phải thuộc về đơn vị nhận.' ErrorDesc 
169
					CLOSE XmlData
170
					DEALLOCATE XmlData
171
					ROLLBACK TRANSACTION
172
					RETURN '-1'
173
				END
174

    
175
--				IF (SELECT DEP_ID FROM CM_EMPLOYEE WHERE EMP_ID = @EMP_ID)  <> @DEPT_ID
176
--				BEGIN
177
--					SET @ASSET_CODE=(SELECT ASSET_CODE FROM ASS_MASTER WHERE  [ASSET_ID] = @ASSET_ID)
178
--					SELECT '-1' Result, ''  TRANSFER_ID, N'TS: '+ @ASSET_CODE + N' Người nhận phải thuộc về phòng ban nhận.' ErrorDesc 
179
--					CLOSE XmlData
180
--					DEALLOCATE XmlData
181
--					ROLLBACK TRANSACTION
182
--					RETURN '-1'
183
--				END
184
				--print 'error1'
185
				INSERT INTO ASS_TRANSFER_MULTI_DT(
186
                        [TRANSFER_MULTI_ID],
187
                        [TRANS_MULTI_MASTER_ID],
188
                        [ASSET_ID],
189
                        [BRANCH_ID],
190
                        [KHOI_ID], 
191
                        [CENTER_ID],
192
                        [DEPT_ID],
193
                        [EMP_ID],
194
                        [BRANCH_ID_OLD],
195
                        [KHOI_ID_OLD], 
196
                        [CENTER_ID_OLD],
197
                        [DEPT_ID_OLD],
198
                        [EMP_ID_OLD], 
199
                        [USE_START_DT],
200
                        [DESCRIPTION],
201
                        [LOCATION],
202
                        [RECORD_STATUS],
203
                        [AUTH_STATUS],
204
                        [MAKER_ID],
205
                        [CREATE_DT],
206
                        [CHECKER_ID],
207
                        [APPROVE_DT],
208
                        [BRANCH_CREATE],
209
                        [AUTH_STATUS_KT],
210
                        [CREATE_DT_KT],
211
                        [APPROVE_DT_KT],
212
                        [MAKER_ID_KT],
213
                        [CHECKER_ID_KT],
214
                        [REPORT_STATUS], 
215
                        REMAIN_VALUE, BUY_PRICE
216
                        )
217
				VALUES(
218
                        @l_TRANSFER_MULTI_ID,
219
                        @l_TRANS_MULTI_MASTER_ID,
220
                        @ASSET_ID,
221
                        @BRANCH_ID,
222
                        @KHOI_ID,
223
                        @CENTER_ID,
224
                        @DEPT_ID,
225
                        @EMP_ID,
226
				        @BRANCH_ID_OLD,
227
                        @KHOI_ID_OLD,
228
                        @CENTER_ID_OLD,
229
                        @DEPT_ID_OLD, 
230
                        @EMP_ID_OLD, 
231
                        CONVERT(DATETIME, @p_TRANSFER_DT, 103),
232
                        @DESCRIPTION,
233
                        @LOCATION,
234
                        @p_RECORD_STATUS,
235
                        @p_AUTH_STATUS,
236
                        @p_MAKER_ID,
237
                        CONVERT(DATETIME, @p_CREATE_DT, 103),
238
                        @p_CHECKER_ID,
239
                        CONVERT(DATETIME, @p_APPROVE_DT, 103),
240
                        @p_BRANCH_CREATE ,@p_AUTH_STATUS_KT,
241
                        CONVERT(DATETIME, @p_CREATE_DT_KT, 103),
242
                        CONVERT(DATETIME, @p_APPROVE_DT_KT, 103),
243
                        @p_MAKER_ID_KT,
244
                        @p_CHECKER_ID_KT,
245
                        'N',
246
                        @REMAIN_VALUE, @BUY_PRICE
247
                        )
248

    
249
				IF @@Error <> 0 GOTO ABORT
250
				SET @COUNT = @COUNT + 1;
251

    
252
		FETCH NEXT FROM XmlData INTO  @ASSET_ID,@ASSET_CODE,@BRANCH_ID, @KHOI_ID, @CENTER_ID,@DEPT_ID,@EMP_ID,@BRANCH_ID_OLD,@KHOI_ID_OLD,@CENTER_ID_OLD,@DEPT_ID_OLD,
253
		                                @EMP_ID_OLD,@LOCATION,@DESCRIPTION, @REMAIN_VALUE, @BUY_PRICE
254
		END
255
			CLOSE XmlData
256
		DEALLOCATE XmlData
257

    
258
		-- GIANT 21/09/2021
259
		print 'error2'
260
--		INSERT INTO dbo.PL_PROCESS
261
--					(
262
--						REQ_ID,
263
--						PROCESS_ID,
264
--						CHECKER_ID,
265
--						APPROVE_DT,
266
--						PROCESS_DESC,NOTES
267
--					)
268
--					VALUES
269
--					(   @l_TRANS_MULTI_MASTER_ID,        -- REQ_ID - varchar(15)
270
--						'INSERT',        -- PROCESS_ID - varchar(10)
271
--						@p_MAKER_ID,        -- CHECKER_ID - varchar(15)
272
--						GETDATE(), -- APPROVE_DT - datetime
273
--					   N'Thêm mới phiều điều chuyển thành công' ,
274
--					   N'Đơn vị tạo phiếu'      -- PROCESS_DESC - nvarchar(1000)
275
--					)
276
        INSERT INTO PL_REQUEST_PROCESS(REQ_ID,[PROCESS_ID],[STATUS],ROLE_USER,BRANCH_ID,PARENT_PROCESS_ID, DEP_ID)
277
		 VALUES(@l_TRANS_MULTI_MASTER_ID,'ADDNEW','C','QLTS',@p_BRANCH_ID,'',@DEPT_CREATE)
278
        INSERT INTO PL_REQUEST_PROCESS(REQ_ID,[PROCESS_ID],[STATUS],ROLE_USER,BRANCH_ID,PARENT_PROCESS_ID, DEP_ID)
279
		 VALUES(@l_TRANS_MULTI_MASTER_ID,'QLTS_D','U','GDDV',@p_BRANCH_ID,'ADDNEW',@DEPT_CREATE)
280

    
281
COMMIT TRANSACTION
282
SELECT '0' as Result, @l_TRANS_MULTI_MASTER_ID  TRANS_MULTI_MASTER_ID, '' ErrorDesc
283
RETURN '0'
284
ABORT:
285
BEGIN
286
		CLOSE XmlData
287
		DEALLOCATE XmlData
288
		ROLLBACK TRANSACTION
289
		SELECT '-1' as Result, '' TRANS_MULTI_MASTER_ID, '' ErrorDesc
290
		RETURN '-1'
291
End