|
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_RATE DECIMAL(18,2) = NULL,
|
|
17
|
@p_REQ_AMT decimal(18, 0) = NULL,
|
|
18
|
@p_REQ_TEMP_AMT decimal(18, 0) = NULL,
|
|
19
|
@p_MAKER_ID varchar(15) = NULL,
|
|
20
|
@p_CREATE_DT varchar(25) = NULL,
|
|
21
|
@p_EDITOR_ID varchar(15) = NULL,
|
|
22
|
@p_AUTH_STATUS varchar(1) = NULL,
|
|
23
|
@p_CHECKER_ID varchar(15) = NULL,
|
|
24
|
@p_APPROVE_DT varchar(25) = NULL,
|
|
25
|
@p_CREATE_DT_KT varchar(25) = NULL,
|
|
26
|
@p_MAKER_ID_KT varchar(15) = NULL,
|
|
27
|
@p_AUTH_STATUS_KT varchar(1) = NULL,
|
|
28
|
@p_CHECKER_ID_KT varchar(1) = NULL,
|
|
29
|
@p_APPROVE_DT_KT varchar(25)= null,
|
|
30
|
@p_CONFIRM_NOTE nvarchar(500) = NULL,
|
|
31
|
@p_BRANCH_CREATE varchar(15) = NULL,
|
|
32
|
@p_NOTES varchar(15) = NULL,
|
|
33
|
@p_RECORD_STATUS varchar(1) = NULL,
|
|
34
|
@p_TRANSFER_MAKER nvarchar(50) = NULL,
|
|
35
|
@p_TRANSFER_DT varchar(25) = NULL,
|
|
36
|
@p_TRASFER_USER_RECIVE varchar(15) = NULL,
|
|
37
|
@p_PROCESS varchar(15) = NULL,
|
|
38
|
@p_PAY_PHASE VARCHAR(15) = NULL,
|
|
39
|
@p_IS_SEND_APPR VARCHAR(15) = NULL,
|
|
40
|
@p_XMP_TEMP_DATA_ENTRIES XML = NULL,
|
|
41
|
@p_XMP_TEMP_INVOICE XML = NULL,
|
|
42
|
@p_XMP_TEMP_VAT_INVOICE XML = NULL,
|
|
43
|
--doanptt 14/03/2022
|
|
44
|
@p_XMP_TEMP_DATA_TRANSFER_OUTSIDE_TRANS XML = NULL,
|
|
45
|
@p_XMP_TEMP_DATA_TRANSFER_OUTSIDE_REC XML = NULL
|
|
46
|
AS
|
|
47
|
|
|
48
|
-- BEGIN VALIDATE UPDATE
|
|
49
|
IF (NOT EXISTS (SELECT * FROM PL_REQUEST_PROCESS_CHILD WHERE REQ_ID = @p_REQ_PAY_ID AND TLNAME =@p_MAKER_ID_KT AND TYPE_JOB = 'XL'))
|
|
50
|
BEGIN
|
|
51
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Bạn không được phép cập nhật phiếu đề nghị thanh toán này. Phiếu đề nghị thanh toán đang được điều phối cho giao dịch viên khác xử lý' ErrorDesc
|
|
52
|
RETURN '-1'
|
|
53
|
END
|
|
54
|
IF ((SELECT AUTH_STATUS FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID) ='R')
|
|
55
|
BEGIN
|
|
56
|
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
|
|
57
|
RETURN '-1'
|
|
58
|
END
|
|
59
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'A'))
|
|
60
|
BEGIN
|
|
61
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị thanh toán đã được phê duyệt thành công trước đó!' ErrorDesc
|
|
62
|
RETURN '-1'
|
|
63
|
END
|
|
64
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'P'))
|
|
65
|
BEGIN
|
|
66
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị thanh toán đã được gửi phê duyệt kế toán thành công trước đó! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
67
|
RETURN '-1'
|
|
68
|
END
|
|
69
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'S'))
|
|
70
|
BEGIN
|
|
71
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị thanh toán đang được đề xuất từ chối! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
72
|
RETURN '-1'
|
|
73
|
END
|
|
74
|
-- END VALIDATE UPDATE
|
|
75
|
|
|
76
|
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),
|
|
77
|
@BRANCH_ID VARCHAR(15), @DEP_ID VARCHAR(15),@TRN_DESC nvarchar(255),@GL_CODE VARCHAR(100),@GL_CODE_ACCNO VARCHAR(20), @BRANCH_CODE VARCHAR(15), @DEP_CODE VARCHAR(15)
|
|
78
|
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,
|
|
79
|
@INVOICE_NO nvarchar(50) = NULL,@INVOICE_DT VARCHAR(20) = NULL,@SELLER nvarchar(250) = NULL,@TAX_NO nvarchar(15) = NULL,@GOODS_NAME nvarchar(250) = NULL,
|
|
80
|
@PRICE decimal(18, 0) = NULL,@TAX decimal(18, 0) = NULL,@NOTES NVARCHAR(MAX) = NULL,@VAT_RATE decimal(18,2),
|
|
81
|
@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,
|
|
82
|
@TYPE_VAT VARCHAR(15),@TYPE_FUNC VARCHAR(15), @IS_TRANSFER_EXTERNAL VARCHAR(15)
|
|
83
|
DECLARE @hdoc INT;
|
|
84
|
DECLARE @hdocInvoice INT;
|
|
85
|
DECLARE @hdocVATInvoice INT;
|
|
86
|
EXEC sp_xml_preparedocument @hdoc OUTPUT, @p_XMP_TEMP_DATA_ENTRIES;
|
|
87
|
EXEC sp_xml_preparedocument @hdocInvoice OUTPUT, @p_XMP_TEMP_INVOICE;
|
|
88
|
EXEC sp_xml_preparedocument @hdocVATInvoice OUTPUT, @p_XMP_TEMP_VAT_INVOICE;
|
|
89
|
|
|
90
|
--hoa don khong co VAT
|
|
91
|
DECLARE XmlData CURSOR FOR
|
|
92
|
SELECT * FROM OPENXML(@hdocInvoice, '/Root/XmlData', 2)
|
|
93
|
WITH(TRANS_NO nvarchar(50),TRANS_DT VARCHAR(20),INVOICE_SIGN nvarchar(50),INVOICE_NO_SIGN nvarchar(50), INVOICE_NO nvarchar(50),INVOICE_DT VARCHAR(20) ,SELLER nvarchar(250),TAX_NO nvarchar(15),
|
|
94
|
GOODS_NAME nvarchar(250), PRICE decimal(18,0),TAX decimal(18, 0),VAT decimal(18,0),NOTE NVARCHAR(MAX),VAT_RATE decimal(18,2),CURRENCY VARCHAR(15), RATE DECIMAL(18,2),PRICE_KT DECIMAL(18,0),
|
|
95
|
VAT_KT DECIMAL(18,2),TOTAL_AMT_KT DECIMAL(18,2),TYPE_VAT VARCHAR(15), TYPE_FUNC VARCHAR(15))
|
|
96
|
|
|
97
|
OPEN XmlData
|
|
98
|
DECLARE @INDEX INT =0, @INDEX_IV INT =0, @INDEX_VAT INT =0, @INDEX_REC INT = 0;
|
|
99
|
|
|
100
|
BEGIN TRANSACTION
|
|
101
|
-- KHAI BAO CAC BUOC DUYET- XAC NHAN
|
|
102
|
DECLARE @LEVEL_JOB VARCHAR(5), @LEVEL_JOB_PREV INT
|
|
103
|
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')
|
|
104
|
SET @LEVEL_JOB_PREV = CONVERT(INT,@LEVEL_JOB) -1
|
|
105
|
|
|
106
|
UPDATE TR_REQ_PAYMENT
|
|
107
|
SET 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
|
|
108
|
WHERE REQ_PAY_ID =@p_REQ_PAY_ID
|
|
109
|
|
|
110
|
------------------------------------------------------------------------- BEGIN LUOI HACH TOAN -----------------------------------------------------------------------
|
|
111
|
IF(@p_XMP_TEMP_DATA_ENTRIES IS NOT NULL)
|
|
112
|
BEGIN
|
|
113
|
-- hach toan
|
|
114
|
DECLARE XmlDataEntries CURSOR FOR
|
|
115
|
SELECT * FROM OPENXML(@hdoc, '/Root/XmlDataEntries', 2)
|
|
116
|
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),
|
|
117
|
BRANCH_ID VARCHAR(15), DEP_ID VARCHAR(15),TRN_DESC nvarchar(1000),GL_CODE VARCHAR(100),GL_CODE_ACCNO VARCHAR(20), IS_TRANSFER_EXTERNAL VARCHAR(15))
|
|
118
|
OPEN XmlDataEntries;
|
|
119
|
|
|
120
|
DELETE FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID = @p_REQ_PAY_ID
|
|
121
|
IF @@Error <> 0 GOTO ABORT
|
|
122
|
DECLARE @DR_CR_NAME NVARCHAR(50),@ACC_NAME_FN NVARCHAR(500)
|
|
123
|
FETCH NEXT FROM XmlDataEntries INTO @ENTRY_PAIR ,@DR_CR,@ACCT, @ACCT_NAME, @AMT ,@CURRENCY, @EXC_RATE,@BRANCH_ID, @DEP_ID,@TRN_DESC,@GL_CODE, @GL_CODE_ACCNO, @IS_TRANSFER_EXTERNAL
|
|
124
|
WHILE @@fetch_status=0
|
|
125
|
BEGIN
|
|
126
|
|
|
127
|
IF(@EXC_RATE IS NULL)
|
|
128
|
BEGIN
|
|
129
|
SET @EXC_RATE = 1
|
|
130
|
END
|
|
131
|
|
|
132
|
SET @INDEX = @INDEX +1
|
|
133
|
SET @ACC_NAME =UPPER(dbo.fChuyenCoDauThanhKhongDau(@ACCT_NAME))
|
|
134
|
|
|
135
|
-- NEU TEN TAI KHOAN RONG, THI LAY TEN TU CHECK CASA
|
|
136
|
IF(ISNULL(@ACCT_NAME, '') = '' AND ISNULL(@GL_CODE, '') <> '')
|
|
137
|
BEGIN
|
|
138
|
SET @ACC_NAME = STUFF(@GL_CODE, LEN(@GL_CODE)-8, 9, '')
|
|
139
|
SET @ACCT_NAME = STUFF(@GL_CODE, LEN(@GL_CODE)-8, 9, '')
|
|
140
|
END
|
|
141
|
-- NEU SO TAI KHOAN RONG, THI LAY SO TAI KHOAN TU CHECK CASA
|
|
142
|
SET @GL_CODE = RIGHT(@GL_CODE,9)
|
|
143
|
IF(ISNULL(@ACCT, '') = '' AND ISNULL(@GL_CODE_ACCNO, '') <> '')
|
|
144
|
BEGIN
|
|
145
|
SET @ACCT = @GL_CODE_ACCNO
|
|
146
|
END
|
|
147
|
|
|
148
|
IF(@DR_CR='D')
|
|
149
|
BEGIN
|
|
150
|
SET @DR_CR_NAME =N'Nợ'
|
|
151
|
END
|
|
152
|
ELSE
|
|
153
|
BEGIN
|
|
154
|
SET @DR_CR_NAME =N'Có'
|
|
155
|
END
|
|
156
|
|
|
157
|
SET @BRANCH_CODE =(SELECT TOP 1 BRANCH_CODE FROM CM_BRANCH WHERE BRANCH_ID =@BRANCH_ID)
|
|
158
|
SET @DEP_CODE =(SELECT TOP 1 DEP_CODE FROM CM_DEPARTMENT WHERE DEP_ID =@DEP_ID)
|
|
159
|
|
|
160
|
IF(@p_IS_SEND_APPR = 'Y')
|
|
161
|
BEGIN
|
|
162
|
|
|
163
|
print '@ENTRY_PAIR: ' + @ENTRY_PAIR
|
|
164
|
print 'req_pay_id: ' + @p_REQ_PAY_ID
|
|
165
|
IF(@ENTRY_PAIR IS NULL OR @ENTRY_PAIR ='')
|
|
166
|
BEGIN
|
|
167
|
ROLLBACK TRANSACTION
|
|
168
|
CLOSE XmlDataEntries;
|
|
169
|
DEALLOCATE XmlDataEntries;
|
|
170
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Mã bút toán không được phép để trống' ErrorDesc
|
|
171
|
RETURN '-1'
|
|
172
|
END
|
|
173
|
|
|
174
|
IF(@DR_CR IS NULL OR @DR_CR ='')
|
|
175
|
BEGIN
|
|
176
|
ROLLBACK TRANSACTION
|
|
177
|
CLOSE XmlDataEntries;
|
|
178
|
DEALLOCATE XmlDataEntries;
|
|
179
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Nợ/có không được phép để trống' ErrorDesc
|
|
180
|
RETURN '-1'
|
|
181
|
END
|
|
182
|
|
|
183
|
IF(@ACCT IS NULL OR @ACCT ='')
|
|
184
|
BEGIN
|
|
185
|
ROLLBACK TRANSACTION
|
|
186
|
CLOSE XmlDataEntries;
|
|
187
|
DEALLOCATE XmlDataEntries;
|
|
188
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Số tài khoản không được phép để trống' ErrorDesc
|
|
189
|
RETURN '-1'
|
|
190
|
END
|
|
191
|
|
|
192
|
IF(@ACCT_NAME IS NULL OR @ACCT_NAME ='')
|
|
193
|
BEGIN
|
|
194
|
ROLLBACK TRANSACTION
|
|
195
|
CLOSE XmlDataEntries;
|
|
196
|
DEALLOCATE XmlDataEntries;
|
|
197
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
198
|
RETURN '-1'
|
|
199
|
END
|
|
200
|
|
|
201
|
IF(@AMT IS NULL OR @AMT < 0)
|
|
202
|
BEGIN
|
|
203
|
ROLLBACK TRANSACTION
|
|
204
|
CLOSE XmlDataEntries;
|
|
205
|
DEALLOCATE XmlDataEntries;
|
|
206
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Số tiền hạch toán phải lớn hơn 0' ErrorDesc
|
|
207
|
RETURN '-1'
|
|
208
|
END
|
|
209
|
|
|
210
|
IF(@BRANCH_ID IS NULL OR @BRANCH_ID ='')
|
|
211
|
BEGIN
|
|
212
|
ROLLBACK TRANSACTION
|
|
213
|
CLOSE XmlDataEntries;
|
|
214
|
DEALLOCATE XmlDataEntries;
|
|
215
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Đơn vị nhận không được phép để trống' ErrorDesc
|
|
216
|
RETURN '-1'
|
|
217
|
END
|
|
218
|
|
|
219
|
IF(@TRN_DESC IS NULL OR @TRN_DESC ='')
|
|
220
|
BEGIN
|
|
221
|
ROLLBACK TRANSACTION
|
|
222
|
CLOSE XmlDataEntries;
|
|
223
|
DEALLOCATE XmlDataEntries;
|
|
224
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Diễn giải hạch toán không được phép để trống' ErrorDesc
|
|
225
|
RETURN '-1'
|
|
226
|
END
|
|
227
|
|
|
228
|
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)
|
|
229
|
BEGIN
|
|
230
|
ROLLBACK TRANSACTION
|
|
231
|
CLOSE XmlDataEntries;
|
|
232
|
DEALLOCATE XmlDataEntries;
|
|
233
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
234
|
RETURN '-1'
|
|
235
|
END
|
|
236
|
|
|
237
|
IF(@GL_CODE IS NULL OR @GL_CODE ='')
|
|
238
|
BEGIN
|
|
239
|
IF (LEN(@ACCT) >9 AND ((SELECT ISNULL(TK_GL,'') FROM CM_ACCOUNT WHERE ACC_NO =@ACCT) ='' OR (SELECT ISNULL(TK_GL_NAME,'') FROM CM_ACCOUNT WHERE ACC_NO =@ACCT) =''))
|
|
240
|
BEGIN
|
|
241
|
ROLLBACK TRANSACTION
|
|
242
|
CLOSE XmlDataEntries;
|
|
243
|
DEALLOCATE XmlDataEntries;
|
|
244
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
245
|
RETURN '-1'
|
|
246
|
END
|
|
247
|
END
|
|
248
|
|
|
249
|
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)
|
|
250
|
BEGIN
|
|
251
|
ROLLBACK TRANSACTION
|
|
252
|
CLOSE XmlDataEntries;
|
|
253
|
DEALLOCATE XmlDataEntries;
|
|
254
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
255
|
RETURN '-1'
|
|
256
|
END
|
|
257
|
|
|
258
|
IF(@DEP_ID IS NOT NULL AND @DEP_ID <> '' AND (LEFT(@DEP_CODE,3) <> @BRANCH_CODE))
|
|
259
|
BEGIN
|
|
260
|
ROLLBACK TRANSACTION
|
|
261
|
CLOSE XmlDataEntries;
|
|
262
|
DEALLOCATE XmlDataEntries;
|
|
263
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
264
|
RETURN '-1'
|
|
265
|
END
|
|
266
|
|
|
267
|
-- NEU HACH TOAN CASA THI 3 KI TU DAU PHAI KHOP VOI BRANCH CODE CUA DON VI CHIU CHI PHI
|
|
268
|
IF(LEN(@ACCT) >9 AND (SUBSTRING(@ACCT,1,3) <> (SELECT ISNULL(BRANCH_CODE,'') FROM CM_BRANCH WHERE BRANCH_ID = @BRANCH_ID)))
|
|
269
|
BEGIN
|
|
270
|
ROLLBACK TRANSACTION
|
|
271
|
CLOSE XmlDataEntries;
|
|
272
|
DEALLOCATE XmlDataEntries;
|
|
273
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
274
|
RETURN '-1'
|
|
275
|
END
|
|
276
|
|
|
277
|
--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'))
|
|
278
|
--BEGIN
|
|
279
|
-- IF(@ACCT ='353200002' OR @ACCT ='353200001')
|
|
280
|
-- BEGIN
|
|
281
|
-- SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
282
|
-- RETURN '-1'
|
|
283
|
-- END
|
|
284
|
--END select * from TR_REQ_PAY_ENTRIES
|
|
285
|
|
|
286
|
--doanptt 20/04/2022
|
|
287
|
IF(@ACCT = '353200002')
|
|
288
|
BEGIN
|
|
289
|
IF(NOT EXISTS(SELECT * FROM OPENXML(@hdocVATInvoice, '/Root/XmlVATInvoice', 2)))
|
|
290
|
BEGIN
|
|
291
|
ROLLBACK TRANSACTION
|
|
292
|
CLOSE XmlDataEntries;
|
|
293
|
DEALLOCATE XmlDataEntries;
|
|
294
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng '+ CONVERT(VARCHAR(5),@INDEX) + N': Lưới hóa đơn đính kèm không có hóa đơn chứa VAT. Vui lòng xóa tài khoản nợ 353200002 trước khi gửi phê duyệt' ErrorDesc
|
|
295
|
RETURN '-1'
|
|
296
|
END
|
|
297
|
END
|
|
298
|
|
|
299
|
/*
|
|
300
|
-- DOANPTT 11/11/22: BỔ SUNG TRƯỜNG HỢP BỊ KHUẤT CHÂN NỢ HOẶC CHÂN CÓ
|
|
301
|
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
|
|
302
|
(SELECT COUNT (*) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ENTRY_PAIR =@ENTRY_PAIR AND DR_CR ='C') = 0)
|
|
303
|
BEGIN
|
|
304
|
ROLLBACK TRANSACTION
|
|
305
|
CLOSE XmlDataEntries;
|
|
306
|
DEALLOCATE XmlDataEntries;
|
|
307
|
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 Nợ - 0 Có)' ErrorDesc
|
|
308
|
RETURN '-1'
|
|
309
|
END
|
|
310
|
|
|
311
|
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') = 0 AND
|
|
312
|
(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)
|
|
313
|
BEGIN
|
|
314
|
ROLLBACK TRANSACTION
|
|
315
|
CLOSE XmlDataEntries;
|
|
316
|
DEALLOCATE XmlDataEntries;
|
|
317
|
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ó - 0 Nợ)' ErrorDesc
|
|
318
|
RETURN '-1'
|
|
319
|
END
|
|
320
|
*/
|
|
321
|
|
|
322
|
|
|
323
|
|
|
324
|
END -- END IF VALIDATE
|
|
325
|
/*
|
|
326
|
IF(@ACCT = '353200002')
|
|
327
|
BEGIN
|
|
328
|
DECLARE @SUMVAT DECIMAL(18,0) = 0
|
|
329
|
DECLARE @SUM3532 DECIMAL(18,0) = 0
|
|
330
|
DECLARE @tmp3532 TABLE(
|
|
331
|
AMT DECIMAL(18,0),
|
|
332
|
ACCT VARCHAR(20)
|
|
333
|
)
|
|
334
|
INSERT INTO @tmp3532 SELECT * FROM OPENXML(@hdoc, '/Root/XmlDataEntries', 2) WITH(AMT DECIMAL(18, 0), ACCT VARCHAR(20))
|
|
335
|
SET @SUM3532 = (SELECT SUM(AMT) FROM @tmp3532 WHERE ACCT = '353200002')
|
|
336
|
SET @SUMVAT = (SELECT SUM(VAT) FROM OPENXML(@hdocVATInvoice, '/Root/XmlVATInvoice', 2) WITH(VAT DECIMAL(18, 0)))
|
|
337
|
|
|
338
|
IF(@SUM3532 <> @SUMVAT)
|
|
339
|
BEGIN
|
|
340
|
ROLLBACK TRANSACTION
|
|
341
|
CLOSE XmlDataEntries;
|
|
342
|
DEALLOCATE XmlDataEntries;
|
|
343
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán dòng ' + CONVERT(VARCHAR(5),@INDEX) + N': Tổng số tiền thuế GTGT ở lưới hóa đơn đính kèm có VAT không bằng tổng số tiền tài khoản nợ 353200002 ở lưới hạch toán : Tổng tiền thuế GTGT: ' + FORMAT(@SUMVAT,'#,#', 'vi-VN') + N',Tổng tiền tài khoản 3532: ' + FORMAT(@SUM3532,'#,#', 'vi-VN') ErrorDesc
|
|
344
|
RETURN '-1'
|
|
345
|
END
|
|
346
|
END
|
|
347
|
*/
|
|
348
|
|
|
349
|
DECLARE @p_ET_ID VARCHAR(15);
|
|
350
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_ENTRIES', @p_ET_ID OUT;
|
|
351
|
IF @p_ET_ID='' OR @p_ET_ID IS NULL GOTO ABORT;
|
|
352
|
|
|
353
|
INSERT INTO TR_REQ_PAY_ENTRIES (REQ_PAY_DT_ID,REQ_PAY_ID,ENTRY_PAIR,DR_CR,DR_CR_NAME,ACCT,ACCT_NAME,AMT,BRANCH_ID,DEP_ID,TRN_DESC,TRN_DATE,MAKER_ID_KT, TRN_TYPE, CURRENCY, EXC_RATE, IS_TRANSFER_EXTERNAL)
|
|
354
|
VALUES (@p_ET_ID,@p_REQ_PAY_ID,@ENTRY_PAIR,@DR_CR,@DR_CR_NAME,@ACCT,@ACCT_NAME, @AMT, @BRANCH_ID, @DEP_ID,@TRN_DESC,GETDATE(),@p_MAKER_ID_KT, 'PAYMENT', 'VND', 1, @IS_TRANSFER_EXTERNAL)
|
|
355
|
|
|
356
|
-- NEU CHUA CO TAI KHOAN THI THEM VO CM_ACCOUNT
|
|
357
|
IF(NOT EXISTS(SELECT * FROM CM_ACCOUNT WHERE ACC_NO =@ACCT))
|
|
358
|
BEGIN
|
|
359
|
INSERT INTO CM_ACCOUNT (ACC_NO, ACC_NAME, TK_GL, TK_GL_NAME, MAKER_ID, CHECKER_ID,CREATE_DT) VALUES
|
|
360
|
(@ACCT,@ACCT_NAME,@GL_CODE,(SELECT TOP 1 ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO =@GL_CODE),'admin','admin',GETDATE())
|
|
361
|
END
|
|
362
|
ELSE
|
|
363
|
BEGIN
|
|
364
|
IF(@GL_CODE IS NOT NULL AND @GL_CODE <> '' AND @GL_CODE <> '0')
|
|
365
|
BEGIN
|
|
366
|
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), EDITOR_DT = GETDATE()
|
|
367
|
WHERE ACC_NO=@ACCT
|
|
368
|
END
|
|
369
|
--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()
|
|
370
|
--WHERE ACC_NO=@ACCT
|
|
371
|
END
|
|
372
|
IF @@error<>0 GOTO ABORT;
|
|
373
|
FETCH NEXT FROM XmlDataEntries INTO @ENTRY_PAIR ,@DR_CR,@ACCT, @ACCT_NAME, @AMT ,@CURRENCY, @EXC_RATE,@BRANCH_ID, @DEP_ID,@TRN_DESC,@GL_CODE, @GL_CODE_ACCNO, @IS_TRANSFER_EXTERNAL
|
|
374
|
END;--END WHILE
|
|
375
|
CLOSE XmlDataEntries;
|
|
376
|
DEALLOCATE XmlDataEntries;
|
|
377
|
END--END LUOI HACH TOAN
|
|
378
|
------------------------------------------------------------------------------------------ END LUOI HACH TOAN --------------------------------------------------------------------
|
|
379
|
|
|
380
|
--INSERT XMLDATAENTRIES
|
|
381
|
-- CAP NHAT TAI KHOAN GL
|
|
382
|
|
|
383
|
--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,'') ='')
|
|
384
|
-- CAP NHAT TAI KHOAN GL
|
|
385
|
|
|
386
|
-- INSERT LUOI HOA DON KHONG VAT
|
|
387
|
|
|
388
|
DECLARE @PDN_TT_LIST_INVOICE NVARCHAR(1000)
|
|
389
|
DELETE FROM TR_REQ_PAY_INVOICE WHERE REQ_PAY_ID= @p_REQ_PAY_ID
|
|
390
|
FETCH NEXT FROM XmlData INTO @TRANS_NO , @TRANS_DT ,@INVOICE_SIGN ,@INVOICE_NO_SIGN,@INVOICE_NO ,@INVOICE_DT ,@SELLER ,
|
|
391
|
@TAX_NO ,@GOODS_NAME ,@PRICE ,@TAX,@VAT,@NOTES,@VAT_RATE,@CURRENCY,@RATE,@PRICE_KT ,@VAT_KT,@TOTAL_AMT_KT,@TYPE_VAT,@TYPE_FUNC
|
|
392
|
WHILE @@FETCH_STATUS=0 BEGIN
|
|
393
|
SET @INDEX_IV = @INDEX_IV+1
|
|
394
|
IF(@TYPE_FUNC ='HC')
|
|
395
|
BEGIN
|
|
396
|
SET @PDN_TT_LIST_INVOICE = (select STUFF( (select '; ' + DTA.REQ_PAY_CODE FROM TR_REQ_PAYMENT DTA WHERE REQ_PAY_ID IN
|
|
397
|
(SELECT REQ_PAY_ID FROM TR_REQ_PAY_INVOICE WHERE INVOICE_NO =@INVOICE_NO AND INVOICE_NO_SIGN = @INVOICE_NO_SIGN AND INVOICE_SIGN =@INVOICE_SIGN AND TAX_NO =@TAX_NO AND TAX =@TAX
|
|
398
|
AND AUTH_STATUS <>'D' AND TYPE_FUNC ='HC'
|
|
399
|
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')))
|
|
400
|
FOR XML PATH(''), TYPE).value('.[1]', 'nvarchar(max)'), 1, 2, ''))
|
|
401
|
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
|
|
402
|
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'))))
|
|
403
|
|
|
404
|
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
|
|
405
|
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'))))
|
|
406
|
BEGIN
|
|
407
|
ROLLBACK TRANSACTION
|
|
408
|
CLOSE XmlData;
|
|
409
|
DEALLOCATE XmlData;
|
|
410
|
SELECT '-1' as Result, '' REQ_PAY_ID,N'Thông tin hóa đơn đính kèm, dòng ' + CONVERT(VARCHAR(5),@INDEX_IV)+N': Số hóa đơn '+ @INVOICE_NO +N' đã tồn tại trong hệ thống. Số phiếu: '+ISNULL(@PDN_TT_LIST_INVOICE,'') ErrorDesc
|
|
411
|
RETURN '-1'
|
|
412
|
END
|
|
413
|
END
|
|
414
|
DECLARE @p_REQ_INV_ID VARCHAR(15);
|
|
415
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_INVOICE', @p_REQ_INV_ID OUT;
|
|
416
|
IF @p_REQ_INV_ID='' OR @p_REQ_INV_ID IS NULL GOTO ABORT;
|
|
417
|
|
|
418
|
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, MAKER_ID,CREATE_DT,EDITOR_ID,
|
|
419
|
AUTH_STATUS,CHECKER_ID,APPROVE_DT, 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)
|
|
420
|
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,
|
|
421
|
@p_MAKER_ID,GETDATE(),NULL,'U',NULL,NULL,GETDATE(),@p_MAKER_ID_KT,'U',NULL,NULL,'1',@INVOICE_NO_SIGN,@VAT_RATE, @p_REQ_TYPE_CURRENCY, @p_RATE,@PRICE_KT ,@VAT_KT,@TOTAL_AMT_KT,@TYPE_VAT,'HC')
|
|
422
|
|
|
423
|
IF @@error<>0 GOTO ABORT;
|
|
424
|
FETCH NEXT FROM XmlData
|
|
425
|
INTO @TRANS_NO , @TRANS_DT,@INVOICE_SIGN,@INVOICE_NO_SIGN,@INVOICE_NO ,@INVOICE_DT ,@SELLER ,@TAX_NO ,@GOODS_NAME ,@PRICE ,
|
|
426
|
@TAX,@VAT,@NOTES,@VAT_RATE,@CURRENCY,@RATE,@PRICE_KT ,@VAT_KT,@TOTAL_AMT_KT,@TYPE_VAT,@TYPE_FUNC
|
|
427
|
END;
|
|
428
|
CLOSE XmlData;
|
|
429
|
DEALLOCATE XmlData;
|
|
430
|
|
|
431
|
-- BEGIN HOA DON CO VAT
|
|
432
|
IF(@p_XMP_TEMP_VAT_INVOICE IS NOT NULL)
|
|
433
|
BEGIN
|
|
434
|
-- hoa don co VAT
|
|
435
|
DECLARE XmlVATInvoice CURSOR FOR
|
|
436
|
SELECT *
|
|
437
|
FROM
|
|
438
|
OPENXML(@hdocVATInvoice, '/Root/XmlVATInvoice', 2)
|
|
439
|
WITH(TRANS_NO nvarchar(50),TRANS_DT VARCHAR(20),INVOICE_SIGN nvarchar(50),INVOICE_NO_SIGN nvarchar(50),
|
|
440
|
INVOICE_NO nvarchar(50),INVOICE_DT VARCHAR(20) ,SELLER nvarchar(250),TAX_NO nvarchar(15),GOODS_NAME nvarchar(250) ,
|
|
441
|
PRICE decimal(18,0),TAX decimal(18, 0),VAT decimal(18,0),NOTE NVARCHAR(MAX),VAT_RATE decimal(18,2),CURRENCY VARCHAR(15), RATE DECIMAL(18,2),PRICE_KT DECIMAL(18,0),VAT_KT DECIMAL(18,2),TOTAL_AMT_KT DECIMAL(18,2),TYPE_VAT VARCHAR(15), TYPE_FUNC VARCHAR(15))
|
|
442
|
OPEN XmlVATInvoice
|
|
443
|
|
|
444
|
-- CAP NHAT HOA DON CO VAT
|
|
445
|
FETCH NEXT FROM XmlVATInvoice INTO @TRANS_NO , @TRANS_DT ,@INVOICE_SIGN ,@INVOICE_NO_SIGN,@INVOICE_NO ,@INVOICE_DT ,@SELLER ,
|
|
446
|
@TAX_NO ,@GOODS_NAME ,@PRICE ,@TAX,@VAT,@NOTES,@VAT_RATE,@CURRENCY,@RATE,@PRICE_KT ,@VAT_KT,@TOTAL_AMT_KT,@TYPE_VAT,@TYPE_FUNC
|
|
447
|
WHILE @@fetch_status=0 BEGIN
|
|
448
|
SET @INDEX_VAT = @INDEX_VAT+1
|
|
449
|
|
|
450
|
SET @PDN_TT_LIST_INVOICE = (select STUFF( (select '; ' + DTA.REQ_PAY_CODE FROM TR_REQ_PAYMENT DTA WHERE REQ_PAY_ID IN
|
|
451
|
(SELECT REQ_PAY_ID FROM TR_REQ_PAY_INVOICE WHERE INVOICE_NO =@INVOICE_NO AND INVOICE_NO_SIGN = @INVOICE_NO_SIGN AND INVOICE_SIGN =@INVOICE_SIGN AND TAX_NO =@TAX_NO AND TAX =@TAX
|
|
452
|
AND AUTH_STATUS <>'D' AND TYPE_FUNC ='KT'
|
|
453
|
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')))
|
|
454
|
FOR XML PATH(''), TYPE).value('.[1]', 'nvarchar(max)'), 1, 2, ''))
|
|
455
|
IF(EXISTS(SELECT * FROM TR_REQ_PAY_INVOICE WHERE INVOICE_NO =@INVOICE_NO AND INVOICE_NO_SIGN = @INVOICE_NO_SIGN
|
|
456
|
AND INVOICE_SIGN =@INVOICE_SIGN AND TAX_NO =@TAX_NO AND TAX =@TAX AND TYPE_FUNC ='KT' AND AUTH_STATUS <>'D' AND
|
|
457
|
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'))))
|
|
458
|
|
|
459
|
--IF(@TYPE_FUNC ='KT')
|
|
460
|
--BEGIN
|
|
461
|
IF(EXISTS(SELECT REQ_PAYDT_ID FROM TR_REQ_PAY_INVOICE
|
|
462
|
WHERE INVOICE_NO =@INVOICE_NO
|
|
463
|
AND INVOICE_NO_SIGN = @INVOICE_NO_SIGN
|
|
464
|
AND INVOICE_SIGN =@INVOICE_SIGN
|
|
465
|
AND TAX_NO =@TAX_NO
|
|
466
|
AND TAX =@TAX
|
|
467
|
AND TYPE_FUNC = 'KT'
|
|
468
|
AND AUTH_STATUS <>'D'
|
|
469
|
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'))
|
|
470
|
)
|
|
471
|
)
|
|
472
|
BEGIN
|
|
473
|
ROLLBACK TRANSACTION
|
|
474
|
CLOSE XmlVATInvoice;
|
|
475
|
DEALLOCATE XmlVATInvoice;
|
|
476
|
SELECT '-1' as Result, '' REQ_PAY_ID,N'Thông tin hóa đơn đính kèm có VAT, dòng ' + CONVERT(VARCHAR(5),@INDEX_VAT)+N': Số hóa đơn '+ @INVOICE_NO +N' đã tồn tại trong hệ thống. Số phiếu: '+ISNULL(@PDN_TT_LIST_INVOICE,'') ErrorDesc
|
|
477
|
RETURN '-1'
|
|
478
|
END
|
|
479
|
--END
|
|
480
|
--doanptt 20/04/2022
|
|
481
|
/*
|
|
482
|
IF(NOT EXISTS(SELECT * FROM OPENXML(@hdoc, '/Root/XmlDataEntries', 2) WITH(DR_CR varchar(20),ACCT VARCHAR(50), ACCT_NAME VARCHAR(500), AMT decimal(18,2)) WHERE ACCT = '353200002'))
|
|
483
|
BEGIN
|
|
484
|
ROLLBACK TRANSACTION
|
|
485
|
CLOSE XmlVATInvoice;
|
|
486
|
DEALLOCATE XmlVATInvoice;
|
|
487
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hóa đơn đính kèm có VAT, nhưng lưới hạch toán không có tài khoản nợ 353200002. Vui lòng thêm tài khoản nợ 353200002 trước khi gửi phê duyệt' ErrorDesc
|
|
488
|
RETURN '-1'
|
|
489
|
END
|
|
490
|
*/
|
|
491
|
|
|
492
|
DECLARE @p_REQ_INV_VAT_ID VARCHAR(15);
|
|
493
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_INVOICE', @p_REQ_INV_VAT_ID OUT;
|
|
494
|
IF @p_REQ_INV_VAT_ID='' OR @p_REQ_INV_VAT_ID IS NULL GOTO ABORT;
|
|
495
|
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, MAKER_ID,CREATE_DT,EDITOR_ID,
|
|
496
|
AUTH_STATUS,CHECKER_ID,APPROVE_DT, 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,
|
|
497
|
TOTAL_AMT_KT,TYPE_VAT,TYPE_FUNC)
|
|
498
|
VALUES (@p_REQ_INV_VAT_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 ,
|
|
499
|
@TAX,@VAT,@NOTES, @p_MAKER_ID,GETDATE(),NULL,'U',NULL,NULL,GETDATE(),@p_MAKER_ID_KT,'U',NULL,NULL,'1',@INVOICE_NO_SIGN,@VAT_RATE, @p_REQ_TYPE_CURRENCY, @p_RATE,@PRICE_KT ,@VAT_KT,@TOTAL_AMT_KT,
|
|
500
|
@TYPE_VAT,'KT')
|
|
501
|
IF @@error<>0 GOTO ABORT;
|
|
502
|
|
|
503
|
FETCH NEXT FROM XmlVATInvoice
|
|
504
|
INTO @TRANS_NO , @TRANS_DT,@INVOICE_SIGN,@INVOICE_NO_SIGN,@INVOICE_NO ,@INVOICE_DT ,@SELLER ,@TAX_NO ,@GOODS_NAME ,@PRICE ,
|
|
505
|
@TAX,@VAT,@NOTES,@VAT_RATE,@CURRENCY,@RATE,@PRICE_KT ,@VAT_KT,@TOTAL_AMT_KT,@TYPE_VAT,@TYPE_FUNC
|
|
506
|
END;
|
|
507
|
CLOSE XmlVATInvoice;
|
|
508
|
DEALLOCATE XmlVATInvoice;
|
|
509
|
END
|
|
510
|
-- END HOA DON CO VAT
|
|
511
|
|
|
512
|
|
|
513
|
-- doanptt 12/03/2022 thêm lưới chuyển tiền ngoài hệ thống - đơn vị chuyển
|
|
514
|
DECLARE @hdocOutsideTrans INT
|
|
515
|
EXEC sp_xml_preparedocument @hdocOutsideTrans OUTPUT, @p_XMP_TEMP_DATA_TRANSFER_OUTSIDE_TRANS;
|
|
516
|
|
|
517
|
DECLARE @MAKER_ID_KT VARCHAR(15), @TYPE_TRANSFER_ID VARCHAR(15), @PRODUCT_ID VARCHAR(15), @OBJECT_TRANSFER_ID VARCHAR(15),
|
|
518
|
@ACC_NO_TRANSFER VARCHAR(255), @BRANCH_TRANSFER_ID VARCHAR(15), @BRANCH_TRANFSER_NAME NVARCHAR(255)
|
|
519
|
-- BEGIN INSERT đơn vị chuyển
|
|
520
|
DELETE FROM TR_REQ_PAY_TRANS_OUTSIDE_TRANS WHERE REQ_PAY_ID = @p_REQ_PAY_ID
|
|
521
|
DECLARE XmlDataOutsideTrans CURSOR LOCAL FOR
|
|
522
|
SELECT * FROM OPENXML(@hdocOutsideTrans, 'Root/XmlDataTransferOutside',2)
|
|
523
|
WITH(MAKER_ID VARCHAR(15), TYPE_TRANSFER_ID VARCHAR(15), PRODUCT_ID VARCHAR(15), OBJECT_TRANSFER_ID VARCHAR(15), BRANCH_ID VARCHAR(15),
|
|
524
|
ACC_NO_TRANSFER VARCHAR(255), BRANCH_TRANSFER_ID VARCHAR(15), CURRENCY VARCHAR(15), BRANCH_TRANFSER_NAME NVARCHAR(255))
|
|
525
|
OPEN XmlDataOutsideTrans
|
|
526
|
|
|
527
|
|
|
528
|
FETCH NEXT FROM XmlDataOutsideTrans INTO @MAKER_ID_KT , @TYPE_TRANSFER_ID, @PRODUCT_ID, @OBJECT_TRANSFER_ID, @BRANCH_ID,
|
|
529
|
@ACC_NO_TRANSFER, @BRANCH_TRANSFER_ID, @CURRENCY, @BRANCH_TRANFSER_NAME
|
|
530
|
WHILE @@fetch_status=0
|
|
531
|
BEGIN
|
|
532
|
--IF(@p_REQ_PAY_ID <> NULL)
|
|
533
|
--BEGIN
|
|
534
|
DECLARE @p_TR_REQ_TRANS_OUTSIDE_ID VARCHAR(15);
|
|
535
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_OUTSIDE_TRANS', @p_TR_REQ_TRANS_OUTSIDE_ID OUT;
|
|
536
|
IF @p_TR_REQ_TRANS_OUTSIDE_ID='' OR @p_TR_REQ_TRANS_OUTSIDE_ID IS NULL GOTO ABORT;
|
|
537
|
INSERT INTO TR_REQ_PAY_TRANS_OUTSIDE_TRANS(TR_REQ_TRANS_OUTSIDE_ID ,REQ_PAY_ID ,MAKER_ID , CREATE_DT , AUTH_STATUS, AUTH_STATUS_KT ,
|
|
538
|
BRANCH_TRANFSER_NAME,TYPE_TRANSFER_ID , PRODUCT_ID , OBJECT_TRANSFER_ID , BRANCH_ID, ACC_NO_TRANSFER , BRANCH_TRANSFER_ID)
|
|
539
|
VALUES (@p_TR_REQ_TRANS_OUTSIDE_ID ,@p_REQ_PAY_ID ,@p_MAKER_ID_KT , GETDATE(), NULL , NULL,
|
|
540
|
@BRANCH_TRANFSER_NAME, @TYPE_TRANSFER_ID , @PRODUCT_ID , @OBJECT_TRANSFER_ID , @BRANCH_ID, @ACC_NO_TRANSFER , @BRANCH_TRANSFER_ID)
|
|
541
|
--END
|
|
542
|
|
|
543
|
IF @@error<>0 GOTO ABORT;
|
|
544
|
FETCH NEXT FROM XmlDataOutsideTrans INTO @MAKER_ID_KT , @TYPE_TRANSFER_ID, @PRODUCT_ID, @OBJECT_TRANSFER_ID, @BRANCH_ID,
|
|
545
|
@ACC_NO_TRANSFER, @BRANCH_TRANSFER_ID, @CURRENCY, @BRANCH_TRANFSER_NAME
|
|
546
|
END;
|
|
547
|
CLOSE XmlDataOutsideTrans;
|
|
548
|
DEALLOCATE XmlDataOutsideTrans;
|
|
549
|
--- END INSERT đơn vị chuyển
|
|
550
|
|
|
551
|
-- doanptt 12/03/2022 thêm lưới chuyển tiền ngoài hệ thống - đơn vị nhận
|
|
552
|
-- BEGIN INSERT đơn vị nhận
|
|
553
|
DECLARE @hdocOutsideRec INT
|
|
554
|
EXEC sp_xml_preparedocument @hdocOutsideRec OUTPUT, @p_XMP_TEMP_DATA_TRANSFER_OUTSIDE_REC;
|
|
555
|
|
|
556
|
DECLARE @CHANEL_PAYMENT_ID VARCHAR(15), @CITAD1_ID VARCHAR(15), @BANK_RECEIVE_ID VARCHAR(250), @OBJECT_RECEIVE_ID VARCHAR(15),
|
|
557
|
@BRANCH_RECEIVE_ID VARCHAR(15), @BRANCH_RECEIVE_NAME NVARCHAR(255), @ACC_NO_RECEIVE VARCHAR(255), @TRADE_AMT DECIMAL(18, 0), @TRADE_DESC NVARCHAR(120), @SUB_BANK_RECEIVE_NAME nvarchar(MAX), @REF_NO VARCHAR(50)
|
|
558
|
-- INSERT đơn vị nhận
|
|
559
|
DELETE FROM TR_REQ_PAY_TRANS_OUTSIDE_REC WHERE REQ_PAY_ID = @p_REQ_PAY_ID
|
|
560
|
|
|
561
|
DECLARE XmlDataOutsideRec CURSOR LOCAL FOR
|
|
562
|
SELECT * FROM OPENXML(@hdocOutsideRec, 'Root/XmlDataTransferOutside',2)
|
|
563
|
WITH(MAKER_ID VARCHAR(15), CHANEL_PAYMENT_ID VARCHAR(15), CITAD1_ID VARCHAR(15), BANK_RECEIVE_ID VARCHAR(250), OBJECT_RECEIVE_ID VARCHAR(15),
|
|
564
|
BRANCH_RECEIVE_ID VARCHAR(15), BRANCH_RECEIVE_NAME NVARCHAR(255), ACC_NO_RECEIVE VARCHAR(255), TRADE_AMT DECIMAL(18, 0), TRADE_DESC NVARCHAR(120), SUB_BANK_RECEIVE_NAME nvarchar(MAX),
|
|
565
|
ENTRY_PAIR varchar(20), REF_NO varchar(20))
|
|
566
|
OPEN XmlDataOutsideRec
|
|
567
|
|
|
568
|
FETCH NEXT FROM XmlDataOutsideRec INTO @MAKER_ID_KT, @CHANEL_PAYMENT_ID, @CITAD1_ID, @BANK_RECEIVE_ID, @OBJECT_RECEIVE_ID,
|
|
569
|
@BRANCH_RECEIVE_ID, @BRANCH_RECEIVE_NAME, @ACC_NO_RECEIVE, @TRADE_AMT, @TRADE_DESC, @SUB_BANK_RECEIVE_NAME, @ENTRY_PAIR, @REF_NO
|
|
570
|
WHILE @@fetch_status=0
|
|
571
|
BEGIN
|
|
572
|
SET @INDEX_REC = @INDEX_REC+1
|
|
573
|
|
|
574
|
IF(@p_IS_SEND_APPR = 'Y')
|
|
575
|
BEGIN
|
|
576
|
IF(ISNULL(@ACC_NO_RECEIVE, '') = '')
|
|
577
|
BEGIN
|
|
578
|
ROLLBACK TRANSACTION
|
|
579
|
CLOSE XmlDataOutsideRec;
|
|
580
|
DEALLOCATE XmlDataOutsideRec;
|
|
581
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Số tài khoản không được để trống' ErrorDesc
|
|
582
|
RETURN '-1'
|
|
583
|
END
|
|
584
|
IF(ISNULL(@BRANCH_RECEIVE_NAME, '') = '')
|
|
585
|
BEGIN
|
|
586
|
ROLLBACK TRANSACTION
|
|
587
|
CLOSE XmlDataOutsideRec;
|
|
588
|
DEALLOCATE XmlDataOutsideRec;
|
|
589
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Tên đơn vị nhận không được để trống' ErrorDesc
|
|
590
|
RETURN '-1'
|
|
591
|
END
|
|
592
|
IF(ISNULL(@OBJECT_RECEIVE_ID, '') = '')
|
|
593
|
BEGIN
|
|
594
|
ROLLBACK TRANSACTION
|
|
595
|
CLOSE XmlDataOutsideRec;
|
|
596
|
DEALLOCATE XmlDataOutsideRec;
|
|
597
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Đối tượng nhận không được để trống' ErrorDesc
|
|
598
|
RETURN '-1'
|
|
599
|
END
|
|
600
|
IF(ISNULL(@BANK_RECEIVE_ID, '') = '' OR ISNULL(@BRANCH_RECEIVE_NAME, '') = '')
|
|
601
|
BEGIN
|
|
602
|
ROLLBACK TRANSACTION
|
|
603
|
CLOSE XmlDataOutsideRec;
|
|
604
|
DEALLOCATE XmlDataOutsideRec;
|
|
605
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Tên ngân hàng hưởng trực tiếp không được để trống' ErrorDesc
|
|
606
|
RETURN '-1'
|
|
607
|
END
|
|
608
|
IF(ISNULL(@CITAD1_ID, '') = '')
|
|
609
|
BEGIN
|
|
610
|
ROLLBACK TRANSACTION
|
|
611
|
CLOSE XmlDataOutsideRec;
|
|
612
|
DEALLOCATE XmlDataOutsideRec;
|
|
613
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Mã CITAD không được để trống' ErrorDesc
|
|
614
|
RETURN '-1'
|
|
615
|
END
|
|
616
|
IF(ISNULL(@CHANEL_PAYMENT_ID, '') = '')
|
|
617
|
BEGIN
|
|
618
|
ROLLBACK TRANSACTION
|
|
619
|
CLOSE XmlDataOutsideRec;
|
|
620
|
DEALLOCATE XmlDataOutsideRec;
|
|
621
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Kênh thanh toán không được để trống' ErrorDesc
|
|
622
|
RETURN '-1'
|
|
623
|
END
|
|
624
|
END
|
|
625
|
|
|
626
|
DECLARE @p_REQ_TRANS_OUTSIDE_REC_ID VARCHAR(15);
|
|
627
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_OUTSIDE_REC', @p_REQ_TRANS_OUTSIDE_REC_ID OUT;
|
|
628
|
IF @p_REQ_TRANS_OUTSIDE_REC_ID='' OR @p_REQ_TRANS_OUTSIDE_REC_ID IS NULL GOTO ABORT;
|
|
629
|
|
|
630
|
INSERT INTO TR_REQ_PAY_TRANS_OUTSIDE_REC(REQ_TRANS_OUTSIDE_REC_ID, REQ_PAY_ID, MAKER_ID, CREATE_DT, AUTH_STATUS, AUTH_STATUS_KT,
|
|
631
|
CHANEL_PAYMENT_ID, CITAD1_ID, BANK_RECEIVE_ID, OBJECT_RECEIVE_ID, BRANCH_RECEIVE_ID, BRANCH_RECEIVE_NAME, ACC_NO_RECEIVE, TRADE_AMT, TRADE_DESC, SUB_BANK_RECEIVE_NAME, ENTRY_PAIR, REF_NO)
|
|
632
|
VALUES (@p_REQ_TRANS_OUTSIDE_REC_ID, @p_REQ_PAY_ID, @p_MAKER_ID_KT, GETDATE(), NULL, NULL,
|
|
633
|
@CHANEL_PAYMENT_ID, @CITAD1_ID, @BANK_RECEIVE_ID, @OBJECT_RECEIVE_ID, @BRANCH_RECEIVE_ID, @BRANCH_RECEIVE_NAME, @ACC_NO_RECEIVE, @TRADE_AMT, @TRADE_DESC, @SUB_BANK_RECEIVE_NAME, @ENTRY_PAIR, @REF_NO)
|
|
634
|
IF @@error<>0 GOTO ABORT;
|
|
635
|
FETCH NEXT FROM XmlDataOutsideRec INTO @MAKER_ID_KT, @CHANEL_PAYMENT_ID, @CITAD1_ID, @BANK_RECEIVE_ID, @OBJECT_RECEIVE_ID,
|
|
636
|
@BRANCH_RECEIVE_ID, @BRANCH_RECEIVE_NAME, @ACC_NO_RECEIVE, @TRADE_AMT, @TRADE_DESC, @SUB_BANK_RECEIVE_NAME, @ENTRY_PAIR, @REF_NO
|
|
637
|
END;
|
|
638
|
CLOSE XmlDataOutsideRec;
|
|
639
|
DEALLOCATE XmlDataOutsideRec;
|
|
640
|
--- END INSERT đơn vị nhận
|
|
641
|
|
|
642
|
--- Luu log chinh sua select * from TR_REQ_PAY_INVOICE
|
|
643
|
INSERT INTO TR_REQ_PAY_INVOICE_LOG SELECT * FROM TR_REQ_PAY_INVOICE WHERE REQ_PAY_ID =@p_REQ_PAY_ID
|
|
644
|
-----
|
|
645
|
--- BAT DAU CAP NHAT XAC DINH CAC BUOC DUYET SAU KHI KE TOAN CAP NHAT THONG TIN
|
|
646
|
|
|
647
|
COMMIT TRANSACTION
|
|
648
|
|
|
649
|
-- BEGIN VALIDATE SEND APRROVE
|
|
650
|
IF(@p_IS_SEND_APPR = 'Y')
|
|
651
|
BEGIN
|
|
652
|
-- BEGIN VALIDATE RIGHT
|
|
653
|
IF (NOT EXISTS (SELECT * FROM PL_REQUEST_PROCESS_CHILD WHERE REQ_ID = @p_REQ_PAY_ID AND TLNAME =@p_MAKER_ID_KT AND TYPE_JOB = 'XL'))
|
|
654
|
BEGIN
|
|
655
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Bạn không được phép gửi phê duyêt phiếu đề nghị thanh toán này. Phiếu đề nghị thanh toán đang được điều phối cho giao dịch viên khác xử lý' ErrorDesc
|
|
656
|
RETURN '-1'
|
|
657
|
END
|
|
658
|
IF ((SELECT AUTH_STATUS FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID) ='R')
|
|
659
|
BEGIN
|
|
660
|
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
|
|
661
|
RETURN '-1'
|
|
662
|
END
|
|
663
|
IF ( EXISTS (SELECT AUTH_STATUS FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID AND AUTH_STATUS <> 'A'))
|
|
664
|
BEGIN
|
|
665
|
SELECT '-1' Result,'' REQ_PAY_ID,N'Phiếu đề nghị tạm ứng đang ở cấp độ đơn vị. Vui lòng chờ đơn vị cập nhật thông tin và duyệt lại!' ErrorDesc
|
|
666
|
RETURN '-1'
|
|
667
|
END
|
|
668
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'A'))
|
|
669
|
BEGIN
|
|
670
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị thanh toán đã được phê duyệt thành công trước đó!' ErrorDesc
|
|
671
|
RETURN '-1'
|
|
672
|
END
|
|
673
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'P'))
|
|
674
|
BEGIN
|
|
675
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị thanh toán đã được gửi phê duyệt kế toán thành công trước đó! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
676
|
RETURN '-1'
|
|
677
|
END
|
|
678
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'S'))
|
|
679
|
BEGIN
|
|
680
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị thanh toán đang được đề xuất từ chối! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
681
|
RETURN '-1'
|
|
682
|
END
|
|
683
|
-- END VALIDATE RIGHT
|
|
684
|
|
|
685
|
DECLARE @SUMVAT DECIMAL(18,0) = 0
|
|
686
|
DECLARE @SUM3532 DECIMAL(18,0) = 0
|
|
687
|
DECLARE @tmp3532 TABLE(
|
|
688
|
AMT DECIMAL(18,0),
|
|
689
|
ACCT VARCHAR(20)
|
|
690
|
)
|
|
691
|
INSERT INTO @tmp3532 SELECT * FROM OPENXML(@hdoc, '/Root/XmlDataEntries', 2) WITH(AMT DECIMAL(18, 0), ACCT VARCHAR(20))
|
|
692
|
IF(EXISTS(SELECT * FROM @tmp3532 WHERE ACCT = '353200002'))
|
|
693
|
BEGIN
|
|
694
|
SET @SUM3532 = (SELECT SUM(AMT) FROM @tmp3532 WHERE ACCT = '353200002')
|
|
695
|
SET @SUMVAT = (SELECT SUM(VAT) FROM OPENXML(@hdocVATInvoice, '/Root/XmlVATInvoice', 2) WITH(VAT DECIMAL(18, 0)))
|
|
696
|
|
|
697
|
IF(@SUM3532 <> @SUMVAT)
|
|
698
|
BEGIN
|
|
699
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán dòng ' + CONVERT(VARCHAR(5),@INDEX) + N': Tổng số tiền thuế GTGT ở lưới hóa đơn đính kèm có VAT không bằng tổng số tiền tài khoản nợ 353200002 ở lưới hạch toán : Tổng tiền thuế GTGT: ' + FORMAT(@SUMVAT,'#,#', 'vi-VN') + N',Tổng tiền tài khoản 3532: ' + FORMAT(@SUM3532,'#,#', 'vi-VN') ErrorDesc
|
|
700
|
RETURN '-1'
|
|
701
|
END
|
|
702
|
END
|
|
703
|
|
|
704
|
|
|
705
|
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
|
|
706
|
DECLARE cursorProduct CURSOR LOCAL FOR 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
|
|
707
|
Open cursorProduct
|
|
708
|
|
|
709
|
FETCH NEXT FROM cursorProduct INTO @REQ_PAY_ID , @ET_ID, @AMT_ET, @ACC_ET , @DRCR_ET
|
|
710
|
WHILE @@FETCH_STATUS = 0
|
|
711
|
BEGIN
|
|
712
|
--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Ợ
|
|
713
|
IF ( (SELECT COUNT (*) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ENTRY_PAIR =@ET_ID AND DR_CR ='D') > 1 AND
|
|
714
|
(SELECT COUNT (*) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ENTRY_PAIR =@ET_ID AND DR_CR ='C')> 1
|
|
715
|
)
|
|
716
|
BEGIN
|
|
717
|
CLOSE cursorProduct;
|
|
718
|
DEALLOCATE cursorProduct;
|
|
719
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Mã bút toán số '+ @ET_ID+ 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
|
|
720
|
RETURN '-1'
|
|
721
|
END
|
|
722
|
ELSE
|
|
723
|
BEGIN
|
|
724
|
print 'sai'+@ENTRY_PAIR
|
|
725
|
END
|
|
726
|
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))
|
|
727
|
BEGIN
|
|
728
|
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)
|
|
729
|
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))
|
|
730
|
BEGIN
|
|
731
|
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
|
|
732
|
RETURN '-1'
|
|
733
|
END
|
|
734
|
END
|
|
735
|
-- KIEM TRA SO TIEN NO CO
|
|
736
|
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) <> 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))
|
|
737
|
BEGIN
|
|
738
|
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
|
|
739
|
RETURN '-1'
|
|
740
|
END
|
|
741
|
|
|
742
|
FETCH NEXT FROM cursorProduct INTO @REQ_PAY_ID , @ET_ID, @AMT_ET, @ACC_ET , @DRCR_ET
|
|
743
|
END
|
|
744
|
|
|
745
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'S'))
|
|
746
|
BEGIN
|
|
747
|
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
|
|
748
|
RETURN '-1'
|
|
749
|
END
|
|
750
|
|
|
751
|
IF(EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'P'))
|
|
752
|
BEGIN
|
|
753
|
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
|
|
754
|
RETURN '-1'
|
|
755
|
END
|
|
756
|
|
|
757
|
-- CHAN NEU CHI CO 1 BUT NO 1 BUT CO THI KHONG DUOC DI TIEP
|
|
758
|
IF(EXISTS(SELECT * FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID))
|
|
759
|
BEGIN
|
|
760
|
DECLARE @SUM_CR DECIMAL(18,2), @SUM_DR DECIMAL(18,2)
|
|
761
|
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)
|
|
762
|
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)
|
|
763
|
IF(@SUM_CR <> @SUM_DR)
|
|
764
|
BEGIN
|
|
765
|
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
|
|
766
|
RETURN '-1'
|
|
767
|
END
|
|
768
|
END
|
|
769
|
|
|
770
|
UPDATE PL_REQUEST_PROCESS_CHILD SET STATUS_JOB ='P' WHERE REQ_ID=@p_REQ_PAY_ID AND TLNAME=@p_MAKER_ID_KT
|
|
771
|
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)
|
|
772
|
-- CAP NHAT TINH TRANG DUYET KE TOAN LA DANG XU LY
|
|
773
|
UPDATE TR_REQ_PAYMENT SET AUTH_STATUS_KT='P',CREATE_DT_KT = GETDATE() WHERE REQ_PAY_ID=@p_REQ_PAY_ID
|
|
774
|
INSERT INTO dbo.PL_PROCESS(REQ_ID,PROCESS_ID,CHECKER_ID,APPROVE_DT,PROCESS_DESC,NOTES)
|
|
775
|
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')
|
|
776
|
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
|
|
777
|
RETURN '4'
|
|
778
|
END
|
|
779
|
-- END VALIDATE SEND APPROVE
|
|
780
|
|
|
781
|
SELECT '0' as Result, @p_REQ_PAY_ID REQ_PAY_ID, '' ErrorDesc
|
|
782
|
RETURN '0'
|
|
783
|
ABORT:
|
|
784
|
BEGIN
|
|
785
|
ROLLBACK TRANSACTION
|
|
786
|
SELECT '-1' as Result, '' REQ_PAY_ID, '' ErrorDesc
|
|
787
|
RETURN '-1'
|
|
788
|
End
|
|
789
|
|
|
790
|
GO
|
|
791
|
|
|
792
|
|
|
793
|
ALTER PROCEDURE [dbo].[TR_REQ_ADVANCE_PAYMENT_KT_Upd]
|
|
794
|
@p_REQ_PAY_ID varchar(15)= NULL,
|
|
795
|
@p_REQ_PAY_CODE varchar(50) = NULL,
|
|
796
|
@p_REQ_DT VARCHAR(20)= NULL,
|
|
797
|
@p_BRANCH_ID varchar(15) = NULL,
|
|
798
|
@p_DEP_ID varchar(15) = NULL,
|
|
799
|
@p_REQ_REASON nvarchar(MAX) = NULL,
|
|
800
|
@p_REQ_TYPE varchar(15) = NULL,
|
|
801
|
@P_REQ_ENTRIES nvarchar(MAX) = NULL,
|
|
802
|
@p_REQ_DESCRIPTION nvarchar(MAX) = NULL,
|
|
803
|
@p_REF_ID varchar(15) = NULL,
|
|
804
|
@p_RECEIVER_PO nvarchar(250) = NULL,
|
|
805
|
@p_RECEIVER_DEBIT nvarchar(250) = NULL,
|
|
806
|
@p_REQ_PAY_TYPE varchar(15) = NULL,
|
|
807
|
@p_REQ_TYPE_CURRENCY nvarchar(50) = NULL,
|
|
808
|
@p_REQ_AMT decimal(18, 0) = NULL,
|
|
809
|
@p_REQ_TEMP_AMT decimal(18, 0) = NULL,
|
|
810
|
@p_MAKER_ID varchar(15) = NULL,
|
|
811
|
@p_CREATE_DT varchar(25) = NULL,
|
|
812
|
@p_EDITOR_ID varchar(15) = NULL,
|
|
813
|
@p_AUTH_STATUS varchar(1) = NULL,
|
|
814
|
@p_CHECKER_ID varchar(15) = NULL,
|
|
815
|
@p_APPROVE_DT varchar(25) = NULL,
|
|
816
|
@p_CREATE_DT_KT varchar(25) = NULL,
|
|
817
|
@p_MAKER_ID_KT varchar(15) = NULL,
|
|
818
|
@p_AUTH_STATUS_KT varchar(1) = NULL,
|
|
819
|
@p_CHECKER_ID_KT varchar(1) = NULL,
|
|
820
|
@p_APPROVE_DT_KT varchar(25)= null,
|
|
821
|
@p_CONFIRM_NOTES nvarchar(500) = NULL,
|
|
822
|
@p_BRANCH_CREATE varchar(15) = NULL,
|
|
823
|
@p_NOTES varchar(15) = NULL,
|
|
824
|
@p_RECORD_STATUS varchar(1) = NULL,
|
|
825
|
@p_TRANSFER_MAKER nvarchar(50) = NULL,
|
|
826
|
@p_TRANSFER_DT varchar(25) = NULL,
|
|
827
|
@p_TRASFER_USER_RECIVE varchar(15) = NULL,
|
|
828
|
@p_PROCESS varchar(15) = NULL,
|
|
829
|
@p_PAY_PHASE VARCHAR(15)= NULL,
|
|
830
|
@p_DVDM_ID VARCHAR(15) = NULL,
|
|
831
|
@p_TYPE_FUNCTION VARCHAR(15) = NULL,
|
|
832
|
@p_RATE DECIMAL(18,0)= 0,
|
|
833
|
@p_XMP_TEMP_DATA_ENTRIES XML = NULL,
|
|
834
|
--doanptt 17/02/2022
|
|
835
|
@p_XMP_TEMP_DATA_TRANSFER_OUTSIDE_TRANS XML = NULL,
|
|
836
|
@p_XMP_TEMP_DATA_TRANSFER_OUTSIDE_REC XML = NULL
|
|
837
|
AS
|
|
838
|
-- BEGIN VALIDATE UPDATE
|
|
839
|
IF (NOT EXISTS (SELECT * FROM PL_REQUEST_PROCESS_CHILD WHERE REQ_ID = @p_REQ_PAY_ID AND TLNAME =@p_MAKER_ID_KT AND TYPE_JOB = 'XL'))
|
|
840
|
BEGIN
|
|
841
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Bạn không được phép cập nhật phiếu đề nghị tạm ứng này. Phiếu đề nghị tạm ứng đang được điều phối cho giao dịch viên khác xử lý' ErrorDesc
|
|
842
|
RETURN '-1'
|
|
843
|
END
|
|
844
|
IF ((SELECT AUTH_STATUS FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID) ='R')
|
|
845
|
BEGIN
|
|
846
|
SELECT '-1' Result,'' REQ_PAY_ID,N'Phiếu đề nghị tạm ứng đ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
|
|
847
|
RETURN '-1'
|
|
848
|
END
|
|
849
|
IF ( EXISTS (SELECT AUTH_STATUS FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID AND AUTH_STATUS <> 'A'))
|
|
850
|
BEGIN
|
|
851
|
SELECT '-1' Result,'' REQ_PAY_ID,N'Phiếu đề nghị tạm ứng đang được ở cấp độ đơn vị. Vui lòng chờ đơn vị cập nhật thông tin và duyệt lại!' ErrorDesc
|
|
852
|
RETURN '-1'
|
|
853
|
END
|
|
854
|
IF(EXISTS(SELECT * FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'A'))
|
|
855
|
BEGIN
|
|
856
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị tạm ứng đã được phê duyệt kế toán thành công trước đó!' ErrorDesc
|
|
857
|
RETURN '-1'
|
|
858
|
END
|
|
859
|
IF(EXISTS(SELECT * FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'P'))
|
|
860
|
BEGIN
|
|
861
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị tạm ứng đã được gửi phê duyệt thành công trước đó! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
862
|
RETURN '-1'
|
|
863
|
END
|
|
864
|
IF(EXISTS(SELECT * FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'S'))
|
|
865
|
BEGIN
|
|
866
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị tạm ứng đang được đề xuất từ chối! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
867
|
RETURN '-1'
|
|
868
|
END
|
|
869
|
-- END VALIDATE UPDATE
|
|
870
|
|
|
871
|
|
|
872
|
|
|
873
|
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),
|
|
874
|
@BRANCH_ID VARCHAR(15), @DEP_ID VARCHAR(15),@TRN_DESC nvarchar(1000),@GL_CODE VARCHAR(100),@GL_CODE_ACCNO VARCHAR(20),@BRANCH_CODE VARCHAR(15), @DEP_CODE VARCHAR(15)
|
|
875
|
|
|
876
|
DECLARE @INDEX_REC INT = 0
|
|
877
|
|
|
878
|
|
|
879
|
BEGIN TRANSACTION
|
|
880
|
-- KHAI BAO CAC BUOC DUYET- XAC NHAN
|
|
881
|
DECLARE @LEVEL_JOB VARCHAR(5), @LEVEL_JOB_PREV INT
|
|
882
|
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 TYPE_JOB ='XL')
|
|
883
|
SET @LEVEL_JOB_PREV = CONVERT(INT,@LEVEL_JOB) -1
|
|
884
|
----
|
|
885
|
--IF(EXISTS (SELECT * FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID AND MAKER_ID_KT IS NULL))
|
|
886
|
-- INSERT HACH TOAN
|
|
887
|
IF(@p_XMP_TEMP_DATA_ENTRIES IS NOT NULL)
|
|
888
|
BEGIN
|
|
889
|
-- khai báo cursor
|
|
890
|
DECLARE @hdocEntries INT;
|
|
891
|
EXEC sp_xml_preparedocument @hdocEntries OUTPUT, @p_XMP_TEMP_DATA_ENTRIES;
|
|
892
|
|
|
893
|
DECLARE XmlDataEntries CURSOR FOR
|
|
894
|
SELECT * FROM OPENXML(@hdocEntries, '/Root/XmlDataEntries', 2)
|
|
895
|
WITH(ENTRY_PAIR varchar(20),DR_CR varchar(20),ACCT VARCHAR(50), ACCT_NAME VARCHAR(500), AMT decimal(18,2),CURRENCY VARCHAR(15),
|
|
896
|
EXC_RATE DECIMAL(18,0), BRANCH_ID VARCHAR(15), DEP_ID VARCHAR(15),TRN_DESC nvarchar(1000), GL_CODE VARCHAR(100),GL_CODE_ACCNO VARCHAR(20))
|
|
897
|
|
|
898
|
OPEN XmlDataEntries;
|
|
899
|
DECLARE @INDEX INT = 0
|
|
900
|
|
|
901
|
UPDATE TR_REQ_ADVANCE_PAYMENT
|
|
902
|
SET AUTH_STATUS_KT ='U', CREATE_DT_KT = GETDATE(),MAKER_ID_KT =@p_MAKER_ID_KT,CHECKER_ID_KT=NULL,APPROVE_DT_KT = NULL, CONFIRM_NOTES=@p_CONFIRM_NOTES
|
|
903
|
WHERE REQ_PAY_ID =@p_REQ_PAY_ID
|
|
904
|
|
|
905
|
DELETE FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID = @p_REQ_PAY_ID
|
|
906
|
IF @@Error <> 0 GOTO ABORT
|
|
907
|
|
|
908
|
DECLARE @DR_CR_NAME NVARCHAR(50)
|
|
909
|
FETCH NEXT FROM XmlDataEntries INTO @ENTRY_PAIR ,@DR_CR,@ACCT, @ACCT_NAME, @AMT ,@CURRENCY, @EXC_RATE,@BRANCH_ID, @DEP_ID,@TRN_DESC,@GL_CODE, @GL_CODE_ACCNO
|
|
910
|
WHILE @@fetch_status=0 BEGIN
|
|
911
|
IF(@EXC_RATE IS NULL)
|
|
912
|
BEGIN
|
|
913
|
SET @EXC_RATE = 1
|
|
914
|
END
|
|
915
|
|
|
916
|
SET @INDEX = @INDEX +1
|
|
917
|
|
|
918
|
IF(@GL_CODE IS NOT NULL AND @GL_CODE <> '')
|
|
919
|
BEGIN
|
|
920
|
SET @GL_CODE = RIGHT(@GL_CODE,9)
|
|
921
|
END-- LUCTV BO SUNG 20211117
|
|
922
|
|
|
923
|
SET @ACCT_NAME =UPPER(dbo.fChuyenCoDauThanhKhongDau(@ACCT_NAME))
|
|
924
|
-- NEU TEN TAI KHOAN RONG, THI LAY TEN TU CHECK CASA
|
|
925
|
IF(ISNULL(@ACCT_NAME, '') = '' AND ISNULL(@GL_CODE, '') <> '')
|
|
926
|
BEGIN
|
|
927
|
SET @ACCT_NAME = STUFF(@GL_CODE, LEN(@GL_CODE)-8, 9, '')
|
|
928
|
END
|
|
929
|
-- NEU SO TAI KHOAN RONG, THI LAY SO TAI KHOAN TU CHECK CASA
|
|
930
|
SET @GL_CODE = RIGHT(@GL_CODE,9)
|
|
931
|
IF(ISNULL(@ACCT, '') = '' AND ISNULL(@GL_CODE_ACCNO, '') <> '')
|
|
932
|
BEGIN
|
|
933
|
SET @ACCT = @GL_CODE_ACCNO
|
|
934
|
END
|
|
935
|
|
|
936
|
IF(@DR_CR='D')
|
|
937
|
BEGIN
|
|
938
|
SET @DR_CR_NAME =N'Nợ'
|
|
939
|
END
|
|
940
|
ELSE
|
|
941
|
BEGIN
|
|
942
|
SET @DR_CR_NAME =N'Có'
|
|
943
|
END
|
|
944
|
|
|
945
|
SET @BRANCH_CODE =(SELECT TOP 1 BRANCH_CODE FROM CM_BRANCH WHERE BRANCH_ID =@BRANCH_ID)
|
|
946
|
SET @DEP_CODE =(SELECT TOP 1 DEP_CODE FROM CM_DEPARTMENT WHERE DEP_ID =@DEP_ID)
|
|
947
|
|
|
948
|
IF(@p_TYPE_FUNCTION ='SEND')
|
|
949
|
BEGIN
|
|
950
|
IF(@ENTRY_PAIR IS NULL OR @ENTRY_PAIR ='')
|
|
951
|
BEGIN
|
|
952
|
ROLLBACK TRANSACTION
|
|
953
|
CLOSE XmlDataEntries;
|
|
954
|
DEALLOCATE XmlDataEntries;
|
|
955
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Mã bút toán không được phép để trống' ErrorDesc
|
|
956
|
RETURN '-1'
|
|
957
|
END
|
|
958
|
|
|
959
|
IF(@DR_CR IS NULL OR @DR_CR ='')
|
|
960
|
BEGIN
|
|
961
|
ROLLBACK TRANSACTION
|
|
962
|
CLOSE XmlDataEntries;
|
|
963
|
DEALLOCATE XmlDataEntries;
|
|
964
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Nợ/có không được phép để trống' ErrorDesc
|
|
965
|
RETURN '-1'
|
|
966
|
END
|
|
967
|
|
|
968
|
IF(@ACCT IS NULL OR @ACCT ='')
|
|
969
|
BEGIN
|
|
970
|
ROLLBACK TRANSACTION
|
|
971
|
CLOSE XmlDataEntries;
|
|
972
|
DEALLOCATE XmlDataEntries;
|
|
973
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Số tài khoản không được phép để trống' ErrorDesc
|
|
974
|
RETURN '-1'
|
|
975
|
END
|
|
976
|
|
|
977
|
IF(@ACCT_NAME IS NULL OR @ACCT_NAME ='')
|
|
978
|
BEGIN
|
|
979
|
ROLLBACK TRANSACTION
|
|
980
|
CLOSE XmlDataEntries;
|
|
981
|
DEALLOCATE XmlDataEntries;
|
|
982
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
983
|
RETURN '-1'
|
|
984
|
END
|
|
985
|
|
|
986
|
IF(@AMT IS NULL OR @AMT < 0)
|
|
987
|
BEGIN
|
|
988
|
ROLLBACK TRANSACTION
|
|
989
|
CLOSE XmlDataEntries;
|
|
990
|
DEALLOCATE XmlDataEntries;
|
|
991
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Số tiền hạch toán phải lớn hơn 0' ErrorDesc
|
|
992
|
RETURN '-1'
|
|
993
|
END
|
|
994
|
|
|
995
|
IF(@BRANCH_ID IS NULL OR @BRANCH_ID ='')
|
|
996
|
BEGIN
|
|
997
|
ROLLBACK TRANSACTION
|
|
998
|
CLOSE XmlDataEntries;
|
|
999
|
DEALLOCATE XmlDataEntries;
|
|
1000
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Đơn vị nhận không được phép để trống' ErrorDesc
|
|
1001
|
RETURN '-1'
|
|
1002
|
END
|
|
1003
|
|
|
1004
|
IF(@TRN_DESC IS NULL OR @TRN_DESC ='')
|
|
1005
|
BEGIN
|
|
1006
|
ROLLBACK TRANSACTION
|
|
1007
|
CLOSE XmlDataEntries;
|
|
1008
|
DEALLOCATE XmlDataEntries;
|
|
1009
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toán, dòng: '+ CONVERT(VARCHAR(5),@INDEX) + N' Diễn giải hạch toán không được phép để trống' ErrorDesc
|
|
1010
|
RETURN '-1'
|
|
1011
|
END
|
|
1012
|
|
|
1013
|
IF(@GL_CODE IS NULL OR @GL_CODE ='')
|
|
1014
|
BEGIN
|
|
1015
|
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) =''))
|
|
1016
|
BEGIN
|
|
1017
|
ROLLBACK TRANSACTION
|
|
1018
|
CLOSE XmlDataEntries;
|
|
1019
|
DEALLOCATE XmlDataEntries;
|
|
1020
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
1021
|
RETURN '-1'
|
|
1022
|
END
|
|
1023
|
END
|
|
1024
|
|
|
1025
|
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)
|
|
1026
|
BEGIN
|
|
1027
|
ROLLBACK TRANSACTION
|
|
1028
|
CLOSE XmlDataEntries;
|
|
1029
|
DEALLOCATE XmlDataEntries;
|
|
1030
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
1031
|
RETURN '-1'
|
|
1032
|
END
|
|
1033
|
|
|
1034
|
IF(@DEP_ID IS NOT NULL AND @DEP_ID <> '' AND (LEFT(@DEP_CODE,3) <> @BRANCH_CODE))
|
|
1035
|
BEGIN
|
|
1036
|
ROLLBACK TRANSACTION
|
|
1037
|
CLOSE XmlDataEntries;
|
|
1038
|
DEALLOCATE XmlDataEntries;
|
|
1039
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
1040
|
RETURN '-1'
|
|
1041
|
END
|
|
1042
|
|
|
1043
|
-- NEU HACH TOAN CASA THI 3 KI TU DAU PHAI KHOP VOI BRANCH CODE CUA DON VI CHIU CHI PHI
|
|
1044
|
PRINT @BRANCH_ID
|
|
1045
|
IF(LEN(@ACCT) >9 AND (SUBSTRING(@ACCT,1,3) <> (SELECT TOP 1 ISNULL(BRANCH_CODE,'') FROM CM_BRANCH WHERE BRANCH_ID = @BRANCH_ID)))
|
|
1046
|
BEGIN
|
|
1047
|
ROLLBACK TRANSACTION
|
|
1048
|
CLOSE XmlDataEntries;
|
|
1049
|
DEALLOCATE XmlDataEntries;
|
|
1050
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
1051
|
RETURN '-1'
|
|
1052
|
END
|
|
1053
|
|
|
1054
|
/*
|
|
1055
|
-- DOANPTT 11/11/22: BỔ SUNG TRƯỜNG HỢP BỊ KHUẤT CHÂN NỢ HOẶC CHÂN CÓ
|
|
1056
|
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
|
|
1057
|
(SELECT COUNT (*) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ENTRY_PAIR =@ENTRY_PAIR AND DR_CR ='C') = 0)
|
|
1058
|
BEGIN
|
|
1059
|
ROLLBACK TRANSACTION
|
|
1060
|
CLOSE XmlDataEntries;
|
|
1061
|
DEALLOCATE XmlDataEntries;
|
|
1062
|
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 Nợ - 0 Có)' ErrorDesc
|
|
1063
|
RETURN '-1'
|
|
1064
|
END
|
|
1065
|
|
|
1066
|
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') = 0 AND
|
|
1067
|
(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)
|
|
1068
|
BEGIN
|
|
1069
|
ROLLBACK TRANSACTION
|
|
1070
|
CLOSE XmlDataEntries;
|
|
1071
|
DEALLOCATE XmlDataEntries;
|
|
1072
|
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ó - 0 Nợ)' ErrorDesc
|
|
1073
|
RETURN '-1'
|
|
1074
|
END
|
|
1075
|
*/
|
|
1076
|
|
|
1077
|
END
|
|
1078
|
|
|
1079
|
/*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))
|
|
1080
|
BEGIN
|
|
1081
|
ROLLBACK TRANSACTION
|
|
1082
|
CLOSE XmlDataEntries;
|
|
1083
|
DEALLOCATE XmlDataEntries;
|
|
1084
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới hạch toá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
|
|
1085
|
RETURN '-1'
|
|
1086
|
END*/
|
|
1087
|
|
|
1088
|
|
|
1089
|
DECLARE @p_ET_ID VARCHAR(15);
|
|
1090
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_ENTRIES', @p_ET_ID OUT;
|
|
1091
|
IF @p_ET_ID='' OR @p_ET_ID IS NULL GOTO ABORT;
|
|
1092
|
|
|
1093
|
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, TRN_TYPE)
|
|
1094
|
VALUES (@p_ET_ID,@p_REQ_PAY_ID,@ENTRY_PAIR,@DR_CR,@DR_CR_NAME,@ACCT,@ACCT_NAME, @AMT ,'VND', 1, @BRANCH_ID, @DEP_ID,@TRN_DESC,GETDATE(),@p_MAKER_ID_KT, 'ADVANCE')
|
|
1095
|
|
|
1096
|
-- NEU CHUA CO TAI KHOAN THI THEM VO CM_ACCOUNT
|
|
1097
|
IF(NOT EXISTS(SELECT * FROM CM_ACCOUNT WHERE ACC_NO =@ACCT))
|
|
1098
|
BEGIN
|
|
1099
|
INSERT INTO CM_ACCOUNT (ACC_NO, ACC_NAME, TK_GL, TK_GL_NAME, MAKER_ID, CHECKER_ID) VALUES
|
|
1100
|
(@ACCT,@ACCT_NAME,@GL_CODE,(SELECT TOP 1 ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO =@GL_CODE),'admin','admin')
|
|
1101
|
END
|
|
1102
|
ELSE
|
|
1103
|
BEGIN
|
|
1104
|
IF(@GL_CODE IS NOT NULL AND @GL_CODE <> '' AND @GL_CODE <> '0')
|
|
1105
|
BEGIN
|
|
1106
|
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), EDITOR_DT = GETDATE()
|
|
1107
|
WHERE ACC_NO=@ACCT
|
|
1108
|
END
|
|
1109
|
END
|
|
1110
|
|
|
1111
|
|
|
1112
|
FETCH NEXT FROM XmlDataEntries INTO @ENTRY_PAIR ,@DR_CR,@ACCT, @ACCT_NAME, @AMT ,@CURRENCY, @EXC_RATE,@BRANCH_ID, @DEP_ID,@TRN_DESC,@GL_CODE, @GL_CODE_ACCNO
|
|
1113
|
END;
|
|
1114
|
CLOSE XmlDataEntries;
|
|
1115
|
DEALLOCATE XmlDataEntries;
|
|
1116
|
-- UPDATE GL THEO RULE
|
|
1117
|
----UPDATE CM_ACCOUNT
|
|
1118
|
----SET TK_GL ='361200001', TK_GL_NAME =(SELECT ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO ='361200001')
|
|
1119
|
----WHERE LEN (ACC_NO) >9 AND ISNULL(TK_GL,'')=''
|
|
1120
|
----AND SUBSTRING(ACC_NO,4,4) ='7048'
|
|
1121
|
|
|
1122
|
----UPDATE CM_ACCOUNT
|
|
1123
|
----SET TK_GL ='519200002', TK_GL_NAME =(SELECT ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO ='519200002')
|
|
1124
|
----WHERE LEN (ACC_NO) >9 AND ISNULL(TK_GL,'')=''
|
|
1125
|
----AND SUBSTRING(ACC_NO,4,4) ='7044' AND SUBSTRING(ACC_NO,12,2) ='19'
|
|
1126
|
|
|
1127
|
----UPDATE CM_ACCOUNT
|
|
1128
|
----SET TK_GL ='421100001', TK_GL_NAME =(SELECT ACC_NAME FROM CM_ACCOUNT WHERE ACC_NO ='421100001')
|
|
1129
|
----WHERE LEN (ACC_NO) >9 AND ISNULL(TK_GL,'')=''
|
|
1130
|
----AND SUBSTRING(ACC_NO,4,4) ='7041'
|
|
1131
|
|
|
1132
|
--UPDATE TR_REQ_PAY_ENTRIES SET ACCT_NAME = UPPER(dbo.fChuyenCoDauThanhKhongDau(ACCT_NAME)) WHERE REQ_PAY_ID =@p_REQ_PAY_ID
|
|
1133
|
|
|
1134
|
IF @@error<>0 GOTO ABORT;
|
|
1135
|
END
|
|
1136
|
|
|
1137
|
-- doanptt 12/03/2022 thêm lưới chuyển tiền ngoài hệ thống - đơn vị chuyển
|
|
1138
|
DECLARE @hdocOutsideTrans INT
|
|
1139
|
EXEC sp_xml_preparedocument @hdocOutsideTrans OUTPUT, @p_XMP_TEMP_DATA_TRANSFER_OUTSIDE_TRANS;
|
|
1140
|
|
|
1141
|
DECLARE @MAKER_ID_KT VARCHAR(15), @TYPE_TRANSFER_ID VARCHAR(15), @PRODUCT_ID VARCHAR(15), @OBJECT_TRANSFER_ID VARCHAR(15),
|
|
1142
|
@ACC_NO_TRANSFER VARCHAR(255), @BRANCH_TRANSFER_ID VARCHAR(15), @BRANCH_TRANFSER_NAME NVARCHAR(255)
|
|
1143
|
-- INSERT đơn vị chuyển
|
|
1144
|
DELETE FROM TR_REQ_PAY_TRANS_OUTSIDE_TRANS WHERE REQ_PAY_ID = @p_REQ_PAY_ID
|
|
1145
|
DECLARE XmlDataOutsideTrans CURSOR LOCAL FOR
|
|
1146
|
SELECT * FROM OPENXML(@hdocOutsideTrans, 'Root/XmlDataTransferOutside',2)
|
|
1147
|
WITH(MAKER_ID VARCHAR(15), TYPE_TRANSFER_ID VARCHAR(15), PRODUCT_ID VARCHAR(15), OBJECT_TRANSFER_ID VARCHAR(15), BRANCH_ID VARCHAR(15),
|
|
1148
|
ACC_NO_TRANSFER VARCHAR(255), BRANCH_TRANSFER_ID VARCHAR(15), CURRENCY VARCHAR(15), BRANCH_TRANFSER_NAME NVARCHAR(255))
|
|
1149
|
OPEN XmlDataOutsideTrans
|
|
1150
|
|
|
1151
|
|
|
1152
|
FETCH NEXT FROM XmlDataOutsideTrans INTO @MAKER_ID_KT , @TYPE_TRANSFER_ID, @PRODUCT_ID, @OBJECT_TRANSFER_ID, @BRANCH_ID,
|
|
1153
|
@ACC_NO_TRANSFER, @BRANCH_TRANSFER_ID, @CURRENCY, @BRANCH_TRANFSER_NAME
|
|
1154
|
WHILE @@fetch_status=0
|
|
1155
|
BEGIN
|
|
1156
|
|
|
1157
|
--IF(@p_REQ_PAY_ID <> NULL)
|
|
1158
|
--BEGIN
|
|
1159
|
DECLARE @p_TR_REQ_TRANS_OUTSIDE_ID VARCHAR(15);
|
|
1160
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_OUTSIDE_TRANS', @p_TR_REQ_TRANS_OUTSIDE_ID OUT;
|
|
1161
|
IF @p_TR_REQ_TRANS_OUTSIDE_ID='' OR @p_TR_REQ_TRANS_OUTSIDE_ID IS NULL GOTO ABORT;
|
|
1162
|
INSERT INTO TR_REQ_PAY_TRANS_OUTSIDE_TRANS(TR_REQ_TRANS_OUTSIDE_ID ,REQ_PAY_ID ,MAKER_ID , CREATE_DT , AUTH_STATUS, AUTH_STATUS_KT ,
|
|
1163
|
BRANCH_TRANFSER_NAME,TYPE_TRANSFER_ID , PRODUCT_ID , OBJECT_TRANSFER_ID , BRANCH_ID, ACC_NO_TRANSFER , BRANCH_TRANSFER_ID, CURRENCY)
|
|
1164
|
VALUES (@p_TR_REQ_TRANS_OUTSIDE_ID ,@p_REQ_PAY_ID ,@p_MAKER_ID_KT , GETDATE(), NULL , NULL,
|
|
1165
|
@BRANCH_TRANFSER_NAME, @TYPE_TRANSFER_ID , @PRODUCT_ID , @OBJECT_TRANSFER_ID , @BRANCH_ID, @ACC_NO_TRANSFER , @BRANCH_TRANSFER_ID, @CURRENCY)
|
|
1166
|
--END
|
|
1167
|
|
|
1168
|
IF @@error<>0 GOTO ABORT;
|
|
1169
|
FETCH NEXT FROM XmlDataOutsideTrans INTO @MAKER_ID_KT , @TYPE_TRANSFER_ID, @PRODUCT_ID, @OBJECT_TRANSFER_ID, @BRANCH_ID,
|
|
1170
|
@ACC_NO_TRANSFER, @BRANCH_TRANSFER_ID, @CURRENCY, @BRANCH_TRANFSER_NAME
|
|
1171
|
END;
|
|
1172
|
CLOSE XmlDataOutsideTrans;
|
|
1173
|
DEALLOCATE XmlDataOutsideTrans;
|
|
1174
|
--- END INSERT đơn vị chuyển
|
|
1175
|
|
|
1176
|
-- doanptt 12/03/2022 thêm lưới chuyển tiền ngoài hệ thống - đơn vị nhận
|
|
1177
|
-- START INSERT đơn vị nhận
|
|
1178
|
DECLARE @hdocOutsideRec INT
|
|
1179
|
EXEC sp_xml_preparedocument @hdocOutsideRec OUTPUT, @p_XMP_TEMP_DATA_TRANSFER_OUTSIDE_REC;
|
|
1180
|
|
|
1181
|
DECLARE @CHANEL_PAYMENT_ID VARCHAR(20), @CITAD1_ID VARCHAR(20), @BANK_RECEIVE_ID VARCHAR(255), @OBJECT_RECEIVE_ID VARCHAR(20), @REF_NO VARCHAR(50),
|
|
1182
|
@BRANCH_RECEIVE_ID VARCHAR(255), @BRANCH_RECEIVE_NAME NVARCHAR(MAX), @ACC_NO_RECEIVE VARCHAR(255), @TRADE_AMT DECIMAL(18, 0), @TRADE_DESC NVARCHAR(120), @SUB_BANK_RECEIVE_NAME nvarchar(MAX)
|
|
1183
|
-- INSERT đơn vị nhận
|
|
1184
|
DELETE FROM TR_REQ_PAY_TRANS_OUTSIDE_REC WHERE REQ_PAY_ID = @p_REQ_PAY_ID
|
|
1185
|
|
|
1186
|
DECLARE XmlDataOutsideRec CURSOR LOCAL FOR
|
|
1187
|
SELECT * FROM OPENXML(@hdocOutsideRec, 'Root/XmlDataTransferOutside',2)
|
|
1188
|
WITH(MAKER_ID VARCHAR(15), CHANEL_PAYMENT_ID VARCHAR(15), CITAD1_ID VARCHAR(15), BANK_RECEIVE_ID VARCHAR(255), OBJECT_RECEIVE_ID VARCHAR(15),
|
|
1189
|
BRANCH_RECEIVE_ID VARCHAR(15), BRANCH_RECEIVE_NAME VARCHAR(MAX), ACC_NO_RECEIVE VARCHAR(255), TRADE_AMT DECIMAL(18, 0), TRADE_DESC NVARCHAR(120), SUB_BANK_RECEIVE_NAME nvarchar(MAX),
|
|
1190
|
ENTRY_PAIR varchar(20), REF_NO varchar(20))
|
|
1191
|
OPEN XmlDataOutsideRec
|
|
1192
|
|
|
1193
|
FETCH NEXT FROM XmlDataOutsideRec INTO @MAKER_ID_KT, @CHANEL_PAYMENT_ID, @CITAD1_ID, @BANK_RECEIVE_ID, @OBJECT_RECEIVE_ID,
|
|
1194
|
@BRANCH_RECEIVE_ID, @BRANCH_RECEIVE_NAME, @ACC_NO_RECEIVE, @TRADE_AMT, @TRADE_DESC, @SUB_BANK_RECEIVE_NAME, @ENTRY_PAIR, @REF_NO
|
|
1195
|
WHILE @@fetch_status=0
|
|
1196
|
BEGIN
|
|
1197
|
SET @INDEX_REC = @INDEX_REC+1
|
|
1198
|
IF(@p_TYPE_FUNCTION ='SEND')
|
|
1199
|
BEGIN
|
|
1200
|
IF(ISNULL(@ACC_NO_RECEIVE, '') = '')
|
|
1201
|
BEGIN
|
|
1202
|
ROLLBACK TRANSACTION
|
|
1203
|
CLOSE XmlDataOutsideRec;
|
|
1204
|
DEALLOCATE XmlDataOutsideRec;
|
|
1205
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Số tài khoản không được để trống' ErrorDesc
|
|
1206
|
RETURN '-1'
|
|
1207
|
END
|
|
1208
|
IF(ISNULL(@BRANCH_RECEIVE_NAME, '') = '')
|
|
1209
|
BEGIN
|
|
1210
|
ROLLBACK TRANSACTION
|
|
1211
|
CLOSE XmlDataOutsideRec;
|
|
1212
|
DEALLOCATE XmlDataOutsideRec;
|
|
1213
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Tên đơn vị nhận không được để trống' ErrorDesc
|
|
1214
|
RETURN '-1'
|
|
1215
|
END
|
|
1216
|
IF(ISNULL(@OBJECT_RECEIVE_ID, '') = '')
|
|
1217
|
BEGIN
|
|
1218
|
ROLLBACK TRANSACTION
|
|
1219
|
CLOSE XmlDataOutsideRec;
|
|
1220
|
DEALLOCATE XmlDataOutsideRec;
|
|
1221
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Đối tượng nhận không được để trống' ErrorDesc
|
|
1222
|
RETURN '-1'
|
|
1223
|
END
|
|
1224
|
IF(ISNULL(@BANK_RECEIVE_ID, '') = '' OR ISNULL(@BRANCH_RECEIVE_NAME, '') = '')
|
|
1225
|
BEGIN
|
|
1226
|
ROLLBACK TRANSACTION
|
|
1227
|
CLOSE XmlDataOutsideRec;
|
|
1228
|
DEALLOCATE XmlDataOutsideRec;
|
|
1229
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Tên ngân hàng hưởng trực tiếp không được để trống' ErrorDesc
|
|
1230
|
RETURN '-1'
|
|
1231
|
END
|
|
1232
|
IF(ISNULL(@CITAD1_ID, '') = '')
|
|
1233
|
BEGIN
|
|
1234
|
ROLLBACK TRANSACTION
|
|
1235
|
CLOSE XmlDataOutsideRec;
|
|
1236
|
DEALLOCATE XmlDataOutsideRec;
|
|
1237
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Mã CITAD không được để trống' ErrorDesc
|
|
1238
|
RETURN '-1'
|
|
1239
|
END
|
|
1240
|
IF(ISNULL(@CHANEL_PAYMENT_ID, '') = '')
|
|
1241
|
BEGIN
|
|
1242
|
ROLLBACK TRANSACTION
|
|
1243
|
CLOSE XmlDataOutsideRec;
|
|
1244
|
DEALLOCATE XmlDataOutsideRec;
|
|
1245
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Lưới đơn vị nhận, dòng: '+ CONVERT(VARCHAR(5),@INDEX_REC) + N' Kênh thanh toán không được để trống' ErrorDesc
|
|
1246
|
RETURN '-1'
|
|
1247
|
END
|
|
1248
|
END
|
|
1249
|
|
|
1250
|
DECLARE @p_REQ_TRANS_OUTSIDE_REC_ID VARCHAR(15);
|
|
1251
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_OUTSIDE_REC', @p_REQ_TRANS_OUTSIDE_REC_ID OUT;
|
|
1252
|
IF @p_REQ_TRANS_OUTSIDE_REC_ID='' OR @p_REQ_TRANS_OUTSIDE_REC_ID IS NULL GOTO ABORT;
|
|
1253
|
INSERT INTO TR_REQ_PAY_TRANS_OUTSIDE_REC(REQ_TRANS_OUTSIDE_REC_ID, REQ_PAY_ID, MAKER_ID, CREATE_DT, AUTH_STATUS, AUTH_STATUS_KT,
|
|
1254
|
CHANEL_PAYMENT_ID, CITAD1_ID, BANK_RECEIVE_ID, OBJECT_RECEIVE_ID, BRANCH_RECEIVE_ID, BRANCH_RECEIVE_NAME, ACC_NO_RECEIVE, TRADE_AMT, TRADE_DESC, SUB_BANK_RECEIVE_NAME, ENTRY_PAIR, REF_NO)
|
|
1255
|
VALUES (@p_REQ_TRANS_OUTSIDE_REC_ID, @p_REQ_PAY_ID, @p_MAKER_ID_KT, GETDATE(), NULL, NULL,
|
|
1256
|
@CHANEL_PAYMENT_ID, @CITAD1_ID, @BANK_RECEIVE_ID, @OBJECT_RECEIVE_ID, @BRANCH_RECEIVE_ID, @BRANCH_RECEIVE_NAME, @ACC_NO_RECEIVE, @TRADE_AMT, @TRADE_DESC, @SUB_BANK_RECEIVE_NAME, @ENTRY_PAIR, @REF_NO)
|
|
1257
|
IF @@error<>0 GOTO ABORT;
|
|
1258
|
FETCH NEXT FROM XmlDataOutsideRec INTO @MAKER_ID_KT, @CHANEL_PAYMENT_ID, @CITAD1_ID, @BANK_RECEIVE_ID, @OBJECT_RECEIVE_ID,
|
|
1259
|
@BRANCH_RECEIVE_ID, @BRANCH_RECEIVE_NAME, @ACC_NO_RECEIVE, @TRADE_AMT, @TRADE_DESC, @SUB_BANK_RECEIVE_NAME, @ENTRY_PAIR, @REF_NO
|
|
1260
|
END;
|
|
1261
|
CLOSE XmlDataOutsideRec;
|
|
1262
|
DEALLOCATE XmlDataOutsideRec;
|
|
1263
|
--- END INSERT đơn vị nhận
|
|
1264
|
|
|
1265
|
|
|
1266
|
COMMIT TRANSACTION
|
|
1267
|
-- BEGIN VALIDATE SEND APPROVE
|
|
1268
|
IF(@p_TYPE_FUNCTION ='SEND')-- BAT DAU GUI PHE DUYET
|
|
1269
|
BEGIN
|
|
1270
|
IF (NOT EXISTS (SELECT * FROM PL_REQUEST_PROCESS_CHILD WHERE REQ_ID = @p_REQ_PAY_ID AND TLNAME =@p_MAKER_ID_KT AND TYPE_JOB = 'XL'))
|
|
1271
|
BEGIN
|
|
1272
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Bạn không được phép gửi phê duyệt phiếu đề nghị tạm ứng này. Phiếu đề nghị tạm ứng đang được điều phối cho giao dịch viên khác xử lý' ErrorDesc
|
|
1273
|
RETURN '-1'
|
|
1274
|
END
|
|
1275
|
IF ((SELECT AUTH_STATUS FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID) ='R')
|
|
1276
|
BEGIN
|
|
1277
|
SELECT '-1' Result,'' REQ_PAY_ID,N'Phiếu đề nghị tạm ứng đ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
|
|
1278
|
RETURN '-1'
|
|
1279
|
END
|
|
1280
|
IF ( EXISTS (SELECT AUTH_STATUS FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID = @p_REQ_PAY_ID AND AUTH_STATUS <> 'A'))
|
|
1281
|
BEGIN
|
|
1282
|
SELECT '-1' Result,'' REQ_PAY_ID,N'Phiếu đề nghị tạm ứng đang ở cấp độ đơn vị. Vui lòng chờ đơn vị cập nhật thông tin và duyệt lại!' ErrorDesc
|
|
1283
|
RETURN '-1'
|
|
1284
|
END
|
|
1285
|
IF(EXISTS(SELECT * FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'A'))
|
|
1286
|
BEGIN
|
|
1287
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị tạm ứng đã được phê duyệt kế toán thành công trước đó!' ErrorDesc
|
|
1288
|
RETURN '-1'
|
|
1289
|
END
|
|
1290
|
IF(EXISTS(SELECT * FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'P'))
|
|
1291
|
BEGIN
|
|
1292
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị tạm ứng đã được gửi phê duyệt thành công trước đó! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
1293
|
RETURN '-1'
|
|
1294
|
END
|
|
1295
|
IF(EXISTS(SELECT * FROM TR_REQ_ADVANCE_PAYMENT WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND AUTH_STATUS_KT = 'S'))
|
|
1296
|
BEGIN
|
|
1297
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị tạm ứng đang được đề xuất từ chối! Vui lòng đợi KSV xử lý phiếu' ErrorDesc
|
|
1298
|
RETURN '-1'
|
|
1299
|
END
|
|
1300
|
|
|
1301
|
-- BEGIN VALIDATE LUOI HACH TOAN
|
|
1302
|
IF(@p_XMP_TEMP_DATA_ENTRIES IS NOT NULL)
|
|
1303
|
BEGIN
|
|
1304
|
-- CHAN NEU CHI CO 1 BUT NO 1 BUT CO THI KHONG DUOC DI TIEP
|
|
1305
|
IF(EXISTS(SELECT * FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID))
|
|
1306
|
BEGIN
|
|
1307
|
DECLARE @SUM_CR DECIMAL(18,2), @SUM_DR DECIMAL(18,2)
|
|
1308
|
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)
|
|
1309
|
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)
|
|
1310
|
IF(@SUM_CR<>@SUM_DR)
|
|
1311
|
BEGIN
|
|
1312
|
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
|
|
1313
|
RETURN '-1'
|
|
1314
|
END
|
|
1315
|
END
|
|
1316
|
|
|
1317
|
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
|
|
1318
|
DECLARE cursorProduct CURSOR LOCAL FOR 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
|
|
1319
|
|
|
1320
|
Open cursorProduct
|
|
1321
|
FETCH NEXT FROM cursorProduct INTO @REQ_PAY_ID , @ET_ID, @AMT_ET, @ACC_ET , @DRCR_ET
|
|
1322
|
WHILE @@FETCH_STATUS = 0
|
|
1323
|
BEGIN
|
|
1324
|
--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Ợ
|
|
1325
|
IF((SELECT COUNT (*) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ENTRY_PAIR =@ET_ID AND DR_CR ='D') >1 AND
|
|
1326
|
(SELECT COUNT (*) FROM TR_REQ_PAY_ENTRIES WHERE REQ_PAY_ID =@p_REQ_PAY_ID AND ENTRY_PAIR =@ET_ID AND DR_CR ='C') >1)
|
|
1327
|
BEGIN
|
|
1328
|
CLOSE cursorProduct;
|
|
1329
|
DEALLOCATE cursorProduct;
|
|
1330
|
SELECT '-1' as Result, '' REQ_PAY_ID, N'Mã bút toán số '+ @ET_ID+ 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
|
|
1331
|
RETURN '-1'
|
|
1332
|
END
|
|
1333
|
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))
|
|
1334
|
BEGIN
|
|
1335
|
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)
|
|
1336
|
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))
|
|
1337
|
BEGIN
|
|
1338
|
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
|
|
1339
|
RETURN '-1'
|
|
1340
|
END
|
|
1341
|
END
|
|
1342
|
-- KIEM TRA SO TIEN NO CO
|
|
1343
|
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) <> 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))
|
|
1344
|
BEGIN
|
|
1345
|
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
|
|
1346
|
RETURN '-1'
|
|
1347
|
END
|
|
1348
|
FETCH NEXT FROM cursorProduct INTO @REQ_PAY_ID , @ET_ID, @AMT_ET, @ACC_ET , @DRCR_ET
|
|
1349
|
END -- END WHILE
|
|
1350
|
END
|
|
1351
|
-- END VALIDATE LUOI HACH TOAN
|
|
1352
|
UPDATE PL_REQUEST_PROCESS_CHILD SET STATUS_JOB ='P' WHERE REQ_ID=@p_REQ_PAY_ID AND TLNAME=@p_MAKER_ID_KT
|
|
1353
|
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)
|
|
1354
|
-- CAP NHAT TINH TRANG VE DANG XU LY
|
|
1355
|
UPDATE TR_REQ_ADVANCE_PAYMENT SET AUTH_STATUS_KT='P',CREATE_DT_KT =GETDATE() WHERE REQ_PAY_ID=@p_REQ_PAY_ID
|
|
1356
|
|
|
1357
|
INSERT INTO dbo.PL_PROCESS(REQ_ID,PROCESS_ID,CHECKER_ID,APPROVE_DT,PROCESS_DESC,NOTES)
|
|
1358
|
VALUES(@p_REQ_PAY_ID,'SEND',@p_MAKER_ID_KT,GETDATE(), N'Giao dịch viên gửi phê duyệt phiếu',N'Giao dịch viên cập nhật thông tin')
|
|
1359
|
|
|
1360
|
SELECT '4' as Result, '' REQ_PAY_ID, N'Phiếu đề nghị tạm ứng số: '+(SELECT REQ_PAY_CODE FROM TR_REQ_ADVANCE_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
|
|
1361
|
RETURN '4'
|
|
1362
|
END -- END TYPE_FUNCTION
|
|
1363
|
-- END VALIDATE SEND APPROVE
|
|
1364
|
|
|
1365
|
SELECT '0' as Result, @p_REQ_PAY_ID REQ_PAY_ID, '' ErrorDesc
|
|
1366
|
RETURN '0'
|
|
1367
|
ABORT:
|
|
1368
|
BEGIN
|
|
1369
|
ROLLBACK TRANSACTION
|
|
1370
|
CLOSE XmlDataEntries;
|
|
1371
|
DEALLOCATE XmlDataEntries;
|
|
1372
|
SELECT '-1' as Result, '' REQ_PAY_ID, '' ErrorDesc
|
|
1373
|
RETURN '-1'
|
|
1374
|
End
|