|
1
|
|
|
2
|
ALTER PROCEDURE [dbo].[TR_REQ_PAYMENT_KT_Upd]
|
|
3
|
@p_REQ_PAY_ID varchar(15)= NULL,
|
|
4
|
@p_REQ_PAY_CODE varchar(50) = NULL,
|
|
5
|
@p_REQ_DT VARCHAR(20)= NULL,
|
|
6
|
@p_BRANCH_ID varchar(15) = NULL,
|
|
7
|
@p_DEP_ID varchar(15) = NULL,
|
|
8
|
@p_REQ_REASON nvarchar(MAX) = NULL,
|
|
9
|
@p_REQ_TYPE varchar(15) = NULL,
|
|
10
|
@P_REQ_ENTRIES nvarchar(MAX) = NULL,
|
|
11
|
@p_REQ_DESCRIPTION nvarchar(MAX) = NULL,
|
|
12
|
@p_REF_ID varchar(15) = NULL,
|
|
13
|
@p_RECEIVER_PO nvarchar(250) = NULL,
|
|
14
|
@p_REQ_PAY_TYPE varchar(15) = NULL,
|
|
15
|
@p_REQ_TYPE_CURRENCY nvarchar(50) = NULL,
|
|
16
|
@p_REQ_AMT decimal(18, 0) = NULL,
|
|
17
|
@p_REQ_TEMP_AMT decimal(18, 0) = NULL,
|
|
18
|
@p_MAKER_ID varchar(15) = NULL,
|
|
19
|
@p_CREATE_DT varchar(25) = NULL,
|
|
20
|
@p_EDITOR_ID varchar(15) = NULL,
|
|
21
|
@p_AUTH_STATUS varchar(1) = NULL,
|
|
22
|
@p_CHECKER_ID varchar(15) = NULL,
|
|
23
|
@p_APPROVE_DT varchar(25) = NULL,
|
|
24
|
@p_CREATE_DT_KT varchar(25) = NULL,
|
|
25
|
@p_MAKER_ID_KT varchar(15) = NULL,
|
|
26
|
@p_AUTH_STATUS_KT varchar(1) = NULL,
|
|
27
|
@p_CHECKER_ID_KT varchar(1) = NULL,
|
|
28
|
@p_APPROVE_DT_KT varchar(25)= null,
|
|
29
|
@p_CONFIRM_NOTE nvarchar(500) = NULL,
|
|
30
|
@p_BRANCH_CREATE varchar(15) = NULL,
|
|
31
|
@p_NOTES varchar(15) = NULL,
|
|
32
|
@p_RECORD_STATUS varchar(1) = NULL,
|
|
33
|
@p_TRANSFER_MAKER nvarchar(50) = NULL,
|
|
34
|
@p_TRANSFER_DT varchar(25) = NULL,
|
|
35
|
@p_TRASFER_USER_RECIVE varchar(15) = NULL,
|
|
36
|
@p_PROCESS varchar(15) = NULL,
|
|
37
|
@p_PAY_PHASE VARCHAR(15) = NULL,
|
|
38
|
@p_XMP_TEMP XML = NULL,
|
|
39
|
@p_XMP_TEMP_2 XML = NULL
|
|
40
|
AS
|
|
41
|
|
|
42
|
--Validation is here
|
|
43
|
IF ((SELECT AUTH_STATUS FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID) ='R')
|
|
44
|
BEGIN
|
|
45
|
SELECT '-1' Result,'' REQ_PAY_ID,N'Phiếu đề nghị thanh toán đang được trả về đơn vị. Vui lòng chờ đơn vị cập nhật thông tin và duyệt lại!' ErrorDesc
|
|
46
|
RETURN '-1'
|
|
47
|
END
|
|
48
|
DECLARE @ENTRY_PAIR varchar(20),@DR_CR varchar(20),@ACCT VARCHAR(50), @ACCT_NAME VARCHAR(500), @AMT decimal(18,2),@CURRENCY VARCHAR(15), @EXC_RATE DECIMAL(18,0),
|
|
49
|
@BRANCH_ID VARCHAR(15), @DEP_ID VARCHAR(15),@TRN_DESC nvarchar(1000),@GL_CODE VARCHAR(100), @BRANCH_CODE VARCHAR(15), @DEP_CODE VARCHAR(15)
|
|
50
|
DECLARE @VAT decimal(18, 0) =NULL, @TRANS_NO nvarchar(50)=NULL, @TRANS_DT VARCHAR(20)=NULL,@INVOICE_SIGN nvarchar(50) = NULL,@INVOICE_NO_SIGN nvarchar(50)=null,
|
|
51
|
@INVOICE_NO nvarchar(50) = NULL,@INVOICE_DT VARCHAR(20) = NULL,@SELLER nvarchar(250) = NULL,@TAX_NO nvarchar(15) = NULL,@GOODS_NAME nvarchar(250) = NULL,
|
|
52
|
@PRICE decimal(18, 0) = NULL,@TAX decimal(18, 0) = NULL,@NOTES NVARCHAR(MAX) = NULL,@VAT_RATE decimal(18,2),
|
|
53
|
@ACC_NO VARCHAR(25),@ACC_NAME NVARCHAR(250),@ISSUED_BY NVARCHAR(250),@ISSUED_DT VARCHAR(20),@RATE DECIMAL(18,2),@PRICE_KT DECIMAL(18,2) =0,@TOTAL_AMT_KT DECIMAL(18,2) =0,@VAT_KT DECIMAL(18,2) =0,
|
|
54
|
@TYPE_VAT VARCHAR(15),@TYPE_FUNC VARCHAR(15)
|
|
55
|
DECLARE @hdoc INT;
|
|
56
|
EXEC sp_xml_preparedocument @hdoc OUTPUT, @p_XMP_TEMP;
|
|
57
|
DECLARE XmlData CURSOR FOR
|
|
58
|
SELECT *
|
|
59
|
FROM
|
|
60
|
OPENXML(@hdoc, '/Root/XmlData', 2)
|
|
61
|
WITH(ENTRY_PAIR varchar(20),DR_CR varchar(20),ACCT VARCHAR(50), ACCT_NAME VARCHAR(500), AMT decimal(18,2),CURRENCY VARCHAR(15), EXC_RATE DECIMAL(18,0),
|
|
62
|
BRANCH_ID VARCHAR(15), DEP_ID VARCHAR(15),TRN_DESC nvarchar(1000),GL_CODE VARCHAR(100))
|
|
63
|
OPEN XmlData;
|
|
64
|
---
|
|
65
|
DECLARE XmlInvoice CURSOR FOR
|
|
66
|
SELECT *
|
|
67
|
FROM
|
|
68
|
OPENXML(@hdoc, '/Root/XmlInvoice', 2)
|
|
69
|
WITH(TRANS_NO nvarchar(50),TRANS_DT VARCHAR(20),INVOICE_SIGN nvarchar(50),INVOICE_NO_SIGN nvarchar(50),
|
|
70
|
INVOICE_NO nvarchar(50),INVOICE_DT VARCHAR(20) ,SELLER nvarchar(250),TAX_NO nvarchar(15),GOODS_NAME nvarchar(250) ,
|
|
71
|
PRICE decimal(18,2),TAX decimal(18, 2),VAT decimal(18,2),NOTE NVARCHAR(MAX),VAT_RATE decimal(18,2),CURRENCY VARCHAR(15), RATE DECIMAL(18,2),PRICE_KT DECIMAL(18,2),VAT_KT DECIMAL(18,2),TOTAL_AMT_KT DECIMAL(18,2),TYPE_VAT VARCHAR(15), TYPE_FUNC VARCHAR(15))
|
|
72
|
OPEN XmlInvoice;
|
|
73
|
DECLARE @INDEX INT =0, @INDEX_IV INT =0
|
|
74
|
BEGIN TRANSACTION
|
|
75
|
-- KHAI BAO CAC BUOC DUYET- XAC NHAN
|
|
76
|
DECLARE @LEVEL_JOB VARCHAR(5), @LEVEL_JOB_PREV INT
|
|
77
|
SET @LEVEL_JOB =(SELECT LEVEL_JOB FROM PL_REQUEST_PROCESS_CHILD WHERE REQ_ID =@p_REQ_PAY_ID AND TLNAME=@p_MAKER_ID_KT AND STATUS_JOB='C')
|
|
78
|
SET @LEVEL_JOB_PREV = CONVERT(INT,@LEVEL_JOB) -1
|
|
79
|
----
|
|
80
|
--IF(EXISTS (SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID AND MAKER_ID_KT IS NULL))
|
|
81
|
|
|
82
|
IF(@p_XMP_TEMP IS NOT NULL)
|
|
83
|
BEGIN
|
|
84
|
UPDATE TR_REQ_PAYMENT SET
|
|
85
|
AUTH_STATUS_KT ='U', CREATE_DT_KT = GETDATE(),MAKER_ID_KT =@p_MAKER_ID_KT,CHECKER_ID_KT=NULL,APPROVE_DT_KT = NULL, CONFIRM_NOTE=@p_CONFIRM_NOTE
|
|
86
|
WHERE REQ_PAY_ID =@p_REQ_PAY_ID
|
|
87
|
DELETE FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID = @p_REQ_PAY_ID
|
|
88
|
DELETE FROM TR_REQ_PAY_INVOICE WHERE REQ_PAY_ID= @p_REQ_PAY_ID
|
|
89
|
IF @@Error <> 0 GOTO ABORT
|
|
90
|
DECLARE @DR_CR_NAME NVARCHAR(50),@ACC_NAME_FN NVARCHAR(500)
|
|
91
|
FETCH NEXT FROM XmlData INTO @ENTRY_PAIR ,@DR_CR,@ACCT, @ACCT_NAME, @AMT ,@CURRENCY, @EXC_RATE,@BRANCH_ID, @DEP_ID,@TRN_DESC,@GL_CODE
|
|
92
|
WHILE @@fetch_status=0 BEGIN
|
|
93
|
SET @INDEX = @INDEX +1
|
|
94
|
SET @GL_CODE = RIGHT(@GL_CODE,9)
|
|
95
|
SET @ACC_NAME =UPPER(dbo.fChuyenCoDauThanhKhongDau(@ACCT_NAME))
|
|
96
|
IF(@DR_CR='D')
|
|
97
|
BEGIN
|
|
98
|
SET @DR_CR_NAME =N'Nợ'
|
|
99
|
END
|
|
100
|
ELSE
|
|
101
|
BEGIN
|
|
102
|
SET @DR_CR_NAME =N'Có'
|
|
103
|
END
|
|
104
|
SET @BRANCH_CODE =(SELECT TOP 1 BRANCH_CODE FROM CM_BRANCH WHERE BRANCH_ID =@BRANCH_ID)
|
|
105
|
SET @DEP_CODE =(SELECT TOP 1 DEP_CODE FROM CM_DEPARTMENT WHERE DEP_ID =@DEP_ID)
|
|
106
|
--SET @ACC_NAME_FN =(SELECT TOP 1 ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO =@ACCT)
|
|
107
|
IF(@ACCT_NAME IS NULL OR @ACCT_NAME ='' OR @ACC_NAME ='0')
|
|
108
|
BEGIN
|
|
109
|
ROLLBACK TRANSACTION
|
|
110
|
CLOSE XmlData;
|
|
111
|
DEALLOCATE XmlData;
|
|
112
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Tên tài khoản hạch toán chưa đúng. Vui lòng bấm vào nút Check GL & Check CASA để đồng bộ tài khoản từ Core' ErrorDesc
|
|
113
|
RETURN '-1'
|
|
114
|
END
|
|
115
|
IF(@GL_CODE IS NULL OR @GL_CODE ='')
|
|
116
|
BEGIN
|
|
117
|
IF (LEN(@ACCT) >9 AND ((SELECT TOP 1 ISNULL(TK_GL,'') FROM CM_ACCOUNT WHERE ACC_NO =@ACCT) ='' OR (SELECT TOP 1 ISNULL(TK_GL_NAME,'') FROM CM_ACCOUNT WHERE ACC_NO =@ACCT) =''))
|
|
118
|
BEGIN
|
|
119
|
ROLLBACK TRANSACTION
|
|
120
|
CLOSE XmlData;
|
|
121
|
DEALLOCATE XmlData;
|
|
122
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Tài khoản CASA chưa có thông tin GL Mapping. Vui lòng bấm vào nút Kiểm tra tài khoản để đồng bộ tài khoản từ Core' ErrorDesc
|
|
123
|
RETURN '-1'
|
|
124
|
END
|
|
125
|
END
|
|
126
|
IF(@DR_CR IS NULL OR @DR_CR ='')
|
|
127
|
BEGIN
|
|
128
|
ROLLBACK TRANSACTION
|
|
129
|
CLOSE XmlData;
|
|
130
|
DEALLOCATE XmlData;
|
|
131
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Tài khoản nợ không được phép để trống' ErrorDesc
|
|
132
|
RETURN '-1'
|
|
133
|
END
|
|
134
|
IF(@BRANCH_ID IS NULL OR @BRANCH_ID ='')
|
|
135
|
BEGIN
|
|
136
|
ROLLBACK TRANSACTION
|
|
137
|
CLOSE XmlData;
|
|
138
|
DEALLOCATE XmlData;
|
|
139
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Đơn vị nhận không được phép để trống' ErrorDesc
|
|
140
|
RETURN '-1'
|
|
141
|
END
|
|
142
|
IF(@ACCT IS NULL OR @ACCT ='')
|
|
143
|
BEGIN
|
|
144
|
ROLLBACK TRANSACTION
|
|
145
|
CLOSE XmlData;
|
|
146
|
DEALLOCATE XmlData;
|
|
147
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Tài khoản có không được phép để trống' ErrorDesc
|
|
148
|
RETURN '-1'
|
|
149
|
END
|
|
150
|
IF(@ACCT IS NOT NULL AND @ACCT <> '' AND LEFT(@ACCT,1) IN ('7','8') AND (@DEP_ID IS NULL OR @DEP_ID ='') AND LEN(@ACCT) < 13)
|
|
151
|
BEGIN
|
|
152
|
ROLLBACK TRANSACTION
|
|
153
|
CLOSE XmlData;
|
|
154
|
DEALLOCATE XmlData;
|
|
155
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Tài khoản hạch toán đầu số 7 & 8 vui lòng chọn mã phòng ban' ErrorDesc
|
|
156
|
RETURN '-1'
|
|
157
|
END
|
|
158
|
IF(@TRN_DESC IS NULL OR @TRN_DESC ='')
|
|
159
|
BEGIN
|
|
160
|
ROLLBACK TRANSACTION
|
|
161
|
CLOSE XmlData;
|
|
162
|
DEALLOCATE XmlData;
|
|
163
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Diễn giải hạch toán không được phép để trống' ErrorDesc
|
|
164
|
RETURN '-1'
|
|
165
|
END
|
|
166
|
--LUCTV 09082021 BO SUNG CHAN NEU DIEN GIAI HACH TOAN CHUA KY TU CO DAU <, &
|
|
167
|
IF(@TRN_DESC IS NOT NULL AND @TRN_DESC <>'')
|
|
168
|
BEGIN
|
|
169
|
IF CHARINDEX('&',@TRN_DESC) <> 0
|
|
170
|
BEGIN
|
|
171
|
ROLLBACK TRANSACTION
|
|
172
|
CLOSE XmlData;
|
|
173
|
DEALLOCATE XmlData;
|
|
174
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Diễn giải hạch toán không được phép chứa kí tự &' ErrorDesc
|
|
175
|
RETURN '-1'
|
|
176
|
END
|
|
177
|
END
|
|
178
|
IF(@TRN_DESC IS NOT NULL AND @TRN_DESC <>'')
|
|
179
|
BEGIN
|
|
180
|
IF CHARINDEX('<',@TRN_DESC ) <> 0 OR CHARINDEX('&',@TRN_DESC ) <> 0
|
|
181
|
BEGIN
|
|
182
|
ROLLBACK TRANSACTION
|
|
183
|
CLOSE XmlData;
|
|
184
|
DEALLOCATE XmlData;
|
|
185
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Diễn giải hạch toán không được phép chứa kí tự < hoặc kí tự &' ErrorDesc
|
|
186
|
RETURN '-1'
|
|
187
|
END
|
|
188
|
END
|
|
189
|
-- NEU HACH TOAN CASA THI 3 KI TU DAU PHAI KHOP VOI BRANCH CODE CUA DON VI CHIU CHI PHI
|
|
190
|
IF(LEN(@ACCT) >9 AND (SUBSTRING(@ACCT,1,3) <> (SELECT ISNULL(BRANCH_CODE,'') FROM CM_BRANCH WHERE BRANCH_ID = @BRANCH_ID)))
|
|
191
|
BEGIN
|
|
192
|
ROLLBACK TRANSACTION
|
|
193
|
CLOSE XmlData;
|
|
194
|
DEALLOCATE XmlData;
|
|
195
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N'Nếu bạn đang hạch toán CASA trong hệ thống. Vui lòng chọn mã đơn vị khớp với mã đơn vị tương ứng với 3 kí tự đầu của tài khoản CASA' ErrorDesc
|
|
196
|
RETURN '-1'
|
|
197
|
---
|
|
198
|
END
|
|
199
|
--IF(@DEP_ID IS NOT NULL AND @DEP_ID <> '' AND NOT EXISTS(SELECT * FROM CM_DEPARTMENT WHERE DEP_ID =@DEP_ID AND BRANCH_ID =@BRANCH_ID))
|
|
200
|
--BEGIN
|
|
201
|
--ROLLBACK TRANSACTION
|
|
202
|
-- --CLOSE XmlData;
|
|
203
|
-- --DEALLOCATE XmlData;
|
|
204
|
-- SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Vui lòng chọn mã phòng ban khớp với mã đơn vị tương ứng với 3 kí tự đầu của tài khoản CASA' ErrorDesc
|
|
205
|
-- RETURN '-1'
|
|
206
|
-- ---
|
|
207
|
--END
|
|
208
|
IF(@DEP_ID IS NOT NULL AND @DEP_ID <> '' AND (LEFT(@DEP_CODE,3) <> @BRANCH_CODE))
|
|
209
|
BEGIN
|
|
210
|
ROLLBACK TRANSACTION
|
|
211
|
--CLOSE XmlData;
|
|
212
|
--DEALLOCATE XmlData;
|
|
213
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Vui lòng chọn mã phòng ban khớp với mã đơn vị tương ứng với 3 kí tự đầu của tài khoản CASA' ErrorDesc
|
|
214
|
RETURN '-1'
|
|
215
|
---
|
|
216
|
END
|
|
217
|
-- KIEM TRA SO TIEN HACH TOAN
|
|
218
|
IF (ISNULL(@AMT,0)<=0)
|
|
219
|
BEGIN
|
|
220
|
ROLLBACK TRANSACTION
|
|
221
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Mã bút toán số ' + @ENTRY_PAIR + N' Số tiền bút hạch toán phải lớn hơn không' ErrorDesc
|
|
222
|
RETURN '-1'
|
|
223
|
END
|
|
224
|
--IF(NOT EXISTS(SELECT * FROM TR_REQ_PAY_INVOICE WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ISNULL(TAX,0) >0 AND ISNULL(VAT,0) >0 AND TYPE_FUNC ='KT'))
|
|
225
|
--BEGIN
|
|
226
|
-- IF(@ACCT ='353200002' OR @ACCT ='353200001')
|
|
227
|
-- BEGIN
|
|
228
|
-- SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N'Bạn không được phép hạch toán tài khoản 353200002,353200001 giao dịch không chứa các hóa đơn có VAT do kế toán lưu trữ ' ErrorDesc
|
|
229
|
-- RETURN '-1'
|
|
230
|
-- END
|
|
231
|
--END
|
|
232
|
DECLARE @p_ET_ID VARCHAR(15);
|
|
233
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_ENTRIES', @p_ET_ID OUT;
|
|
234
|
IF @p_ET_ID='' OR @p_ET_ID IS NULL GOTO ABORT;
|
|
235
|
INSERT INTO TR_REQ_PAY_ENTRIES (REQ_PAY_DT_ID,REQ_PAY_ID,ENTRY_PAIR,DR_CR,DR_CR_NAME,ACCT,ACCT_NAME,AMT,CURRENCY,EXC_RATE,BRANCH_ID,DEP_ID,TRN_DESC,TRN_DATE,MAKER_ID_KT)
|
|
236
|
VALUES (@p_ET_ID,@p_REQ_PAY_ID,@ENTRY_PAIR,@DR_CR,@DR_CR_NAME,@ACCT,@ACCT_NAME, @AMT ,@CURRENCY, @EXC_RATE, @BRANCH_ID, @DEP_ID,@TRN_DESC,GETDATE(),@p_MAKER_ID_KT)
|
|
237
|
-- NEU CHUA CO TAI KHOAN THI THEM VO CM_ACCOUNT
|
|
238
|
IF(NOT EXISTS(SELECT * FROM CM_ACCOUNT WHERE ACC_NO =@ACCT))
|
|
239
|
BEGIN
|
|
240
|
INSERT INTO CM_ACCOUNT (ACC_NO, ACC_NAME, TK_GL, TK_GL_NAME, MAKER_ID, CHECKER_ID,CREATE_DT) VALUES
|
|
241
|
(@ACCT,@ACCT_NAME,@GL_CODE,(SELECT TOP 1 ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO =@GL_CODE),'admin','admin',GETDATE())
|
|
242
|
END
|
|
243
|
ELSE
|
|
244
|
BEGIN
|
|
245
|
IF(@GL_CODE IS NOT NULL AND @GL_CODE <> '')
|
|
246
|
BEGIN
|
|
247
|
UPDATE CM_ACCOUNT SET ACC_NAME =@ACC_NAME, TK_GL =@GL_CODE, TK_GL_NAME =(SELECT TOP 1 ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO =@GL_CODE)
|
|
248
|
WHERE ACC_NO=@ACCT
|
|
249
|
END
|
|
250
|
--UPDATE CM_ACCOUNT SET ACC_NAME =@ACCT_NAME, TK_GL =@GL_CODE, TK_GL_NAME =(SELECT TOP 1 ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO =@GL_CODE), CREATE_DT = GETDATE()
|
|
251
|
--WHERE ACC_NO=@ACCT
|
|
252
|
END
|
|
253
|
--LUCTV 19-07-2021: MỖI MÃ BÚT TOÁN PHẢI THEO NGUYÊN TẮC 1 NỢ NHIỀU CÓ HOẶC 1 CÓ NHIỀU NỢ
|
|
254
|
IF((SELECT COUNT (*) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ENTRY_PAIR =@ENTRY_PAIR AND DR_CR ='D') >1 AND
|
|
255
|
(SELECT COUNT (*) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ENTRY_PAIR =@ENTRY_PAIR AND DR_CR ='C') >1)
|
|
256
|
BEGIN
|
|
257
|
ROLLBACK TRANSACTION
|
|
258
|
CLOSE XmlData;
|
|
259
|
DEALLOCATE XmlData;
|
|
260
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Mã bút toán số '+ @ENTRY_PAIR+ N': Sai cấu trúc Nợ Có (1 Nợ nhiều Có hoặc 1 Có nhiều Nợ, không được phép Nhiều Có - Nhiều Nợ)' ErrorDesc
|
|
261
|
RETURN '-1'
|
|
262
|
---
|
|
263
|
END
|
|
264
|
IF @@error<>0 GOTO ABORT;
|
|
265
|
FETCH NEXT FROM XmlData INTO @ENTRY_PAIR ,@DR_CR,@ACCT, @ACCT_NAME, @AMT ,@CURRENCY, @EXC_RATE,@BRANCH_ID, @DEP_ID,@TRN_DESC,@GL_CODE
|
|
266
|
END;
|
|
267
|
CLOSE XmlData;
|
|
268
|
DEALLOCATE XmlData;
|
|
269
|
-- UPDATE INVOICE
|
|
270
|
--Insert XmlData
|
|
271
|
-- CAP NHAT TAI KHOAN GL
|
|
272
|
UPDATE CM_ACCOUNT
|
|
273
|
SET TK_GL ='361200001', TK_GL_NAME =(SELECT ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO ='361200001')
|
|
274
|
WHERE LEN (ACC_NO) >9 AND ISNULL(TK_GL,'') =''
|
|
275
|
AND SUBSTRING(ACC_NO,4,4) ='7048'
|
|
276
|
|
|
277
|
UPDATE CM_ACCOUNT
|
|
278
|
SET TK_GL ='519200002', TK_GL_NAME =(SELECT ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO ='519200002')
|
|
279
|
WHERE LEN (ACC_NO) >9 AND ISNULL(TK_GL,'') =''
|
|
280
|
AND SUBSTRING(ACC_NO,4,4) ='7044' AND SUBSTRING(ACC_NO,12,2) ='19'
|
|
281
|
|
|
282
|
UPDATE CM_ACCOUNT
|
|
283
|
SET TK_GL ='421100001', TK_GL_NAME =(SELECT ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO ='421100001')
|
|
284
|
WHERE LEN (ACC_NO) >9 AND ISNULL(TK_GL,'') =''
|
|
285
|
AND SUBSTRING(ACC_NO,4,4) ='7041'
|
|
286
|
|
|
287
|
--UPDATE TR_REQ_PAY_ENTRIES SET ACCT_NAME = UPPER(dbo.fChuyenCoDauThanhKhongDau(ACCT_NAME)) WHERE REQ_PAY_ID IN (SELECT REQ_PAY_ID FROM PAY_ENTRIES_POST WHERE ISNULL(REF_NO,'') ='')
|
|
288
|
-- CAP NHAT TAI KHOAN GL
|
|
289
|
FETCH NEXT FROM XmlInvoice INTO @TRANS_NO , @TRANS_DT ,@INVOICE_SIGN ,@INVOICE_NO_SIGN,@INVOICE_NO ,@INVOICE_DT ,@SELLER ,
|
|
290
|
@TAX_NO ,@GOODS_NAME ,@PRICE ,@TAX,@VAT,@NOTES,@VAT_RATE,@CURRENCY,@RATE,@PRICE_KT ,@VAT_KT,@TOTAL_AMT_KT,@TYPE_VAT,@TYPE_FUNC
|
|
291
|
WHILE @@fetch_status=0 BEGIN
|
|
292
|
SET @INDEX_IV = @INDEX_IV+1
|
|
293
|
IF(LEN(@INVOICE_NO) >7)
|
|
294
|
BEGIN
|
|
295
|
ROLLBACK TRANSACTION
|
|
296
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng ' + CONVERT(VARCHAR(5),@INDEX_IV)+N': Số hóa đơn '+ @INVOICE_NO +N' không được lớn hơn 7 kí tự' ErrorDesc
|
|
297
|
RETURN '-1'
|
|
298
|
END
|
|
299
|
IF(LEN(@INVOICE_NO) <7)
|
|
300
|
BEGIN
|
|
301
|
ROLLBACK TRANSACTION
|
|
302
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Dòng ' + CONVERT(VARCHAR(5),@INDEX_IV)+N': Số hóa đơn '+ @INVOICE_NO +N' phải đủ 7 kí tự' ErrorDesc
|
|
303
|
RETURN '-1'
|
|
304
|
END
|
|
305
|
IF(@TYPE_FUNC ='HC')
|
|
306
|
BEGIN
|
|
307
|
IF(EXISTS(SELECT * FROM TR_REQ_PAY_INVOICE WHERE INVOICE_NO =@INVOICE_NO AND INVOICE_NO_SIGN = @INVOICE_NO_SIGN AND INVOICE_SIGN =@INVOICE_SIGN AND
|
|
308
|
TAX_NO =@TAX_NO AND TAX =@TAX AND TYPE_FUNC ='HC' AND AUTH_STATUS <>'D' AND REQ_PAY_ID IN (SELECT REQ_PAY_ID FROM TR_REQ_PAYMENT WHERE AUTH_STATUS NOT IN ('E','D') AND MAKER_ID NOT IN (SELECT TLNANME FROM TL_USER WHERE RoleName ='DISABLE' OR AUTH_STATUS ='U'))))
|
|
309
|
BEGIN
|
|
310
|
ROLLBACK TRANSACTION
|
|
311
|
SELECT '-1' as Result, '' REQ_PAY_ID,N'Dòng ' + CONVERT(VARCHAR(5),@INDEX_IV)+N': Số hóa đơn '+ @INVOICE_NO +N' đã tồn tại trong hệ thống' ErrorDesc
|
|
312
|
RETURN '-1'
|
|
313
|
END
|
|
314
|
END
|
|
315
|
IF(@TYPE_FUNC ='KT')
|
|
316
|
BEGIN
|
|
317
|
IF(EXISTS(SELECT * FROM TR_REQ_PAY_INVOICE WHERE INVOICE_NO =@INVOICE_NO AND INVOICE_NO_SIGN = @INVOICE_NO_SIGN
|
|
318
|
AND INVOICE_SIGN =@INVOICE_SIGN AND TAX_NO =@TAX_NO AND TAX =@TAX AND TYPE_FUNC ='KT' AND AUTH_STATUS <>'D' AND
|
|
319
|
REQ_PAY_ID IN (SELECT REQ_PAY_ID FROM TR_REQ_PAYMENT WHERE AUTH_STATUS NOT IN ('E','D') AND MAKER_ID NOT IN (SELECT TLNANME FROM TL_USER WHERE RoleName ='DISABLE' OR AUTH_STATUS ='U'))))
|
|
320
|
BEGIN
|
|
321
|
ROLLBACK TRANSACTION
|
|
322
|
SELECT '-1' as Result, '' REQ_PAY_ID,N'Dòng ' + CONVERT(VARCHAR(5),@INDEX_IV)+N': Số hóa đơn '+ @INVOICE_NO +N' đã tồn tại trong hệ thống' ErrorDesc
|
|
323
|
RETURN '-1'
|
|
324
|
END
|
|
325
|
END
|
|
326
|
DECLARE @p_REQ_INV_ID VARCHAR(15);
|
|
327
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_INVOICE', @p_REQ_INV_ID OUT;
|
|
328
|
IF @p_REQ_INV_ID='' OR @p_REQ_INV_ID IS NULL GOTO ABORT;
|
|
329
|
INSERT INTO TR_REQ_PAY_INVOICE(REQ_PAYDT_ID,REQ_PAY_ID,TRANS_NO,TRANS_DT,INVOICE_SIGN,INVOICE_NO,INVOICE_DT,SELLER,TAX_NO,GOODS_NAME,PRICE,TAX,VAT,NOTE,
|
|
330
|
MAKER_ID,CREATE_DT,EDITOR_ID,AUTH_STATUS,CHECKER_ID,APPROVE_DT,
|
|
331
|
CREATE_DT_KT,MAKER_ID_KT,AUTH_STATUS_KT,CHECKER_ID_KT,APPROVE_DT_KT,RECORD_STATUS,INVOICE_NO_SIGN,VAT_RATE,CURRENCY,RATE,PRICE_KT ,VAT_KT,TOTAL_AMT_KT,TYPE_VAT,TYPE_FUNC)
|
|
332
|
VALUES (@p_REQ_INV_ID,@p_REQ_PAY_ID , @TRANS_NO , CONVERT(DATE,@TRANS_DT,103) ,@INVOICE_SIGN ,@INVOICE_NO ,CONVERT(DATE,@INVOICE_DT,103) ,@SELLER ,@TAX_NO ,@GOODS_NAME ,@PRICE ,@TAX,@VAT,@NOTES,
|
|
333
|
@p_MAKER_ID,GETDATE(),NULL,'U',NULL,NULL,GETDATE(),@p_MAKER_ID_KT,'U',NULL,NULL,'1',@INVOICE_NO_SIGN,@VAT_RATE,@CURRENCY,@RATE,@PRICE_KT ,@VAT_KT,@TOTAL_AMT_KT,@TYPE_VAT,@TYPE_FUNC)
|
|
334
|
IF @@error<>0 GOTO ABORT;
|
|
335
|
FETCH NEXT FROM XmlInvoice
|
|
336
|
INTO @TRANS_NO , @TRANS_DT,@INVOICE_SIGN,@INVOICE_NO_SIGN,@INVOICE_NO ,@INVOICE_DT ,@SELLER ,@TAX_NO ,@GOODS_NAME ,@PRICE ,
|
|
337
|
@TAX,@VAT,@NOTES,@VAT_RATE,@CURRENCY,@RATE,@PRICE_KT ,@VAT_KT,@TOTAL_AMT_KT,@TYPE_VAT,@TYPE_FUNC
|
|
338
|
END;
|
|
339
|
CLOSE XmlInvoice;
|
|
340
|
DEALLOCATE XmlInvoice;
|
|
341
|
--- Luu log chinh sua
|
|
342
|
INSERT INTO TR_REQ_PAY_INVOICE_LOG SELECT * FROM TR_REQ_PAY_INVOICE WHERE REQ_PAY_ID =@p_REQ_PAY_ID
|
|
343
|
-----
|
|
344
|
--- BAT DAU CAP NHAT XAC DINH CAC BUOC DUYET SAU KHI KE TOAN CAP NHAT THONG TIN
|
|
345
|
END
|
|
346
|
COMMIT TRANSACTION
|
|
347
|
IF(@p_XMP_TEMP IS NULL)
|
|
348
|
BEGIN
|
|
349
|
---BAT DAU VALIDATE
|
|
350
|
DECLARE @REQ_PAY_ID varchar(15), @ET_ID varchar(15), @AMT_ET DECIMAL(18,0), @ACC_ET varchar(25), @DRCR_ET varchar(25), @SUM_ET DECIMAL(18,0) =0
|
|
351
|
DECLARE cursorProduct CURSOR LOCAL FOR
|
|
352
|
SELECT REQ_PAY_ID,ENTRY_PAIR,AMT,ACCT,DR_CR FROM TR_REQ_PAY_ENTRIES A WHERE A.REQ_PAY_ID =@p_REQ_PAY_ID
|
|
353
|
Open cursorProduct
|
|
354
|
FETCH NEXT FROM cursorProduct INTO @REQ_PAY_ID , @ET_ID, @AMT_ET, @ACC_ET , @DRCR_ET
|
|
355
|
WHILE @@FETCH_STATUS = 0
|
|
356
|
BEGIN
|
|
357
|
IF(@DRCR_ET='C' AND EXISTS(SELECT * FROM TR_REQ_PAY_METHOD WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ACC_NO =@ACC_ET))
|
|
358
|
BEGIN
|
|
359
|
SET @SUM_ET =(SELECT SUM(AMT) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND DR_CR ='C' AND ACCT =@ACC_ET)
|
|
360
|
IF(ISNULL(@SUM_ET,0) <> (SELECT SUM(TOTAL_AMT) FROM TR_REQ_PAY_METHOD WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ACC_NO =@ACC_ET))
|
|
361
|
BEGIN
|
|
362
|
SELECT '-1' as Result, '' REQ_PAY_ID, N' Số tiền hạch toán có của tài khoản: '+@ACC_ET + N' phải bằng với số tiền trên phương thức thanh toán của tài khoản đó là: '+FORMAT((SELECT ISNULL(SUM(TOTAL_AMT),0) FROM TR_REQ_PAY_METHOD WHERE ACC_NO =@ACC_ET AND REQ_PAY_ID =@p_REQ_PAY_ID),'#,###') ErrorDesc
|
|
363
|
RETURN '-1'
|
|
364
|
END
|
|
365
|
END
|
|
366
|
-- KIEM TRA SO TIEN NO CO
|
|
367
|
IF (ISNULL((SELECT SUM(AMT) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND DR_CR ='C' AND ENTRY_PAIR =@ET_ID),0)
|
|
368
|
<> ISNULL((SELECT SUM(AMT) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND DR_CR ='D' AND ENTRY_PAIR =@ET_ID),0)
|
|
369
|
)
|
|
370
|
BEGIN
|
|
371
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Mã bút toán: ' + @ET_ID + N' Số tiền bút toán Nợ phải bằng với số tiền bút toán Có' ErrorDesc
|
|
372
|
RETURN '-1'
|
|
373
|
END
|
|
374
|
-- KIEM TRA SO TIEN HACH TOAN
|
|
375
|
IF (ISNULL(@AMT_ET,0)<=0)
|
|
376
|
BEGIN
|
|
377
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Mã bút toán: ' + @ET_ID + N' Số tiền bút hạch toán phải lớn hơn không' ErrorDesc
|
|
378
|
RETURN '-1'
|
|
379
|
END
|
|
380
|
FETCH NEXT FROM cursorProduct INTO @REQ_PAY_ID , @ET_ID, @AMT_ET, @ACC_ET , @DRCR_ET
|
|
381
|
END
|
|
382
|
-- KET THUC VIEC VALIDATE
|
|
383
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'S'))
|
|
384
|
BEGIN
|
|
385
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị thanh toán đang được được đề xuất từ chối! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
386
|
RETURN '-1'
|
|
387
|
END
|
|
388
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'P'))
|
|
389
|
BEGIN
|
|
390
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị thanh toán đã được gửi phê duyệt thành công trước đó! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
391
|
RETURN '-1'
|
|
392
|
END
|
|
393
|
-- CHAN NEU CHI CO 1 BUT NO 1 BUT CO THI KHONG DUOC DI TIEP
|
|
394
|
IF(EXISTS(SELECT * FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID))
|
|
395
|
BEGIN
|
|
396
|
DECLARE @SUM_CR DECIMAL(18,2), @SUM_DR DECIMAL(18,2)
|
|
397
|
SET @SUM_CR =ISNULL((SELECT SUM(AMT*ISNULL(EXC_RATE,1)) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND DR_CR ='C'),0)
|
|
398
|
SET @SUM_DR =ISNULL((SELECT SUM(AMT*ISNULL(EXC_RATE,1)) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND DR_CR ='D'),0)
|
|
399
|
IF(ISNULL(@SUM_CR,0) <> ISNULL(@SUM_DR,0))
|
|
400
|
BEGIN
|
|
401
|
--ROLLBACK TRANSACTION
|
|
402
|
--CLOSE XmlData;
|
|
403
|
--DEALLOCATE XmlData;
|
|
404
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Tổng hạch toán nợ phải bằng tổng hạch toán có' ErrorDesc
|
|
405
|
RETURN '-1'
|
|
406
|
END
|
|
407
|
END
|
|
408
|
UPDATE PL_REQUEST_PROCESS_CHILD SET STATUS_JOB ='P' WHERE REQ_ID=@p_REQ_PAY_ID AND TLNAME=@p_MAKER_ID_KT
|
|
409
|
UPDATE PL_REQUEST_PROCESS_CHILD SET STATUS_JOB ='C' WHERE REQ_ID=@p_REQ_PAY_ID AND LEVEL_JOB = CONVERT(VARCHAR(5),@LEVEL_JOB_PREV)
|
|
410
|
-- CAP NHAT TINH TRANG DUYET KE TOAN LA DANG XU LY
|
|
411
|
UPDATE TR_REQ_PAYMENT SET AUTH_STATUS_KT='P',CREATE_DT_KT = GETDATE() WHERE REQ_PAY_ID=@p_REQ_PAY_ID
|
|
412
|
INSERT INTO dbo.PL_PROCESS(REQ_ID,PROCESS_ID,CHECKER_ID,APPROVE_DT,PROCESS_DESC,NOTES)
|
|
413
|
VALUES(@p_REQ_PAY_ID,'SEND',@p_MAKER_ID_KT,GETDATE(), N'Giao dịch viên gửi phê duyệt',N'Giao dịch viên cập nhật thông tin')
|
|
414
|
SELECT '4' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị thanh toán số: '+(SELECT REQ_PAY_CODE FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID)+N' đã được gửi phê duyệt thành công! Vui lòng đợi kiểm soát viên phê duyệt phiếu' ErrorDesc
|
|
415
|
RETURN '4'
|
|
416
|
END
|
|
417
|
SELECT '0' as Result, @p_REQ_PAY_ID REQ_PAY_ID, N'Cập nhật thông tin thành công' ErrorDesc
|
|
418
|
RETURN '0'
|
|
419
|
ABORT:
|
|
420
|
BEGIN
|
|
421
|
ROLLBACK TRANSACTION
|
|
422
|
CLOSE XmlData;
|
|
423
|
DEALLOCATE XmlData;
|
|
424
|
SELECT '-1' as Result, '' REQ_PAY_ID, '' ErrorDesc
|
|
425
|
RETURN '-1'
|
|
426
|
End
|