|
1
|
|
|
2
|
ALTER PROCEDURE [dbo].[TR_REQ_PAY_AUTO_CREATE_REQ_PAYMENT_FROM_SYSTEM_INVOICE]
|
|
3
|
@p_XMP_RECURRING XML
|
|
4
|
AS
|
|
5
|
BEGIN TRANSACTION
|
|
6
|
|
|
7
|
DECLARE @list_req_payment NVARCHAR(MAX) = ''
|
|
8
|
-- DS CAC KY DA THANH TOAN
|
|
9
|
DECLARE @billRef VARCHAR(20), @billCode VARCHAR(20), @customerName NVARCHAR(MAX), @amount VARCHAR(20), @accountNo VARCHAR(20), @accountType VARCHAR(20),
|
|
10
|
@createdTime VARCHAR(21), @partner VARCHAR(20), @resultCode VARCHAR(20), @resultDesc NVARCHAR(MAX), @transDesc NVARCHAR(MAX), @coreXref VARCHAR(20), @partnerAccount VARCHAR(20),
|
|
11
|
@billCodeAlias VARCHAR(20), @prvCode VARCHAR(20), @sevCode VARCHAR(20), @year VARCHAR(20), @customerAddress VARCHAR(20), @month VARCHAR(20),
|
|
12
|
@accountName VARCHAR(20), @accountNoRec VARCHAR(20), @accountNameRec VARCHAR(20), @billDate VARCHAR(20)
|
|
13
|
|
|
14
|
DECLARE @hDocRecurring INT EXEC sp_xml_preparedocument @hDocRecurring OUTPUT, @p_XMP_RECURRING;
|
|
15
|
DECLARE XmlAutoRecurring CURSOR LOCAL FOR
|
|
16
|
SELECT * FROM OPENXML(@hDocRecurring, 'Root/XmlAutoRecurring',2)
|
|
17
|
WITH(billRef VARCHAR(20), billCode VARCHAR(20), customerName NVARCHAR(MAX), amount VARCHAR(20), accountNo VARCHAR(20), accountType VARCHAR(20), createdTime VARCHAR(30),
|
|
18
|
[partner] VARCHAR(20), resultCode VARCHAR(20), resultDesc NVARCHAR(MAX), transDesc NVARCHAR(MAX), coreXref VARCHAR(20), partnerAccount VARCHAR(20), [month] VARCHAR(20))
|
|
19
|
OPEN XmlAutoRecurring
|
|
20
|
|
|
21
|
--- DUYET QUA TUNG KY THANH TOAN
|
|
22
|
FETCH NEXT FROM XmlAutoRecurring INTO @billRef, @billCode, @customerName, @amount, @accountNo, @accountType, @createdTime,
|
|
23
|
@partner, @resultCode, @resultDesc, @transDesc, @coreXref, @partnerAccount, @month
|
|
24
|
WHILE @@fetch_status=0
|
|
25
|
BEGIN
|
|
26
|
print '@billRef: ' + @billRef
|
|
27
|
print '@billcode: ' + @billCode
|
|
28
|
IF(@resultCode <> '00')
|
|
29
|
BEGIN
|
|
30
|
PRINT 'KY THANH TOAN KHONG HOP LE' + @billRef
|
|
31
|
END
|
|
32
|
ELSE IF(@accountType <> 'A')
|
|
33
|
BEGIN
|
|
34
|
PRINT 'KHONG PHAI THANH TOAN BANG THE' + @billRef
|
|
35
|
END
|
|
36
|
/*
|
|
37
|
ELSE IF(@partner <> 'AMS')
|
|
38
|
BEGIN
|
|
39
|
PRINT 'KHONG PHAI KY THANH TOAN DUOC THANH TOAN BOI AMS' + @billRef
|
|
40
|
END
|
|
41
|
*/
|
|
42
|
ELSE IF(EXISTS(SELECT * FROM TR_REQ_PAY_AUTO_RECURRING_HISTORY WHERE billRef = @billRef AND @billCode = billCode AND @coreXref = coreXref))
|
|
43
|
BEGIN
|
|
44
|
PRINT 'KY THANH TOAN DA TON TAI TRONG HE THONG - DA THUC HIEN THANH TOAN TREN AMS: ' + @billRef
|
|
45
|
END
|
|
46
|
ELSE IF(NOT EXISTS(SELECT * FROM TR_REQ_PAY_AUTO_RECURRING WHERE BILLCODE = @billCode))
|
|
47
|
BEGIN
|
|
48
|
PRINT 'KHONG CO BILLCODE TRONG HE THONG AMS: ' + @billCode
|
|
49
|
END
|
|
50
|
ELSE IF(NOT EXISTS (SELECT * FROM TR_REQ_PAY_AUTO_RECURRING A
|
|
51
|
LEFT JOIN TR_REQ_PAYMENT_AUTO B ON A.REQ_PAY_AUTO_ID = B.REQ_PAY_AUTO_ID
|
|
52
|
WHERE A.BILLCODE = @billCode
|
|
53
|
)
|
|
54
|
)
|
|
55
|
BEGIN
|
|
56
|
PRINT 'KHONG CO PHIEU YEU CAU THANH TOAN TU DONG TRONG HE THONG AMS: ' + @billCode
|
|
57
|
END
|
|
58
|
ELSE
|
|
59
|
BEGIN
|
|
60
|
DECLARE @REQ_PAY_ID VARCHAR(20), @REQ_PAY_CODE VARCHAR(20), @CONTRACT_ID VARCHAR(20), @CONTRACT_CODE VARCHAR(20), @CONTRACT_NAME NVARCHAR(500),
|
|
61
|
@BRANCH_ID NVARCHAR(20), @REQ_PAY_AUTO_SERVICE_TYPE_NAME NVARCHAR(200), @DEP_ID VARCHAR(20), @BRANCH_CREATE VARCHAR(20),
|
|
62
|
@REQ_PAY_AUTO_ID VARCHAR(20), @TRANSFER_USER_RECEIVE VARCHAR(20), @TRANS_GLCODE VARCHAR(20), @TRANS_GLNAME NVARCHAR(500)
|
|
63
|
PRINT 'GET DATA BILLCODE'
|
|
64
|
-- LAY DATA CUA BILLCODE DANG KY TRONG AMS
|
|
65
|
SELECT TOP 1 @CONTRACT_ID = B.CONTRACT_ID, @CONTRACT_CODE = E.CONTRACT_CODE, @CONTRACT_NAME = E.[CONTRACT_NAME],
|
|
66
|
@BRANCH_ID = B.BRANCH_ID, @REQ_PAY_AUTO_SERVICE_TYPE_NAME = D.CONTENT, @DEP_ID = B.DEP_ID, @BRANCH_CREATE = B.BRANCH_CREATE,
|
|
67
|
@REQ_PAY_AUTO_ID = B.REQ_PAY_AUTO_ID, @TRANSFER_USER_RECEIVE = B.TRANSFER_USER_RECEIVE,
|
|
68
|
@TRANS_GLCODE = A.TRANS_GLCODE, @TRANS_GLNAME = A.TRANS_GLNAME
|
|
69
|
FROM TR_REQ_PAY_AUTO_RECURRING A
|
|
70
|
LEFT JOIN TR_REQ_PAYMENT_AUTO B ON A.REQ_PAY_AUTO_ID = B.REQ_PAY_AUTO_ID
|
|
71
|
LEFT JOIN CM_BRANCH C ON B.BRANCH_ID = C.BRANCH_ID
|
|
72
|
LEFT JOIN CM_ALLCODE D ON B.REQ_PAY_AUTO_SERVICE_TYPE = D.CDVAL AND D.CDNAME = 'PAY_SER_AUTO' AND CDTYPE = 'REQ_AUTO'
|
|
73
|
LEFT JOIN TR_CONTRACT E ON B.CONTRACT_ID = E.CONTRACT_ID
|
|
74
|
WHERE BILLCODE = @billCode
|
|
75
|
PRINT 'LUU LOG KY THANH TOAN'
|
|
76
|
print @createdTime
|
|
77
|
-- LUU LOG KY THANH TOAN
|
|
78
|
INSERT INTO TR_REQ_PAY_AUTO_RECURRING_HISTORY(billRef, billCode, customerName, amount, accountNo, accountType, createdTime,
|
|
79
|
[partner], resultCode, resultDesc, transDesc, coreXref, partnerAccount, MAKER_ID, CREATE_DT)
|
|
80
|
VALUES (@billRef, @billCode, @customerName, @amount, @accountNo, @accountType, CONVERT(DATE, @createdTime, 103),
|
|
81
|
@partner, @resultCode, @resultDesc, @transDesc, @coreXref, @partnerAccount, 'admin', GETDATE())
|
|
82
|
|
|
83
|
-------------------- BEGIN TAO PHIEU DE NGHI THANH TOAN TU DONG ----------------------------------
|
|
84
|
|
|
85
|
-- BEGIN KHOI TAO GIA TRI
|
|
86
|
-- ID PDN THANH TOAN
|
|
87
|
PRINT 'GEN ID PDN THANH TOAN'
|
|
88
|
EXEC [dbo].[PAY_CODE_GenKey] 'TR_REQ_PAYMENT', '','', @REQ_PAY_CODE out
|
|
89
|
IF EXISTS(SELECT * FROM TR_REQ_PAYMENT WHERE REQ_PAY_CODE = @REQ_PAY_CODE )
|
|
90
|
BEGIN
|
|
91
|
ROLLBACK TRANSACTION
|
|
92
|
SELECT '-1' as Result, @list_req_payment LIST_REQ_PAYMENT, N'Số phiếu đề nghị thanh toán đã tồn tại trong hệ thống' ErrorDesc
|
|
93
|
RETURN '-1'
|
|
94
|
END
|
|
95
|
PRINT 'GEN MA CODE PDN THANH TOAN'
|
|
96
|
-- MA CODE PDN THANH TOAN
|
|
97
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAYMENT', @REQ_PAY_ID out
|
|
98
|
IF @REQ_PAY_ID='' OR @REQ_PAY_ID IS NULL GOTO ABORT
|
|
99
|
PRINT 'GET DON VI QUAN LY HOP DONG'
|
|
100
|
DECLARE @BRANCH_MANAGE_ID NVARCHAR(250) = ( SELECT TOP 1 BRANCH_ID
|
|
101
|
FROM CM_BRANCH
|
|
102
|
WHERE BRANCH_ID = ( SELECT TOP 1 BRANCH_ID FROM TR_CONTRACT WHERE CONTRACT_ID = @CONTRACT_ID)
|
|
103
|
)
|
|
104
|
SET @BRANCH_CREATE = @BRANCH_MANAGE_ID;
|
|
105
|
SET @BRANCH_ID = @BRANCH_MANAGE_ID;
|
|
106
|
IF(ISNULL(@BRANCH_MANAGE_ID, '') <> 'DV0001')
|
|
107
|
BEGIN
|
|
108
|
SET @DEP_ID = NULL
|
|
109
|
END
|
|
110
|
DECLARE @BRANCH_MANAGE_NAME NVARCHAR(250) = ( SELECT TOP 1 BRANCH_NAME
|
|
111
|
FROM CM_BRANCH
|
|
112
|
WHERE BRANCH_ID = ( SELECT TOP 1 BRANCH_ID FROM TR_CONTRACT WHERE CONTRACT_ID = @CONTRACT_ID)
|
|
113
|
)
|
|
114
|
IF((SELECT TOP 1 BRANCH_ID FROM TR_CONTRACT WHERE CONTRACT_ID = @CONTRACT_ID) <> 'DV0001' AND @BRANCH_ID = 'DV0001')
|
|
115
|
BEGIN
|
|
116
|
SET @BRANCH_MANAGE_NAME = (SELECT TOP 1 BRANCH_NAME FROM CM_BRANCH WHERE BRANCH_ID = @BRANCH_ID)
|
|
117
|
+ ISNULL ( ' - ' + ( SELECT TOP 1 BRANCH_NAME
|
|
118
|
FROM CM_BRANCH
|
|
119
|
WHERE BRANCH_ID = ( SELECT TOP 1 BRANCH_ID FROM TR_CONTRACT WHERE CONTRACT_ID = @CONTRACT_ID)
|
|
120
|
), ''
|
|
121
|
)
|
|
122
|
END
|
|
123
|
|
|
124
|
-- NOI DUNG THANH TOAN, DUNG CHO NHIEU TABLE
|
|
125
|
DECLARE @PAY_AUTO_DESC_DETAIL NVARCHAR(1000) = ''
|
|
126
|
DECLARE @PAY_AUTO_TRN_DESC_DETAIL VARCHAR(1000) = ''
|
|
127
|
IF(ISNULL(@month, '') = '')
|
|
128
|
BEGIN
|
|
129
|
PRINT 'HOP DONG KHONG CO MA CODE: ' + @PAY_AUTO_DESC_DETAIL
|
|
130
|
DECLARE @l_Month VARCHAR(2), @l_Year VARCHAR(2)
|
|
131
|
SET @l_Month = RIGHT('0' + CAST(DATEPART(MM, GETDATE()) AS VARCHAR(2)), 2);
|
|
132
|
SET @l_Year = RIGHT(YEAR(GETDATE()), 2);
|
|
133
|
SET @PAY_AUTO_DESC_DETAIL = @BRANCH_MANAGE_NAME + N' thanh toán chi phí ' + @REQ_PAY_AUTO_SERVICE_TYPE_NAME + @l_Month + '/' + @l_Year + N' theo GDNTT số ' + @REQ_PAY_CODE
|
|
134
|
SET @PAY_AUTO_TRN_DESC_DETAIL = UPPER(dbo.fChuyenCoDauThanhKhongDau(@BRANCH_MANAGE_NAME + N' thanh toán chi phí ' + @REQ_PAY_AUTO_SERVICE_TYPE_NAME + @l_Month + '/' + @l_Year + N' theo GDNTT số ' + @REQ_PAY_CODE))
|
|
135
|
END
|
|
136
|
ELSE
|
|
137
|
BEGIN
|
|
138
|
PRINT 'HOP DONG CO MA CODE: ' + @PAY_AUTO_DESC_DETAIL
|
|
139
|
SET @PAY_AUTO_DESC_DETAIL = @BRANCH_MANAGE_NAME + N' thanh toán chi phí ' + @REQ_PAY_AUTO_SERVICE_TYPE_NAME + N', ' + @month + N' theo GDNTT số ' + @REQ_PAY_CODE
|
|
140
|
SET @PAY_AUTO_TRN_DESC_DETAIL = UPPER(dbo.fChuyenCoDauThanhKhongDau(@BRANCH_MANAGE_NAME + N' thanh toán chi phí ' + @REQ_PAY_AUTO_SERVICE_TYPE_NAME + N', ' + @month + N' theo GDNTT số ' + @REQ_PAY_CODE))
|
|
141
|
END
|
|
142
|
|
|
143
|
-- END KHOI TAO GIA TRI
|
|
144
|
PRINT 'TAO PHIEU DE NGHI THANH TOAN'
|
|
145
|
INSERT INTO [dbo].[TR_REQ_PAYMENT]
|
|
146
|
(REQ_PAY_ID, REQ_PAY_CODE, BRANCH_ID, DEP_ID, REQ_REASON, REQ_TYPE,
|
|
147
|
REQ_ENTRIES, REQ_DESCRIPTION, REF_ID, PAY_PHASE, RECEIVER_PO, --NULL
|
|
148
|
REQ_PAY_TYPE, REQ_DT, REQ_TYPE_CURRENCY, REQ_AMT, REQ_TEMP_AMT,
|
|
149
|
MAKER_ID, CREATE_DT, EDITOR_ID, AUTH_STATUS, CHECKER_ID, APPROVE_DT, --HC
|
|
150
|
CREATE_DT_KT, MAKER_ID_KT, AUTH_STATUS_KT, CHECKER_ID_KT, APPROVE_DT_KT, CONFIRM_NOTE, --KT
|
|
151
|
BRANCH_CREATE, NOTES, RECORD_STATUS, TRANSFER_MAKER, TRANSFER_DT, TRASFER_USER_RECIVE, PROCESS, RATE, IS_PERIOD, AMT_PAY, IS_CREATE_AUTO, TYPE_AUTO, SYSTEM_INVOICE_ID, IS_CREATE_AUTO_DONE)
|
|
152
|
VALUES
|
|
153
|
(@REQ_PAY_ID, @REQ_PAY_CODE, @BRANCH_ID, @DEP_ID, @PAY_AUTO_DESC_DETAIL, 'P',
|
|
154
|
NULL, NULL, NULL, NULL, NULL, --NULL
|
|
155
|
'1', GETDATE(), 'VND', @amount, NULL,
|
|
156
|
'admin', GETDATE(), NULL, 'A', 'admin', GETDATE(), --HC
|
|
157
|
GETDATE(), 'admin', 'A', 'admin', GETDATE(), NULL, --KT
|
|
158
|
@BRANCH_CREATE, NULL, '1', 'admin', GETDATE(), NULL, '0', 1, 'Y', NULL, 'Y', 'B', @billRef, 'N')
|
|
159
|
PRINT 'TAO LUOI PDN THANH TOAN CHO PYC TTTD'
|
|
160
|
-- TẠO LƯỚI PHIEU DE NGHI THANH TOAN CHO PYC
|
|
161
|
INSERT INTO [dbo].[TR_REQ_PAY_AUTO_PAYMENTS]
|
|
162
|
(REQ_PAY_AUTO_ID, REQ_PAY_ID, REQ_PAY_CODE, BRANCH_ID, DEP_ID, REQ_REASON, REQ_TYPE,
|
|
163
|
REQ_ENTRIES, REQ_DESCRIPTION, REF_ID, PAY_PHASE, RECEIVER_PO, --NULL
|
|
164
|
REQ_PAY_TYPE, REQ_DT, REQ_TYPE_CURRENCY, REQ_AMT, REQ_TEMP_AMT,
|
|
165
|
MAKER_ID, CREATE_DT, EDITOR_ID, AUTH_STATUS, CHECKER_ID, APPROVE_DT, --HC
|
|
166
|
CREATE_DT_KT, MAKER_ID_KT, AUTH_STATUS_KT, CHECKER_ID_KT, APPROVE_DT_KT, CONFIRM_NOTE, --KT
|
|
167
|
BRANCH_CREATE, NOTES, RECORD_STATUS, TRANSFER_MAKER, TRANSFER_DT, TRASFER_USER_RECIVE, PROCESS, RATE, IS_PERIOD, AMT_PAY)
|
|
168
|
VALUES
|
|
169
|
(@REQ_PAY_AUTO_ID ,@REQ_PAY_ID, @REQ_PAY_CODE, @BRANCH_ID, @DEP_ID, @PAY_AUTO_DESC_DETAIL, 'P',
|
|
170
|
NULL, NULL, NULL, NULL, NULL, --NULL
|
|
171
|
'1', GETDATE(), 'VND', @amount, NULL,
|
|
172
|
'admin', GETDATE(), NULL, 'A', 'admin', GETDATE(), --HC
|
|
173
|
GETDATE(), 'admin', 'A', 'admin', GETDATE(), NULL, --KT
|
|
174
|
@BRANCH_CREATE, NULL, '1', 'admin', GETDATE(), NULL, '0', 1, 'Y', NULL)
|
|
175
|
PRINT 'THEM LICH SU XU LY'
|
|
176
|
INSERT INTO dbo.PL_PROCESS(REQ_ID,PROCESS_ID,CHECKER_ID,APPROVE_DT,PROCESS_DESC,NOTES)
|
|
177
|
VALUES(@REQ_PAY_ID,'AUTO_APPR','admin',GETDATE(), N'Hệ thống tạo phiếu thanh toán tự động',N'Hệ thống tạo phiếu thanh toán tự động')
|
|
178
|
|
|
179
|
|
|
180
|
-------------------- END TAO PHIEU DE NGHI THANH TOAN TU DONG ----------------------------------
|
|
181
|
|
|
182
|
-- TẠO LƯỚI THÔNG TIN HỢP ĐỒNG ĐỊNH KỲ
|
|
183
|
PRINT 'TAO LUOI THONG TIN HDDK'
|
|
184
|
DECLARE @REQ_PAYDTID_PERIOD VARCHAR(15);
|
|
185
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_ADVANCE_DT', @REQ_PAYDTID_PERIOD OUT;
|
|
186
|
IF @REQ_PAYDTID_PERIOD='' OR @REQ_PAYDTID_PERIOD IS NULL GOTO ABORT;
|
|
187
|
INSERT INTO TR_REQ_ADVANCE_DT (REQ_PAYDTID, REQ_PAY_ID,REF_ID, [TYPE], MAKER_ID, CREATE_DT, IS_CLOSED, REF_TYPE, DELIVERY_DT)
|
|
188
|
VALUES(@REQ_PAYDTID_PERIOD, @REQ_PAY_ID, @CONTRACT_ID, 'PAY', 'admin', GETDATE(), 'N', 'C', CONVERT(DATE,NULL,103))
|
|
189
|
|
|
190
|
-- TẠO LƯỚI THÔNG TIN THANH TOÁN HỢP ĐỒNG ĐỊNH KỲ
|
|
191
|
PRINT 'TAO LUOI THONG TIN THANH TOAN HDDK'
|
|
192
|
DECLARE @PERIOD_ID VARCHAR(15);
|
|
193
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_PERIOD', @PERIOD_ID OUT;
|
|
194
|
IF @PERIOD_ID='' OR @PERIOD_ID IS NULL GOTO ABORT;
|
|
195
|
INSERT INTO TR_REQ_PAY_PERIOD(PERIOD_ID, REQ_PAY_ID, PAY_TYPE, CONTRACT_ID, PAY_DT_REAL ,OLD_INDEX, NEW_INDEX, AMT_PAY,
|
|
196
|
AUTH_STATUS_KT, CURRENCY, RATE, FROM_DATE, TO_DATE,AD_PAY_ID, PROCESS, PARENT_ID, PAY_PHASE, REASON, TYPE_COST,FR_LEVEL , TO_LEVEL)
|
|
197
|
VALUES (@PERIOD_ID, @REQ_PAY_ID,'PAY', @CONTRACT_ID, NULL, NULL , NULL , @amount,
|
|
198
|
'A', 'VND', '1', NULL, NULL, NULL, '1', NULL, @month, @PAY_AUTO_DESC_DETAIL, NULL, NULL, NULL )
|
|
199
|
|
|
200
|
-- TẠO LƯỚI THÔNG TIN HẠCH TOÁN
|
|
201
|
|
|
202
|
-- BUT TOAN CHI PHI
|
|
203
|
PRINT 'BUT TOAN CHI PHI'
|
|
204
|
DECLARE @FUNCTION_TYPE VARCHAR(15), @TRN_TYPE NVARCHAR(40), @REF_ID VARCHAR(15), @ENTRY_PAIR varchar(50), @DR_CR varchar(2), @DR_CR_NAME nvarchar(50),
|
|
205
|
@ACCT varchar(100), @ACCT_NAME varchar(500), @AMT DECIMAL(18,2), @EXC_RATE DECIMAL(18,2), @TRN_DATE VARCHAR(20), @TRN_DESC nvarchar(1000), @AUTH_STATUS varchar(2), @APPROVE_DT varchar(20),
|
|
206
|
@CREATE_DT_KT varchar(20), @APPROVE_DT_KT varchar(20), @IS_TRANSFER_EXTERNAL varchar(20), @DEP_ID_ENTRY varchar(20),
|
|
207
|
@CURRENCY varchar(20), @MAKER_ID varchar(20), @CREATE_DT varchar(20), @CHECKER_ID varchar(20), @MAKER_ID_KT varchar(20), @AUTH_STATUS_KT varchar(2), @CHECKER_ID_KT varchar(20),
|
|
208
|
@RECORD_STATUS varchar(20)
|
|
209
|
DECLARE cursorEntries CURSOR LOCAL FOR
|
|
210
|
SELECT REQ_PAY_AUTO_ID, FUNCTION_TYPE, TRN_TYPE, REF_ID, ENTRY_PAIR, DR_CR, DR_CR_NAME, ACCT, ACCT_NAME, BRANCH_ID, DEP_ID, AMT, CURRENCY, EXC_RATE,
|
|
211
|
TRN_DATE, TRN_DESC, MAKER_ID, CREATE_DT, AUTH_STATUS, CHECKER_ID, APPROVE_DT, MAKER_ID_KT, CREATE_DT_KT, AUTH_STATUS_KT, CHECKER_ID_KT, APPROVE_DT_KT, RECORD_STATUS, IS_TRANSFER_EXTERNAL
|
|
212
|
FROM TR_REQ_PAY_AUTO_ENTRIES
|
|
213
|
WHERE REQ_PAY_AUTO_ID = @REQ_PAY_AUTO_ID
|
|
214
|
Open cursorEntries
|
|
215
|
|
|
216
|
FETCH NEXT FROM cursorEntries INTO @REQ_PAY_AUTO_ID, @FUNCTION_TYPE, @TRN_TYPE, @REF_ID, @ENTRY_PAIR, @DR_CR, @DR_CR_NAME, @ACCT, @ACCT_NAME, @BRANCH_ID, @DEP_ID_ENTRY, @AMT, @CURRENCY, @EXC_RATE,
|
|
217
|
@TRN_DATE, @TRN_DESC, @MAKER_ID, @CREATE_DT, @AUTH_STATUS, @CHECKER_ID, @APPROVE_DT, @MAKER_ID_KT, @CREATE_DT_KT, @AUTH_STATUS_KT, @CHECKER_ID_KT, @APPROVE_DT_KT, @RECORD_STATUS, @IS_TRANSFER_EXTERNAL
|
|
218
|
WHILE @@FETCH_STATUS = 0
|
|
219
|
BEGIN
|
|
220
|
DECLARE @l_TR_REQ_PAY_ENTRIES VARCHAR(15);
|
|
221
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_ENTRIES', @l_TR_REQ_PAY_ENTRIES OUT;
|
|
222
|
IF @l_TR_REQ_PAY_ENTRIES='' OR @l_TR_REQ_PAY_ENTRIES IS NULL GOTO ABORT;
|
|
223
|
|
|
224
|
INSERT INTO [TR_REQ_PAY_ENTRIES] ([REQ_PAY_DT_ID],[REQ_PAY_ID],[FUNCTION_TYPE],[TRN_TYPE],[REF_ID],[ENTRY_PAIR],[DR_CR],[DR_CR_NAME],[ACCT],[ACCT_NAME],[BRANCH_ID],[DEP_ID], [AMT],[CURRENCY],[EXC_RATE],
|
|
225
|
[TRN_DATE],[TRN_DESC],[MAKER_ID],[CREATE_DT],[AUTH_STATUS],[CHECKER_ID],[APPROVE_DT],[MAKER_ID_KT],[CREATE_DT_KT],[AUTH_STATUS_KT],[CHECKER_ID_KT],[APPROVE_DT_KT],[RECORD_STATUS],[IS_TRANSFER_EXTERNAL])
|
|
226
|
VALUES (@l_TR_REQ_PAY_ENTRIES, @REQ_PAY_ID, @FUNCTION_TYPE, @TRN_TYPE, @REF_ID, @ENTRY_PAIR, @DR_CR, @DR_CR_NAME, @ACCT, @ACCT_NAME, @BRANCH_ID, @DEP_ID_ENTRY, CONVERT(DECIMAL(18,2), @amount), 'VND', @EXC_RATE,
|
|
227
|
@TRN_DATE, @PAY_AUTO_TRN_DESC_DETAIL, 'admin', GETDATE(), @AUTH_STATUS, 'admin', @APPROVE_DT, 'admin', GETDATE(), 'A', 'admin', @APPROVE_DT_KT, '1', @IS_TRANSFER_EXTERNAL)
|
|
228
|
|
|
229
|
IF @@error<>0 GOTO ABORT;
|
|
230
|
FETCH NEXT FROM cursorEntries INTO @REQ_PAY_AUTO_ID, @FUNCTION_TYPE, @TRN_TYPE, @REF_ID, @ENTRY_PAIR, @DR_CR, @DR_CR_NAME, @ACCT, @ACCT_NAME, @BRANCH_ID, @DEP_ID_ENTRY, @AMT, @CURRENCY, @EXC_RATE,
|
|
231
|
@TRN_DATE, @TRN_DESC, @MAKER_ID, @CREATE_DT, @AUTH_STATUS, @CHECKER_ID, @APPROVE_DT, @MAKER_ID_KT, @CREATE_DT_KT, @AUTH_STATUS_KT, @CHECKER_ID_KT, @APPROVE_DT_KT, @RECORD_STATUS, @IS_TRANSFER_EXTERNAL
|
|
232
|
END
|
|
233
|
CLOSE cursorEntries
|
|
234
|
DEALLOCATE cursorEntries
|
|
235
|
PRINT '9'
|
|
236
|
--- BAN BUT TOAN VAO CORE
|
|
237
|
DECLARE @RES VARCHAR(10)
|
|
238
|
EXEC [dbo].[PAY_ENTRIES_POST_SetApp] @REQ_PAY_ID,'admin','admin', @RES OUT
|
|
239
|
|
|
240
|
-- BUT TOAN HE THONG
|
|
241
|
-- NỢ
|
|
242
|
DECLARE @l_TR_REQ_PAY_ENTRIES_D VARCHAR(15);
|
|
243
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_ENTRIES', @l_TR_REQ_PAY_ENTRIES_D OUT;
|
|
244
|
INSERT INTO [TR_REQ_PAY_ENTRIES] ([REQ_PAY_DT_ID],[REQ_PAY_ID],[FUNCTION_TYPE],[TRN_TYPE],[REF_ID],
|
|
245
|
[ENTRY_PAIR],[DR_CR],[DR_CR_NAME],
|
|
246
|
[ACCT],[ACCT_NAME],[BRANCH_ID],[DEP_ID],
|
|
247
|
[AMT],[CURRENCY],[EXC_RATE],[TRN_DATE],[TRN_DESC],
|
|
248
|
[MAKER_ID],[CREATE_DT],[AUTH_STATUS],[CHECKER_ID],[APPROVE_DT],[MAKER_ID_KT],[CREATE_DT_KT],[AUTH_STATUS_KT],[CHECKER_ID_KT],[APPROVE_DT_KT],[RECORD_STATUS],[IS_TRANSFER_EXTERNAL])
|
|
249
|
VALUES(@l_TR_REQ_PAY_ENTRIES_D, @REQ_PAY_ID,NULL,'PAYMENT',NULL,
|
|
250
|
'2', N'D', N'Nợ',
|
|
251
|
@accountNo, @customerName, N'DV0001', N'',
|
|
252
|
CONVERT(DECIMAL(18,2), @amount), N'VND', 1.00, GETDATE(), @PAY_AUTO_TRN_DESC_DETAIL,
|
|
253
|
'admin',GETDATE(),'A','admin', GETDATE(),'admin',GETDATE(),'A','admin',GETDATE(),'1',NULL)
|
|
254
|
|
|
255
|
DECLARE @l_PAY_ENTRIES_POST_D VARCHAR(15);
|
|
256
|
EXEC SYS_CodeMasters_Gen 'PAY_ENTRIES_POST', @l_PAY_ENTRIES_POST_D OUT;
|
|
257
|
INSERT INTO [PAY_ENTRIES_POST] ([ET_ID],[REF_NO],[TRN_ID],[REF_ID],[TRN_TYPE],
|
|
258
|
[ENTRY_PAIR],[DO_BRN],[DRCR],[ACCT],[BRN_ID],[DEPT_ID],
|
|
259
|
[AMT],[CURRENCY],[EXC_RATE],[EXP_TO_CORE],[TRN_DATE],[TRN_DESC],[MAKER_ID],[CHECKER_ID])
|
|
260
|
VALUES (@l_PAY_ENTRIES_POST_D, @coreXref, @REQ_PAY_ID, @l_TR_REQ_PAY_ENTRIES_D,'PAYMENT',
|
|
261
|
'2',N'DV0001',N'D',
|
|
262
|
@accountNo,N'DV0001',N'',
|
|
263
|
CONVERT(DECIMAL(18,2), @amount),N'VND',1.00,N'1',GETDATE(),
|
|
264
|
@PAY_AUTO_TRN_DESC_DETAIL,'admin','admin')
|
|
265
|
|
|
266
|
-- CÓ
|
|
267
|
DECLARE @l_TR_REQ_PAY_ENTRIES_C VARCHAR(15);
|
|
268
|
EXEC SYS_CodeMasters_Gen 'TR_REQ_PAY_ENTRIES', @l_TR_REQ_PAY_ENTRIES_C OUT;
|
|
269
|
INSERT INTO [TR_REQ_PAY_ENTRIES] ([REQ_PAY_DT_ID],[REQ_PAY_ID],[FUNCTION_TYPE],[TRN_TYPE],[REF_ID],
|
|
270
|
[ENTRY_PAIR],[DR_CR],[DR_CR_NAME],
|
|
271
|
[ACCT],[ACCT_NAME],[BRANCH_ID],[DEP_ID],
|
|
272
|
[AMT],[CURRENCY],[EXC_RATE],[TRN_DATE],[TRN_DESC],
|
|
273
|
[MAKER_ID],[CREATE_DT],[AUTH_STATUS],[CHECKER_ID],[APPROVE_DT],[MAKER_ID_KT],[CREATE_DT_KT],[AUTH_STATUS_KT],[CHECKER_ID_KT],[APPROVE_DT_KT],[RECORD_STATUS],[IS_TRANSFER_EXTERNAL])
|
|
274
|
VALUES(@l_TR_REQ_PAY_ENTRIES_C, @REQ_PAY_ID,NULL,'PAYMENT',NULL,
|
|
275
|
'2',N'C',N'Có',
|
|
276
|
@partnerAccount, @partner,N'DV0001',N'',
|
|
277
|
CONVERT(DECIMAL(18,2), @amount),N'VND',1.00,GETDATE(),@PAY_AUTO_TRN_DESC_DETAIL,
|
|
278
|
'admin',GETDATE(),'A','admin', GETDATE(),'admin',GETDATE(),'A','admin',GETDATE(),'1',NULL)
|
|
279
|
|
|
280
|
DECLARE @l_PAY_ENTRIES_POST_C VARCHAR(15);
|
|
281
|
EXEC SYS_CodeMasters_Gen 'PAY_ENTRIES_POST', @l_PAY_ENTRIES_POST_C OUT;
|
|
282
|
INSERT INTO [PAY_ENTRIES_POST] ([ET_ID],[REF_NO],[TRN_ID],[REF_ID],[TRN_TYPE],
|
|
283
|
[ENTRY_PAIR],[DO_BRN],[DRCR],[ACCT],[BRN_ID],[DEPT_ID],
|
|
284
|
[AMT],[CURRENCY],[EXC_RATE],[EXP_TO_CORE],[TRN_DATE],[TRN_DESC],[MAKER_ID],[CHECKER_ID])
|
|
285
|
VALUES (@l_PAY_ENTRIES_POST_C, @coreXref, @REQ_PAY_ID,@l_TR_REQ_PAY_ENTRIES_C,'PAYMENT',
|
|
286
|
'2',N'DV0001',N'C',
|
|
287
|
@partnerAccount,N'DV0001',N'',
|
|
288
|
CONVERT(DECIMAL(18,2), @amount),N'VND',1.00,N'1',GETDATE(),
|
|
289
|
@PAY_AUTO_TRN_DESC_DETAIL, 'admin', 'admin')
|
|
290
|
|
|
291
|
-- Mỗi lần chỉ quét 1 bill hợp lệ
|
|
292
|
CLOSE XmlAutoRecurring;
|
|
293
|
DEALLOCATE XmlAutoRecurring;
|
|
294
|
COMMIT TRANSACTION
|
|
295
|
SELECT '0' as Result, @list_req_payment LIST_REQ_PAYMENT, N'Quét bill thành công!' ErrorDesc
|
|
296
|
RETURN '0'
|
|
297
|
|
|
298
|
END
|
|
299
|
|
|
300
|
IF @@error<>0 GOTO ABORT;
|
|
301
|
FETCH NEXT FROM XmlAutoRecurring INTO @billRef, @billCode, @customerName, @amount, @accountNo, @accountType, @createdTime,
|
|
302
|
@partner, @resultCode, @resultDesc, @transDesc, @coreXref, @partnerAccount, @month
|
|
303
|
END;
|
|
304
|
CLOSE XmlAutoRecurring;
|
|
305
|
DEALLOCATE XmlAutoRecurring;
|
|
306
|
|
|
307
|
COMMIT TRANSACTION
|
|
308
|
|
|
309
|
SELECT '0' as Result, @list_req_payment LIST_REQ_PAYMENT, N'Quét bill thành công!' ErrorDesc
|
|
310
|
RETURN '0'
|
|
311
|
|
|
312
|
ABORT:
|
|
313
|
BEGIN
|
|
314
|
ROLLBACK TRANSACTION
|
|
315
|
SELECT '-1' as Result, @list_req_payment LIST_REQ_PAYMENT, N'Lỗi không xác định' ErrorDesc
|
|
316
|
RETURN '-1'
|
|
317
|
End
|