|
1
|
??/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ P L _ I M P O R T _ A p p ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 0 A M * * * * * * /
|
|
2
|
|
|
3
|
S E T A N S I _ N U L L S O N
|
|
4
|
|
|
5
|
G O
|
|
6
|
|
|
7
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
8
|
|
|
9
|
G O
|
|
10
|
|
|
11
|
|
|
12
|
|
|
13
|
C R E A T E P R O C E D U R E [ d b o ] . [ P L _ I M P O R T _ A p p ]
|
|
14
|
|
|
15
|
@ P _ I M P O R T _ I D V A R C H A R ( 1 5 ) ,
|
|
16
|
|
|
17
|
@ P _ A U T H _ S T A T U S V A R C H A R ( 1 ) ,
|
|
18
|
|
|
19
|
@ P _ C H E C K E R _ I D V A R C H A R ( 1 2 ) ,
|
|
20
|
|
|
21
|
@ P _ A P P R O V E _ D T D A T E T I M E = N U L L
|
|
22
|
|
|
23
|
A S
|
|
24
|
|
|
25
|
|
|
26
|
|
|
27
|
|
|
28
|
|
|
29
|
B E G I N T R A N S A C T I O N ;
|
|
30
|
|
|
31
|
|
|
32
|
|
|
33
|
D E C L A R E @ I S _ U P D A T E B I T
|
|
34
|
|
|
35
|
|
|
36
|
|
|
37
|
|
|
38
|
|
|
39
|
S E T @ I S _ U P D A T E = ( S E L E C T I S _ U P D A T E F R O M d b o . P L _ I M P O R T W H E R E I M P O R T _ I D = @ P _ I M P O R T _ I D )
|
|
40
|
|
|
41
|
|
|
42
|
|
|
43
|
|
|
44
|
|
|
45
|
I F ( @ I S _ U P D A T E = 0 )
|
|
46
|
|
|
47
|
B E G I N
|
|
48
|
|
|
49
|
I F ( E X I S T S (
|
|
50
|
S E L E C T D T . T R A D E _ I D F R O M d b o . P L _ M A S T E R P M
|
|
51
|
L E F T J O I N d b o . P L _ T R A D E D E T A I L D T O N P M . P L A N _ I D = D T . P L A N _ I D
|
|
52
|
W H E R E E X I S T S (
|
|
53
|
S E L E C T T m p . G O O D _ I D F R O M P L _ I M P O R T _ D T T m p W H E R E ( T m p . I M P _ Y E A R = P M . Y E A R A N D T m p . P L A N _ T Y P E _ I D = P M . P L A N _ T Y P E _ I D
|
|
54
|
A N D T m p . C O S T _ I D = P M . C O S T _ I D A N D T m p . B R A N C H _ I D = P M . B R A N C H _ I D
|
|
55
|
A N D T m p . D E P _ I D = P M . D E P T _ I D A N D T m p . G O O D _ I D = D T . G O O D S _ I D ) A N D ( ( T m p . Q T Y < I S N U L L ( D T . Q U A N T I T Y _ E X E , 0 ) A N D I S N U L L ( D T . Q U A N T I T Y _ E X E , 0 ) > 0 ) O R ( T m p . T O T A L _ A M T < I S N U L L ( D T . A M T _ E X E , 0 ) A N D I S N U L L ( D T . A M T _ E X E , 0 ) > 0 ) )
|
|
56
|
) O R ( N O T E X I S T S ( S E L E C T T m p . G O O D _ I D F R O M P L _ I M P O R T _ D T T m p W H E R E ( T m p . I M P _ Y E A R = P M . Y E A R A N D T m p . P L A N _ T Y P E _ I D = P M . P L A N _ T Y P E _ I D
|
|
57
|
A N D T m p . C O S T _ I D = P M . C O S T _ I D A N D T m p . B R A N C H _ I D = P M . B R A N C H _ I D
|
|
58
|
A N D T m p . D E P _ I D = P M . D E P T _ I D A N D T m p . G O O D _ I D = D T . G O O D S _ I D ) ) A N D ( I S N U L L ( D T . Q U A N T I T Y _ E X E , 0 ) > 0 O R I S N U L L ( D T . A M T _ E X E , 0 ) > 0 )
|
|
59
|
) ) )
|
|
60
|
B E G I N
|
|
61
|
|
|
62
|
R O L L B A C K T R A N S A C T I O N
|
|
63
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' H ? n m ? c c h ? n h s ? a ? s ? d ? n g v ? ? t h ? n m ? c c h ? n h s ? a ' E r r o r D e s c
|
|
64
|
R E T U R N ' - 1 '
|
|
65
|
E N D
|
|
66
|
|
|
67
|
E N D
|
|
68
|
|
|
69
|
U P D A T E d b o . P L _ I M P O R T _ D T S E T P L A N _ I D = ( S E L E C T P L . P L A N _ I D F R O M d b o . P L _ M A S T E R P L
|
|
70
|
|
|
71
|
W H E R E P L . P L A N _ T Y P E _ I D = P L _ I M P O R T _ D T . P L A N _ T Y P E _ I D A N D
|
|
72
|
|
|
73
|
P L . C O S T _ I D = P L _ I M P O R T _ D T . C O S T _ I D A N D
|
|
74
|
|
|
75
|
P L . B R A N C H _ I D = P L _ I M P O R T _ D T . B R A N C H _ I D A N D
|
|
76
|
|
|
77
|
P L . D E P T _ I D = P L _ I M P O R T _ D T . D E P _ I D A N D P L . Y E A R = P L _ I M P O R T _ D T . I M P _ Y E A R )
|
|
78
|
|
|
79
|
W H E R E I M P O R T _ I D = @ P _ I M P O R T _ I D
|
|
80
|
|
|
81
|
|
|
82
|
|
|
83
|
U P D A T E d b o . P L _ I M P O R T _ D T S E T T R A D E _ I D = ( S E L E C T P L . T R A D E _ I D F R O M d b o . P L _ T R A D E D E T A I L P L
|
|
84
|
|
|
85
|
W H E R E P L . P L A N _ I D = P L _ I M P O R T _ D T . P L A N _ I D A N D
|
|
86
|
|
|
87
|
P L . G O O D S _ I D = P L _ I M P O R T _ D T . G O O D _ I D A N D d b o . P L _ I M P O R T _ D T . R E F _ C O D E = ( S E L E C T R E F _ C O D E F R O M d b o . P L _ T R A D E _ R E F W H E R E P L . T R A D E _ I D = P L _ T R A D E _ R E F . T R A D E _ I D ) )
|
|
88
|
|
|
89
|
W H E R E I M P O R T _ I D = @ P _ I M P O R T _ I D
|
|
90
|
|
|
91
|
|
|
92
|
|
|
93
|
|
|
94
|
|
|
95
|
|
|
96
|
|
|
97
|
- - V A L I D A T E d ? l i ? u
|
|
98
|
|
|
99
|
|
|
100
|
|
|
101
|
D E C L A R E @ I M P O R T _ Y E A R V A R C H A R ( 4 )
|
|
102
|
|
|
103
|
|
|
104
|
|
|
105
|
S E T @ I M P O R T _ Y E A R = ( S E L E C T C A S T ( I M P _ Y E A R A S V A R C H A R ( 4 ) ) F R O M d b o . P L _ I M P O R T W H E R E I M P O R T _ I D = @ P _ I M P O R T _ I D )
|
|
106
|
|
|
107
|
- - D e l e t e d ? l i ? u k o c ? t r o n g i m p o r t h i ? n t ? i .
|
|
108
|
|
|
109
|
I F ( @ I S _ U P D A T E = 0 )
|
|
110
|
|
|
111
|
B E G I N
|
|
112
|
|
|
113
|
D E L E T E F R O M d b o . P L _ T R A D E D E T A I L W H E R E N O T E X I S T S ( S E L E C T D T . I M P _ D T _ I D F R O M d b o . P L _ I M P O R T _ D T D T W H E R E D T . T R A D E _ I D = P L _ T R A D E D E T A I L . T R A D E _ I D ) A N D P L _ T R A D E D E T A I L . P L A N _ I D I N ( S E L E C T P L A N _ I D F R O M d b o . P L _ M A S T E R W H E R E Y E A R = @ I M P O R T _ Y E A R )
|
|
114
|
|
|
115
|
|
|
116
|
|
|
117
|
D E L E T E F R O M d b o . P L _ M A S T E R W H E R E Y E A R = @ I M P O R T _ Y E A R A N D N O T E X I S T S ( S E L E C T D T . I M P _ D T _ I D F R O M d b o . P L _ I M P O R T _ D T D T W H E R E D T . P L A N _ I D = P L _ M A S T E R . P L A N _ I D )
|
|
118
|
|
|
119
|
E N D
|
|
120
|
|
|
121
|
|
|
122
|
|
|
123
|
|
|
124
|
|
|
125
|
|
|
126
|
|
|
127
|
|
|
128
|
|
|
129
|
D E C L A R E @ P L A N _ C O D E V A R C H A R ( 2 0 ) ,
|
|
130
|
|
|
131
|
@ P L A N _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
132
|
|
|
133
|
@ Y E A R I N T ,
|
|
134
|
|
|
135
|
@ P L A N _ T Y P E _ I D V A R C H A R ( 1 5 ) ,
|
|
136
|
|
|
137
|
@ C O S T _ I D V A R C H A R ( 1 5 ) ,
|
|
138
|
|
|
139
|
@ B R A N C H _ I D V A R C H A R ( 1 5 ) ,
|
|
140
|
|
|
141
|
@ B R A N C H _ C O D E V A R C H A R ( 1 5 ) ,
|
|
142
|
|
|
143
|
@ D E P _ I D V A R C H A R ( 1 5 ) ,
|
|
144
|
|
|
145
|
@ D E P _ C O D E V A R C H A R ( 1 5 ) ,
|
|
146
|
|
|
147
|
@ G O O D _ I D V A R C H A R ( 1 5 ) ,
|
|
148
|
|
|
149
|
@ Q T Y I N T ,
|
|
150
|
|
|
151
|
@ T O T A L _ A M T N U M E R I C ( 1 8 , 2 ) ,
|
|
152
|
|
|
153
|
@ N O T E S N V A R C H A R ( 1 0 0 0 ) ,
|
|
154
|
|
|
155
|
@ I M P _ A M T N U M E R I C ( 1 8 , 2 ) ,
|
|
156
|
|
|
157
|
@ I M P _ Q T Y N U M E R I C ( 1 8 , 0 ) ,
|
|
158
|
|
|
159
|
@ M A R K E R _ I D V A R C H A R ( 1 5 ) ,
|
|
160
|
|
|
161
|
@ E D I T _ D T D A T E T I M E ,
|
|
162
|
|
|
163
|
@ P L A N _ I D V A R C H A R ( 1 5 ) ,
|
|
164
|
|
|
165
|
@ T R A D E _ I D V A R C H A R ( 1 5 ) ,
|
|
166
|
|
|
167
|
@ R E F _ C O D E V A R C H A R ( 2 0 ) ,
|
|
168
|
|
|
169
|
@ R E F _ N A M E N V A R C H A R ( 2 0 0 )
|
|
170
|
|
|
171
|
|
|
172
|
|
|
173
|
|
|
174
|
|
|
175
|
|
|
176
|
|
|
177
|
D E C L A R E P l a n _ M a s t e r C U R S O R F O R
|
|
178
|
|
|
179
|
S E L E C T I M . P L A N _ C O D E , I M . I M P _ N A M E , I M . I M P _ Y E A R , I M . E D I T E R _ I D , I M . E D I T _ D T , S U M ( I S N U L L ( I M D T . Q T Y , 0 ) ) A S Q T Y , S U M ( I S N U L L ( I M D T . T O T A L _ A M T , 0 ) ) A S A M T , I M D T . P L A N _ T Y P E _ I D , I M D T . C O S T _ I D , I M D T . B R A N C H _ I D , I M D T . D E P _ I D ,
|
|
180
|
|
|
181
|
I M D T . P L A N _ I D , I M D T . B R A N C H _ C O D E , I M D T . D E P _ C O D E
|
|
182
|
|
|
183
|
F R O M d b o . P L _ I M P O R T I M
|
|
184
|
|
|
185
|
L E F T J O I N d b o . P L _ I M P O R T _ D T I M D T O N I M . I M P O R T _ I D = I M D T . I M P O R T _ I D
|
|
186
|
|
|
187
|
W H E R E I M . I M P O R T _ I D = @ P _ I M P O R T _ I D
|
|
188
|
|
|
189
|
G R O U P B Y I M . P L A N _ C O D E , I M . I M P _ N A M E , I M . I M P _ Y E A R , I M . E D I T E R _ I D , I M . E D I T _ D T , I M D T . P L A N _ T Y P E _ I D , I M D T . C O S T _ I D , I M D T . B R A N C H _ I D , I M D T . D E P _ I D , I M D T . P L A N _ I D , I M D T . B R A N C H _ C O D E , I M D T . D E P _ C O D E
|
|
190
|
|
|
191
|
O P E N P l a n _ M a s t e r ;
|
|
192
|
|
|
193
|
|
|
194
|
|
|
195
|
F E T C H N E X T F R O M P l a n _ M a s t e r I N T O @ P L A N _ C O D E , @ P L A N _ N A M E , @ Y E A R , @ M A R K E R _ I D , @ E D I T _ D T , @ I M P _ Q T Y , @ I M P _ A M T , @ P L A N _ T Y P E _ I D , @ C O S T _ I D , @ B R A N C H _ I D , @ D E P _ I D , @ P L A N _ I D , @ B R A N C H _ C O D E , @ D E P _ C O D E
|
|
196
|
|
|
197
|
|
|
198
|
|
|
199
|
W H I L E @ @ F E T C H _ S T A T U S = 0
|
|
200
|
|
|
201
|
B E G I N
|
|
202
|
|
|
203
|
|
|
204
|
|
|
205
|
S E T @ P L A N _ N A M E = N ' K ? H O ? C H N G ? N S ? C H ' + C A S T ( @ Y E A R A S V A R C H A R ( 1 0 ) )
|
|
206
|
|
|
207
|
S E T @ P L A N _ C O D E = @ D E P _ C O D E + ( S E L E C T R I G H T ( C A S T ( @ Y E A R A S V A R C H A R ( 1 0 ) ) , 2 ) )
|
|
208
|
|
|
209
|
|
|
210
|
|
|
211
|
I F ( @ P L A N _ I D I S N U L L O R @ P L A N _ I D = ' ' )
|
|
212
|
|
|
213
|
B E G I N
|
|
214
|
|
|
215
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' P L _ M A S T E R ' , @ P L A N _ I D o u t
|
|
216
|
|
|
217
|
I F @ P L A N _ I D = ' ' O R @ P L A N _ I D I S N U L L G O T O A B O R T
|
|
218
|
|
|
219
|
|
|
220
|
|
|
221
|
|
|
222
|
|
|
223
|
|
|
224
|
|
|
225
|
|
|
226
|
|
|
227
|
I N S E R T I N T O d b o . P L _ M A S T E R
|
|
228
|
|
|
229
|
(
|
|
230
|
|
|
231
|
P L A N _ I D , P L A N _ C O D E , P L A N _ N A M E , B R A N C H _ I D , D E P T _ I D , E F F E C T _ D T , P L A N _ T Y P E , T O T A L _ A M T , A P P R O V E _ V A L U E ,
|
|
232
|
|
|
233
|
V E R S O N , Y E A R , S T A T U S , N O T E S , R E C O R D _ S T A T U S , M A K E R _ I D , C R E A T E _ D T , A U T H _ S T A T U S , C H E C K E R _ I D , A P P R O V E _ D T , P L A N _ T Y P E _ I D , C O S T _ I D )
|
|
234
|
|
|
235
|
V A L U E S
|
|
236
|
|
|
237
|
( @ P L A N _ I D , @ P L A N _ C O D E , @ P L A N _ N A M E , @ B R A N C H _ I D , @ D E P _ I D , G E T D A T E ( ) , ' ' , @ I M P _ A M T , @ I M P _ A M T ,
|
|
238
|
|
|
239
|
1 , @ Y E A R , ' 1 ' , N ' ' , ' 1 ' , @ M A R K E R _ I D , @ E D I T _ D T , @ P _ A U T H _ S T A T U S , @ P _ C H E C K E R _ I D , C A S T ( @ P _ A P P R O V E _ D T A S D A T E ) , @ P L A N _ T Y P E _ I D , @ C O S T _ I D
|
|
240
|
|
|
241
|
)
|
|
242
|
|
|
243
|
E N D
|
|
244
|
|
|
245
|
E L S E
|
|
246
|
|
|
247
|
B E G I N
|
|
248
|
|
|
249
|
U P D A T E d b o . P L _ M A S T E R S E T M A K E R _ I D = @ M A R K E R _ I D , C R E A T E _ D T = @ E D I T _ D T , A U T H _ S T A T U S = @ P _ A U T H _ S T A T U S , C H E C K E R _ I D = @ P _ C H E C K E R _ I D , A P P R O V E _ D T = C A S T ( @ P _ A P P R O V E _ D T A S D A T E )
|
|
250
|
|
|
251
|
, T O T A L _ A M T = @ I M P _ A M T , A P P R O V E _ V A L U E = @ I M P _ A M T , V E R S O N = V E R S O N + 1 , P L A N _ C O D E = @ P L A N _ C O D E , P L A N _ N A M E = @ P L A N _ N A M E W H E R E P L A N _ I D = @ P L A N _ I D
|
|
252
|
|
|
253
|
E N D
|
|
254
|
|
|
255
|
|
|
256
|
|
|
257
|
|
|
258
|
|
|
259
|
|
|
260
|
|
|
261
|
D E C L A R E P l a n _ D e t a i l C U R S O R F O R
|
|
262
|
|
|
263
|
S E L E C T G O O D _ I D , Q T Y , T O T A L _ A M T , N O T E S , T R A D E _ I D , R E F _ C O D E , R E F _ N A M E F R O M d b o . P L _ I M P O R T _ D T
|
|
264
|
|
|
265
|
W H E R E I M P O R T _ I D = @ P _ I M P O R T _ I D A N D P L A N _ T Y P E _ I D = @ P L A N _ T Y P E _ I D A N D C O S T _ I D = @ C O S T _ I D A N D B R A N C H _ I D = @ B R A N C H _ I D A N D D E P _ I D = @ D E P _ I D
|
|
266
|
|
|
267
|
O P E N P l a n _ D e t a i l
|
|
268
|
|
|
269
|
F E T C H N E X T F R O M P l a n _ D e t a i l I N T O @ G O O D _ I D , @ Q T Y , @ T O T A L _ A M T , @ N O T E S , @ T R A D E _ I D , @ R E F _ C O D E , @ R E F _ N A M E
|
|
270
|
|
|
271
|
W H I L E @ @ F E T C H _ S T A T U S = 0
|
|
272
|
|
|
273
|
B E G I N
|
|
274
|
|
|
275
|
I F ( @ T R A D E _ I D I S N U L L O R @ T R A D E _ I D = ' ' )
|
|
276
|
|
|
277
|
B E G I N
|
|
278
|
|
|
279
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' P L _ T R A D E D E T A I L ' , @ T R A D E _ I D o u t
|
|
280
|
|
|
281
|
I F @ T R A D E _ I D = ' ' O R @ T R A D E _ I D I S N U L L G O T O A B O R T
|
|
282
|
|
|
283
|
|
|
284
|
|
|
285
|
D E L E T E F R O M d b o . P L _ T R A D E _ R E F W H E R E T R A D E _ I D = @ T R A D E _ I D
|
|
286
|
|
|
287
|
|
|
288
|
|
|
289
|
I N S E R T I N T O d b o . P L _ T R A D E D E T A I L
|
|
290
|
|
|
291
|
(
|
|
292
|
|
|
293
|
T R A D E _ I D ,
|
|
294
|
|
|
295
|
P L A N _ I D ,
|
|
296
|
|
|
297
|
G O O D S _ I D ,
|
|
298
|
|
|
299
|
Q U A N T I T Y ,
|
|
300
|
|
|
301
|
A M T _ A P P ,
|
|
302
|
|
|
303
|
N O T E S ,
|
|
304
|
|
|
305
|
R E C O R D _ S T A T U S ,
|
|
306
|
|
|
307
|
M A K E R _ I D ,
|
|
308
|
|
|
309
|
C R E A T E _ D T ,
|
|
310
|
|
|
311
|
A U T H _ S T A T U S ,
|
|
312
|
|
|
313
|
C H E C K E R _ I D ,
|
|
314
|
|
|
315
|
A P P R O V E _ D T
|
|
316
|
|
|
317
|
)
|
|
318
|
|
|
319
|
V A L U E S
|
|
320
|
|
|
321
|
( @ T R A D E _ I D , - - T R A D E _ I D - v a r c h a r ( 1 5 )
|
|
322
|
|
|
323
|
@ P L A N _ I D , - - P L A N _ I D - v a r c h a r ( 1 5 )
|
|
324
|
|
|
325
|
@ G O O D _ I D , - - G O O D S _ I D - v a r c h a r ( 1 5 )
|
|
326
|
|
|
327
|
@ Q T Y , - - Q U A N T I T Y - d e c i m a l ( 1 8 , 0 )
|
|
328
|
|
|
329
|
@ T O T A L _ A M T , - - P R I C E - d e c i m a l ( 1 8 , 0 )
|
|
330
|
|
|
331
|
@ N O T E S , - - N O T E S - n v a r c h a r ( 1 0 0 0 )
|
|
332
|
|
|
333
|
' 1 ' , - - R E C O R D _ S T A T U S - v a r c h a r ( 1 )
|
|
334
|
|
|
335
|
@ M A R K E R _ I D , - - M A K E R _ I D - v a r c h a r ( 1 2 )
|
|
336
|
|
|
337
|
C A S T ( @ E D I T _ D T A S D A T E ) , - - C R E A T E _ D T - d a t e t i m e
|
|
338
|
|
|
339
|
@ P _ A U T H _ S T A T U S , - - A U T H _ S T A T U S - v a r c h a r ( 5 0 )
|
|
340
|
|
|
341
|
@ P _ C H E C K E R _ I D , - - C H E C K E R _ I D - v a r c h a r ( 1 2 )
|
|
342
|
|
|
343
|
C A S T ( @ P _ A P P R O V E _ D T A S D A T E ) - - A P P R O V E _ D T - d a t e t i m e
|
|
344
|
|
|
345
|
)
|
|
346
|
|
|
347
|
E N D
|
|
348
|
|
|
349
|
|
|
350
|
|
|
351
|
E L S E
|
|
352
|
|
|
353
|
B E G I N
|
|
354
|
|
|
355
|
U P D A T E d b o . P L _ T R A D E D E T A I L S E T
|
|
356
|
|
|
357
|
Q U A N T I T Y = @ Q T Y ,
|
|
358
|
|
|
359
|
A M T _ A P P = @ T O T A L _ A M T ,
|
|
360
|
|
|
361
|
N O T E S = @ N O T E S ,
|
|
362
|
|
|
363
|
M A K E R _ I D = @ M A R K E R _ I D ,
|
|
364
|
|
|
365
|
C R E A T E _ D T = C A S T ( @ E D I T _ D T A S D A T E ) ,
|
|
366
|
|
|
367
|
A U T H _ S T A T U S = @ P _ A U T H _ S T A T U S ,
|
|
368
|
|
|
369
|
C H E C K E R _ I D = @ P _ C H E C K E R _ I D ,
|
|
370
|
|
|
371
|
A P P R O V E _ D T = C A S T ( @ P _ A P P R O V E _ D T A S D A T E )
|
|
372
|
|
|
373
|
W H E R E T R A D E _ I D = @ T R A D E _ I D
|
|
374
|
|
|
375
|
E N D
|
|
376
|
|
|
377
|
|
|
378
|
|
|
379
|
I N S E R T I N T O d b o . P L _ T R A D E _ R E F
|
|
380
|
|
|
381
|
(
|
|
382
|
|
|
383
|
T R A D E _ I D ,
|
|
384
|
|
|
385
|
R E F _ C O D E ,
|
|
386
|
|
|
387
|
R E F _ N A M E
|
|
388
|
|
|
389
|
)
|
|
390
|
|
|
391
|
V A L U E S
|
|
392
|
|
|
393
|
( @ T R A D E _ I D , - - T R A D E _ I D - v a r c h a r ( 1 5 )
|
|
394
|
|
|
395
|
@ R E F _ C O D E , - - R E F _ C O D E - v a r c h a r ( 5 0 )
|
|
396
|
|
|
397
|
@ R E F _ N A M E - - R E F _ N A M E - n v a r c h a r ( 5 0 0 )
|
|
398
|
|
|
399
|
)
|
|
400
|
|
|
401
|
|
|
402
|
|
|
403
|
|
|
404
|
|
|
405
|
F E T C H N E X T F R O M P l a n _ D e t a i l I N T O @ G O O D _ I D , @ Q T Y , @ T O T A L _ A M T , @ N O T E S , @ T R A D E _ I D , @ R E F _ C O D E , @ R E F _ N A M E
|
|
406
|
|
|
407
|
E N D
|
|
408
|
|
|
409
|
C L O S E P l a n _ D e t a i l
|
|
410
|
|
|
411
|
D E A L L O C A T E P l a n _ D e t a i l
|
|
412
|
|
|
413
|
F E T C H N E X T F R O M P l a n _ M a s t e r I N T O @ P L A N _ C O D E , @ P L A N _ N A M E , @ Y E A R , @ M A R K E R _ I D , @ E D I T _ D T , @ I M P _ Q T Y , @ I M P _ A M T , @ P L A N _ T Y P E _ I D , @ C O S T _ I D , @ B R A N C H _ I D , @ D E P _ I D , @ P L A N _ I D , @ B R A N C H _ C O D E , @ D E P _ C O D E
|
|
414
|
|
|
415
|
E N D
|
|
416
|
|
|
417
|
C L O S E P l a n _ M a s t e r
|
|
418
|
|
|
419
|
D E A L L O C A T E P l a n _ M a s t e r
|
|
420
|
|
|
421
|
|
|
422
|
|
|
423
|
U P D A T E d b o . P L _ I M P O R T
|
|
424
|
|
|
425
|
S E T A U T H _ S T A T U S = @ P _ A U T H _ S T A T U S ,
|
|
426
|
|
|
427
|
C H E C K E R _ I D = @ P _ C H E C K E R _ I D ,
|
|
428
|
|
|
429
|
A P P R O V E _ D T = C A S T ( @ P _ A P P R O V E _ D T A S D A T E )
|
|
430
|
|
|
431
|
W H E R E I M P O R T _ I D = @ P _ I M P O R T _ I D ;
|
|
432
|
|
|
433
|
|
|
434
|
|
|
435
|
U P D A T E d b o . P L _ I M P O R T _ L O G S E T A U T H _ S T A T U S = @ P _ A U T H _ S T A T U S ,
|
|
436
|
|
|
437
|
C H E C K E R _ I D = @ P _ C H E C K E R _ I D ,
|
|
438
|
|
|
439
|
A P P R O V E _ D T = C A S T ( @ P _ A P P R O V E _ D T A S D A T E )
|
|
440
|
|
|
441
|
W H E R E I M P _ I D = @ P _ I M P O R T _ I D A N D I M P _ L O G _ C O D E = ( S E L E C T T O P ( 1 ) I M P _ L O G _ C O D E F R O M d b o . P L _ I M P O R T _ L O G W H E R E I M P _ I D = @ P _ I M P O R T _ I D O R D E R B Y I M P _ L O G _ I D D E S C )
|
|
442
|
|
|
443
|
|
|
444
|
|
|
445
|
|
|
446
|
|
|
447
|
U P D A T E d b o . P L _ T R A D E D E T A I L S E T P R I C E = A M T _ A P P / Q U A N T I T Y W H E R E Q U A N T I T Y < > 0 O R Q U A N T I T Y I S N U L L
|
|
448
|
|
|
449
|
U P D A T E d b o . P L _ T R A D E D E T A I L S E T P R I C E = A M T _ A P P W H E R E Q U A N T I T Y = 0
|
|
450
|
|
|
451
|
|
|
452
|
|
|
453
|
U P D A T E d b o . L I M I T _ A C C U M U L A T E S E T M A X _ A M T = I S N U L L ( (
|
|
454
|
|
|
455
|
S E L E C T T E M P . A M T _ A P P F R O M ( S E L E C T C D . D V D M _ I D , S U M ( I S N U L L ( P T . A M T _ A P P , 0 ) ) A S A M T _ A P P F R O M d b o . C M _ D V D M C D
|
|
456
|
|
|
457
|
L E F T J O I N d b o . C M _ G O O D _ D V D M C G D O N C G D . K H O I _ I D = C D . D V D M _ I D
|
|
458
|
|
|
459
|
L E F T J O I N d b o . P L _ T R A D E D E T A I L P T O N P T . G O O D S _ I D = C G D . G D _ I D
|
|
460
|
|
|
461
|
W H E R E C D . I S _ K H O I = 1 A N D P T . P L A N _ I D I N ( S E L E C T P L A N _ I D F R O M d b o . P L _ M A S T E R W H E R E Y E A R = @ I M P O R T _ Y E A R )
|
|
462
|
|
|
463
|
G R O U P B Y C D . D V D M _ I D
|
|
464
|
|
|
465
|
) T E M P W H E R E T E M P . D V D M _ I D = L I M I T _ A C C U M U L A T E . D V D M _ I D
|
|
466
|
|
|
467
|
) , 0 ) * ( S E L E C T L I M I T _ P E R C E N T F R O M d b o . T L _ S Y S R O L E _ L I M I T W H E R E T L _ S Y S R O L E _ L I M I T . R O L E _ I D = L I M I T _ A C C U M U L A T E . R O L E _ I D A N D L I M I T _ T Y P E = ' D C N S ' ) / 1 0 0
|
|
468
|
|
|
469
|
|
|
470
|
|
|
471
|
|
|
472
|
|
|
473
|
|
|
474
|
|
|
475
|
I F @ @ E r r o r < > 0
|
|
476
|
|
|
477
|
G O T O A B O R T ;
|
|
478
|
|
|
479
|
C O M M I T T R A N S A C T I O N ;
|
|
480
|
|
|
481
|
S E L E C T ' 0 ' A S R e s u l t ,
|
|
482
|
|
|
483
|
' ' E r r o r D e s c ;
|
|
484
|
|
|
485
|
R E T U R N ' 0 ' ;
|
|
486
|
|
|
487
|
A B O R T :
|
|
488
|
|
|
489
|
B E G I N
|
|
490
|
|
|
491
|
R O L L B A C K T R A N S A C T I O N ;
|
|
492
|
|
|
493
|
S E L E C T ' - 1 ' A S R e s u l t ,
|
|
494
|
|
|
495
|
' ' E r r o r D e s c ;
|
|
496
|
|
|
497
|
R E T U R N ' - 1 ' ;
|
|
498
|
|
|
499
|
E N D ;
|
|
500
|
|
|
501
|
|
|
502
|
|
|
503
|
|
|
504
|
|
|
505
|
|
|
506
|
|
|
507
|
|
|
508
|
|
|
509
|
|
|
510
|
|
|
511
|
G O
|
|
512
|
|
|
513
|
/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ P L _ I M P O R T _ I n s ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 0 A M * * * * * * /
|
|
514
|
|
|
515
|
S E T A N S I _ N U L L S O N
|
|
516
|
|
|
517
|
G O
|
|
518
|
|
|
519
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
520
|
|
|
521
|
G O
|
|
522
|
|
|
523
|
C R E A T E P R O C E D U R E [ d b o ] . [ P L _ I M P O R T _ I n s ]
|
|
524
|
@ p _ P L A N _ C O D E V A R C H A R ( 2 0 ) ,
|
|
525
|
@ p _ I M P _ Y E A R I N T = N U L L ,
|
|
526
|
@ p _ I M P _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
527
|
@ p _ F I L E _ N A M E N V A R C H A R ( 2 0 0 ) = N U L L ,
|
|
528
|
@ p _ T O T A L _ Q T Y N U M E R I C ( 1 8 , 0 ) = N U L L ,
|
|
529
|
@ p _ T O T A L _ A T M N U M E R I C ( 1 8 , 0 ) = N U L L ,
|
|
530
|
@ p _ N O T E S n v a r c h a r ( 1 0 0 0 ) = N U L L ,
|
|
531
|
@ p _ R E C O R D _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
532
|
@ p _ M A K E R _ I D v a r c h a r ( 2 0 ) = N U L L ,
|
|
533
|
@ p _ C R E A T E _ D T D A T E T I M E = N U L L ,
|
|
534
|
@ p _ A U T H _ S T A T U S v a r c h a r ( 5 0 ) = N U L L ,
|
|
535
|
@ p _ C H E C K E R _ I D v a r c h a r ( 2 0 ) = N U L L ,
|
|
536
|
@ p _ A P P R O V E _ D T D A T E T I M E = N U L L ,
|
|
537
|
@ p _ X M L D a t a X M L = N U L L
|
|
538
|
A S
|
|
539
|
B E G I N T R A N S A C T I O N
|
|
540
|
|
|
541
|
D E C L A R E @ T a b l e T m p T A B L E (
|
|
542
|
I M P _ Y E A R V A R C H A R ( 4 ) ,
|
|
543
|
|
|
544
|
P L A N _ T Y P E _ I D V A R C H A R ( 1 5 ) ,
|
|
545
|
|
|
546
|
P L A N _ T Y P E _ C O D E V A R C H A R ( 1 5 ) ,
|
|
547
|
|
|
548
|
P L A N _ T Y P E _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
549
|
|
|
550
|
C O S T _ I D V A R C H A R ( 1 5 ) ,
|
|
551
|
|
|
552
|
C O S T _ C O D E V A R C H A R ( 1 5 ) ,
|
|
553
|
|
|
554
|
C O S T _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
555
|
|
|
556
|
B R A N C H _ I D V A R C H A R ( 1 5 ) ,
|
|
557
|
|
|
558
|
B R A N C H _ C O D E V A R C H A R ( 1 5 ) ,
|
|
559
|
|
|
560
|
B R A N C H _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
561
|
|
|
562
|
D E P _ I D v a r c h a r ( 1 5 ) ,
|
|
563
|
|
|
564
|
D E P _ C O D E V A R C H A R ( 1 5 ) ,
|
|
565
|
|
|
566
|
D E P _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
567
|
|
|
568
|
R E F _ I D I N T ,
|
|
569
|
|
|
570
|
R E F _ C O D E V A R C H A R ( 2 0 ) ,
|
|
571
|
|
|
572
|
R E F _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
573
|
|
|
574
|
G O O D _ I D v a r c h a r ( 1 5 ) ,
|
|
575
|
|
|
576
|
G O O D _ C O D E V A R C H A R ( 1 5 ) ,
|
|
577
|
|
|
578
|
G O O D _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
579
|
|
|
580
|
Q T Y I N T ,
|
|
581
|
|
|
582
|
T O T A L _ A M T N U M E R I C ( 1 8 , 2 ) ,
|
|
583
|
|
|
584
|
N O T E S N V A R C H A R ( 1 0 0 0 )
|
|
585
|
) ;
|
|
586
|
D e c l a r e @ h d o c I N T
|
|
587
|
E x e c s p _ x m l _ p r e p a r e d o c u m e n t @ h d o c O u t p u t , @ p _ X M L D a t a
|
|
588
|
I N S E R T I N T O @ T a b l e T m p
|
|
589
|
|
|
590
|
S E L E C T *
|
|
591
|
|
|
592
|
F R O M O P E N X M L ( @ h D o c , ' / R o o t / P L I M P O R T ' , 2 )
|
|
593
|
|
|
594
|
W I T H
|
|
595
|
|
|
596
|
(
|
|
597
|
|
|
598
|
I M P _ Y E A R V A R C H A R ( 4 ) ,
|
|
599
|
|
|
600
|
P L A N _ T Y P E _ I D V A R C H A R ( 1 5 ) ,
|
|
601
|
|
|
602
|
P L A N _ T Y P E _ C O D E V A R C H A R ( 1 5 ) ,
|
|
603
|
|
|
604
|
P L A N _ T Y P E _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
605
|
|
|
606
|
C O S T _ I D V A R C H A R ( 1 5 ) ,
|
|
607
|
|
|
608
|
C O S T _ C O D E V A R C H A R ( 1 5 ) ,
|
|
609
|
|
|
610
|
C O S T _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
611
|
|
|
612
|
B R A N C H _ I D V A R C H A R ( 1 5 ) ,
|
|
613
|
|
|
614
|
B R A N C H _ C O D E V A R C H A R ( 1 5 ) ,
|
|
615
|
|
|
616
|
B R A N C H _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
617
|
|
|
618
|
D E P _ I D v a r c h a r ( 1 5 ) ,
|
|
619
|
|
|
620
|
D E P _ C O D E V A R C H A R ( 1 5 ) ,
|
|
621
|
|
|
622
|
D E P _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
623
|
|
|
624
|
R E F _ I D I N T ,
|
|
625
|
|
|
626
|
R E F _ C O D E V A R C H A R ( 2 0 ) ,
|
|
627
|
|
|
628
|
R E F _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
629
|
|
|
630
|
G O O D _ I D v a r c h a r ( 1 5 ) ,
|
|
631
|
|
|
632
|
G O O D _ C O D E V A R C H A R ( 1 5 ) ,
|
|
633
|
|
|
634
|
G O O D _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
635
|
|
|
636
|
Q T Y I N T ,
|
|
637
|
|
|
638
|
T O T A L _ A M T N U M E R I C ( 1 8 , 2 ) ,
|
|
639
|
|
|
640
|
N O T E S N V A R C H A R ( 1 0 0 0 )
|
|
641
|
|
|
642
|
)
|
|
643
|
|
|
644
|
|
|
645
|
|
|
646
|
- - U p d a t e I D
|
|
647
|
|
|
648
|
U P D A T E @ T a b l e T m p S E T B R A N C H _ I D = ( S E L E C T T O P 1 B R A N C H _ I D F R O M d b o . C M _ B R A N C H W H E R E d b o . C M _ B R A N C H . B R A N C H _ C O D E = [ @ T a b l e T m p ] . B R A N C H _ C O D E ) ,
|
|
649
|
|
|
650
|
D E P _ I D = ( S E L E C T T O P 1 D E P _ I D F R O M d b o . C M _ D E P A R T M E N T W H E R E d b o . C M _ D E P A R T M E N T . D E P _ C O D E = [ @ T a b l e T m p ] . D E P _ C O D E ) ,
|
|
651
|
|
|
652
|
C O S T _ I D = ( S E L E C T T O P 1 D V D M _ I D F R O M d b o . C M _ D V D M W H E R E d b o . C M _ D V D M . D V D M _ C O D E = [ @ T a b l e T m p ] . C O S T _ C O D E A N D I S _ D V D M = 1 ) ,
|
|
653
|
|
|
654
|
P L A N _ T Y P E _ I D = ( S E L E C T T O P 1 P L A N _ T Y P E _ I D F R O M d b o . C M _ P L A N _ T Y P E W H E R E d b o . C M _ P L A N _ T Y P E . P L A N _ T Y P E _ C O D E = [ @ T a b l e T m p ] . P L A N _ T Y P E _ C O D E ) ,
|
|
655
|
|
|
656
|
G O O D _ I D = ( S E L E C T T O P 1 G D _ I D F R O M d b o . C M _ G O O D S W H E R E d b o . C M _ G O O D S . G D _ C O D E = [ @ T a b l e T m p ] . G O O D _ C O D E )
|
|
657
|
|
|
658
|
|
|
659
|
|
|
660
|
D E C L A R E @ E r r o r N V A R C H A R ( M A X )
|
|
661
|
|
|
662
|
- - - V a l i d a t e d ? l i ? u
|
|
663
|
|
|
664
|
I F ( E X I S T S ( S E L E C T B R A N C H _ I D F R O M @ T a b l e T m p W H E R E B R A N C H _ I D I S N U L L O R B R A N C H _ I D = ' ' ) )
|
|
665
|
|
|
666
|
B E G I N
|
|
667
|
|
|
668
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + B R A N C H _ C O D E f r o m @ T a b l e T m p W H E R E B R A N C H _ I D I S N U L L O R B R A N C H _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
669
|
|
|
670
|
|
|
671
|
R O L L B A C K T R A N S A C T I O N
|
|
672
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? ? n v ? c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
673
|
R E T U R N ' - 1 '
|
|
674
|
|
|
675
|
|
|
676
|
|
|
677
|
E N D
|
|
678
|
|
|
679
|
|
|
680
|
|
|
681
|
I F ( E X I S T S ( S E L E C T D E P _ I D F R O M @ T a b l e T m p W H E R E D E P _ I D I S N U L L O R D E P _ I D = ' ' ) )
|
|
682
|
|
|
683
|
B E G I N
|
|
684
|
|
|
685
|
|
|
686
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + D E P _ C O D E f r o m @ T a b l e T m p W H E R E D E P _ I D I S N U L L O R D E P _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
687
|
|
|
688
|
R O L L B A C K T R A N S A C T I O N
|
|
689
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? p h ? n g b a n c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
690
|
R E T U R N ' - 1 '
|
|
691
|
E N D
|
|
692
|
|
|
693
|
|
|
694
|
|
|
695
|
I F ( E X I S T S ( S E L E C T C O S T _ I D F R O M @ T a b l e T m p W H E R E ( C O S T _ I D I S N U L L O R C O S T _ I D = ' ' ) A N D C O S T _ C O D E I S N O T N U L L A N D C O S T _ C O D E < > ' ' ) )
|
|
696
|
|
|
697
|
B E G I N
|
|
698
|
|
|
699
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + C O S T _ C O D E f r o m @ T a b l e T m p W H E R E C O S T _ I D I S N U L L O R C O S T _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
700
|
|
|
701
|
R O L L B A C K T R A N S A C T I O N
|
|
702
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? ? n v ? ? u m ? i c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
703
|
R E T U R N ' - 1 '
|
|
704
|
E N D
|
|
705
|
|
|
706
|
|
|
707
|
|
|
708
|
I F ( E X I S T S ( S E L E C T P L A N _ T Y P E _ I D F R O M @ T a b l e T m p W H E R E P L A N _ T Y P E _ I D I S N U L L O R P L A N _ T Y P E _ I D = ' ' ) )
|
|
709
|
|
|
710
|
B E G I N
|
|
711
|
|
|
712
|
|
|
713
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + P L A N _ T Y P E _ C O D E f r o m @ T a b l e T m p W H E R E P L A N _ T Y P E _ I D I S N U L L O R P L A N _ T Y P E _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
714
|
|
|
715
|
R O L L B A C K T R A N S A C T I O N
|
|
716
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? l o ? i n g ? n s ? c h c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
717
|
R E T U R N ' - 1 '
|
|
718
|
E N D
|
|
719
|
|
|
720
|
|
|
721
|
|
|
722
|
I F ( E X I S T S ( S E L E C T G O O D _ I D F R O M @ T a b l e T m p W H E R E G O O D _ I D I S N U L L O R G O O D _ I D = ' ' ) )
|
|
723
|
|
|
724
|
B E G I N
|
|
725
|
|
|
726
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + G O O D _ C O D E f r o m @ T a b l e T m p W H E R E G O O D _ I D I S N U L L O R G O O D _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
727
|
|
|
728
|
R O L L B A C K T R A N S A C T I O N
|
|
729
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? h ? n m ? c c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
730
|
R E T U R N ' - 1 '
|
|
731
|
E N D
|
|
732
|
|
|
733
|
|
|
734
|
|
|
735
|
|
|
736
|
- - V a l i d a t e h ? n m ? c
|
|
737
|
I F ( E X I S T S ( S E L E C T * F R O M d b o . P L _ M A S T E R W H E R E Y E A R = C A S T ( @ p _ I M P _ Y E A R A S V A R C H A R ( 4 ) ) ) )
|
|
738
|
I F ( E X I S T S (
|
|
739
|
S E L E C T D T . T R A D E _ I D F R O M d b o . P L _ M A S T E R P M
|
|
740
|
L E F T J O I N d b o . P L _ T R A D E D E T A I L D T O N P M . P L A N _ I D = D T . P L A N _ I D
|
|
741
|
W H E R E E X I S T S (
|
|
742
|
S E L E C T T m p . G O O D _ I D F R O M @ T a b l e T m p T m p W H E R E ( T m p . I M P _ Y E A R = P M . Y E A R A N D T m p . P L A N _ T Y P E _ I D = P M . P L A N _ T Y P E _ I D
|
|
743
|
A N D T m p . C O S T _ I D = P M . C O S T _ I D A N D T m p . B R A N C H _ I D = P M . B R A N C H _ I D
|
|
744
|
A N D T m p . D E P _ I D = P M . D E P T _ I D A N D T m p . G O O D _ I D = D T . G O O D S _ I D ) A N D ( ( T m p . Q T Y < I S N U L L ( D T . Q U A N T I T Y _ E T M , 0 ) A N D I S N U L L ( D T . Q U A N T I T Y _ E T M , 0 ) > 0 ) O R ( T m p . T O T A L _ A M T < ( I S N U L L ( D T . A M T _ E T M , 0 ) + I S N U L L ( D T . A M T _ T F , 0 ) - I S N U L L ( D T . A M T _ R E C E I V E _ T F , 0 ) ) A N D ( I S N U L L ( D T . A M T _ E T M , 0 ) + I S N U L L ( D T . A M T _ T F , 0 ) - I S N U L L ( D T . A M T _ R E C E I V E _ T F , 0 ) ) > 0 ) )
|
|
745
|
) O R ( N O T E X I S T S ( S E L E C T T m p . G O O D _ I D F R O M @ T a b l e T m p T m p W H E R E ( T m p . I M P _ Y E A R = P M . Y E A R A N D T m p . P L A N _ T Y P E _ I D = P M . P L A N _ T Y P E _ I D
|
|
746
|
A N D T m p . C O S T _ I D = P M . C O S T _ I D A N D T m p . B R A N C H _ I D = P M . B R A N C H _ I D
|
|
747
|
A N D T m p . D E P _ I D = P M . D E P T _ I D A N D T m p . G O O D _ I D = D T . G O O D S _ I D ) ) A N D ( I S N U L L ( D T . Q U A N T I T Y _ E T M , 0 ) > 0 O R ( I S N U L L ( D T . A M T _ E T M , 0 ) + I S N U L L ( D T . A M T _ T F , 0 ) - I S N U L L ( D T . A M T _ R E C E I V E _ T F , 0 ) ) > 0 )
|
|
748
|
) ) )
|
|
749
|
B E G I N
|
|
750
|
|
|
751
|
R O L L B A C K T R A N S A C T I O N
|
|
752
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' H ? n m ? c c h ? n h s ? a ? s ? d ? n g v ? ? t h ? n m ? c c h ? n h s ? a ' E r r o r D e s c
|
|
753
|
R E T U R N ' - 1 '
|
|
754
|
E N D
|
|
755
|
|
|
756
|
D E C L A R E @ l _ I M P O R T _ I D V A R C H A R ( 1 5 )
|
|
757
|
I F ( E X I S T S ( S E L E C T I M P O R T _ I D F R O M d b o . P L _ I M P O R T W H E R E I M P _ Y E A R = @ p _ I M P _ Y E A R ) )
|
|
758
|
B E G I N
|
|
759
|
S E T @ l _ I M P O R T _ I D = ( S E L E C T I M P O R T _ I D F R O M P L _ I M P O R T W H E R E I M P _ Y E A R = @ p _ I M P _ Y E A R )
|
|
760
|
D E L E T E F R O M P L _ I M P O R T _ D T W H E R E I M P O R T _ I D = @ l _ I M P O R T _ I D
|
|
761
|
U P D A T E d b o . P L _ I M P O R T S E T P L A N _ C O D E = @ p _ P L A N _ C O D E , I M P _ N A M E = @ p _ I M P _ N A M E , F I L E _ N A M E = @ p _ F I L E _ N A M E , I M P _ Y E A R = @ p _ I M P _ Y E A R , I M P _ Q T Y = @ p _ T O T A L _ Q T Y ,
|
|
762
|
I M P _ A T M = @ p _ T O T A L _ A T M , N O T E S = @ p _ N O T E S , E D I T E R _ I D = @ p _ M A K E R _ I D , E D I T _ D T = C A S T ( @ p _ C R E A T E _ D T A S D A T E ) , C H E C K E R _ I D = @ p _ C H E C K E R _ I D , A P P R O V E _ D T = C A S T ( @ p _ A P P R O V E _ D T A S D A T E ) , A U T H _ S T A T U S = @ p _ A U T H _ S T A T U S , I S _ U P D A T E = 0
|
|
763
|
W H E R E I M P O R T _ I D = @ l _ I M P O R T _ I D
|
|
764
|
E N D
|
|
765
|
E L S E
|
|
766
|
B E G I N
|
|
767
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' P L _ I M P O R T ' , @ l _ I M P O R T _ I D o u t
|
|
768
|
I F @ l _ I M P O R T _ I D = ' ' O R @ l _ I M P O R T _ I D I S N U L L G O T O A B O R T
|
|
769
|
|
|
770
|
I N S E R T I N T O d b o . P L _ I M P O R T
|
|
771
|
|
|
772
|
(
|
|
773
|
|
|
774
|
I M P O R T _ I D ,
|
|
775
|
|
|
776
|
P L A N _ C O D E ,
|
|
777
|
|
|
778
|
I M P _ N A M E ,
|
|
779
|
|
|
780
|
F I L E _ N A M E ,
|
|
781
|
|
|
782
|
I M P _ Y E A R ,
|
|
783
|
|
|
784
|
I M P _ Q T Y ,
|
|
785
|
|
|
786
|
I M P _ A T M ,
|
|
787
|
|
|
788
|
N O T E S ,
|
|
789
|
|
|
790
|
R E C O R D _ S T A T U S ,
|
|
791
|
|
|
792
|
A U T H _ S T A T U S ,
|
|
793
|
|
|
794
|
M A K E R _ I D ,
|
|
795
|
|
|
796
|
C R E A T E _ D T ,
|
|
797
|
|
|
798
|
E D I T E R _ I D ,
|
|
799
|
|
|
800
|
E D I T _ D T ,
|
|
801
|
|
|
802
|
C H E C K E R _ I D ,
|
|
803
|
|
|
804
|
A P P R O V E _ D T , I S _ U P D A T E
|
|
805
|
|
|
806
|
)
|
|
807
|
|
|
808
|
V A L U E S
|
|
809
|
|
|
810
|
( @ l _ I M P O R T _ I D , - - I M P O R T _ I D - v a r c h a r ( 2 0 )
|
|
811
|
|
|
812
|
@ p _ P L A N _ C O D E ,
|
|
813
|
|
|
814
|
@ p _ I M P _ N A M E , - - I M P _ N A M E - n v a r c h a r ( 5 0 0 )
|
|
815
|
|
|
816
|
@ p _ F I L E _ N A M E , - - F I L E _ N A M E - n v a r c h a r ( 2 0 0 )
|
|
817
|
|
|
818
|
@ p _ I M P _ Y E A R , - - I M P _ Y E A R - i n t
|
|
819
|
|
|
820
|
@ p _ T O T A L _ Q T Y , - - I M P _ Q T Y - n u m e r i c ( 1 8 , 0 )
|
|
821
|
|
|
822
|
@ p _ T O T A L _ A T M , - - I M P _ A T M - n u m e r i c ( 1 8 , 2 )
|
|
823
|
|
|
824
|
@ p _ N O T E S , - - N O T E S - n v a r c h a r ( 1 0 0 0 )
|
|
825
|
|
|
826
|
@ p _ R E C O R D _ S T A T U S , - - R E C O R D _ S T A T U S - v a r c h a r ( 1 )
|
|
827
|
|
|
828
|
@ p _ A U T H _ S T A T U S , - - A U T H _ S T A T U S - v a r c h a r ( 1 )
|
|
829
|
|
|
830
|
@ p _ M A K E R _ I D , - - M A K E R _ I D - v a r c h a r ( 1 5 )
|
|
831
|
|
|
832
|
@ p _ C R E A T E _ D T , - - C R E A T E _ D T - d a t e t i m e
|
|
833
|
|
|
834
|
@ p _ M A K E R _ I D , - - E D I T E R _ I D - v a r c h a r ( 1 5 )
|
|
835
|
|
|
836
|
C A S T ( @ p _ C R E A T E _ D T A S D A T E ) , - - E D I T _ D T - d a t e t i m e
|
|
837
|
|
|
838
|
@ p _ C H E C K E R _ I D , - - C H E C K E R _ I D - v a r c h a r ( 1 5 )
|
|
839
|
|
|
840
|
C A S T ( @ p _ A P P R O V E _ D T A S D A T E ) , 0 - - A P P R O V E _ D T - d a t e t i m e
|
|
841
|
|
|
842
|
)
|
|
843
|
E N D
|
|
844
|
|
|
845
|
|
|
846
|
|
|
847
|
|
|
848
|
D E C L A R E I m p o r t D T C U R S O R F O R
|
|
849
|
|
|
850
|
S E L E C T I M P _ Y E A R ,
|
|
851
|
|
|
852
|
P L A N _ T Y P E _ I D ,
|
|
853
|
|
|
854
|
P L A N _ T Y P E _ C O D E ,
|
|
855
|
|
|
856
|
P L A N _ T Y P E _ N A M E ,
|
|
857
|
|
|
858
|
C O S T _ I D ,
|
|
859
|
|
|
860
|
C O S T _ C O D E ,
|
|
861
|
|
|
862
|
C O S T _ N A M E ,
|
|
863
|
|
|
864
|
B R A N C H _ I D ,
|
|
865
|
|
|
866
|
B R A N C H _ C O D E ,
|
|
867
|
|
|
868
|
B R A N C H _ N A M E ,
|
|
869
|
|
|
870
|
D E P _ I D ,
|
|
871
|
|
|
872
|
D E P _ C O D E ,
|
|
873
|
|
|
874
|
D E P _ N A M E ,
|
|
875
|
|
|
876
|
G O O D _ I D ,
|
|
877
|
|
|
878
|
G O O D _ C O D E ,
|
|
879
|
|
|
880
|
G O O D _ N A M E ,
|
|
881
|
|
|
882
|
Q T Y ,
|
|
883
|
|
|
884
|
T O T A L _ A M T ,
|
|
885
|
|
|
886
|
N O T E S , R E F _ C O D E , R E F _ N A M E F R O M @ T a b l e T m p
|
|
887
|
|
|
888
|
O P E N I m p o r t D T
|
|
889
|
|
|
890
|
|
|
891
|
|
|
892
|
|
|
893
|
D E C L A R E
|
|
894
|
|
|
895
|
@ I M P _ Y E A R V A R C H A R ( 4 ) ,
|
|
896
|
|
|
897
|
@ P L A N _ T Y P E _ I D V A R C H A R ( 1 5 ) ,
|
|
898
|
|
|
899
|
@ P L A N _ T Y P E _ C O D E V A R C H A R ( 1 5 ) ,
|
|
900
|
|
|
901
|
@ P L A N _ T Y P E _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
902
|
|
|
903
|
@ C O S T _ I D V A R C H A R ( 1 5 ) ,
|
|
904
|
|
|
905
|
@ C O S T _ C O D E V A R C H A R ( 1 5 ) ,
|
|
906
|
|
|
907
|
@ C O S T _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
908
|
|
|
909
|
@ B R A N C H _ I D V A R C H A R ( 1 5 ) ,
|
|
910
|
|
|
911
|
@ B R A N C H _ C O D E V A R C H A R ( 1 5 ) ,
|
|
912
|
|
|
913
|
@ B R A N C H _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
914
|
|
|
915
|
@ D E P _ I D v a r c h a r ( 1 5 ) ,
|
|
916
|
|
|
917
|
@ D E P _ C O D E V A R C H A R ( 1 5 ) ,
|
|
918
|
|
|
919
|
@ D E P _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
920
|
|
|
921
|
@ R E F _ I D I N T ,
|
|
922
|
|
|
923
|
@ R E F _ C O D E V A R C H A R ( 2 0 ) ,
|
|
924
|
|
|
925
|
@ R E F _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
926
|
|
|
927
|
@ G O O D _ I D v a r c h a r ( 1 5 ) ,
|
|
928
|
|
|
929
|
@ G O D D _ C O D E V A R C H A R ( 1 5 ) ,
|
|
930
|
|
|
931
|
@ G O O D _ N A M E N V A R C H A R ( 2 0 0 ) , @ Q T Y I N T , @ T O T A L _ A M T N U M E R I C ( 1 8 , 2 ) , @ N O T E S N V A R C H A R ( 1 0 0 0 )
|
|
932
|
|
|
933
|
, @ I M P _ L O G _ C O D E V A R C H A R ( 1 5 )
|
|
934
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' I M P _ L O G _ C O D E ' , @ I M P _ L O G _ C O D E o u t
|
|
935
|
|
|
936
|
I F @ I M P _ L O G _ C O D E = ' ' O R @ I M P _ L O G _ C O D E I S N U L L G O T O A B O R T
|
|
937
|
|
|
938
|
F E T C H N E X T F R O M I m p o r t D T I N T O @ I M P _ Y E A R , @ P L A N _ T Y P E _ I D , @ P L A N _ T Y P E _ C O D E , @ P L A N _ T Y P E _ N A M E , @ C O S T _ I D , @ C O S T _ C O D E , @ C O S T _ N A M E , @ B R A N C H _ I D , @ B R A N C H _ C O D E ,
|
|
939
|
|
|
940
|
@ B R A N C H _ N A M E , @ D E P _ I D , @ D E P _ C O D E , @ D E P _ N A M E , @ G O O D _ I D , @ G O D D _ C O D E , @ G O O D _ N A M E , @ Q T Y , @ T O T A L _ A M T , @ N O T E S , @ R E F _ C O D E , @ R E F _ N A M E
|
|
941
|
|
|
942
|
|
|
943
|
|
|
944
|
W H I L E @ @ F E T C H _ S T A T U S = 0
|
|
945
|
|
|
946
|
B E G I N
|
|
947
|
|
|
948
|
|
|
949
|
|
|
950
|
|
|
951
|
|
|
952
|
|
|
953
|
|
|
954
|
|
|
955
|
|
|
956
|
D E C L A R E @ l _ I M P O R T D T _ I D V A R C H A R ( 2 0 )
|
|
957
|
|
|
958
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' I M P O R T _ D T ' , @ l _ I M P O R T D T _ I D o u t
|
|
959
|
|
|
960
|
I F @ l _ I M P O R T D T _ I D = ' ' O R @ l _ I M P O R T D T _ I D I S N U L L G O T O A B O R T
|
|
961
|
|
|
962
|
|
|
963
|
|
|
964
|
I N S E R T I N T O d b o . P L _ I M P O R T _ D T
|
|
965
|
|
|
966
|
(
|
|
967
|
|
|
968
|
I M P _ D T _ I D ,
|
|
969
|
|
|
970
|
I M P O R T _ I D ,
|
|
971
|
|
|
972
|
P L A N _ T Y P E _ I D ,
|
|
973
|
|
|
974
|
P L A N _ T Y P E _ C O D E ,
|
|
975
|
|
|
976
|
P L A N _ T Y P E _ N A M E ,
|
|
977
|
|
|
978
|
C O S T _ I D ,
|
|
979
|
|
|
980
|
C O S T _ C O D E ,
|
|
981
|
|
|
982
|
C O S T _ N A M E ,
|
|
983
|
|
|
984
|
B R A N C H _ I D ,
|
|
985
|
|
|
986
|
B R A N C H _ C O D E ,
|
|
987
|
|
|
988
|
B R A N C H _ N A M E ,
|
|
989
|
|
|
990
|
D E P _ I D ,
|
|
991
|
|
|
992
|
D E P _ C O D E ,
|
|
993
|
|
|
994
|
D E P _ N A M E ,
|
|
995
|
|
|
996
|
R E F _ C O D E ,
|
|
997
|
|
|
998
|
R E F _ N A M E ,
|
|
999
|
|
|
1000
|
G O O D _ I D ,
|
|
1001
|
|
|
1002
|
G O O D _ C O D E ,
|
|
1003
|
|
|
1004
|
G O O D _ N A M E ,
|
|
1005
|
|
|
1006
|
Q T Y ,
|
|
1007
|
|
|
1008
|
T O T A L _ A M T ,
|
|
1009
|
|
|
1010
|
N O T E S ,
|
|
1011
|
|
|
1012
|
I M P _ Y E A R
|
|
1013
|
|
|
1014
|
)
|
|
1015
|
|
|
1016
|
V A L U E S
|
|
1017
|
|
|
1018
|
( @ l _ I M P O R T D T _ I D , - - I M P _ D T _ I D - v a r c h a r ( 2 0 )
|
|
1019
|
|
|
1020
|
@ l _ I M P O R T _ I D , - - I M P O R T _ I D - v a r c h a r ( 2 0 )
|
|
1021
|
|
|
1022
|
@ P L A N _ T Y P E _ I D , @ P L A N _ T Y P E _ C O D E , @ P L A N _ T Y P E _ N A M E , @ C O S T _ I D , @ C O S T _ C O D E , @ C O S T _ N A M E , @ B R A N C H _ I D , @ B R A N C H _ C O D E ,
|
|
1023
|
|
|
1024
|
@ B R A N C H _ N A M E , @ D E P _ I D , @ D E P _ C O D E , @ D E P _ N A M E , @ R E F _ C O D E , @ R E F _ N A M E , @ G O O D _ I D , @ G O D D _ C O D E , @ G O O D _ N A M E , @ Q T Y , @ T O T A L _ A M T , @ N O T E S , @ I M P _ Y E A R
|
|
1025
|
|
|
1026
|
)
|
|
1027
|
|
|
1028
|
|
|
1029
|
|
|
1030
|
I N S E R T I N T O d b o . P L _ I M P O R T _ L O G
|
|
1031
|
|
|
1032
|
(
|
|
1033
|
|
|
1034
|
I M P _ L O G _ C O D E ,
|
|
1035
|
|
|
1036
|
I M P _ I D ,
|
|
1037
|
|
|
1038
|
F I L E _ N A M E ,
|
|
1039
|
|
|
1040
|
I M P _ Y E A R ,
|
|
1041
|
|
|
1042
|
N O T E S ,
|
|
1043
|
|
|
1044
|
R E C O R D _ S T A T U S ,
|
|
1045
|
|
|
1046
|
A U T H _ S T A T U S ,
|
|
1047
|
|
|
1048
|
M A K E R _ I D ,
|
|
1049
|
|
|
1050
|
C R E A T E _ D T ,
|
|
1051
|
|
|
1052
|
E D I T E R _ I D ,
|
|
1053
|
|
|
1054
|
E D I T _ D T ,
|
|
1055
|
|
|
1056
|
C H E C K E R _ I D ,
|
|
1057
|
|
|
1058
|
A P P R O V E _ D T ,
|
|
1059
|
|
|
1060
|
P L A N _ T Y P E _ I D ,
|
|
1061
|
|
|
1062
|
P L A N _ T Y P E _ C O D E ,
|
|
1063
|
|
|
1064
|
P L A N _ T Y P E _ N A M E ,
|
|
1065
|
|
|
1066
|
C O S T _ I D ,
|
|
1067
|
|
|
1068
|
C O S T _ C O D E ,
|
|
1069
|
|
|
1070
|
C O S T _ N A M E ,
|
|
1071
|
|
|
1072
|
B R A N C H _ I D ,
|
|
1073
|
|
|
1074
|
B R A N C H _ C O D E ,
|
|
1075
|
|
|
1076
|
B R A N C H _ N A M E ,
|
|
1077
|
|
|
1078
|
D E P _ I D ,
|
|
1079
|
|
|
1080
|
D E P _ C O D E ,
|
|
1081
|
|
|
1082
|
D E P _ N A M E ,
|
|
1083
|
|
|
1084
|
R E F _ C O D E ,
|
|
1085
|
|
|
1086
|
R E F _ N A M E ,
|
|
1087
|
|
|
1088
|
G O O D _ I D ,
|
|
1089
|
|
|
1090
|
G O O D _ C O D E ,
|
|
1091
|
|
|
1092
|
G O O D _ N A M E ,
|
|
1093
|
|
|
1094
|
Q T Y ,
|
|
1095
|
|
|
1096
|
T O T A L _ A M T
|
|
1097
|
|
|
1098
|
)
|
|
1099
|
|
|
1100
|
V A L U E S
|
|
1101
|
|
|
1102
|
(
|
|
1103
|
|
|
1104
|
@ I M P _ L O G _ C O D E ,
|
|
1105
|
|
|
1106
|
@ l _ I M P O R T _ I D , - - I M P _ I D _ O L D - v a r c h a r ( 2 0 )
|
|
1107
|
|
|
1108
|
@ p _ F I L E _ N A M E , - - F I L E _ N A M E - n v a r c h a r ( 2 0 0 )
|
|
1109
|
|
|
1110
|
@ p _ I M P _ Y E A R , - - I M P _ Y E A R - i n t
|
|
1111
|
|
|
1112
|
@ p _ N O T E S , - - N O T E S - n v a r c h a r ( 1 0 0 0 )
|
|
1113
|
|
|
1114
|
@ p _ R E C O R D _ S T A T U S , - - R E C O R D _ S T A T U S - v a r c h a r ( 1 )
|
|
1115
|
|
|
1116
|
@ p _ A U T H _ S T A T U S , - - A U T H _ S T A T U S - v a r c h a r ( 1 )
|
|
1117
|
|
|
1118
|
@ p _ M A K E R _ I D , - - M A K E R _ I D - v a r c h a r ( 1 5 )
|
|
1119
|
|
|
1120
|
@ p _ C R E A T E _ D T , - - C R E A T E _ D T - d a t e t i m e
|
|
1121
|
|
|
1122
|
@ p _ M A K E R _ I D , - - E D I T E R _ I D - v a r c h a r ( 1 5 )
|
|
1123
|
|
|
1124
|
C A S T ( @ p _ C R E A T E _ D T A S D A T E ) , - - E D I T _ D T - d a t e t i m e
|
|
1125
|
|
|
1126
|
@ p _ C H E C K E R _ I D , - - C H E C K E R _ I D - v a r c h a r ( 1 5 )
|
|
1127
|
|
|
1128
|
C A S T ( @ p _ A P P R O V E _ D T A S D A T E ) , - - A P P R O V E _ D T - d a t e t i m e
|
|
1129
|
|
|
1130
|
@ P L A N _ T Y P E _ I D , @ P L A N _ T Y P E _ C O D E , @ P L A N _ T Y P E _ N A M E , @ C O S T _ I D , @ C O S T _ C O D E , @ C O S T _ N A M E , @ B R A N C H _ I D , @ B R A N C H _ C O D E ,
|
|
1131
|
|
|
1132
|
@ B R A N C H _ N A M E , @ D E P _ I D , @ D E P _ C O D E , @ D E P _ N A M E , @ R E F _ C O D E , @ R E F _ N A M E , @ G O O D _ I D , @ G O D D _ C O D E , @ G O O D _ N A M E ,
|
|
1133
|
|
|
1134
|
@ Q T Y , - - Q T Y - i n t
|
|
1135
|
|
|
1136
|
@ T O T A L _ A M T - - T O T A L _ A M T - n u m e r i c ( 1 8 , 2 )
|
|
1137
|
|
|
1138
|
)
|
|
1139
|
|
|
1140
|
|
|
1141
|
|
|
1142
|
|
|
1143
|
|
|
1144
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
1145
|
|
|
1146
|
|
|
1147
|
|
|
1148
|
F E T C H N E X T F R O M I m p o r t D T I N T O @ I M P _ Y E A R , @ P L A N _ T Y P E _ I D , @ P L A N _ T Y P E _ C O D E , @ P L A N _ T Y P E _ N A M E , @ C O S T _ I D , @ C O S T _ C O D E , @ C O S T _ N A M E , @ B R A N C H _ I D , @ B R A N C H _ C O D E ,
|
|
1149
|
|
|
1150
|
@ B R A N C H _ N A M E , @ D E P _ I D , @ D E P _ C O D E , @ D E P _ N A M E , @ G O O D _ I D , @ G O D D _ C O D E , @ G O O D _ N A M E , @ Q T Y , @ T O T A L _ A M T , @ N O T E S , @ R E F _ C O D E , @ R E F _ N A M E
|
|
1151
|
|
|
1152
|
|
|
1153
|
|
|
1154
|
E N D
|
|
1155
|
|
|
1156
|
C L O S E I m p o r t D T
|
|
1157
|
|
|
1158
|
D E A L L O C A T E I m p o r t D T
|
|
1159
|
S E T @ p _ T O T A L _ A T M = ( S E L E C T S U M ( I S N U L L ( T O T A L _ A M T , 0 ) ) F R O M d b o . P L _ I M P O R T _ D T W H E R E I M P O R T _ I D = @ l _ I M P O R T _ I D )
|
|
1160
|
S E L E C T @ p _ T O T A L _ Q T Y = ( S E L E C T S U M ( I S N U L L ( Q T Y , 0 ) ) F R O M d b o . P L _ I M P O R T _ D T W H E R E I M P O R T _ I D = @ l _ I M P O R T _ I D )
|
|
1161
|
|
|
1162
|
U P D A T E d b o . P L _ I M P O R T S E T I M P _ Q T Y = @ p _ T O T A L _ Q T Y , I M P _ A T M = @ p _ T O T A L _ A T M W H E R E I M P O R T _ I D = @ l _ I M P O R T _ I D
|
|
1163
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
1164
|
C O M M I T T R A N S A C T I O N
|
|
1165
|
S E L E C T ' 0 ' a s R e s u l t , @ l _ I M P O R T _ I D I M P O R T _ I D , ' ' E r r o r D e s c
|
|
1166
|
R E T U R N ' 0 '
|
|
1167
|
A B O R T :
|
|
1168
|
B E G I N
|
|
1169
|
R O L L B A C K T R A N S A C T I O N
|
|
1170
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , ' ' E r r o r D e s c
|
|
1171
|
R E T U R N ' - 1 '
|
|
1172
|
E n d
|
|
1173
|
|
|
1174
|
|
|
1175
|
|
|
1176
|
|
|
1177
|
|
|
1178
|
|
|
1179
|
|
|
1180
|
|
|
1181
|
|
|
1182
|
|
|
1183
|
|
|
1184
|
|
|
1185
|
G O
|
|
1186
|
|
|
1187
|
/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ P L _ I M P O R T _ U p d ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 0 A M * * * * * * /
|
|
1188
|
|
|
1189
|
S E T A N S I _ N U L L S O N
|
|
1190
|
|
|
1191
|
G O
|
|
1192
|
|
|
1193
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
1194
|
|
|
1195
|
G O
|
|
1196
|
|
|
1197
|
C R E A T E P R O C E D U R E [ d b o ] . [ P L _ I M P O R T _ U p d ]
|
|
1198
|
@ p _ I M P O R T _ I D V A R C H A R ( 2 0 ) ,
|
|
1199
|
@ p _ P L A N _ C O D E V A R C H A R ( 2 0 ) ,
|
|
1200
|
@ p _ I M P _ Y E A R I N T = N U L L ,
|
|
1201
|
@ p _ I M P _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1202
|
@ p _ F I L E _ N A M E N V A R C H A R ( 2 0 0 ) = N U L L ,
|
|
1203
|
@ p _ T O T A L _ Q T Y N U M E R I C ( 1 8 , 0 ) = N U L L ,
|
|
1204
|
@ p _ T O T A L _ A T M N U M E R I C ( 1 8 , 0 ) = N U L L ,
|
|
1205
|
@ p _ N O T E S n v a r c h a r ( 1 0 0 0 ) = N U L L ,
|
|
1206
|
@ p _ R E C O R D _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
1207
|
@ p _ M A K E R _ I D v a r c h a r ( 2 0 ) = N U L L ,
|
|
1208
|
@ p _ C R E A T E _ D T D A T E T I M E = N U L L ,
|
|
1209
|
@ p _ A U T H _ S T A T U S v a r c h a r ( 5 0 ) = N U L L ,
|
|
1210
|
@ p _ C H E C K E R _ I D v a r c h a r ( 2 0 ) = N U L L ,
|
|
1211
|
@ p _ A P P R O V E _ D T D A T E T I M E = N U L L ,
|
|
1212
|
@ p _ X M L D a t a X M L = N U L L
|
|
1213
|
A S
|
|
1214
|
B E G I N T R A N S A C T I O N
|
|
1215
|
D E C L A R E @ T a b l e T m p T A B L E (
|
|
1216
|
I M P _ Y E A R V A R C H A R ( 4 ) ,
|
|
1217
|
|
|
1218
|
P L A N _ T Y P E _ I D V A R C H A R ( 1 5 ) ,
|
|
1219
|
|
|
1220
|
P L A N _ T Y P E _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1221
|
|
|
1222
|
P L A N _ T Y P E _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1223
|
|
|
1224
|
C O S T _ I D V A R C H A R ( 1 5 ) ,
|
|
1225
|
|
|
1226
|
C O S T _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1227
|
|
|
1228
|
C O S T _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1229
|
|
|
1230
|
B R A N C H _ I D V A R C H A R ( 1 5 ) ,
|
|
1231
|
|
|
1232
|
B R A N C H _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1233
|
|
|
1234
|
B R A N C H _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1235
|
|
|
1236
|
D E P _ I D v a r c h a r ( 1 5 ) ,
|
|
1237
|
|
|
1238
|
D E P _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1239
|
|
|
1240
|
D E P _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1241
|
|
|
1242
|
R E F _ I D I N T ,
|
|
1243
|
|
|
1244
|
R E F _ C O D E V A R C H A R ( 2 0 ) ,
|
|
1245
|
|
|
1246
|
R E F _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1247
|
|
|
1248
|
G O O D _ I D v a r c h a r ( 1 5 ) ,
|
|
1249
|
|
|
1250
|
G O O D _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1251
|
|
|
1252
|
G O O D _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1253
|
|
|
1254
|
Q T Y I N T ,
|
|
1255
|
|
|
1256
|
T O T A L _ A M T N U M E R I C ( 1 8 , 2 ) ,
|
|
1257
|
|
|
1258
|
N O T E S N V A R C H A R ( 1 0 0 0 )
|
|
1259
|
) ;
|
|
1260
|
D e c l a r e @ h d o c I N T
|
|
1261
|
E x e c s p _ x m l _ p r e p a r e d o c u m e n t @ h d o c O u t p u t , @ p _ X M L D a t a
|
|
1262
|
|
|
1263
|
|
|
1264
|
I N S E R T I N T O @ T a b l e T m p
|
|
1265
|
|
|
1266
|
S E L E C T *
|
|
1267
|
|
|
1268
|
F R O M O P E N X M L ( @ h D o c , ' / R o o t / P L I M P O R T ' , 2 )
|
|
1269
|
|
|
1270
|
W I T H
|
|
1271
|
|
|
1272
|
(
|
|
1273
|
|
|
1274
|
I M P _ Y E A R V A R C H A R ( 4 ) ,
|
|
1275
|
|
|
1276
|
P L A N _ T Y P E _ I D V A R C H A R ( 1 5 ) ,
|
|
1277
|
|
|
1278
|
P L A N _ T Y P E _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1279
|
|
|
1280
|
P L A N _ T Y P E _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1281
|
|
|
1282
|
C O S T _ I D V A R C H A R ( 1 5 ) ,
|
|
1283
|
|
|
1284
|
C O S T _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1285
|
|
|
1286
|
C O S T _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1287
|
|
|
1288
|
B R A N C H _ I D V A R C H A R ( 1 5 ) ,
|
|
1289
|
|
|
1290
|
B R A N C H _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1291
|
|
|
1292
|
B R A N C H _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1293
|
|
|
1294
|
D E P _ I D v a r c h a r ( 1 5 ) ,
|
|
1295
|
|
|
1296
|
D E P _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1297
|
|
|
1298
|
D E P _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1299
|
|
|
1300
|
R E F _ I D I N T ,
|
|
1301
|
|
|
1302
|
R E F _ C O D E V A R C H A R ( 2 0 ) ,
|
|
1303
|
|
|
1304
|
R E F _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1305
|
|
|
1306
|
G O O D _ I D v a r c h a r ( 1 5 ) ,
|
|
1307
|
|
|
1308
|
G O O D _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1309
|
|
|
1310
|
G O O D _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1311
|
|
|
1312
|
Q T Y I N T ,
|
|
1313
|
|
|
1314
|
T O T A L _ A M T N U M E R I C ( 1 8 , 2 ) ,
|
|
1315
|
|
|
1316
|
N O T E S N V A R C H A R ( 1 0 0 0 )
|
|
1317
|
|
|
1318
|
)
|
|
1319
|
|
|
1320
|
- - U p d a t e I D
|
|
1321
|
|
|
1322
|
U P D A T E @ T a b l e T m p S E T B R A N C H _ I D = ( S E L E C T T O P 1 B R A N C H _ I D F R O M d b o . C M _ B R A N C H W H E R E d b o . C M _ B R A N C H . B R A N C H _ C O D E = [ @ T a b l e T m p ] . B R A N C H _ C O D E ) ,
|
|
1323
|
|
|
1324
|
D E P _ I D = ( S E L E C T T O P 1 D E P _ I D F R O M d b o . C M _ D E P A R T M E N T W H E R E d b o . C M _ D E P A R T M E N T . D E P _ C O D E = [ @ T a b l e T m p ] . D E P _ C O D E ) ,
|
|
1325
|
|
|
1326
|
C O S T _ I D = ( S E L E C T T O P 1 D V D M _ I D F R O M d b o . C M _ D V D M W H E R E d b o . C M _ D V D M . D V D M _ C O D E = [ @ T a b l e T m p ] . C O S T _ C O D E A N D I S _ D V D M = 1 ) ,
|
|
1327
|
|
|
1328
|
P L A N _ T Y P E _ I D = ( S E L E C T T O P 1 P L A N _ T Y P E _ I D F R O M d b o . C M _ P L A N _ T Y P E W H E R E d b o . C M _ P L A N _ T Y P E . P L A N _ T Y P E _ C O D E = [ @ T a b l e T m p ] . P L A N _ T Y P E _ C O D E ) ,
|
|
1329
|
|
|
1330
|
G O O D _ I D = ( S E L E C T T O P 1 G D _ I D F R O M d b o . C M _ G O O D S W H E R E d b o . C M _ G O O D S . G D _ C O D E = [ @ T a b l e T m p ] . G O O D _ C O D E )
|
|
1331
|
|
|
1332
|
|
|
1333
|
|
|
1334
|
D E C L A R E @ E r r o r N V A R C H A R ( M A X )
|
|
1335
|
|
|
1336
|
- - - V a l i d a t e d ? l i ? u
|
|
1337
|
|
|
1338
|
I F ( E X I S T S ( S E L E C T B R A N C H _ I D F R O M @ T a b l e T m p W H E R E B R A N C H _ I D I S N U L L O R B R A N C H _ I D = ' ' ) )
|
|
1339
|
|
|
1340
|
B E G I N
|
|
1341
|
|
|
1342
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + B R A N C H _ C O D E f r o m @ T a b l e T m p W H E R E B R A N C H _ I D I S N U L L O R B R A N C H _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
1343
|
|
|
1344
|
|
|
1345
|
R O L L B A C K T R A N S A C T I O N
|
|
1346
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? ? n v ? c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
1347
|
R E T U R N ' - 1 '
|
|
1348
|
|
|
1349
|
|
|
1350
|
|
|
1351
|
E N D
|
|
1352
|
|
|
1353
|
|
|
1354
|
|
|
1355
|
I F ( E X I S T S ( S E L E C T D E P _ I D F R O M @ T a b l e T m p W H E R E D E P _ I D I S N U L L O R D E P _ I D = ' ' ) )
|
|
1356
|
|
|
1357
|
B E G I N
|
|
1358
|
|
|
1359
|
|
|
1360
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + D E P _ C O D E f r o m @ T a b l e T m p W H E R E D E P _ I D I S N U L L O R D E P _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
1361
|
|
|
1362
|
R O L L B A C K T R A N S A C T I O N
|
|
1363
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? p h ? n g b a n c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
1364
|
R E T U R N ' - 1 '
|
|
1365
|
E N D
|
|
1366
|
|
|
1367
|
|
|
1368
|
|
|
1369
|
I F ( E X I S T S ( S E L E C T C O S T _ I D F R O M @ T a b l e T m p W H E R E ( C O S T _ I D I S N U L L O R C O S T _ I D = ' ' ) A N D C O S T _ C O D E I S N O T N U L L A N D C O S T _ C O D E < > ' ' ) )
|
|
1370
|
|
|
1371
|
B E G I N
|
|
1372
|
|
|
1373
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + C O S T _ C O D E f r o m @ T a b l e T m p W H E R E C O S T _ I D I S N U L L O R C O S T _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
1374
|
|
|
1375
|
R O L L B A C K T R A N S A C T I O N
|
|
1376
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? ? n v ? ? u m ? i c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
1377
|
R E T U R N ' - 1 '
|
|
1378
|
E N D
|
|
1379
|
|
|
1380
|
|
|
1381
|
|
|
1382
|
I F ( E X I S T S ( S E L E C T P L A N _ T Y P E _ I D F R O M @ T a b l e T m p W H E R E P L A N _ T Y P E _ I D I S N U L L O R P L A N _ T Y P E _ I D = ' ' ) )
|
|
1383
|
|
|
1384
|
B E G I N
|
|
1385
|
|
|
1386
|
|
|
1387
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + P L A N _ T Y P E _ C O D E f r o m @ T a b l e T m p W H E R E P L A N _ T Y P E _ I D I S N U L L O R P L A N _ T Y P E _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
1388
|
|
|
1389
|
R O L L B A C K T R A N S A C T I O N
|
|
1390
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? l o ? i n g ? n s ? c h c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
1391
|
R E T U R N ' - 1 '
|
|
1392
|
E N D
|
|
1393
|
|
|
1394
|
|
|
1395
|
|
|
1396
|
I F ( E X I S T S ( S E L E C T G O O D _ I D F R O M @ T a b l e T m p W H E R E G O O D _ I D I S N U L L O R G O O D _ I D = ' ' ) )
|
|
1397
|
|
|
1398
|
B E G I N
|
|
1399
|
|
|
1400
|
S E T @ E r r o r = ( s e l e c t S T U F F ( ( s e l e c t ' ; ' + G O O D _ C O D E f r o m @ T a b l e T m p W H E R E G O O D _ I D I S N U L L O R G O O D _ I D = ' ' F O R X M L P A T H ( ' ' ) , T Y P E ) . v a l u e ( ' . [ 1 ] ' , ' n v a r c h a r ( m a x ) ' ) , 1 , 2 , ' ' ) )
|
|
1401
|
|
|
1402
|
R O L L B A C K T R A N S A C T I O N
|
|
1403
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' M ? h ? n m ? c c h ? a t ? n t ? i t r ? n h ? t h ? n g : ' + @ E r r o r E r r o r D e s c
|
|
1404
|
R E T U R N ' - 1 '
|
|
1405
|
E N D
|
|
1406
|
|
|
1407
|
|
|
1408
|
|
|
1409
|
|
|
1410
|
|
|
1411
|
|
|
1412
|
|
|
1413
|
|
|
1414
|
- - I F ( E X I S T S (
|
|
1415
|
- - S E L E C T D T . T R A D E _ I D F R O M d b o . P L _ M A S T E R P M
|
|
1416
|
- - L E F T J O I N d b o . P L _ T R A D E D E T A I L D T O N P M . P L A N _ I D = D T . P L A N _ I D
|
|
1417
|
- - W H E R E E X I S T S ( )
|
|
1418
|
- - B E G I N
|
|
1419
|
|
|
1420
|
- - R O L L B A C K T R A N S A C T I O N
|
|
1421
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , N ' H ? n m ? c c h ? n h s ? a ? s ? d ? n g v ? ? t h ? n m ? c c h ? n h s ? a ' E r r o r D e s c
|
|
1422
|
- - R E T U R N ' - 1 '
|
|
1423
|
- - E N D
|
|
1424
|
|
|
1425
|
|
|
1426
|
|
|
1427
|
U P D A T E d b o . P L _ I M P O R T S E T P L A N _ C O D E = @ p _ P L A N _ C O D E , I M P _ N A M E = @ p _ I M P _ N A M E , F I L E _ N A M E = @ p _ F I L E _ N A M E , I M P _ Y E A R = @ p _ I M P _ Y E A R , I M P _ Q T Y = @ p _ T O T A L _ Q T Y ,
|
|
1428
|
I M P _ A T M = @ p _ T O T A L _ A T M , N O T E S = @ p _ N O T E S , E D I T E R _ I D = @ p _ M A K E R _ I D , E D I T _ D T = C A S T ( @ p _ C R E A T E _ D T A S D A T E ) , C H E C K E R _ I D = @ p _ C H E C K E R _ I D , A P P R O V E _ D T = C A S T ( @ p _ A P P R O V E _ D T A S D A T E ) , A U T H _ S T A T U S = @ p _ A U T H _ S T A T U S , I S _ U P D A T E = 1
|
|
1429
|
W H E R E I M P O R T _ I D = @ p _ I M P O R T _ I D
|
|
1430
|
|
|
1431
|
|
|
1432
|
|
|
1433
|
|
|
1434
|
D E C L A R E I m p o r t D T C U R S O R F O R
|
|
1435
|
|
|
1436
|
S E L E C T I M P _ Y E A R ,
|
|
1437
|
|
|
1438
|
P L A N _ T Y P E _ I D ,
|
|
1439
|
|
|
1440
|
P L A N _ T Y P E _ C O D E ,
|
|
1441
|
|
|
1442
|
P L A N _ T Y P E _ N A M E ,
|
|
1443
|
|
|
1444
|
C O S T _ I D ,
|
|
1445
|
|
|
1446
|
C O S T _ C O D E ,
|
|
1447
|
|
|
1448
|
C O S T _ N A M E ,
|
|
1449
|
|
|
1450
|
B R A N C H _ I D ,
|
|
1451
|
|
|
1452
|
B R A N C H _ C O D E ,
|
|
1453
|
|
|
1454
|
B R A N C H _ N A M E ,
|
|
1455
|
|
|
1456
|
D E P _ I D ,
|
|
1457
|
|
|
1458
|
D E P _ C O D E ,
|
|
1459
|
|
|
1460
|
D E P _ N A M E ,
|
|
1461
|
|
|
1462
|
R E F _ I D ,
|
|
1463
|
|
|
1464
|
R E F _ C O D E ,
|
|
1465
|
|
|
1466
|
R E F _ N A M E ,
|
|
1467
|
|
|
1468
|
G O O D _ I D ,
|
|
1469
|
|
|
1470
|
G O O D _ C O D E ,
|
|
1471
|
|
|
1472
|
G O O D _ N A M E ,
|
|
1473
|
|
|
1474
|
Q T Y ,
|
|
1475
|
|
|
1476
|
T O T A L _ A M T ,
|
|
1477
|
|
|
1478
|
N O T E S F R O M @ T a b l e T m p
|
|
1479
|
|
|
1480
|
|
|
1481
|
|
|
1482
|
O P E N I m p o r t D T
|
|
1483
|
|
|
1484
|
|
|
1485
|
D E C L A R E
|
|
1486
|
|
|
1487
|
@ P L A N _ T Y P E _ I D V A R C H A R ( 1 5 ) ,
|
|
1488
|
|
|
1489
|
@ P L A N _ T Y P E _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1490
|
|
|
1491
|
@ P L A N _ T Y P E _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1492
|
|
|
1493
|
@ C O S T _ I D V A R C H A R ( 1 5 ) ,
|
|
1494
|
|
|
1495
|
@ C O S T _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1496
|
|
|
1497
|
@ C O S T _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1498
|
|
|
1499
|
@ B R A N C H _ I D V A R C H A R ( 1 5 ) ,
|
|
1500
|
|
|
1501
|
@ B R A N C H _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1502
|
|
|
1503
|
@ B R A N C H _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1504
|
|
|
1505
|
@ D E P _ I D v a r c h a r ( 1 5 ) ,
|
|
1506
|
|
|
1507
|
@ D E P _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1508
|
|
|
1509
|
@ D E P _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1510
|
|
|
1511
|
@ R E F _ I D I N T ,
|
|
1512
|
|
|
1513
|
@ R E F _ C O D E V A R C H A R ( 2 0 ) ,
|
|
1514
|
|
|
1515
|
@ R E F _ N A M E N V A R C H A R ( 2 0 0 ) ,
|
|
1516
|
|
|
1517
|
@ G O O D _ I D v a r c h a r ( 1 5 ) ,
|
|
1518
|
|
|
1519
|
@ G O D D _ C O D E V A R C H A R ( 1 5 ) ,
|
|
1520
|
|
|
1521
|
@ G O O D _ N A M E N V A R C H A R ( 2 0 0 ) , @ Q T Y I N T , @ T O T A L _ A M T N U M E R I C ( 1 8 , 2 ) , @ N O T E S N V A R C H A R ( 1 0 0 0 ) ,
|
|
1522
|
@ I M P _ Y E A R V A R C H A R ( 4 )
|
|
1523
|
|
|
1524
|
, @ I M P _ L O G _ C O D E V A R C H A R ( 1 5 )
|
|
1525
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' I M P _ L O G _ C O D E ' , @ I M P _ L O G _ C O D E o u t
|
|
1526
|
|
|
1527
|
I F @ I M P _ L O G _ C O D E = ' ' O R @ I M P _ L O G _ C O D E I S N U L L G O T O A B O R T
|
|
1528
|
|
|
1529
|
F E T C H N E X T F R O M I m p o r t D T I N T O @ I M P _ Y E A R , @ P L A N _ T Y P E _ I D , @ P L A N _ T Y P E _ C O D E , @ P L A N _ T Y P E _ N A M E , @ C O S T _ I D , @ C O S T _ C O D E , @ C O S T _ N A M E , @ B R A N C H _ I D , @ B R A N C H _ C O D E ,
|
|
1530
|
|
|
1531
|
@ B R A N C H _ N A M E , @ D E P _ I D , @ D E P _ C O D E , @ D E P _ N A M E , @ R E F _ I D , @ R E F _ C O D E , @ R E F _ N A M E , @ G O O D _ I D , @ G O D D _ C O D E , @ G O O D _ N A M E , @ Q T Y , @ T O T A L _ A M T , @ N O T E S
|
|
1532
|
|
|
1533
|
|
|
1534
|
|
|
1535
|
W H I L E @ @ F E T C H _ S T A T U S = 0
|
|
1536
|
|
|
1537
|
B E G I N
|
|
1538
|
|
|
1539
|
|
|
1540
|
|
|
1541
|
D E C L A R E @ l _ I M P O R T D T _ I D V A R C H A R ( 2 0 )
|
|
1542
|
|
|
1543
|
|
|
1544
|
|
|
1545
|
S E T @ l _ I M P O R T D T _ I D = ( S E L E C T T O P 1 I M P _ D T _ I D F R O M P L _ I M P O R T _ D T W H E R E I M P O R T _ I D = @ p _ I M P O R T _ I D A N D P L A N _ T Y P E _ I D = @ P L A N _ T Y P E _ I D A N D C O S T _ I D = @ C O S T _ I D A N D B R A N C H _ I D = @ B R A N C H _ I D A N D R E F _ C O D E = @ R E F _ C O D E
|
|
1546
|
|
|
1547
|
A N D D E P _ I D = @ D E P _ I D A N D G O O D _ I D = @ G O O D _ I D )
|
|
1548
|
|
|
1549
|
I F ( @ l _ I M P O R T D T _ I D I S N U L L O R @ l _ I M P O R T D T _ I D = ' ' )
|
|
1550
|
|
|
1551
|
B E G I N
|
|
1552
|
|
|
1553
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' I M P O R T _ D T ' , @ l _ I M P O R T D T _ I D o u t
|
|
1554
|
|
|
1555
|
I F @ l _ I M P O R T D T _ I D = ' ' O R @ l _ I M P O R T D T _ I D I S N U L L G O T O A B O R T
|
|
1556
|
|
|
1557
|
I N S E R T I N T O d b o . P L _ I M P O R T _ D T
|
|
1558
|
|
|
1559
|
(
|
|
1560
|
|
|
1561
|
I M P _ D T _ I D ,
|
|
1562
|
|
|
1563
|
I M P O R T _ I D ,
|
|
1564
|
|
|
1565
|
P L A N _ T Y P E _ I D ,
|
|
1566
|
|
|
1567
|
P L A N _ T Y P E _ C O D E ,
|
|
1568
|
|
|
1569
|
P L A N _ T Y P E _ N A M E ,
|
|
1570
|
|
|
1571
|
C O S T _ I D ,
|
|
1572
|
|
|
1573
|
C O S T _ C O D E ,
|
|
1574
|
|
|
1575
|
C O S T _ N A M E ,
|
|
1576
|
|
|
1577
|
B R A N C H _ I D ,
|
|
1578
|
|
|
1579
|
B R A N C H _ C O D E ,
|
|
1580
|
|
|
1581
|
B R A N C H _ N A M E ,
|
|
1582
|
|
|
1583
|
D E P _ I D ,
|
|
1584
|
|
|
1585
|
D E P _ C O D E ,
|
|
1586
|
|
|
1587
|
D E P _ N A M E ,
|
|
1588
|
|
|
1589
|
R E F _ C O D E ,
|
|
1590
|
|
|
1591
|
R E F _ N A M E ,
|
|
1592
|
|
|
1593
|
G O O D _ I D ,
|
|
1594
|
|
|
1595
|
G O O D _ C O D E ,
|
|
1596
|
|
|
1597
|
G O O D _ N A M E ,
|
|
1598
|
|
|
1599
|
Q T Y ,
|
|
1600
|
|
|
1601
|
T O T A L _ A M T ,
|
|
1602
|
|
|
1603
|
N O T E S ,
|
|
1604
|
|
|
1605
|
I M P _ Y E A R
|
|
1606
|
|
|
1607
|
)
|
|
1608
|
|
|
1609
|
V A L U E S
|
|
1610
|
|
|
1611
|
( @ l _ I M P O R T D T _ I D , - - I M P _ D T _ I D - v a r c h a r ( 2 0 )
|
|
1612
|
|
|
1613
|
@ p _ I M P O R T _ I D , - - I M P O R T _ I D - v a r c h a r ( 2 0 )
|
|
1614
|
|
|
1615
|
@ P L A N _ T Y P E _ I D , @ P L A N _ T Y P E _ C O D E , @ P L A N _ T Y P E _ N A M E , @ C O S T _ I D , @ C O S T _ C O D E , @ C O S T _ N A M E , @ B R A N C H _ I D , @ B R A N C H _ C O D E ,
|
|
1616
|
|
|
1617
|
@ B R A N C H _ N A M E , @ D E P _ I D , @ D E P _ C O D E , @ D E P _ N A M E , @ R E F _ C O D E , @ R E F _ N A M E , @ G O O D _ I D , @ G O D D _ C O D E , @ G O O D _ N A M E , @ Q T Y , @ T O T A L _ A M T , @ N O T E S , @ I M P _ Y E A R
|
|
1618
|
|
|
1619
|
)
|
|
1620
|
|
|
1621
|
E N D
|
|
1622
|
|
|
1623
|
|
|
1624
|
|
|
1625
|
E L S E
|
|
1626
|
|
|
1627
|
B E G I N
|
|
1628
|
|
|
1629
|
U P D A T E d b o . P L _ I M P O R T _ D T S E T Q T Y = Q T Y + @ Q T Y , T O T A L _ A M T = T O T A L _ A M T + @ T O T A L _ A M T , R E F _ N A M E = @ R E F _ N A M E
|
|
1630
|
|
|
1631
|
W H E R E I M P O R T _ I D = @ p _ I M P O R T _ I D A N D P L A N _ T Y P E _ I D = @ P L A N _ T Y P E _ I D A N D C O S T _ I D = @ C O S T _ I D A N D B R A N C H _ I D = @ B R A N C H _ I D A N D R E F _ C O D E = @ R E F _ C O D E
|
|
1632
|
|
|
1633
|
A N D D E P _ I D = @ D E P _ I D A N D G O O D _ I D = @ G O O D _ I D
|
|
1634
|
|
|
1635
|
E N D
|
|
1636
|
|
|
1637
|
I N S E R T I N T O d b o . P L _ I M P O R T _ L O G
|
|
1638
|
|
|
1639
|
(
|
|
1640
|
|
|
1641
|
I M P _ L O G _ C O D E ,
|
|
1642
|
|
|
1643
|
I M P _ I D ,
|
|
1644
|
|
|
1645
|
F I L E _ N A M E ,
|
|
1646
|
|
|
1647
|
I M P _ Y E A R ,
|
|
1648
|
|
|
1649
|
N O T E S ,
|
|
1650
|
|
|
1651
|
R E C O R D _ S T A T U S ,
|
|
1652
|
|
|
1653
|
A U T H _ S T A T U S ,
|
|
1654
|
|
|
1655
|
M A K E R _ I D ,
|
|
1656
|
|
|
1657
|
C R E A T E _ D T ,
|
|
1658
|
|
|
1659
|
E D I T E R _ I D ,
|
|
1660
|
|
|
1661
|
E D I T _ D T ,
|
|
1662
|
|
|
1663
|
C H E C K E R _ I D ,
|
|
1664
|
|
|
1665
|
A P P R O V E _ D T ,
|
|
1666
|
|
|
1667
|
P L A N _ T Y P E _ I D ,
|
|
1668
|
|
|
1669
|
P L A N _ T Y P E _ C O D E ,
|
|
1670
|
|
|
1671
|
P L A N _ T Y P E _ N A M E ,
|
|
1672
|
|
|
1673
|
C O S T _ I D ,
|
|
1674
|
|
|
1675
|
C O S T _ C O D E ,
|
|
1676
|
|
|
1677
|
C O S T _ N A M E ,
|
|
1678
|
|
|
1679
|
B R A N C H _ I D ,
|
|
1680
|
|
|
1681
|
B R A N C H _ C O D E ,
|
|
1682
|
|
|
1683
|
B R A N C H _ N A M E ,
|
|
1684
|
|
|
1685
|
D E P _ I D ,
|
|
1686
|
|
|
1687
|
D E P _ C O D E ,
|
|
1688
|
|
|
1689
|
D E P _ N A M E ,
|
|
1690
|
|
|
1691
|
R E F _ C O D E ,
|
|
1692
|
|
|
1693
|
R E F _ N A M E ,
|
|
1694
|
|
|
1695
|
G O O D _ I D ,
|
|
1696
|
|
|
1697
|
G O O D _ C O D E ,
|
|
1698
|
|
|
1699
|
G O O D _ N A M E ,
|
|
1700
|
|
|
1701
|
Q T Y ,
|
|
1702
|
|
|
1703
|
T O T A L _ A M T
|
|
1704
|
|
|
1705
|
)
|
|
1706
|
|
|
1707
|
V A L U E S
|
|
1708
|
|
|
1709
|
(
|
|
1710
|
|
|
1711
|
@ I M P _ L O G _ C O D E ,
|
|
1712
|
|
|
1713
|
@ p _ I M P O R T _ I D , - - I M P _ I D _ O L D - v a r c h a r ( 2 0 )
|
|
1714
|
|
|
1715
|
@ p _ F I L E _ N A M E , - - F I L E _ N A M E - n v a r c h a r ( 2 0 0 )
|
|
1716
|
|
|
1717
|
@ p _ I M P _ Y E A R , - - I M P _ Y E A R - i n t
|
|
1718
|
|
|
1719
|
@ p _ N O T E S , - - N O T E S - n v a r c h a r ( 1 0 0 0 )
|
|
1720
|
|
|
1721
|
@ p _ R E C O R D _ S T A T U S , - - R E C O R D _ S T A T U S - v a r c h a r ( 1 )
|
|
1722
|
|
|
1723
|
@ p _ A U T H _ S T A T U S , - - A U T H _ S T A T U S - v a r c h a r ( 1 )
|
|
1724
|
|
|
1725
|
@ p _ M A K E R _ I D , - - M A K E R _ I D - v a r c h a r ( 1 5 )
|
|
1726
|
|
|
1727
|
@ p _ C R E A T E _ D T , - - C R E A T E _ D T - d a t e t i m e
|
|
1728
|
|
|
1729
|
@ p _ M A K E R _ I D , - - E D I T E R _ I D - v a r c h a r ( 1 5 )
|
|
1730
|
|
|
1731
|
C A S T ( @ p _ C R E A T E _ D T A S D A T E ) , - - E D I T _ D T - d a t e t i m e
|
|
1732
|
|
|
1733
|
@ p _ C H E C K E R _ I D , - - C H E C K E R _ I D - v a r c h a r ( 1 5 )
|
|
1734
|
|
|
1735
|
C A S T ( @ p _ A P P R O V E _ D T A S D A T E ) , - - A P P R O V E _ D T - d a t e t i m e
|
|
1736
|
|
|
1737
|
@ P L A N _ T Y P E _ I D , @ P L A N _ T Y P E _ C O D E , @ P L A N _ T Y P E _ N A M E , @ C O S T _ I D , @ C O S T _ C O D E , @ C O S T _ N A M E , @ B R A N C H _ I D , @ B R A N C H _ C O D E ,
|
|
1738
|
|
|
1739
|
@ B R A N C H _ N A M E , @ D E P _ I D , @ D E P _ C O D E , @ D E P _ N A M E , @ R E F _ C O D E , @ R E F _ N A M E , @ G O O D _ I D , @ G O D D _ C O D E , @ G O O D _ N A M E ,
|
|
1740
|
|
|
1741
|
@ Q T Y , - - Q T Y - i n t
|
|
1742
|
|
|
1743
|
@ T O T A L _ A M T - - T O T A L _ A M T - n u m e r i c ( 1 8 , 2 )
|
|
1744
|
|
|
1745
|
)
|
|
1746
|
|
|
1747
|
|
|
1748
|
|
|
1749
|
|
|
1750
|
|
|
1751
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
1752
|
|
|
1753
|
|
|
1754
|
|
|
1755
|
F E T C H N E X T F R O M I m p o r t D T I N T O @ I M P _ Y E A R , @ P L A N _ T Y P E _ I D , @ P L A N _ T Y P E _ C O D E , @ P L A N _ T Y P E _ N A M E , @ C O S T _ I D , @ C O S T _ C O D E , @ C O S T _ N A M E , @ B R A N C H _ I D , @ B R A N C H _ C O D E ,
|
|
1756
|
|
|
1757
|
@ B R A N C H _ N A M E , @ D E P _ I D , @ D E P _ C O D E , @ D E P _ N A M E , @ R E F _ I D , @ R E F _ C O D E , @ R E F _ N A M E , @ G O O D _ I D , @ G O D D _ C O D E , @ G O O D _ N A M E , @ Q T Y , @ T O T A L _ A M T , @ N O T E S
|
|
1758
|
|
|
1759
|
|
|
1760
|
|
|
1761
|
E N D
|
|
1762
|
|
|
1763
|
C L O S E I m p o r t D T
|
|
1764
|
|
|
1765
|
D E A L L O C A T E I m p o r t D T
|
|
1766
|
|
|
1767
|
S E T @ p _ T O T A L _ A T M = ( S E L E C T S U M ( I S N U L L ( T O T A L _ A M T , 0 ) ) F R O M d b o . P L _ I M P O R T _ D T W H E R E I M P O R T _ I D = @ p _ I M P O R T _ I D )
|
|
1768
|
S E L E C T @ p _ T O T A L _ Q T Y = ( S E L E C T S U M ( I S N U L L ( Q T Y , 0 ) ) F R O M d b o . P L _ I M P O R T _ D T W H E R E I M P O R T _ I D = @ p _ I M P O R T _ I D )
|
|
1769
|
|
|
1770
|
U P D A T E d b o . P L _ I M P O R T S E T I M P _ Q T Y = @ p _ T O T A L _ Q T Y , I M P _ A T M = @ p _ T O T A L _ A T M W H E R E I M P O R T _ I D = @ p _ I M P O R T _ I D
|
|
1771
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
1772
|
C O M M I T T R A N S A C T I O N
|
|
1773
|
S E L E C T ' 0 ' a s R e s u l t , @ p _ I M P O R T _ I D I M P O R T _ I D , ' ' E r r o r D e s c
|
|
1774
|
R E T U R N ' 0 '
|
|
1775
|
A B O R T :
|
|
1776
|
B E G I N
|
|
1777
|
R O L L B A C K T R A N S A C T I O N
|
|
1778
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' I M P O R T _ I D , ' ' E r r o r D e s c
|
|
1779
|
R E T U R N ' - 1 '
|
|
1780
|
E n d
|
|
1781
|
|
|
1782
|
|
|
1783
|
|
|
1784
|
|
|
1785
|
|
|
1786
|
|
|
1787
|
|
|
1788
|
|
|
1789
|
|
|
1790
|
|
|
1791
|
|
|
1792
|
|
|
1793
|
G O
|
|
1794
|
|
|
1795
|
/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ T R _ R E Q _ A D V A N C E _ P A Y M E N T _ A p p r ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 0 A M * * * * * * /
|
|
1796
|
|
|
1797
|
S E T A N S I _ N U L L S O N
|
|
1798
|
|
|
1799
|
G O
|
|
1800
|
|
|
1801
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
1802
|
|
|
1803
|
G O
|
|
1804
|
|
|
1805
|
C R E A T E P R O C E D U R E [ d b o ] . [ T R _ R E Q _ A D V A N C E _ P A Y M E N T _ A p p r ]
|
|
1806
|
|
|
1807
|
- - L u a n l t 2 0 1 9 / 1 7 / 1 0 - S ? a p a r a m s
|
|
1808
|
|
|
1809
|
@ p _ R E Q _ P A Y _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
1810
|
|
|
1811
|
@ p _ C H E C K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
1812
|
|
|
1813
|
@ p _ A U T H _ S T A T U S v a r c h a r ( 1 5 ) = N U L L ,
|
|
1814
|
|
|
1815
|
@ p _ C O S T _ I D V A R C H A R ( 1 5 ) = N U L L
|
|
1816
|
|
|
1817
|
A S
|
|
1818
|
|
|
1819
|
B E G I N T R A N S A C T I O N
|
|
1820
|
|
|
1821
|
D E C L A R E @ B R A N C H _ C R E A T E V A R C H A R ( 1 5 ) , @ p _ D E P _ I D V A R C H A R ( 1 5 )
|
|
1822
|
|
|
1823
|
- - P R I N T @ B R A N C H _ C R E A T E
|
|
1824
|
|
|
1825
|
S E T @ B R A N C H _ C R E A T E = ( S E L E C T B R A N C H _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
1826
|
|
|
1827
|
D E C L A R E @ D E P _ C O D E _ N E X T V A R C H A R ( 1 5 )
|
|
1828
|
|
|
1829
|
I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ B R A N C H _ C R E A T E ) < > ' H S ' )
|
|
1830
|
|
|
1831
|
B E G I N
|
|
1832
|
|
|
1833
|
S E T @ p _ D E P _ I D = ( S E L E C T T O P 1 D E P _ I D F R O M C M _ D E P A R T M E N T W H E R E L E F T ( D E P _ C O D E , 5 ) I N ( S E L E C T T O P 1 L E F T ( D V D M _ C O D E , 5 ) F R O M C M _ D V D M W H E R E D V D M _ I D = @ p _ C O S T _ I D ) )
|
|
1834
|
|
|
1835
|
S E T @ D E P _ C O D E _ N E X T = ( S E L E C T D E P _ C O D E F R O M C M _ D E P A R T M E N T W H E R E D E P _ I D = @ p _ D E P _ I D )
|
|
1836
|
|
|
1837
|
- - P R I N T @ D E P _ C O D E _ N E X T
|
|
1838
|
|
|
1839
|
E N D
|
|
1840
|
|
|
1841
|
E L S E
|
|
1842
|
|
|
1843
|
B E G I N
|
|
1844
|
|
|
1845
|
S E T @ p _ D E P _ I D = ( S E L E C T D E P _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
1846
|
|
|
1847
|
S E T @ D E P _ C O D E _ N E X T = ( S E L E C T D E P _ C O D E F R O M C M _ D E P A R T M E N T W H E R E D E P _ I D = @ p _ D E P _ I D )
|
|
1848
|
|
|
1849
|
E N D
|
|
1850
|
|
|
1851
|
I F E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E M A K E R _ I D = @ p _ C H E C K E R _ I D A N D R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
1852
|
|
|
1853
|
B E G I N
|
|
1854
|
|
|
1855
|
R O L L B A C K T R A N S A C T I O N
|
|
1856
|
|
|
1857
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' N g ? ? i p h ? d u y ? t p h i ? u p h ? i k h ? c v ? i n g ? ? i t ? o p h i ? u ! B ? n k h ? n g ? ? c p h ? p d u y ? t ? i t ? ? n g n ? y ' E r r o r D e s c
|
|
1858
|
|
|
1859
|
R E T U R N ' - 1 '
|
|
1860
|
|
|
1861
|
E N D
|
|
1862
|
|
|
1863
|
- - K I E M T R A N E U D A N G T R A V E T H I P H A I C H O C A P N H A T L A I T H O N G T I N M O I D U O C P H E P D U Y E T
|
|
1864
|
|
|
1865
|
I F E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S = ' R ' A N D R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
1866
|
|
|
1867
|
B E G I N
|
|
1868
|
|
|
1869
|
R O L L B A C K T R A N S A C T I O N
|
|
1870
|
|
|
1871
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' P h i ? u ? n g h ? t ? m ? n g a n g ? ? c t r ? v ? b ? p h ? n y ? u c ? u . V u i l ? n g c ? p n h ? t l ? i t h ? n g t i n t r ? ? c k h i d u y ? t ' E r r o r D e s c
|
|
1872
|
|
|
1873
|
R E T U R N ' - 1 '
|
|
1874
|
|
|
1875
|
E N D
|
|
1876
|
|
|
1877
|
- - K I E M T R A N E U D A N G T R A V E T H I P H A I C H O C A P N H A T L A I T H O N G T I N M O I D U O C P H E P D U Y E T
|
|
1878
|
|
|
1879
|
I F E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T = ' R ' A N D R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
1880
|
|
|
1881
|
B E G I N
|
|
1882
|
|
|
1883
|
R O L L B A C K T R A N S A C T I O N
|
|
1884
|
|
|
1885
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' P h i ? u ? n g h ? t ? m ? n g a n g ? ? c t r ? v ? b ? p h ? n y ? u c ? u . V u i l ? n g c ? p n h ? t l ? i t h ? n g t i n t r ? ? c k h i d u y ? t ' E r r o r D e s c
|
|
1886
|
|
|
1887
|
R E T U R N ' - 1 '
|
|
1888
|
|
|
1889
|
E N D
|
|
1890
|
|
|
1891
|
- - K I E M T R A N E U D A N G T R A V E T H I P H A I C H O C A P N H A T L A I T H O N G T I N M O I D U O C P H E P D U Y E T
|
|
1892
|
|
|
1893
|
I F E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T = ' A ' A N D R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
1894
|
|
|
1895
|
B E G I N
|
|
1896
|
|
|
1897
|
R O L L B A C K T R A N S A C T I O N
|
|
1898
|
|
|
1899
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' P h i ? u ? n g h ? t ? m ? n g ? ? ? c K S V p h ? d u y ? t t r ? ? c ? ' E r r o r D e s c
|
|
1900
|
|
|
1901
|
R E T U R N ' - 1 '
|
|
1902
|
|
|
1903
|
E N D
|
|
1904
|
|
|
1905
|
- - C A P N H A T C O D E T R O N G Q U A T R I N H T E S T U A T
|
|
1906
|
|
|
1907
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D A N D R E Q _ T Y P E = ' I ' ) )
|
|
1908
|
|
|
1909
|
B E G I N
|
|
1910
|
|
|
1911
|
D E C L A R E @ R O L E _ I D V A R C H A R ( 2 0 0 ) , @ B R A N C H _ T Y P E V A R C H A R ( 1 5 ) , @ T O T A L _ A D V A N C E D E C I M A L ( 1 8 , 0 ) , @ T O T A L _ P A Y B A C K D E C I M A L ( 1 8 , 0 ) , @ B R A N C H _ I D V A R C H A R ( 1 5 ) ,
|
|
1912
|
|
|
1913
|
@ D E P _ I D V A R C H A R ( 1 5 ) , @ C O S T C E N T E R _ I D V A R C H A R ( 1 5 ) = N U L L , @ B R A N C H _ R Q V A R C H A R ( 1 5 ) = N U L L , @ D E P _ I D _ R Q V A R C H A R ( 1 5 ) , @ B R A N C H _ L O G I N V A R C H A R ( 1 5 ) , @ L I M I T _ O N E _ O F D E C I M A L ( 1 8 , 2 )
|
|
1914
|
|
|
1915
|
D E C L A R E @ L I M I T _ A M T D E C I M A L ( 1 8 , 0 ) , @ R E Q _ A M T D E C I M A L ( 1 8 , 2 ) = 0 , @ T O N G _ P G D D E C I M A L ( 1 8 , 0 ) , @ T O N G _ P G D _ H O A N D E C I M A L ( 1 8 , 0 )
|
|
1916
|
|
|
1917
|
S E T @ R E Q _ A M T = ( S E L E C T R E Q _ A M T * I S N U L L ( R A T E , 1 ) F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
1918
|
|
|
1919
|
- - S E T @ R O L E _ I D = ( S E L E C T R O L E N A M E F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ C H E C K E R _ I D )
|
|
1920
|
|
|
1921
|
S E T @ R O L E _ I D = ( S E L E C T R O L E N A M E F R O M T L _ U S E R _ V 2 W H E R E T L N A N M E = @ p _ C H E C K E R _ I D )
|
|
1922
|
|
|
1923
|
S E T @ B R A N C H _ I D = ( S E L E C T T L S U B B R I D F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ C H E C K E R _ I D )
|
|
1924
|
|
|
1925
|
S E T @ B R A N C H _ R Q = ( S E L E C T B R A N C H _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
1926
|
|
|
1927
|
S E T @ D E P _ I D _ R Q = ( S E L E C T D E P _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
1928
|
|
|
1929
|
S E T @ B R A N C H _ T Y P E = ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ B R A N C H _ R Q )
|
|
1930
|
|
|
1931
|
D E C L A R E @ t m p t a b l e ( B R A N C H _ I D v a r c h a r ( 1 5 ) )
|
|
1932
|
|
|
1933
|
I N S E R T i n t o @ t m p S E L E C T B R A N C H _ I D F R O M [ d b o ] . [ C M _ B R A N C H _ G E T C H I L D I D ] ( @ B R A N C H _ I D )
|
|
1934
|
|
|
1935
|
D E C L A R E @ t m p _ C N t a b l e ( B R A N C H _ I D v a r c h a r ( 1 5 ) )
|
|
1936
|
|
|
1937
|
I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ B R A N C H _ R Q ) = ' C N ' )
|
|
1938
|
|
|
1939
|
B E G I N
|
|
1940
|
|
|
1941
|
I N S E R T i n t o @ t m p _ C N S E L E C T B R A N C H _ I D F R O M [ d b o ] . [ C M _ B R A N C H _ G E T C H I L D I D ] ( @ B R A N C H _ R Q )
|
|
1942
|
|
|
1943
|
E N D
|
|
1944
|
|
|
1945
|
E L S E I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ B R A N C H _ R Q ) = ' P G D ' )
|
|
1946
|
|
|
1947
|
B E G I N
|
|
1948
|
|
|
1949
|
D E C L A R E @ F A T H E R _ I D V A R C H A R ( 1 5 ) = N U L L
|
|
1950
|
|
|
1951
|
S E T @ F A T H E R _ I D = ( S E L E C T F A T H E R _ I D F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ B R A N C H _ R Q )
|
|
1952
|
|
|
1953
|
I N S E R T i n t o @ t m p _ C N S E L E C T B R A N C H _ I D F R O M [ d b o ] . [ C M _ B R A N C H _ G E T C H I L D I D ] ( @ F A T H E R _ I D )
|
|
1954
|
|
|
1955
|
E N D
|
|
1956
|
|
|
1957
|
- - D E C L A R E @ D E P _ I D _ L G V A R C H A R ( 1 5 ) = N U L L
|
|
1958
|
|
|
1959
|
- - S E T @ D E P _ I D _ L G = ( S E L E C T S E C U R _ C O D E F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ C H E C K E R _ I D )
|
|
1960
|
|
|
1961
|
D E C L A R E @ T M P _ D V D M T A B L E ( D V D M _ I D V A R C H A R ( 1 5 ) )
|
|
1962
|
|
|
1963
|
I N S E R T I N T O @ T M P _ D V D M
|
|
1964
|
|
|
1965
|
S E L E C T A . D V D M _ I D - - , A . C O S T _ C O D E , A . C O S T _ N A M E , B . D E P _ I D - - , C . D E P _ C O D E , C . D E P _ N A M E
|
|
1966
|
|
|
1967
|
F R O M P L _ C O S T C E N T E R A
|
|
1968
|
|
|
1969
|
L E F T J O I N P L _ C O S T C E N T E R _ D T B O N A . C O S T _ I D = B . C O S T _ I D
|
|
1970
|
|
|
1971
|
W H E R E B . D E P _ I D = @ D E P _ I D _ R Q
|
|
1972
|
|
|
1973
|
G R O U P B Y A . D V D M _ I D
|
|
1974
|
|
|
1975
|
- - K H A I B A O B R A N C H C U A U S E R D U Y E T
|
|
1976
|
|
|
1977
|
S E T @ B R A N C H _ L O G I N = ( S E L E C T T L S U B B R I D F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ C H E C K E R _ I D )
|
|
1978
|
|
|
1979
|
I F ( N O T E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R O L E _ U S E R = @ R O L E _ I D A N D R E Q _ I D = @ p _ R E Q _ P A Y _ I D ) )
|
|
1980
|
|
|
1981
|
B E G I N
|
|
1982
|
|
|
1983
|
R O L L B A C K T R A N S A C T I O N
|
|
1984
|
|
|
1985
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' B ? n k h ? n g c ? q u y ? n p h ? d u y ? t p h i ? u t ? m ? n g n ? i b ? . V u i l ? n g c h ? n g i a o d ? c h k h ? c ? d u y ? t ' E r r o r D e s c
|
|
1986
|
|
|
1987
|
R E T U R N ' - 1 '
|
|
1988
|
|
|
1989
|
E N D
|
|
1990
|
|
|
1991
|
- - I F ( E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R O L E _ U S E R = @ R O L E _ I D A N D R E Q _ I D = @ p _ R E Q _ P A Y _ I D A N D B R A N C H _ I D = @ B R A N C H _ I D A N D S T A T U S = ' P ' ) )
|
|
1992
|
|
|
1993
|
- - B E G I N
|
|
1994
|
|
|
1995
|
- - R O L L B A C K T R A N S A C T I O N
|
|
1996
|
|
|
1997
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' B ? n ? t h ? c h i ? n x ? c n h ? n p h i ? u t ? m ? n g t r ? ? c ? ' E r r o r D e s c
|
|
1998
|
|
|
1999
|
- - R E T U R N ' - 1 '
|
|
2000
|
|
|
2001
|
- - E N D
|
|
2002
|
|
|
2003
|
- - K I E M T R A A U T H _ S T A T U S T R U Y E N X U O N G L A G I , A : D U Y E T , C : C O N F I R M
|
|
2004
|
|
|
2005
|
I F ( @ p _ A U T H _ S T A T U S = ' U ' ) - - K I E M T R A H A N M U C C O N L A I C U A U S E R V A T H O N G B A O C H O N G U O I D U Y E T
|
|
2006
|
|
|
2007
|
B E G I N
|
|
2008
|
|
|
2009
|
- - B A T D A U D U Y E T T H E O N G A N S A C H
|
|
2010
|
|
|
2011
|
- - - L A Y H A N M U C C U A U S E R
|
|
2012
|
|
|
2013
|
S E T @ L I M I T _ A M T = ( S E L E C T L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T W H E R E R O L E _ I D = @ R O L E _ I D A N D L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = @ B R A N C H _ L O G I N )
|
|
2014
|
|
|
2015
|
|
|
2016
|
|
|
2017
|
p r i n t @ L I M I T _ A M T
|
|
2018
|
|
|
2019
|
- -
|
|
2020
|
|
|
2021
|
S E T @ L I M I T _ O N E _ O F = ( S E L E C T L I M I T _ P E R C E N T F R O M T L _ S Y S R O L E _ L I M I T W H E R E R O L E _ I D = @ R O L E _ I D A N D L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = @ B R A N C H _ L O G I N )
|
|
2022
|
|
|
2023
|
- - N E U L A H O I S O T H I L A Y T O N G S O T I E N T A M U N G C U A C A C P H O N G B A N C H U N G V O I K H O I C U A P H I E U D A N G D U O C D U Y E T
|
|
2024
|
|
|
2025
|
S E T @ T O N G _ P G D = ( S E L E C T S U M ( R E Q _ A M T * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E B R A N C H _ I D = @ B R A N C H _ R Q
|
|
2026
|
|
|
2027
|
A N D R E Q _ T Y P E = ' I ' A N D A U T H _ S T A T U S = ' A ' ) + @ R E Q _ A M T
|
|
2028
|
|
|
2029
|
S E T @ T O N G _ P G D _ H O A N = (
|
|
2030
|
|
|
2031
|
S E L E C T ( S U M ( B . A M T _ U S E ) - S U M ( B . A M T _ A D D ) + S U M ( B . A M T _ R E V E R T ) )
|
|
2032
|
|
|
2033
|
F R O M T R _ R E Q _ P A Y M E N T _ D T B
|
|
2034
|
|
|
2035
|
I N N E R J O I N T R _ R E Q _ P A Y M E N T A O N B . P A Y _ I D = A . R E Q _ P A Y _ I D
|
|
2036
|
|
|
2037
|
I N N E R J O I N T R _ R E Q _ A D V A N C E _ P A Y M E N T C O N C . R E Q _ P A Y _ I D = B . P A Y _ A D V _ I D
|
|
2038
|
|
|
2039
|
W H E R E A . B R A N C H _ I D = @ B R A N C H _ R Q
|
|
2040
|
|
|
2041
|
A N D A . A U T H _ S T A T U S _ K T = ' A ' A N D C . R E Q _ T Y P E = ' I ' )
|
|
2042
|
|
|
2043
|
I F ( @ B R A N C H _ T Y P E = ' H S ' )
|
|
2044
|
|
|
2045
|
B E G I N
|
|
2046
|
|
|
2047
|
S E T @ T O T A L _ A D V A N C E = I S N U L L ( ( S E L E C T S U M ( R E Q _ A M T * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E
|
|
2048
|
|
|
2049
|
D E P _ I D I N
|
|
2050
|
|
|
2051
|
( S E L E C T A . D E P _ I D F R O M P L _ C O S T C E N T E R _ D T A
|
|
2052
|
|
|
2053
|
L E F T J O I N P L _ C O S T C E N T E R B O N A . C O S T _ I D = B . C O S T _ I D
|
|
2054
|
|
|
2055
|
W H E R E B . D V D M _ I D I N ( S E L E C T D V D M _ I D F R O M @ T M P _ D V D M ) A N D A . B R A N C H _ I D = @ B R A N C H _ R Q )
|
|
2056
|
|
|
2057
|
A N D R E Q _ T Y P E = ' I ' A N D A U T H _ S T A T U S = ' A ' ) , 0 )
|
|
2058
|
|
|
2059
|
S E T @ T O T A L _ P A Y B A C K =
|
|
2060
|
|
|
2061
|
I S N U L L (
|
|
2062
|
|
|
2063
|
(
|
|
2064
|
|
|
2065
|
S E L E C T ( S U M ( B . A M T _ U S E ) - S U M ( B . A M T _ A D D ) + S U M ( B . A M T _ R E V E R T ) )
|
|
2066
|
|
|
2067
|
F R O M T R _ R E Q _ P A Y M E N T _ D T B
|
|
2068
|
|
|
2069
|
I N N E R J O I N T R _ R E Q _ P A Y M E N T A O N B . P A Y _ I D = A . R E Q _ P A Y _ I D
|
|
2070
|
|
|
2071
|
I N N E R J O I N T R _ R E Q _ A D V A N C E _ P A Y M E N T C O N C . R E Q _ P A Y _ I D = B . P A Y _ A D V _ I D
|
|
2072
|
|
|
2073
|
W H E R E A . D E P _ I D I N
|
|
2074
|
|
|
2075
|
( S E L E C T A . D E P _ I D F R O M P L _ C O S T C E N T E R _ D T A
|
|
2076
|
|
|
2077
|
L E F T J O I N P L _ C O S T C E N T E R B O N A . C O S T _ I D = B . C O S T _ I D
|
|
2078
|
|
|
2079
|
W H E R E B . D V D M _ I D I N ( S E L E C T D V D M _ I D F R O M @ T M P _ D V D M ) A N D A . B R A N C H _ I D = @ B R A N C H _ I D )
|
|
2080
|
|
|
2081
|
A N D A . A U T H _ S T A T U S _ K T = ' A ' A N D C . R E Q _ T Y P E = ' I '
|
|
2082
|
|
|
2083
|
) , 0 )
|
|
2084
|
|
|
2085
|
E N D
|
|
2086
|
|
|
2087
|
|
|
2088
|
|
|
2089
|
- - N E U P H I E U D U O C T A O K H A C V O I H O I S O T H I T I E N H A N H T I N H T O N G S O T I E N T A M U N G C U A C N V A P H O N G G I A O D I C H T R U C T H U O C
|
|
2090
|
|
|
2091
|
E L S E I F ( @ B R A N C H _ T Y P E < > ' H S ' )
|
|
2092
|
|
|
2093
|
B E G I N
|
|
2094
|
|
|
2095
|
S E T @ T O T A L _ A D V A N C E = ( S E L E C T S U M ( R E Q _ A M T * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D F R O M @ t m p _ C N )
|
|
2096
|
|
|
2097
|
A N D R E Q _ T Y P E = ' I ' A N D A U T H _ S T A T U S = ' A ' )
|
|
2098
|
|
|
2099
|
S E T @ T O T A L _ P A Y B A C K =
|
|
2100
|
|
|
2101
|
(
|
|
2102
|
|
|
2103
|
S E L E C T ( S U M ( B . A M T _ U S E ) - S U M ( B . A M T _ A D D ) + S U M ( B . A M T _ R E V E R T ) )
|
|
2104
|
|
|
2105
|
F R O M T R _ R E Q _ P A Y M E N T _ D T B
|
|
2106
|
|
|
2107
|
I N N E R J O I N T R _ R E Q _ P A Y M E N T A O N B . P A Y _ I D = A . R E Q _ P A Y _ I D
|
|
2108
|
|
|
2109
|
I N N E R J O I N T R _ R E Q _ A D V A N C E _ P A Y M E N T C O N C . R E Q _ P A Y _ I D = B . P A Y _ A D V _ I D
|
|
2110
|
|
|
2111
|
W H E R E A . B R A N C H _ I D I N
|
|
2112
|
|
|
2113
|
( S E L E C T B R A N C H _ I D F R O M @ t m p _ C N )
|
|
2114
|
|
|
2115
|
A N D A . A U T H _ S T A T U S _ K T = ' A ' A N D C . R E Q _ T Y P E = ' I '
|
|
2116
|
|
|
2117
|
)
|
|
2118
|
|
|
2119
|
E N D
|
|
2120
|
|
|
2121
|
D E C L A R E @ L I M I T _ R E M A I N D E C I M A L ( 1 8 , 0 )
|
|
2122
|
|
|
2123
|
S E T @ L I M I T _ R E M A I N = I S N U L L ( @ T O T A L _ A D V A N C E , 0 ) - I S N U L L ( @ T O T A L _ P A Y B A C K , 0 )
|
|
2124
|
|
|
2125
|
- - K I E M T R A N E U L A C H U T I C H H D Q T T H I P H E D U Y E T L U O N , K H O N G C A N X E T H A N M U C G I
|
|
2126
|
|
|
2127
|
I F ( E X I S T S ( S E L E C T * F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ C H E C K E R _ I D A N D R o l e N a m e = ' H D Q T ' ) )
|
|
2128
|
|
|
2129
|
B E G I N
|
|
2130
|
|
|
2131
|
R O L L B A C K T R A N S A C T I O N
|
|
2132
|
|
|
2133
|
S E L E C T ' - 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2134
|
|
|
2135
|
- - N ' T ? n g h ? n m ? c p h ? d u y ? t c ? a b ? n l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2136
|
|
|
2137
|
- - + C H A R ( 1 0 ) +
|
|
2138
|
|
|
2139
|
- - N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2140
|
|
|
2141
|
- - + C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2142
|
|
|
2143
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2144
|
|
|
2145
|
+ C H A R ( 1 0 ) +
|
|
2146
|
|
|
2147
|
N ' B ? n c ? m u ? n t i ? p t ? c d u y ? t h a y k h ? n g ' E r r o r D e s c
|
|
2148
|
|
|
2149
|
R E T U R N ' - 4 '
|
|
2150
|
|
|
2151
|
E N D
|
|
2152
|
|
|
2153
|
I F ( @ L I M I T _ A M T < ( S E L E C T R E Q _ A M T * I S N U L L ( R A T E , 1 ) F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D ) + @ L I M I T _ R E M A I N )
|
|
2154
|
|
|
2155
|
B E G I N
|
|
2156
|
|
|
2157
|
R O L L B A C K T R A N S A C T I O N
|
|
2158
|
|
|
2159
|
S E L E C T ' - 2 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2160
|
|
|
2161
|
N ' T ? n g h ? n m ? c p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' ) + C H A R ( 1 0 ) +
|
|
2162
|
|
|
2163
|
N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2164
|
|
|
2165
|
+ C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2166
|
|
|
2167
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2168
|
|
|
2169
|
+ C H A R ( 1 0 ) +
|
|
2170
|
|
|
2171
|
N ' S ? t i ? n t ? m ? n g ? v ? ? t m ? c p h ? d u y ? t l ? : ' + F O R M A T ( ( @ L I M I T _ R E M A I N + @ R E Q _ A M T ) - @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2172
|
|
|
2173
|
+ C H A R ( 1 0 ) +
|
|
2174
|
|
|
2175
|
N ' B ? n m u ? n c h u y ? n g i a o d ? c h l ? n c ? p c a o h ? n ? d u y ? t h a y t i ? p t ? c c h ? d u y ? t ' E r r o r D e s c
|
|
2176
|
|
|
2177
|
R E T U R N ' - 2 '
|
|
2178
|
|
|
2179
|
E N D
|
|
2180
|
|
|
2181
|
- - - N E U D U H A N M U C T H I T H O N G B A O D E N G U O I D U Y E T C A N N H A C C O N E N D U Y E T P H I E U H A Y K H O N G
|
|
2182
|
|
|
2183
|
I F ( @ L I M I T _ A M T > = ( S E L E C T R E Q _ A M T * I S N U L L ( R A T E , 1 ) F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D ) + @ L I M I T _ R E M A I N )
|
|
2184
|
|
|
2185
|
B E G I N
|
|
2186
|
|
|
2187
|
I F ( @ R E Q _ A M T > @ L I M I T _ O N E _ O F )
|
|
2188
|
|
|
2189
|
B E G I N
|
|
2190
|
|
|
2191
|
R O L L B A C K T R A N S A C T I O N
|
|
2192
|
|
|
2193
|
S E L E C T ' - 2 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2194
|
|
|
2195
|
N ' T ? n g h ? n m ? c p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2196
|
|
|
2197
|
+ C H A R ( 1 0 ) +
|
|
2198
|
|
|
2199
|
N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2200
|
|
|
2201
|
+ C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2202
|
|
|
2203
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2204
|
|
|
2205
|
+ C H A R ( 1 0 ) +
|
|
2206
|
|
|
2207
|
N ' S ? t i ? n t ? m ? n g ? v ? ? t m ? c s o v ? i s ? t i ? n c ? a m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2208
|
|
|
2209
|
+ C H A R ( 1 0 ) +
|
|
2210
|
|
|
2211
|
N ' B ? n m u ? n c h u y ? n g i a o d ? c h l ? n c ? p c a o h ? n ? d u y ? t h a y t i ? p t ? c c h ? d u y ? t ' E r r o r D e s c
|
|
2212
|
|
|
2213
|
R E T U R N ' - 2 '
|
|
2214
|
|
|
2215
|
E N D
|
|
2216
|
|
|
2217
|
E L S E
|
|
2218
|
|
|
2219
|
B E G I N
|
|
2220
|
|
|
2221
|
- - K I E M T R A N E U L A P G D T H I C A N H B A O
|
|
2222
|
|
|
2223
|
I F ( @ B R A N C H _ T Y P E = ' H S ' )
|
|
2224
|
|
|
2225
|
B E G I N
|
|
2226
|
|
|
2227
|
I F ( E X I S T S ( S E L E C T * F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ C H E C K E R _ I D A N D R o l e N a m e N O T I N ( ' T G D ' , ' H Q D T ' ) ) )
|
|
2228
|
|
|
2229
|
B E G I N
|
|
2230
|
|
|
2231
|
R O L L B A C K T R A N S A C T I O N
|
|
2232
|
|
|
2233
|
S E L E C T ' - 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2234
|
|
|
2235
|
N ' T ? n g h ? n m ? c p h ? d u y ? t c ? a b ? n l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2236
|
|
|
2237
|
+ C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2238
|
|
|
2239
|
N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2240
|
|
|
2241
|
+ C H A R ( 1 0 ) +
|
|
2242
|
|
|
2243
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2244
|
|
|
2245
|
+ C H A R ( 1 0 ) +
|
|
2246
|
|
|
2247
|
N ' B ? n c ? m u ? n t i ? p t ? c d u y ? t h a y k h ? n g ' E r r o r D e s c
|
|
2248
|
|
|
2249
|
R E T U R N ' - 4 '
|
|
2250
|
|
|
2251
|
E N D
|
|
2252
|
|
|
2253
|
E L S E
|
|
2254
|
|
|
2255
|
B E G I N
|
|
2256
|
|
|
2257
|
R O L L B A C K T R A N S A C T I O N
|
|
2258
|
|
|
2259
|
S E L E C T ' - 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2260
|
|
|
2261
|
- - N ' T ? n g h ? n m ? c p h ? d u y ? t c ? a b ? n l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2262
|
|
|
2263
|
- - + C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2264
|
|
|
2265
|
- - N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2266
|
|
|
2267
|
- - + C H A R ( 1 0 ) +
|
|
2268
|
|
|
2269
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2270
|
|
|
2271
|
+ C H A R ( 1 0 ) +
|
|
2272
|
|
|
2273
|
N ' B ? n c ? m u ? n t i ? p t ? c d u y ? t h a y k h ? n g ' E r r o r D e s c
|
|
2274
|
|
|
2275
|
R E T U R N ' - 4 '
|
|
2276
|
|
|
2277
|
E N D
|
|
2278
|
|
|
2279
|
E N D
|
|
2280
|
|
|
2281
|
E L S E I F ( @ B R A N C H _ T Y P E = ' C N ' )
|
|
2282
|
|
|
2283
|
B E G I N
|
|
2284
|
|
|
2285
|
I F ( I S N U L L ( @ T O N G _ P G D , 0 ) - I S N U L L ( @ T O N G _ P G D _ H O A N , 0 ) > 4 0 0 0 0 0 0 0 )
|
|
2286
|
|
|
2287
|
B E G I N
|
|
2288
|
|
|
2289
|
R O L L B A C K T R A N S A C T I O N
|
|
2290
|
|
|
2291
|
S E L E C T ' - 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2292
|
|
|
2293
|
N ' T ? n g h ? n m ? c p h ? d u y ? t c ? a b ? n l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2294
|
|
|
2295
|
+ C H A R ( 1 0 ) +
|
|
2296
|
|
|
2297
|
N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2298
|
|
|
2299
|
+ C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2300
|
|
|
2301
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2302
|
|
|
2303
|
+ C H A R ( 1 0 ) +
|
|
2304
|
|
|
2305
|
N ' S ? t i ? n t ? m ? n g a n g v ? ? t q u ? s ? t ? n g h ? n m ? c t ? m ? n g c ? a 1 C N : ' + F O R M A T ( 4 0 0 0 0 0 0 0 , ' # , # ' , ' v i - V N ' ) + N ' . S ? t i ? n v ? ? t l ? : ' + F O R M A T ( I S N U L L ( @ T O N G _ P G D , 0 ) - I S N U L L ( @ T O N G _ P G D _ H O A N , 0 ) - 4 0 0 0 0 0 0 0 , ' # , # ' , ' v i - V N ' )
|
|
2306
|
|
|
2307
|
+ C H A R ( 1 0 ) +
|
|
2308
|
|
|
2309
|
N ' B ? n c ? m u ? n t i ? p t ? c d u y ? t h a y k h ? n g ' E r r o r D e s c
|
|
2310
|
|
|
2311
|
R E T U R N ' - 4 '
|
|
2312
|
|
|
2313
|
E N D
|
|
2314
|
|
|
2315
|
E L S E
|
|
2316
|
|
|
2317
|
B E G I N
|
|
2318
|
|
|
2319
|
I F ( E X I S T S ( S E L E C T * F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ C H E C K E R _ I D A N D R o l e N a m e N O T I N ( ' T G D ' , ' H Q D T ' ) ) )
|
|
2320
|
|
|
2321
|
B E G I N
|
|
2322
|
|
|
2323
|
R O L L B A C K T R A N S A C T I O N
|
|
2324
|
|
|
2325
|
S E L E C T ' - 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2326
|
|
|
2327
|
N ' T ? n g h ? n m ? c p h ? d u y ? t c ? a b ? n l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2328
|
|
|
2329
|
+ C H A R ( 1 0 ) +
|
|
2330
|
|
|
2331
|
N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2332
|
|
|
2333
|
+ C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2334
|
|
|
2335
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2336
|
|
|
2337
|
+ C H A R ( 1 0 ) +
|
|
2338
|
|
|
2339
|
N ' B ? n c ? m u ? n t i ? p t ? c d u y ? t h a y k h ? n g ' E r r o r D e s c
|
|
2340
|
|
|
2341
|
R E T U R N ' - 4 '
|
|
2342
|
|
|
2343
|
E N D
|
|
2344
|
|
|
2345
|
E L S E
|
|
2346
|
|
|
2347
|
B E G I N
|
|
2348
|
|
|
2349
|
R O L L B A C K T R A N S A C T I O N
|
|
2350
|
|
|
2351
|
S E L E C T ' - 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2352
|
|
|
2353
|
- - N ' T ? n g h ? n m ? c p h ? d u y ? t c ? a b ? n l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2354
|
|
|
2355
|
- - + C H A R ( 1 0 ) +
|
|
2356
|
|
|
2357
|
- - N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2358
|
|
|
2359
|
- - + C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2360
|
|
|
2361
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2362
|
|
|
2363
|
+ C H A R ( 1 0 ) +
|
|
2364
|
|
|
2365
|
N ' B ? n c ? m u ? n t i ? p t ? c d u y ? t h a y k h ? n g ' E r r o r D e s c
|
|
2366
|
|
|
2367
|
R E T U R N ' - 4 '
|
|
2368
|
|
|
2369
|
E N D
|
|
2370
|
|
|
2371
|
E N D
|
|
2372
|
|
|
2373
|
E N D
|
|
2374
|
|
|
2375
|
E L S E I F ( @ B R A N C H _ T Y P E = ' P G D ' )
|
|
2376
|
|
|
2377
|
B E G I N
|
|
2378
|
|
|
2379
|
I F ( I S N U L L ( @ T O N G _ P G D , 0 ) - I S N U L L ( @ T O N G _ P G D _ H O A N , 0 ) > 1 0 0 0 0 0 0 0 )
|
|
2380
|
|
|
2381
|
B E G I N
|
|
2382
|
|
|
2383
|
R O L L B A C K T R A N S A C T I O N
|
|
2384
|
|
|
2385
|
S E L E C T ' - 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2386
|
|
|
2387
|
N ' T ? n g h ? n m ? c p h ? d u y ? t c ? a b ? n l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' ) + C H A R ( 1 0 ) +
|
|
2388
|
|
|
2389
|
N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2390
|
|
|
2391
|
+ C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2392
|
|
|
2393
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2394
|
|
|
2395
|
+ C H A R ( 1 0 ) +
|
|
2396
|
|
|
2397
|
N ' S ? t i ? n t ? m ? n g a n g v ? ? t q u ? s ? t ? n g h ? n m ? c t ? m ? n g c ? a 1 P G D : ' + F O R M A T ( 1 0 0 0 0 0 0 0 , ' # , # ' , ' v i - V N ' ) + N ' . S ? t i ? n v ? ? t l ? : ' + F O R M A T ( I S N U L L ( @ T O N G _ P G D , 0 ) - I S N U L L ( @ T O N G _ P G D _ H O A N , 0 ) - 1 0 0 0 0 0 0 0 , ' # , # ' , ' v i - V N ' )
|
|
2398
|
|
|
2399
|
+ C H A R ( 1 0 ) +
|
|
2400
|
|
|
2401
|
N ' B ? n c ? m u ? n t i ? p t ? c d u y ? t h a y k h ? n g ' E r r o r D e s c
|
|
2402
|
|
|
2403
|
R E T U R N ' - 4 '
|
|
2404
|
|
|
2405
|
E N D
|
|
2406
|
|
|
2407
|
E L S E
|
|
2408
|
|
|
2409
|
B E G I N
|
|
2410
|
|
|
2411
|
R O L L B A C K T R A N S A C T I O N
|
|
2412
|
|
|
2413
|
S E L E C T ' - 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D ,
|
|
2414
|
|
|
2415
|
N ' T ? n g h ? n m ? c p h ? d u y ? t c ? a b ? n l ? : ' + F O R M A T ( @ L I M I T _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2416
|
|
|
2417
|
+ C H A R ( 1 0 ) +
|
|
2418
|
|
|
2419
|
N ' H ? n m ? c t r ? n m ? t l ? n p h ? d u y ? t l ? : ' + F O R M A T ( @ L I M I T _ O N E _ O F , ' # , # ' , ' v i - V N ' )
|
|
2420
|
|
|
2421
|
+ C H A R ( 1 0 ) + C H A R ( 1 3 ) +
|
|
2422
|
|
|
2423
|
N ' S ? d ? t ? m ? n g l i y k ? c ? a ? n v ? t ? n h t ? i t h ? i i ? m n ? y l ? : ' + F O R M A T ( @ L I M I T _ R E M A I N + @ R E Q _ A M T , ' # , # ' , ' v i - V N ' )
|
|
2424
|
|
|
2425
|
+ C H A R ( 1 0 ) +
|
|
2426
|
|
|
2427
|
N ' B ? n c ? m u ? n t i ? p t ? c d u y ? t h a y k h ? n g ' E r r o r D e s c
|
|
2428
|
|
|
2429
|
R E T U R N ' - 4 '
|
|
2430
|
|
|
2431
|
E N D
|
|
2432
|
|
|
2433
|
E N D
|
|
2434
|
|
|
2435
|
E N D
|
|
2436
|
|
|
2437
|
E N D
|
|
2438
|
|
|
2439
|
- - N E U T H O A M A N C A C D I E U K I E N S E T I E N H A N H D U Y E T
|
|
2440
|
|
|
2441
|
E N D - - E N D D U H A N M U C D U Y E T
|
|
2442
|
|
|
2443
|
E L S E I F ( @ p _ A U T H _ S T A T U S = ' A ' )
|
|
2444
|
|
|
2445
|
B E G I N
|
|
2446
|
|
|
2447
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T
|
|
2448
|
|
|
2449
|
S E T A U T H _ S T A T U S = ' A ' , C H E C K E R _ I D = @ p _ C H E C K E R _ I D , A P P R O V E _ D T = G E T D A T E ( ) , A U T H _ S T A T U S _ K T = ' U '
|
|
2450
|
|
|
2451
|
W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
2452
|
|
|
2453
|
- - - C A P N H A T L A I T I N H T R A N G T R O N G R E Q U E S T _ P R O C E S S
|
|
2454
|
|
|
2455
|
D E C L A R E @ P R O C E S S _ C U R R V A R C H A R ( 5 )
|
|
2456
|
|
|
2457
|
S E T @ P R O C E S S _ C U R R = ( S E L E C T P R O C E S S _ I D F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = @ p _ R E Q _ P A Y _ I D A N D R O L E _ U S E R = @ R O L E _ I D )
|
|
2458
|
|
|
2459
|
I N S E R T I N T O P L _ P R O C E S S V A L U E S ( @ p _ R E Q _ P A Y _ I D , @ P R O C E S S _ C U R R , @ p _ C H E C K E R _ I D , G E T D A T E ( ) , ( S E L E C T R O L E _ D E S C + N ' d u y ? t ' F R O M T L _ S Y S R O L E W H E R E R O L E _ I D = @ R O L E _ I D ) , N ' C ? c c ? p p h ? d u y ? t t h e o h ? n m ? c ' )
|
|
2460
|
|
|
2461
|
- - - C A P N H A T P R O C E S S C U A P H I E U D E N G H I T A M U N G L A D A D U Y E T
|
|
2462
|
|
|
2463
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T P R O C E S S = @ P R O C E S S _ C U R R W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
2464
|
|
|
2465
|
- -
|
|
2466
|
|
|
2467
|
U P D A T E P L _ R E Q U E S T _ P R O C E S S S E T S T A T U S = ' A ' , N O T E S = ( S E L E C T R O L E _ D E S C + N ' d u y ? t ' F R O M T L _ S Y S R O L E W H E R E R O L E _ I D = @ R O L E _ I D ) W H E R E R O L E _ U S E R = @ R O L E _ I D A N D R E Q _ I D = @ p _ R E Q _ P A Y _ I D
|
|
2468
|
|
|
2469
|
|
|
2470
|
|
|
2471
|
E N D
|
|
2472
|
|
|
2473
|
E L S E - - N E W K H O N G D U H A N M U C T H I B A T D A U X A C N H A N V A D U Y E T T H E O H A N M U C
|
|
2474
|
|
|
2475
|
B E G I N
|
|
2476
|
|
|
2477
|
D E C L A R E @ t _ R E Q _ A M T D E C I M A L ( 1 8 , 0 ) = ( S E L E C T R E Q _ A M T F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
2478
|
|
|
2479
|
- - P R I N T @ t _ R E Q _ A M T
|
|
2480
|
|
|
2481
|
- - - N E U G I A M D O C K H O I V A N C H U A D U H A N M U C T H I G I A M D O C K H O I X A C N H A N V ? T I E P T U C B U O C T I E P T H E O L A P H O T O N G G I A M D O C
|
|
2482
|
|
|
2483
|
D E C L A R E @ M A X _ S T E P I N T , @ N E X T _ R O L E V A R C H A R ( 2 0 ) , @ M E S S A G E N V A R C H A R ( 1 0 0 ) , @ P R O C E S S _ I D _ N E X T V A R C H A R ( 5 ) , @ P R O C E S S _ P A R E N T V A R C H A R ( 5 ) ,
|
|
2484
|
|
|
2485
|
@ B R A N C H _ I D _ P R O C V A R C H A R ( 1 5 ) , @ N E X _ R O L E _ S T E P V A R C H A R ( 2 5 ) , @ C U R R E N T _ P R O C E S S V A R C H A R ( 1 5 )
|
|
2486
|
|
|
2487
|
S E T @ C U R R E N T _ P R O C E S S = ( S E L E C T P R O C E S S _ I D F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = @ p _ R E Q _ P A Y _ I D A N D R O L E _ U S E R = @ R O L E _ I D )
|
|
2488
|
|
|
2489
|
S E T @ N E X _ R O L E _ S T E P = ( S E L E C T R O L E _ U S E R F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E P A R E N T _ P R O C E S S _ I D = @ C U R R E N T _ P R O C E S S A N D R E Q _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
2490
|
|
|
2491
|
- - P R I N T @ N E X _ R O L E _ S T E P
|
|
2492
|
|
|
2493
|
- - S E T @ M A X _ S T E P = C O N V E R T ( I N T , ( S E L E C T M A X ( P R O C E S S _ I D ) F R O M T R _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = @ p _ R E Q _ P A Y _ I D ) )
|
|
2494
|
|
|
2495
|
S E T @ P R O C E S S _ I D _ N E X T = C O N V E R T ( V A R C H A R ( 5 ) , @ C U R R E N T _ P R O C E S S + 1 )
|
|
2496
|
|
|
2497
|
- - S E T @ P R O C E S S _ P A R E N T = C O N V E R T ( V A R C H A R ( 5 ) , @ M A X _ S T E P )
|
|
2498
|
|
|
2499
|
D E C L A R E @ T M P _ R O L E T A B L E ( R O L E _ I D V A R C H A R ( 1 5 ) , B R A N C H _ I D V A R C H A R ( 1 5 ) , L I M I T _ V A L U E D E C I M A L ( 1 8 , 0 ) , L I M I T _ T Y P E V A R C H A R ( 1 5 ) )
|
|
2500
|
|
|
2501
|
- - I F E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 8 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
2502
|
|
|
2503
|
I F ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) = ' 0 6 9 0 8 ' )
|
|
2504
|
|
|
2505
|
B E G I N
|
|
2506
|
|
|
2507
|
I N S E R T I N T O @ T M P _ R O L E S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E , A . L I M I T _ T Y P E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D < > ' G D K '
|
|
2508
|
|
|
2509
|
E N D
|
|
2510
|
|
|
2511
|
- - E L S E I F E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 1 0 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
2512
|
|
|
2513
|
E L S E I F ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) = ' 0 6 9 1 0 ' )
|
|
2514
|
|
|
2515
|
B E G I N
|
|
2516
|
|
|
2517
|
I N S E R T I N T O @ T M P _ R O L E S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E , A . L I M I T _ T Y P E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D < > ' G D K '
|
|
2518
|
|
|
2519
|
E N D
|
|
2520
|
|
|
2521
|
- - E L S E I F ( E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 0 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 1 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
2522
|
|
|
2523
|
- - O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 2 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 3 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
2524
|
|
|
2525
|
- - O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 4 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 2 0 % ' A N D D E P _ I D = @ p _ D E P _ I D ) )
|
|
2526
|
|
|
2527
|
E L S E I F ( ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) = ' 0 6 9 0 0 ' ) O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 0 1 ' O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 0 4 '
|
|
2528
|
|
|
2529
|
O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 0 2 ' O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 0 3 ' O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 2 0 ' )
|
|
2530
|
|
|
2531
|
B E G I N
|
|
2532
|
|
|
2533
|
I N S E R T I N T O @ T M P _ R O L E S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E , A . L I M I T _ T Y P E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D N O T I N ( ' G D K ' , ' P T G D ' )
|
|
2534
|
|
|
2535
|
E N D
|
|
2536
|
|
|
2537
|
- - E L S E I F ( E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 7 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 9 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
2538
|
|
|
2539
|
- - O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 1 1 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 2 1 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
2540
|
|
|
2541
|
- - O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 2 2 % ' A N D D E P _ I D = @ p _ D E P _ I D ) )
|
|
2542
|
|
|
2543
|
E L S E I F ( ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) = ' 0 6 9 0 7 ' ) O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 0 9 ' O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 1 1 '
|
|
2544
|
|
|
2545
|
O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 2 2 ' O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 2 1 ' O R ( L E F T ( @ D E P _ C O D E _ N E X T , 5 ) ) = ' 0 6 9 2 0 ' )
|
|
2546
|
|
|
2547
|
B E G I N
|
|
2548
|
|
|
2549
|
I N S E R T I N T O @ T M P _ R O L E S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E , A . L I M I T _ T Y P E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D < > ' P T G D '
|
|
2550
|
|
|
2551
|
E N D
|
|
2552
|
|
|
2553
|
E L S E
|
|
2554
|
|
|
2555
|
B E G I N
|
|
2556
|
|
|
2557
|
I N S E R T I N T O @ T M P _ R O L E S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E , A . L I M I T _ T Y P E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 '
|
|
2558
|
|
|
2559
|
E N D
|
|
2560
|
|
|
2561
|
S E T @ B R A N C H _ I D _ P R O C = ( S E L E C T B R A N C H _ I D F R O M @ T M P _ R O L E W H E R E R O L E _ I D = @ N E X T _ R O L E A N D L I M I T _ T Y P E = ' A D V _ P A Y ' )
|
|
2562
|
|
|
2563
|
p r i n t @ D E P _ C O D E _ N E X T
|
|
2564
|
|
|
2565
|
p r i n t @ B R A N C H _ I D _ P R O C
|
|
2566
|
|
|
2567
|
p r i n t @ N E X _ R O L E _ S T E P
|
|
2568
|
|
|
2569
|
I F ( N O T E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R O L E _ U S E R = @ N E X _ R O L E _ S T E P A N D R E Q _ I D = @ p _ R E Q _ P A Y _ I D ) )
|
|
2570
|
|
|
2571
|
B E G I N
|
|
2572
|
|
|
2573
|
S E T @ N E X T _ R O L E = ( S E L E C T T O P 1 R O L E _ I D F R O M @ T M P _ R O L E W H E R E L I M I T _ V A L U E > @ t _ R E Q _ A M T
|
|
2574
|
|
|
2575
|
A N D R O L E _ I D N O T I N ( S E L E C T R O L E _ U S E R F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = @ p _ R E Q _ P A Y _ I D ) A N D L I M I T _ T Y P E = ' A D V _ P A Y ' )
|
|
2576
|
|
|
2577
|
- - p r i n t @ N E X T _ R O L E
|
|
2578
|
|
|
2579
|
S E T @ B R A N C H _ I D _ P R O C = ( S E L E C T B R A N C H _ I D F R O M @ T M P _ R O L E W H E R E R O L E _ I D = @ N E X T _ R O L E A N D L I M I T _ T Y P E = ' A D V _ P A Y ' )
|
|
2580
|
|
|
2581
|
S E T @ M E S S A G E = ( S E L E C T N ' ? i ' + R O L E _ D E S C + N ' p h ? d u y ? t ' F R O M T L _ S Y S R O L E W H E R E R O L E _ I D = @ N E X T _ R O L E )
|
|
2582
|
|
|
2583
|
I N S E R T I N T O P L _ R E Q U E S T _ P R O C E S S ( R E Q _ I D , P R O C E S S _ I D , S T A T U S , R O L E _ U S E R , B R A N C H _ I D , C H E C K E R _ I D , A P P R O V E _ D T , P A R E N T _ P R O C E S S _ I D , I S _ L E A F , C O S T _ I D , D V D M _ I D , N O T E S )
|
|
2584
|
|
|
2585
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , @ P R O C E S S _ I D _ N E X T , ' C ' , @ N E X T _ R O L E , @ B R A N C H _ I D _ P R O C , @ N E X T _ R O L E , G E T D A T E ( ) , @ P R O C E S S _ P A R E N T , ' Y ' , N U L L , @ p _ C O S T _ I D , @ M E S S A G E )
|
|
2586
|
|
|
2587
|
I N S E R T I N T O P L _ P R O C E S S V A L U E S ( @ p _ R E Q _ P A Y _ I D , @ C U R R E N T _ P R O C E S S , @ p _ C H E C K E R _ I D , G E T D A T E ( ) , ( S E L E C T R O L E _ D E S C + N ' x ? c n h ? n ' F R O M T L _ S Y S R O L E W H E R E R O L E _ I D = @ R O L E _ I D ) , N ' C ? c c ? p p h ? d u y ? t t h e o h ? n m ? c ' )
|
|
2588
|
|
|
2589
|
E N D
|
|
2590
|
|
|
2591
|
E L S E
|
|
2592
|
|
|
2593
|
B E G I N
|
|
2594
|
|
|
2595
|
- - p r i n t @ N E X _ R O L E _ S T E P
|
|
2596
|
|
|
2597
|
S E T @ N E X T _ R O L E = @ N E X _ R O L E _ S T E P
|
|
2598
|
|
|
2599
|
U P D A T E P L _ R E Q U E S T _ P R O C E S S S E T S T A T U S = ' C ' , D V D M _ I D = @ p _ C O S T _ I D W H E R E R O L E _ U S E R = @ N E X T _ R O L E A N D R E Q _ I D = @ p _ R E Q _ P A Y _ I D
|
|
2600
|
|
|
2601
|
I N S E R T I N T O P L _ P R O C E S S V A L U E S ( @ p _ R E Q _ P A Y _ I D , @ C U R R E N T _ P R O C E S S , @ p _ C H E C K E R _ I D , G E T D A T E ( ) , ( S E L E C T R O L E _ D E S C + N ' x ? c n h ? n ' F R O M T L _ S Y S R O L E W H E R E R O L E _ I D = @ R O L E _ I D ) , N ' C ? c c ? p p h ? d u y ? t t h e o h ? n m ? c ' )
|
|
2602
|
|
|
2603
|
E N D
|
|
2604
|
|
|
2605
|
- -
|
|
2606
|
|
|
2607
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
2608
|
|
|
2609
|
- - U P D A T E S T A T U S C U A S T E P H I E N T A I
|
|
2610
|
|
|
2611
|
U P D A T E P L _ R E Q U E S T _ P R O C E S S S E T S T A T U S = ' P ' , I S _ L E A F = ' N ' , N O T E S = ( S E L E C T R O L E _ D E S C + N ' x ? c n h ? n ' F R O M T L _ S Y S R O L E W H E R E R O L E _ I D = @ R O L E _ I D ) W H E R E R O L E _ U S E R = @ R O L E _ I D A N D R E Q _ I D = @ p _ R E Q _ P A Y _ I D
|
|
2612
|
|
|
2613
|
- - I N S E R T V A O T R _ P R O C E S S
|
|
2614
|
|
|
2615
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T P R O C E S S = @ C U R R E N T _ P R O C E S S , A U T H _ S T A T U S = ' U ' , D V D M _ I D = @ p _ C O S T _ I D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
2616
|
|
|
2617
|
- - -
|
|
2618
|
|
|
2619
|
U P D A T E P L _ R E Q U E S T _ P R O C E S S S E T D V D M _ I D = @ p _ C O S T _ I D W H E R E R E Q _ I D = @ p _ R E Q _ P A Y _ I D A N D R O L E _ U S E R < > @ R O L E _ I D
|
|
2620
|
|
|
2621
|
E N D
|
|
2622
|
|
|
2623
|
E N D
|
|
2624
|
|
|
2625
|
E L S E
|
|
2626
|
|
|
2627
|
B E G I N
|
|
2628
|
|
|
2629
|
- - - N E U L A T A M U N G N H A C U N G C A P T H I C H E C K X E M K I T A M U N G D O D A H O A N T H A N H H A Y C H U A , N E U D A H O A N T H A N H T H I K H O N G C H O D U Y E T
|
|
2630
|
|
|
2631
|
D E C L A R E @ P A Y _ I D V A R C H A R ( 1 5 ) , @ S U M _ O F _ P A Y _ I D D E C I M A L ( 1 8 , 2 ) , @ S U M _ A D V A N C E D E C I M A L ( 1 8 , 2 ) ,
|
|
2632
|
|
|
2633
|
@ A M O U N T D E C I M A L ( 1 8 , 2 ) , @ A M T _ P A Y _ D O D E C I M A L ( 1 8 , 2 ) , @ S C H _ I D V A R C H A R ( 1 5 ) , @ A M T _ A D V A N C E D E C I M A L ( 1 8 , 0 )
|
|
2634
|
|
|
2635
|
D E C L A R E C U R _ S H C U R S O R F O R S E L E C T A . P A Y _ I D , A . A M T _ P A Y , A . A M T _ P A Y _ D O , A . S C H E D U L E _ I D , A . A M T _ A D V A N C E F R O M T R _ R E Q _ P A Y _ S C H E D U L E A W H E R E A . R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
2636
|
|
|
2637
|
O P E N C U R _ S H
|
|
2638
|
|
|
2639
|
F E T C H N E X T F R O M C U R _ S H I N T O @ P A Y _ I D , @ A M O U N T , @ A M T _ P A Y _ D O , @ S C H _ I D , @ A M T _ A D V A N C E
|
|
2640
|
|
|
2641
|
W H I L E @ @ F E T C H _ S T A T U S = 0
|
|
2642
|
|
|
2643
|
B E G I N
|
|
2644
|
|
|
2645
|
S E T @ S U M _ O F _ P A Y _ I D = ( S E L E C T S U M ( A M T _ P A Y _ D O ) F R O M T R _ R E Q _ P A Y _ S C H E D U L E W H E R E P A Y _ I D = @ P A Y _ I D A N D A U T H _ S T A T U S _ K T = ' A ' )
|
|
2646
|
|
|
2647
|
S E T @ S U M _ A D V A N C E = ( S E L E C T S U M ( A M T _ A D V A N C E ) F R O M T R _ R E Q _ P A Y _ S C H E D U L E W H E R E P A Y _ I D = @ P A Y _ I D A N D A U T H _ S T A T U S _ K T = ' A ' )
|
|
2648
|
|
|
2649
|
I F ( @ S U M _ O F _ P A Y _ I D + @ A M T _ P A Y _ D O > @ A M O U N T )
|
|
2650
|
|
|
2651
|
B E G I N
|
|
2652
|
|
|
2653
|
R O L L B A C K T R A N S A C T I O N
|
|
2654
|
|
|
2655
|
S E L E C T ' - 1 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , N ' S ? t i ? n t ? m ? n g ? v ? ? t m ? c s ? t i ? n c ? n l ? i c ? n p h ? i t h a n h t o ? n '
|
|
2656
|
|
|
2657
|
R E T U R N ' - 1 '
|
|
2658
|
|
|
2659
|
E N D
|
|
2660
|
|
|
2661
|
I F ( @ S U M _ O F _ P A Y _ I D + @ A M T _ P A Y _ D O + @ S U M _ A D V A N C E < @ A M O U N T )
|
|
2662
|
|
|
2663
|
B E G I N
|
|
2664
|
|
|
2665
|
U P D A T E T R _ R E Q _ P A Y _ S C H E D U L E S E T P A Y M E N T _ S T A T U S = ' D T U ' W H E R E S C H E D U L E _ I D = @ S C H _ I D
|
|
2666
|
|
|
2667
|
E N D
|
|
2668
|
|
|
2669
|
E L S E I F ( @ S U M _ O F _ P A Y _ I D + @ A M T _ P A Y _ D O + @ S U M _ A D V A N C E = @ A M O U N T )
|
|
2670
|
|
|
2671
|
B E G I N
|
|
2672
|
|
|
2673
|
U P D A T E T R _ R E Q _ P A Y _ S C H E D U L E S E T P A Y M E N T _ S T A T U S = ' D T T ' W H E R E S C H E D U L E _ I D = @ S C H _ I D
|
|
2674
|
|
|
2675
|
E N D
|
|
2676
|
|
|
2677
|
E L S E I F ( @ S U M _ O F _ P A Y _ I D = 0 A N D @ S U M _ A D V A N C E = 0 )
|
|
2678
|
|
|
2679
|
B E G I N
|
|
2680
|
|
|
2681
|
U P D A T E T R _ R E Q _ P A Y _ S C H E D U L E S E T P A Y M E N T _ S T A T U S = ' C T T ' W H E R E S C H E D U L E _ I D = @ S C H _ I D
|
|
2682
|
|
|
2683
|
E N D
|
|
2684
|
|
|
2685
|
F E T C H N E X T F R O M C U R _ S H I N T O @ P A Y _ I D , @ A M O U N T , @ A M T _ P A Y _ D O , @ S C H _ I D , @ A M T _ A D V A N C E
|
|
2686
|
|
|
2687
|
E N D
|
|
2688
|
|
|
2689
|
C L O S E C U R _ S H
|
|
2690
|
|
|
2691
|
D E A L L O C A T E C U R _ S H
|
|
2692
|
|
|
2693
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T A U T H _ S T A T U S = ' A ' , C H E C K E R _ I D = @ p _ C H E C K E R _ I D , A P P R O V E _ D T = G E T D A T E ( ) , A U T H _ S T A T U S _ K T = ' U ' W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
2694
|
|
|
2695
|
S E T @ p _ A U T H _ S T A T U S = ' A '
|
|
2696
|
|
|
2697
|
- - - I N S E R T 1 D O N G V A O P L _ P R O C E S S
|
|
2698
|
|
|
2699
|
- - I N S E R T V A O B A N G P L _ P R O C E S S 1 D O N G T R A V E
|
|
2700
|
|
|
2701
|
I N S E R T I N T O d b o . P L _ P R O C E S S ( R E Q _ I D , P R O C E S S _ I D , C H E C K E R _ I D , A P P R O V E _ D T , P R O C E S S _ D E S C , N O T E S )
|
|
2702
|
|
|
2703
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , ' A P P ' , @ p _ C H E C K E R _ I D , G E T D A T E ( ) , N ' T r ? ? n g ? n v ? ? p h ? d u y ? t ' , N ' T r ? ? n g ? n v ? p h ? d u y ? t ' )
|
|
2704
|
|
|
2705
|
E N D
|
|
2706
|
|
|
2707
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
2708
|
|
|
2709
|
C O M M I T T R A N S A C T I O N
|
|
2710
|
|
|
2711
|
I F ( @ p _ A U T H _ S T A T U S = ' A ' )
|
|
2712
|
|
|
2713
|
B E G I N
|
|
2714
|
|
|
2715
|
S E L E C T ' 0 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , N ' 1 2 3 4 5 ' + @ D E P _ C O D E _ N E X T E r r o r D e s c
|
|
2716
|
|
|
2717
|
R E T U R N ' 0 '
|
|
2718
|
|
|
2719
|
E N D
|
|
2720
|
|
|
2721
|
E L S E
|
|
2722
|
|
|
2723
|
B E G I N
|
|
2724
|
|
|
2725
|
S E L E C T ' 1 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , ' ' E r r o r D e s c
|
|
2726
|
|
|
2727
|
R E T U R N ' 1 '
|
|
2728
|
|
|
2729
|
E N D
|
|
2730
|
|
|
2731
|
A B O R T :
|
|
2732
|
|
|
2733
|
B E G I N
|
|
2734
|
|
|
2735
|
R O L L B A C K T R A N S A C T I O N
|
|
2736
|
|
|
2737
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' E r r o r D e s c
|
|
2738
|
|
|
2739
|
R E T U R N ' - 1 '
|
|
2740
|
|
|
2741
|
E N D
|
|
2742
|
|
|
2743
|
G O
|
|
2744
|
|
|
2745
|
/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ T R _ R E Q _ A D V A N C E _ P A Y M E N T _ I n s ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 1 A M * * * * * * /
|
|
2746
|
|
|
2747
|
S E T A N S I _ N U L L S O N
|
|
2748
|
|
|
2749
|
G O
|
|
2750
|
|
|
2751
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
2752
|
|
|
2753
|
G O
|
|
2754
|
|
|
2755
|
C R E A T E P R O C E D U R E [ d b o ] . [ T R _ R E Q _ A D V A N C E _ P A Y M E N T _ I n s ]
|
|
2756
|
|
|
2757
|
@ p _ R E Q _ P A Y _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
2758
|
|
|
2759
|
@ p _ R E Q _ P A Y _ C O D E v a r c h a r ( 5 0 ) = N U L L ,
|
|
2760
|
|
|
2761
|
@ p _ R E Q _ D T V A R C H A R ( 1 0 ) = N U L L ,
|
|
2762
|
|
|
2763
|
@ p _ B R A N C H _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
2764
|
|
|
2765
|
@ p _ D E P _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
2766
|
|
|
2767
|
@ p _ R E Q _ R E A S O N n v a r c h a r ( M A X ) = N U L L ,
|
|
2768
|
|
|
2769
|
@ p _ R E Q _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
2770
|
|
|
2771
|
@ P _ R E Q _ E N T R I E S n v a r c h a r ( M A X ) = N U L L ,
|
|
2772
|
|
|
2773
|
@ p _ R E Q _ D E S C R I P T I O N n v a r c h a r ( M A X ) = N U L L ,
|
|
2774
|
|
|
2775
|
@ p _ R E F _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
2776
|
|
|
2777
|
@ p _ R E C E I V E R _ P O n v a r c h a r ( 2 5 0 ) = N U L L ,
|
|
2778
|
|
|
2779
|
@ p _ R E C E I V E R _ D E B I T n v a r c h a r ( 2 5 0 ) = N U L L ,
|
|
2780
|
|
|
2781
|
@ p _ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
2782
|
|
|
2783
|
@ p _ R E Q _ T Y P E _ C U R R E N C Y n v a r c h a r ( 5 0 ) = N U L L ,
|
|
2784
|
|
|
2785
|
@ p _ R E Q _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
2786
|
|
|
2787
|
@ p _ R E Q _ T E M P _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
2788
|
|
|
2789
|
@ p _ M A K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
2790
|
|
|
2791
|
@ p _ C R E A T E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
2792
|
|
|
2793
|
@ p _ E D I T O R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
2794
|
|
|
2795
|
@ p _ A U T H _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
2796
|
|
|
2797
|
@ p _ C H E C K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
2798
|
|
|
2799
|
@ p _ A P P R O V E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
2800
|
|
|
2801
|
@ p _ C R E A T E _ D T _ K T v a r c h a r ( 2 5 ) = N U L L ,
|
|
2802
|
|
|
2803
|
@ p _ M A K E R _ I D _ K T v a r c h a r ( 1 5 ) = N U L L ,
|
|
2804
|
|
|
2805
|
@ p _ A U T H _ S T A T U S _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
2806
|
|
|
2807
|
@ p _ C H E C K E R _ I D _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
2808
|
|
|
2809
|
@ p _ A P P R O V E _ D T _ K T v a r c h a r ( 2 5 ) = n u l l ,
|
|
2810
|
|
|
2811
|
@ p _ C O N F I R M _ N O T E n v a r c h a r ( 5 0 0 ) = N U L L ,
|
|
2812
|
|
|
2813
|
@ p _ B R A N C H _ C R E A T E v a r c h a r ( 1 5 ) = N U L L ,
|
|
2814
|
|
|
2815
|
@ p _ N O T E S v a r c h a r ( 1 5 ) = N U L L ,
|
|
2816
|
|
|
2817
|
@ p _ R E C O R D _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
2818
|
|
|
2819
|
@ p _ T R A N S F E R _ M A K E R n v a r c h a r ( 5 0 ) = N U L L ,
|
|
2820
|
|
|
2821
|
@ p _ T R A N S F E R _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
2822
|
|
|
2823
|
@ p _ T R A S F E R _ U S E R _ R E C I V E v a r c h a r ( 1 5 ) = N U L L ,
|
|
2824
|
|
|
2825
|
@ p _ P R O C E S S v a r c h a r ( 1 5 ) = N U L L ,
|
|
2826
|
|
|
2827
|
@ p _ P A Y _ P H A S E V A R C H A R ( 1 5 ) = N U L L ,
|
|
2828
|
|
|
2829
|
@ p _ D V D M _ I D V A R C H A R ( 1 5 ) = N U L L ,
|
|
2830
|
|
|
2831
|
@ p _ R A T E D E C I M A L ( 1 8 , 0 ) = N U L L ,
|
|
2832
|
|
|
2833
|
@ p _ R E C I V E R _ M O N E Y V A R C H A R ( 1 5 ) = N U L L ,
|
|
2834
|
|
|
2835
|
@ p _ I S _ P E R I O D V A R C H A R ( 5 ) = N U L L ,
|
|
2836
|
|
|
2837
|
@ p _ T Y P E _ F U N C T I O N V A R C H A R ( 1 5 ) = N U L L ,
|
|
2838
|
|
|
2839
|
@ p _ X M P _ T E M P X M L = N U L L
|
|
2840
|
|
|
2841
|
A S
|
|
2842
|
|
|
2843
|
- - V a l i d a t i o n i s h e r e
|
|
2844
|
|
|
2845
|
/ *
|
|
2846
|
|
|
2847
|
D E C L A R E @ E R R O R S Y S N V A R C H A R ( 1 5 ) = ' '
|
|
2848
|
|
|
2849
|
I F ( N O T E X I S T S ( S E L E C T * F R O M A S S _ C O L L E C T W H E R E ) )
|
|
2850
|
|
|
2851
|
S E T @ E R R O R S Y S = ' '
|
|
2852
|
|
|
2853
|
I F @ E R R O R S Y S < > ' '
|
|
2854
|
|
|
2855
|
B E G I N
|
|
2856
|
|
|
2857
|
S E L E C T E r r o r C o d e R e s u l t , ' ' C A R _ I D , E r r o r D e s c E r r o r D e s c F R O M S Y S _ E R R O R W H E R E E r r o r C o d e = @ E R R O R S Y S
|
|
2858
|
|
|
2859
|
R E T U R N ' 0 '
|
|
2860
|
|
|
2861
|
E N D
|
|
2862
|
|
|
2863
|
* /
|
|
2864
|
|
|
2865
|
- - D E C L A R E @ E R R O R S Y S N V A R C H A R ( 1 5 ) = ' '
|
|
2866
|
|
|
2867
|
- - I F E X I S T S ( S E L E C T * F R O M T R _ P O _ M A S T E R W H E R E R E F _ I D = @ p _ R E F _ I D )
|
|
2868
|
|
|
2869
|
- - B E G I N
|
|
2870
|
|
|
2871
|
- - S E T @ E R R O R S Y S = ' A S S C - 0 0 0 0 5 '
|
|
2872
|
|
|
2873
|
- - S E L E C T E r r o r C o d e R e s u l t , ' ' C O L L E C T _ I D , E r r o r D e s c E r r o r D e s c F R O M S Y S _ E R R O R W H E R E E r r o r C o d e = @ E R R O R S Y S
|
|
2874
|
|
|
2875
|
- - R E T U R N ' 0 '
|
|
2876
|
|
|
2877
|
- - E N D
|
|
2878
|
|
|
2879
|
I F ( @ p _ R E Q _ T Y P E = ' I ' )
|
|
2880
|
|
|
2881
|
B E G I N
|
|
2882
|
|
|
2883
|
D E C L A R E @ A M T _ A D _ P A Y D E C I M A L ( 1 8 , 0 ) = 0
|
|
2884
|
|
|
2885
|
D E C L A R E @ A M T _ A D _ P A Y _ B A C K D E C I M A L ( 1 8 , 0 ) = 0
|
|
2886
|
|
|
2887
|
D E C L A R E @ A M T _ A D _ P A Y _ R E M A I N D E C I M A L ( 1 8 , 0 ) = 0
|
|
2888
|
|
|
2889
|
S E T @ A M T _ A D _ P A Y = ( S E L E C T S U M ( R E Q _ A M T * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E F _ I D = @ p _ M A K E R _ I D A N D A U T H _ S T A T U S _ K T = ' A ' A N D R E Q _ T Y P E = ' I ' )
|
|
2890
|
|
|
2891
|
S E T @ A M T _ A D _ P A Y _ B A C K = ( S E L E C T S U M ( D . A M T _ U S E ) + S U M ( D . A M T _ R E V E R T ) - S U M ( D . A M T _ A D D )
|
|
2892
|
|
|
2893
|
F R O M T R _ R E Q _ P A Y M E N T _ D T D
|
|
2894
|
|
|
2895
|
L E F T J O I N T R _ R E Q _ A D V A N C E _ P A Y M E N T X O N D . P A Y _ A D V _ I D = X . R E Q _ P A Y _ I D A N D D . A U T H _ S T A T U S _ K T = ' A '
|
|
2896
|
|
|
2897
|
W H E R E X . R E F _ I D = @ p _ R E F _ I D )
|
|
2898
|
|
|
2899
|
S E T @ A M T _ A D _ P A Y _ R E M A I N = I S N U L L ( @ A M T _ A D _ P A Y , 0 ) - I S N U L L ( @ A M T _ A D _ P A Y _ B A C K , 0 )
|
|
2900
|
|
|
2901
|
S E T @ p _ R E Q _ T E M P _ A M T = I S N U L L ( @ A M T _ A D _ P A Y _ R E M A I N , 0 )
|
|
2902
|
|
|
2903
|
E N D
|
|
2904
|
|
|
2905
|
B E G I N T R A N S A C T I O N
|
|
2906
|
|
|
2907
|
- - L U C T V 1 7 H 5 1 B O S U N G L A Y S O T I E N D A T A M U N G C U A N H A N V I E N - -
|
|
2908
|
|
|
2909
|
- - S E T @ A M T _ D O = ( S E L E C T * F R O M [ d b o ] . T R _ R E )
|
|
2910
|
|
|
2911
|
- - T H I E U V Q 2 8 1 1 1 9 - - -
|
|
2912
|
|
|
2913
|
D E C L A R E @ R E C _ D E B I T _ A U T O V A R C H A R ( 1 5 )
|
|
2914
|
|
|
2915
|
S E T @ R E C _ D E B I T _ A U T O = ( S E L E C T T O P 1 A C C _ N U M F R O M C M _ A C C O U N T _ P A Y W H E R E R E F _ I D = @ p _ R E F _ I D )
|
|
2916
|
|
|
2917
|
I F ( @ p _ R E Q _ T Y P E = ' I ' )
|
|
2918
|
|
|
2919
|
B E G I N
|
|
2920
|
|
|
2921
|
- - S E T @ p _ R E F _ I D = @ p _ M A K E R _ I D
|
|
2922
|
|
|
2923
|
- - I F ( N O T E X I S T S ( S E L E C T * F R O M C M _ A C C O U N T _ P A Y W H E R E A C C _ N U M = @ p _ R E C E I V E R _ D E B I T ) )
|
|
2924
|
|
|
2925
|
- - B E G I N
|
|
2926
|
|
|
2927
|
- - S E T @ p _ R E C E I V E R _ D E B I T = @ p _ R E C E I V E R _ D E B I T + ' '
|
|
2928
|
|
|
2929
|
- - E N D
|
|
2930
|
|
|
2931
|
- - E L S E
|
|
2932
|
|
|
2933
|
- - B E G I N
|
|
2934
|
|
|
2935
|
- - I F ( E X I S T S ( S E L E C T * F R O M C M _ A C C O U N T _ P A Y W H E R E A C C _ N U M = @ p _ R E C E I V E R _ D E B I T A N D R E F _ I D ! = @ p _ R E F _ I D ) A N D @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
2936
|
|
|
2937
|
- - B E G I N
|
|
2938
|
|
|
2939
|
- - S E T @ p _ R E C E I V E R _ D E B I T = ( S E L E C T A C C _ N U M F R O M C M _ A C C O U N T _ P A Y W H E R E A C C _ N U M = @ p _ R E C E I V E R _ D E B I T )
|
|
2940
|
|
|
2941
|
- - E N D
|
|
2942
|
|
|
2943
|
- - E N D
|
|
2944
|
|
|
2945
|
I F ( @ p _ R E C E I V E R _ D E B I T I S N O T N U L L A N D @ p _ R E C E I V E R _ D E B I T < > ' ' )
|
|
2946
|
|
|
2947
|
B E G I N
|
|
2948
|
|
|
2949
|
I F ( @ R E C _ D E B I T _ A U T O I S N O T N U L L A N D @ R E C _ D E B I T _ A U T O < > ' ' A N D @ R E C _ D E B I T _ A U T O < > @ p _ R E C E I V E R _ D E B I T )
|
|
2950
|
|
|
2951
|
B E G I N
|
|
2952
|
|
|
2953
|
S E T @ p _ R E C E I V E R _ D E B I T = @ R E C _ D E B I T _ A U T O
|
|
2954
|
|
|
2955
|
E N D
|
|
2956
|
|
|
2957
|
- - I F ( E X I S T S ( S E L E C T * F R O M C M _ A C C O U N T _ P A Y W H E R E R E F _ I D < > @ p _ R E F _ I D A N D A C C _ N U M = @ p _ R E C E I V E R _ D E B I T ) )
|
|
2958
|
|
|
2959
|
- - B E G I N
|
|
2960
|
|
|
2961
|
- - R O L L B A C K T R A N S A C T I O N
|
|
2962
|
|
|
2963
|
- - S E L E C T ' - 1 ' R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? i k h o ? n t ? m ? n g n ? y ? t ? n t ? i v ? t h u ? c v ? n h ? n v i ? n k h ? c ' E r r o r D e s c
|
|
2964
|
|
|
2965
|
- - R E T U R N ' - 1 '
|
|
2966
|
|
|
2967
|
- - E N D
|
|
2968
|
|
|
2969
|
E N D
|
|
2970
|
|
|
2971
|
E L S E
|
|
2972
|
|
|
2973
|
B E G I N
|
|
2974
|
|
|
2975
|
S E T @ p _ R E C E I V E R _ D E B I T = ( S E L E C T T O P 1 A C C _ N U M F R O M C M _ A C C O U N T _ P A Y W H E R E R E F _ I D = @ p _ R E F _ I D )
|
|
2976
|
|
|
2977
|
E N D
|
|
2978
|
|
|
2979
|
|
|
2980
|
|
|
2981
|
E N D
|
|
2982
|
|
|
2983
|
E X E C [ d b o ] . [ A D V A N C E _ C O D E _ G e n K e y ] ' T R _ R E Q _ A D V A N C E _ P A Y M E N T ' , ' ' , @ p _ R E Q _ T Y P E , @ p _ R E Q _ P A Y _ C O D E o u t
|
|
2984
|
|
|
2985
|
- - E N D - -
|
|
2986
|
|
|
2987
|
I F @ p _ R E Q _ P A Y _ C O D E I S N U L L O R @ p _ R E Q _ P A Y _ C O D E = ' '
|
|
2988
|
|
|
2989
|
B E G I N
|
|
2990
|
|
|
2991
|
R O L L B A C K T R A N S A C T I O N
|
|
2992
|
|
|
2993
|
S E L E C T ' - 1 ' R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' M ? s ? p h i ? u k h ? n g ? ? c ? t r ? n g ' E r r o r D e s c
|
|
2994
|
|
|
2995
|
R E T U R N ' - 1 '
|
|
2996
|
|
|
2997
|
E N D
|
|
2998
|
|
|
2999
|
I F ( @ p _ R E Q _ T Y P E = ' I ' A N D ( @ p _ R E C E I V E R _ D E B I T I S N U L L O R @ p _ R E C E I V E R _ D E B I T = ' ' ) A N D @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
3000
|
|
|
3001
|
B E G I N
|
|
3002
|
|
|
3003
|
R O L L B A C K T R A N S A C T I O N
|
|
3004
|
|
|
3005
|
S E L E C T ' - 1 ' R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? i k h o ? n n h ? n v i ? n t ? m ? n g k h ? n g ? ? c ? t r ? n g ' E r r o r D e s c
|
|
3006
|
|
|
3007
|
R E T U R N ' - 1 '
|
|
3008
|
|
|
3009
|
E N D
|
|
3010
|
|
|
3011
|
I F E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ C O D E = @ p _ R E Q _ P A Y _ C O D E )
|
|
3012
|
|
|
3013
|
B E G I N
|
|
3014
|
|
|
3015
|
R O L L B A C K T R A N S A C T I O N
|
|
3016
|
|
|
3017
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' S ? p h i ? u t ? m ? n g ? t ? n t ? i t r o n g h ? t h ? n g ' E r r o r D e s c
|
|
3018
|
|
|
3019
|
R E T U R N ' - 1 '
|
|
3020
|
|
|
3021
|
E N D
|
|
3022
|
|
|
3023
|
I F ( L E N ( I S N U L L ( @ p _ R E C E I V E R _ D E B I T , ' ' ) ) > 1 5 A N D @ p _ R E Q _ T Y P E = ' I ' )
|
|
3024
|
|
|
3025
|
B E G I N
|
|
3026
|
|
|
3027
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? i k h o ? n t ? m ? n g n ? y k h ? n g ? ? c v ? ? t q u ? 1 5 k ? t ? ' E r r o r D e s c
|
|
3028
|
|
|
3029
|
R E T U R N ' - 1 '
|
|
3030
|
|
|
3031
|
E N D
|
|
3032
|
|
|
3033
|
- - S T A R T 1 9 - 1 1 - 2 0 1 9
|
|
3034
|
|
|
3035
|
- - L U C T V B O S U N G V A L I D A T E T R O N G Q U A T R I N H T E S T S A U U A T - K I E M T R A N E U D O T T H A N H T O A N C H U A C O T H I K H O N G D U O C T H E M M O I
|
|
3036
|
|
|
3037
|
- - I F ( @ p _ R E Q _ T Y P E = ' P ' A N D ( @ p _ P A Y _ P H A S E I S N U L L O R @ p _ P A Y _ P H A S E = ' ' ) )
|
|
3038
|
|
|
3039
|
- - B E G I N
|
|
3040
|
|
|
3041
|
- - R O L L B A C K T R A N S A C T I O N
|
|
3042
|
|
|
3043
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' ? t t h a n h t o ? n k h ? n g ? ? c p h ? p ? t r ? n g ' E r r o r D e s c
|
|
3044
|
|
|
3045
|
- - R E T U R N ' - 1 '
|
|
3046
|
|
|
3047
|
- - E N D
|
|
3048
|
|
|
3049
|
- - - - N E U T H A N H T O A N X U L Y N O T H I N H A N V I E N N H A N T I E N T A M U N G K H O N G D U O C P H E P T R O N G
|
|
3050
|
|
|
3051
|
- - I F ( @ p _ R E Q _ T Y P E = ' D ' A N D ( @ p _ R E C E I V E R _ D E B I T I S N U L L O R @ p _ R E C E I V E R _ D E B I T = ' ' ) )
|
|
3052
|
|
|
3053
|
- - B E G I N
|
|
3054
|
|
|
3055
|
- - R O L L B A C K T R A N S A C T I O N
|
|
3056
|
|
|
3057
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' N h ? n v i ? n n h ? n t ? m ? n g k h ? n g ? ? c p h ? p ? t r ? n g ' E r r o r D e s c
|
|
3058
|
|
|
3059
|
- - R E T U R N ' - 1 '
|
|
3060
|
|
|
3061
|
- - E N D
|
|
3062
|
|
|
3063
|
- - S O T I E N T H A N H T O ? N P H A I L O N H O N K H O N G
|
|
3064
|
|
|
3065
|
I F ( @ p _ R E Q _ A M T < = 0 )
|
|
3066
|
|
|
3067
|
B E G I N
|
|
3068
|
|
|
3069
|
R O L L B A C K T R A N S A C T I O N
|
|
3070
|
|
|
3071
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' S ? t i ? n t ? m ? n g p h ? i l ? n h ? n 0 ' E r r o r D e s c
|
|
3072
|
|
|
3073
|
R E T U R N ' - 1 '
|
|
3074
|
|
|
3075
|
E N D
|
|
3076
|
|
|
3077
|
- - - - -
|
|
3078
|
|
|
3079
|
- - - - K I E M T R A N E U C H U A C H O N K H O I P H E D U Y E T T H I T U D O N G C H U Y E N V ? K H O I T A I C H I N H
|
|
3080
|
|
|
3081
|
- - I F ( @ p _ D V D M _ I D I S N U L L O R @ p _ D V D M _ I D = ' ' )
|
|
3082
|
|
|
3083
|
- - B E G I N
|
|
3084
|
|
|
3085
|
- - S E T @ p _ D V D M _ I D = ( S E L E C T T O P 1 D V D M _ I D F R O M C M _ D V D M W H E R E D V D M _ N A M E = ' K H O I T A I C H I N H ' )
|
|
3086
|
|
|
3087
|
- - E N D
|
|
3088
|
|
|
3089
|
- -
|
|
3090
|
|
|
3091
|
- - K I E M T R A N E U T A I K H O A N N H A N V I E N T A M U N G N E U C H U A T O N T A I T R O N G H E T H O N G T H I B A O L O I
|
|
3092
|
|
|
3093
|
I F ( N O T E X I S T S ( S E L E C T * F R O M C M _ A C C O U N T _ P A Y W H E R E R E F _ I D = @ p _ R E F _ I D ) A N D @ p _ R E Q _ T Y P E = ' I ' )
|
|
3094
|
|
|
3095
|
B E G I N
|
|
3096
|
|
|
3097
|
I N S E R T I N T O C M _ A C C O U N T _ P A Y ( R E F _ I D , A C C _ T Y P E , A C C _ N U M , A C C _ N A M E , F U N T I O N , M A K E R _ I D , A U T H _ S T A T U S , C R E A T E _ D T , T K _ G L , T K _ G L _ N A M E ) V A L U E S ( @ p _ R E F _ I D , ' A D V _ P A Y ' , @ p _ R E C E I V E R _ D E B I T , ' T K T A M U N G C U A N H A N V I E N ' + @ p _ R E F _ I D , ' I ' , @ p _ M A K E R _ I D , ' U ' , G E T D A T E ( ) , ' 3 6 1 2 0 0 0 0 1 ' , ' T A M U N G D E H O A T D O N G N G H I E P V U ' )
|
|
3098
|
|
|
3099
|
E N D
|
|
3100
|
|
|
3101
|
E L S E
|
|
3102
|
|
|
3103
|
B E G I N
|
|
3104
|
|
|
3105
|
I F ( ( ( S E L E C T T O P 1 A C C _ N U M F R O M C M _ A C C O U N T _ P A Y W H E R E R E F _ I D = @ p _ R E F _ I D ) < > @ p _ R E C E I V E R _ D E B I T ) A N D @ p _ R E Q _ T Y P E = ' I ' )
|
|
3106
|
|
|
3107
|
B E G I N
|
|
3108
|
|
|
3109
|
R O L L B A C K T R A N S A C T I O N
|
|
3110
|
|
|
3111
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? i k h o ? n t ? m ? n g c ? a n h ? n v i ? n ? t ? n t ? i t r o n g h ? t h ? n g ! B ? n k h ? n g ? ? c p h ? p c h ? n h s ? a ' E r r o r D e s c
|
|
3112
|
|
|
3113
|
R E T U R N ' - 1 '
|
|
3114
|
|
|
3115
|
E N D
|
|
3116
|
|
|
3117
|
E N D
|
|
3118
|
|
|
3119
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ A D V A N C E _ P A M E N T ' , @ p _ R E Q _ P A Y _ I D o u t
|
|
3120
|
|
|
3121
|
I F @ p _ R E Q _ P A Y _ I D = ' ' O R @ p _ R E Q _ P A Y _ I D I S N U L L G O T O A B O R T
|
|
3122
|
|
|
3123
|
I N S E R T I N T O [ d b o ] . [ T R _ R E Q _ A D V A N C E _ P A Y M E N T ]
|
|
3124
|
|
|
3125
|
( [ R E Q _ P A Y _ I D ]
|
|
3126
|
|
|
3127
|
, [ R E Q _ P A Y _ C O D E ]
|
|
3128
|
|
|
3129
|
, [ B R A N C H _ I D ] , [ R E Q _ D T ] ,
|
|
3130
|
|
|
3131
|
[ D E P _ I D ]
|
|
3132
|
|
|
3133
|
, [ R E Q _ R E A S O N ]
|
|
3134
|
|
|
3135
|
, [ R E Q _ T Y P E ] , R E Q _ E N T R I E S ,
|
|
3136
|
|
|
3137
|
[ R E Q _ D E S C R I P T I O N ]
|
|
3138
|
|
|
3139
|
, R E F _ I D ,
|
|
3140
|
|
|
3141
|
R E C E I V E R _ P O , R E C E I V E R _ D E B I T
|
|
3142
|
|
|
3143
|
, [ R E Q _ P A Y _ T Y P E ]
|
|
3144
|
|
|
3145
|
, [ R E Q _ T Y P E _ C U R R E N C Y ]
|
|
3146
|
|
|
3147
|
, [ R E Q _ A M T ]
|
|
3148
|
|
|
3149
|
, [ R E Q _ T E M P _ A M T ]
|
|
3150
|
|
|
3151
|
, [ M A K E R _ I D ]
|
|
3152
|
|
|
3153
|
, [ C R E A T E _ D T ]
|
|
3154
|
|
|
3155
|
, [ E D I T O R _ I D ]
|
|
3156
|
|
|
3157
|
, [ A U T H _ S T A T U S ]
|
|
3158
|
|
|
3159
|
, [ C H E C K E R _ I D ]
|
|
3160
|
|
|
3161
|
, [ A P P R O V E _ D T ]
|
|
3162
|
|
|
3163
|
, [ C R E A T E _ D T _ K T ]
|
|
3164
|
|
|
3165
|
, [ M A K E R _ I D _ K T ]
|
|
3166
|
|
|
3167
|
, [ A U T H _ S T A T U S _ K T ]
|
|
3168
|
|
|
3169
|
, [ C H E C K E R _ I D _ K T ]
|
|
3170
|
|
|
3171
|
, [ A P P R O V E _ D T _ K T ]
|
|
3172
|
|
|
3173
|
, [ C O N F I R M _ N O T E S ]
|
|
3174
|
|
|
3175
|
, [ B R A N C H _ C R E A T E ]
|
|
3176
|
|
|
3177
|
, [ N O T E S ] , R E C O R D _ S T A T U S , T R A N S F E R _ M A K E R , T R A N S F E R _ D T , T R A S F E R _ U S E R _ R E C I V E , P R O C E S S , P A Y _ P H A S E , D V D M _ I D , R A T E , R E C I V E R _ M O N E Y , I S _ P E R I O D )
|
|
3178
|
|
|
3179
|
V A L U E S
|
|
3180
|
|
|
3181
|
( @ p _ R E Q _ P A Y _ I D ,
|
|
3182
|
|
|
3183
|
@ p _ R E Q _ P A Y _ C O D E ,
|
|
3184
|
|
|
3185
|
@ p _ B R A N C H _ I D , C O N V E R T ( D A T E , @ p _ R E Q _ D T , 1 0 3 ) ,
|
|
3186
|
|
|
3187
|
@ p _ D E P _ I D ,
|
|
3188
|
|
|
3189
|
@ p _ R E Q _ R E A S O N ,
|
|
3190
|
|
|
3191
|
@ p _ R E Q _ T Y P E ,
|
|
3192
|
|
|
3193
|
@ P _ R E Q _ E N T R I E S ,
|
|
3194
|
|
|
3195
|
@ p _ R E Q _ D E S C R I P T I O N ,
|
|
3196
|
|
|
3197
|
@ p _ R E F _ I D ,
|
|
3198
|
|
|
3199
|
@ p _ R E C E I V E R _ P O ,
|
|
3200
|
|
|
3201
|
@ p _ R E C E I V E R _ D E B I T ,
|
|
3202
|
|
|
3203
|
@ p _ R E Q _ P A Y _ T Y P E ,
|
|
3204
|
|
|
3205
|
@ p _ R E Q _ T Y P E _ C U R R E N C Y ,
|
|
3206
|
|
|
3207
|
@ p _ R E Q _ A M T ,
|
|
3208
|
|
|
3209
|
@ p _ R E Q _ T E M P _ A M T ,
|
|
3210
|
|
|
3211
|
@ p _ M A K E R _ I D ,
|
|
3212
|
|
|
3213
|
G E T D A T E ( ) ,
|
|
3214
|
|
|
3215
|
@ p _ E D I T O R _ I D ,
|
|
3216
|
|
|
3217
|
' E ' ,
|
|
3218
|
|
|
3219
|
N U L L ,
|
|
3220
|
|
|
3221
|
N U L L ,
|
|
3222
|
|
|
3223
|
N U L L ,
|
|
3224
|
|
|
3225
|
N U L L ,
|
|
3226
|
|
|
3227
|
N U L L ,
|
|
3228
|
|
|
3229
|
N U L L ,
|
|
3230
|
|
|
3231
|
N U L L ,
|
|
3232
|
|
|
3233
|
N U L L ,
|
|
3234
|
|
|
3235
|
@ p _ B R A N C H _ C R E A T E ,
|
|
3236
|
|
|
3237
|
@ p _ N O T E S , @ p _ R E C O R D _ S T A T U S ,
|
|
3238
|
|
|
3239
|
@ p _ T R A N S F E R _ M A K E R ,
|
|
3240
|
|
|
3241
|
N U L L ,
|
|
3242
|
|
|
3243
|
@ p _ T R A S F E R _ U S E R _ R E C I V E ,
|
|
3244
|
|
|
3245
|
@ p _ P R O C E S S , @ p _ P A Y _ P H A S E , @ p _ D V D M _ I D , @ p _ R A T E , @ p _ R E C I V E R _ M O N E Y , @ p _ I S _ P E R I O D )
|
|
3246
|
|
|
3247
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
3248
|
|
|
3249
|
- - - I N S E R T V ? O B ? N G D E T A I L N ? U T ? M ? N G L ? T ? M ? N G T H A N H T O ? N
|
|
3250
|
|
|
3251
|
D E C L A R E @ h d o c I N T
|
|
3252
|
|
|
3253
|
E X E C s p _ x m l _ p r e p a r e d o c u m e n t @ h d o c O U T P U T , @ p _ X M P _ T E M P ;
|
|
3254
|
|
|
3255
|
|
|
3256
|
|
|
3257
|
- - K I E M T R A N E U T A M U N G T H A N H T O A N
|
|
3258
|
|
|
3259
|
I F ( ( @ p _ R E Q _ T Y P E = ' P ' A N D ( @ p _ I S _ P E R I O D < > ' Y ' O R @ p _ I S _ P E R I O D I S N U L L ) ) O R @ p _ R E Q _ T Y P E = ' D ' )
|
|
3260
|
|
|
3261
|
B E G I N
|
|
3262
|
|
|
3263
|
D E C L A R E @ P O _ I D v a r c h a r ( 1 5 ) , @ T E R M _ P A Y v a r c h a r ( 1 5 ) , @ A M T _ P A Y _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , @ R E Q _ A D V _ I D _ S C H E V A R C H A R ( 1 5 ) , @ A M T _ A D V A N C E _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , @ A M T _ P A Y _ D O d e c i m a l ( 1 8 , 2 ) ,
|
|
3264
|
|
|
3265
|
@ A M T _ R E M A I N _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , @ R E Q _ A D _ D T v a r c h a r ( 2 0 ) , @ P R O C E S S v a r c h a r ( 1 5 ) , @ P A Y _ I D V A R C H A R ( 1 5 ) ,
|
|
3266
|
|
|
3267
|
@ R E F _ I D V A R C H A R ( 1 5 ) , @ R E Q _ P A Y _ D E S C N V A R C H A R ( 5 0 0 ) , @ R E Q _ P A Y _ E N T R I E S N V A R C H A R ( 2 5 0 ) , @ C U R R E N C Y V A R C H A R ( 1 5 ) , @ R A T E D E C I M A L ( 1 8 , 0 ) , @ C U S T _ I D V A R C H A R ( 1 5 ) , @ E M P _ I D V A R C H A R ( 1 5 ) ,
|
|
3268
|
|
|
3269
|
@ A M T _ P A Y _ R E A L D E C I M A L ( 1 8 , 2 ) , @ I S _ C L O S E D V A R C H A R ( 1 ) = N U L L , @ I N D E X _ N S I N T = 0 , @ R E A S O N N V A R C H A R ( 1 0 0 0 ) , @ R E F _ T Y P E V A R C H A R ( 1 5 )
|
|
3270
|
|
|
3271
|
D E C L A R E X m l D a t a P O C U R S O R F O R
|
|
3272
|
|
|
3273
|
S E L E C T *
|
|
3274
|
|
|
3275
|
F R O M
|
|
3276
|
|
|
3277
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P O ' , 2 )
|
|
3278
|
|
|
3279
|
W I T H ( R E F _ I D v a r c h a r ( 1 5 ) , I S _ C L O S E D V A R C H A R ( 1 ) , R E F _ T Y P E V A R C H A R ( 1 5 ) )
|
|
3280
|
|
|
3281
|
O P E N X m l D a t a P O ;
|
|
3282
|
|
|
3283
|
D E C L A R E @ I N D E X _ P O I N T = 0
|
|
3284
|
|
|
3285
|
S E T @ I N D E X _ P O = 0
|
|
3286
|
|
|
3287
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
3288
|
|
|
3289
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
3290
|
|
|
3291
|
B E G I N
|
|
3292
|
|
|
3293
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
3294
|
|
|
3295
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
3296
|
|
|
3297
|
- - I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
3298
|
|
|
3299
|
- - B E G I N
|
|
3300
|
|
|
3301
|
- - R O L L B A C K T R A N S A C T I O N
|
|
3302
|
|
|
3303
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O / h ? p ? n g s ? ' + ( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
3304
|
|
|
3305
|
- - R E T U R N ' - 1 '
|
|
3306
|
|
|
3307
|
- - E N D
|
|
3308
|
|
|
3309
|
- - - - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
3310
|
|
|
3311
|
- - I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
3312
|
|
|
3313
|
- - B E G I N
|
|
3314
|
|
|
3315
|
- - R O L L B A C K T R A N S A C T I O N
|
|
3316
|
|
|
3317
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O / h ? p ? n g s ? ' + ( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t h a n h t o ? n . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
3318
|
|
|
3319
|
- - R E T U R N ' - 1 '
|
|
3320
|
|
|
3321
|
- - E N D
|
|
3322
|
|
|
3323
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
3324
|
|
|
3325
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
3326
|
|
|
3327
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
3328
|
|
|
3329
|
B E G I N
|
|
3330
|
|
|
3331
|
|
|
3332
|
|
|
3333
|
|
|
3334
|
|
|
3335
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D T Y P E = ' C ' A N D R E Q _ P A Y _ I D
|
|
3336
|
|
|
3337
|
I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
3338
|
|
|
3339
|
B E G I N
|
|
3340
|
|
|
3341
|
R O L L B A C K T R A N S A C T I O N
|
|
3342
|
|
|
3343
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : H ? p ? n g s ? ' +
|
|
3344
|
|
|
3345
|
( S E L E C T C O N T R A C T _ I D F R O M T R _ C O N T R A C T W H E R E C O N T R A C T _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
3346
|
|
|
3347
|
R E T U R N ' - 1 '
|
|
3348
|
|
|
3349
|
E N D
|
|
3350
|
|
|
3351
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
3352
|
|
|
3353
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D T Y P E = ' C ' A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
3354
|
|
|
3355
|
B E G I N
|
|
3356
|
|
|
3357
|
R O L L B A C K T R A N S A C T I O N
|
|
3358
|
|
|
3359
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : H ? p ? n g s ? ' +
|
|
3360
|
|
|
3361
|
( S E L E C T C O N T R A C T _ I D F R O M T R _ C O N T R A C T W H E R E C O N T R A C T _ I D = @ R E F _ I D ) + N ' a n g ? ? c t h a n h t o ? n . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
3362
|
|
|
3363
|
R E T U R N ' - 1 '
|
|
3364
|
|
|
3365
|
E N D
|
|
3366
|
|
|
3367
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
3368
|
|
|
3369
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D T Y P E = ' P ' A N D R E Q _ P A Y _ I D
|
|
3370
|
|
|
3371
|
I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
3372
|
|
|
3373
|
B E G I N
|
|
3374
|
|
|
3375
|
R O L L B A C K T R A N S A C T I O N
|
|
3376
|
|
|
3377
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
3378
|
|
|
3379
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
3380
|
|
|
3381
|
R E T U R N ' - 1 '
|
|
3382
|
|
|
3383
|
E N D
|
|
3384
|
|
|
3385
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
3386
|
|
|
3387
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D T Y P E = ' P ' A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
3388
|
|
|
3389
|
B E G I N
|
|
3390
|
|
|
3391
|
R O L L B A C K T R A N S A C T I O N
|
|
3392
|
|
|
3393
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
3394
|
|
|
3395
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t h a n h t o ? n . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
3396
|
|
|
3397
|
R E T U R N ' - 1 '
|
|
3398
|
|
|
3399
|
E N D
|
|
3400
|
|
|
3401
|
E N D
|
|
3402
|
|
|
3403
|
D E C L A R E @ R E Q _ P A Y D T I D V A R C H A R ( 1 5 ) ;
|
|
3404
|
|
|
3405
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ A D V A N C E _ D T ' , @ R E Q _ P A Y D T I D O U T ;
|
|
3406
|
|
|
3407
|
I F @ R E Q _ P A Y D T I D = ' ' O R @ R E Q _ P A Y D T I D I S N U L L G O T O A B O R T ;
|
|
3408
|
|
|
3409
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ D T ( R E Q _ P A Y D T I D , R E Q _ P A Y _ I D , R E F _ I D , T Y P E , M A K E R _ I D , C R E A T E _ D T , I S _ C L O S E D , R E F _ T Y P E ) V A L U E S
|
|
3410
|
|
|
3411
|
( @ R E Q _ P A Y D T I D , @ p _ R E Q _ P A Y _ I D , @ R E F _ I D , ' A D V _ P A Y ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ I S _ C L O S E D , @ R E F _ T Y P E )
|
|
3412
|
|
|
3413
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
3414
|
|
|
3415
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
3416
|
|
|
3417
|
E N D
|
|
3418
|
|
|
3419
|
C L O S E X m l D a t a P O ;
|
|
3420
|
|
|
3421
|
D E A L L O C A T E X m l D a t a P O ;
|
|
3422
|
|
|
3423
|
- - - C U S O R D A N H S A C H L I C H T H A N H T O A N P O - H D
|
|
3424
|
|
|
3425
|
D E C L A R E X m l D a t a S c h e d u l e C U R S O R F O R
|
|
3426
|
|
|
3427
|
S E L E C T *
|
|
3428
|
|
|
3429
|
F R O M
|
|
3430
|
|
|
3431
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a S c h e d u l e ' , 2 )
|
|
3432
|
|
|
3433
|
W I T H ( P O _ I D v a r c h a r ( 1 5 ) , T E R M _ P A Y v a r c h a r ( 1 5 ) , A M T _ P A Y _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , R E Q _ A D V _ I D v a r c h a r ( 1 5 ) , A M T _ A D V A N C E _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , A M T _ P A Y _ D O d e c i m a l ( 1 8 , 0 ) ,
|
|
3434
|
|
|
3435
|
A M T _ R E M A I N _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , R E Q _ A D _ D T v a r c h a r ( 2 0 ) , P R O C E S S v a r c h a r ( 1 5 ) , P A Y _ I D V A R C H A R ( 1 5 ) , R E F _ I D V A R C H A R ( 1 5 ) ,
|
|
3436
|
|
|
3437
|
R E Q _ P A Y _ D E S C N V A R C H A R ( 5 0 0 ) , R E Q _ P A Y _ E N T R I E S N V A R C H A R ( 2 5 0 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) , A M T _ P A Y _ R E A L D E C I M A L ( 1 8 , 2 ) )
|
|
3438
|
|
|
3439
|
O P E N X m l D a t a S c h e d u l e
|
|
3440
|
|
|
3441
|
F E T C H N E X T F R O M X m l D a t a S c h e d u l e I N T O @ P O _ I D , @ T E R M _ P A Y , @ A M T _ P A Y _ S C H E D U L E , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ P A Y _ D O ,
|
|
3442
|
|
|
3443
|
@ A M T _ R E M A I N _ S C H E D U L E , @ R E Q _ A D _ D T , @ P R O C E S S , @ P A Y _ I D , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ R E A L
|
|
3444
|
|
|
3445
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
3446
|
|
|
3447
|
B E G I N
|
|
3448
|
|
|
3449
|
D E C L A R E @ p _ R E Q _ P A Y _ S C H E D U L E _ I D V A R C H A R ( 1 5 ) ;
|
|
3450
|
|
|
3451
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ S C H E D U L E ' , @ p _ R E Q _ P A Y _ S C H E D U L E _ I D O U T ;
|
|
3452
|
|
|
3453
|
I F @ p _ R E Q _ P A Y _ S C H E D U L E _ I D = ' ' O R @ p _ R E Q _ P A Y _ S C H E D U L E _ I D I S N U L L G O T O A B O R T ;
|
|
3454
|
|
|
3455
|
I N S E R T I N T O T R _ R E Q _ P A Y _ S C H E D U L E (
|
|
3456
|
|
|
3457
|
S C H E D U L E _ I D , R E Q _ P A Y _ I D , P A Y _ I D , A M T _ P A Y , P A Y _ P H A S E , R E Q _ A D V _ I D , A M T _ A D V A N C E , A M T _ P A Y _ D O , A M T _ R E M A I N , R E Q _ P A Y _ D T , R E Q _ A D _ D T , P R O C E S S , M A K E R _ I D ,
|
|
3458
|
|
|
3459
|
C R E A T E _ D T , A U T H _ S T A T U S _ K T , P A Y M E N T _ S T A T U S , T R N _ T Y P E , R E F _ I D , R E Q _ P A Y _ D E S C , R E Q _ P A Y _ E N T R I E S , C U R R E N C Y , R A T E , A M T _ P A Y _ R E A L )
|
|
3460
|
|
|
3461
|
V A L U E S ( @ p _ R E Q _ P A Y _ S C H E D U L E _ I D , @ p _ R E Q _ P A Y _ I D , @ P A Y _ I D , @ A M T _ P A Y _ S C H E D U L E , @ T E R M _ P A Y , @ p _ R E Q _ P A Y _ I D , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ P A Y _ D O , @ A M T _ R E M A I N _ S C H E D U L E ,
|
|
3462
|
|
|
3463
|
G E T D A T E ( ) , C O N V E R T ( D A T E T I M E , @ R E Q _ A D _ D T , 1 0 3 ) , N U L L , @ p _ M A K E R _ I D , G E T D A T E ( ) , ' U ' , ' ' , ' A D V _ P A Y ' , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ R E A L )
|
|
3464
|
|
|
3465
|
- - - E N D K H A I B A O C U R S O R
|
|
3466
|
|
|
3467
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
3468
|
|
|
3469
|
F E T C H N E X T F R O M X m l D a t a S c h e d u l e I N T O @ P O _ I D , @ T E R M _ P A Y , @ A M T _ P A Y _ S C H E D U L E , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ P A Y _ D O ,
|
|
3470
|
|
|
3471
|
@ A M T _ R E M A I N _ S C H E D U L E , @ R E Q _ A D _ D T , @ P R O C E S S , @ P A Y _ I D , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ R E A L
|
|
3472
|
|
|
3473
|
E N D
|
|
3474
|
|
|
3475
|
C L O S E X m l D a t a S c h e d u l e ;
|
|
3476
|
|
|
3477
|
D E A L L O C A T E X m l D a t a S c h e d u l e ;
|
|
3478
|
|
|
3479
|
E N D
|
|
3480
|
|
|
3481
|
- - - E N D T ? M ? N G T H A N H T O ? N
|
|
3482
|
|
|
3483
|
- - - T ? M ? N G H ? N H K ?
|
|
3484
|
|
|
3485
|
I F ( @ p _ R E Q _ T Y P E = ' P ' A N D @ p _ I S _ P E R I O D = ' Y ' )
|
|
3486
|
|
|
3487
|
B E G I N
|
|
3488
|
|
|
3489
|
|
|
3490
|
|
|
3491
|
D E C L A R E X m l D a t a P O C U R S O R F O R
|
|
3492
|
|
|
3493
|
S E L E C T *
|
|
3494
|
|
|
3495
|
F R O M
|
|
3496
|
|
|
3497
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P O ' , 2 )
|
|
3498
|
|
|
3499
|
W I T H ( R E F _ I D v a r c h a r ( 1 5 ) , I S _ C L O S E D V A R C H A R ( 1 ) , R E F _ T Y P E V A R C H A R ( 1 5 ) )
|
|
3500
|
|
|
3501
|
O P E N X m l D a t a P O ;
|
|
3502
|
|
|
3503
|
S E T @ I N D E X _ P O = 0
|
|
3504
|
|
|
3505
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
3506
|
|
|
3507
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
3508
|
|
|
3509
|
B E G I N
|
|
3510
|
|
|
3511
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
3512
|
|
|
3513
|
D E C L A R E @ R E Q _ P A Y D T I D _ C V A R C H A R ( 1 5 ) ;
|
|
3514
|
|
|
3515
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ A D V A N C E _ D T ' , @ R E Q _ P A Y D T I D _ C O U T ;
|
|
3516
|
|
|
3517
|
I F @ R E Q _ P A Y D T I D _ C = ' ' O R @ R E Q _ P A Y D T I D _ C I S N U L L G O T O A B O R T ;
|
|
3518
|
|
|
3519
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ D T ( R E Q _ P A Y D T I D , R E Q _ P A Y _ I D , R E F _ I D , T Y P E , M A K E R _ I D , C R E A T E _ D T , I S _ C L O S E D , R E F _ T Y P E ) V A L U E S
|
|
3520
|
|
|
3521
|
( @ R E Q _ P A Y D T I D _ C , @ p _ R E Q _ P A Y _ I D , @ R E F _ I D , ' A D V _ P A Y ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ I S _ C L O S E D , @ R E F _ T Y P E )
|
|
3522
|
|
|
3523
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
3524
|
|
|
3525
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
3526
|
|
|
3527
|
E N D
|
|
3528
|
|
|
3529
|
C L O S E X m l D a t a P O ;
|
|
3530
|
|
|
3531
|
D E A L L O C A T E X m l D a t a P O ;
|
|
3532
|
|
|
3533
|
- - - C U S O R D A N H S A C H L I C H T H A N H T O A N P O - H D
|
|
3534
|
|
|
3535
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
3536
|
|
|
3537
|
- - I N S E R T F R O M P E R I O D
|
|
3538
|
|
|
3539
|
D E C L A R E X m l D a t a P e r i o d C U R S O R F O R
|
|
3540
|
|
|
3541
|
S E L E C T *
|
|
3542
|
|
|
3543
|
F R O M
|
|
3544
|
|
|
3545
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P e r i o d ' , 2 )
|
|
3546
|
|
|
3547
|
W I T H ( C O N T R A C T _ I D v a r c h a r ( 1 5 ) , P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
3548
|
|
|
3549
|
O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , A M T _ P A Y D E C I M A L ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) , F R O M _ D A T E V A R C H A R ( 2 0 ) , T O _ D A T E V A R C H A R ( 2 0 ) , P A Y _ P H A S E N V A R C H A R ( 2 5 0 ) , R E A S O N N V A R C H A R ( 2 0 0 0 ) )
|
|
3550
|
|
|
3551
|
O P E N X m l D a t a P e r i o d ;
|
|
3552
|
|
|
3553
|
D E C L A R E @ C O N T R A C T _ I D v a r c h a r ( 1 5 ) , @ P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , @ P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
3554
|
|
|
3555
|
@ O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ A M T _ P A Y _ P E R I O D D E C I M A L ( 1 8 , 2 ) , @ F R O M _ D A T E V A R C H A R ( 2 0 ) , @ T O _ D A T E V A R C H A R ( 2 0 ) , @ P A Y _ P H A S E N V A R C H A R ( 2 5 0 ) , @ R E A S O N _ T T D K N V A R C H A R ( 2 0 0 0 )
|
|
3556
|
|
|
3557
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
3558
|
|
|
3559
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
3560
|
|
|
3561
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
3562
|
|
|
3563
|
B E G I N
|
|
3564
|
|
|
3565
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
3566
|
|
|
3567
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
3568
|
|
|
3569
|
B E G I N
|
|
3570
|
|
|
3571
|
|
|
3572
|
|
|
3573
|
I F ( E X I S T S ( S E L E C T C O N T R A C T _ I D
|
|
3574
|
|
|
3575
|
F R O M T R _ C O N T R A C T
|
|
3576
|
|
|
3577
|
W H E R E C O N T R A C T _ I D = @ R E F _ I D
|
|
3578
|
|
|
3579
|
A N D I S _ C L O S E D = ' Y ' ) )
|
|
3580
|
|
|
3581
|
B E G I N
|
|
3582
|
|
|
3583
|
R O L L B A C K T R A N S A C T I O N
|
|
3584
|
|
|
3585
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? m ? n g h ? p ? n g ? n h k ? ? ? n g ' E r r o r D e s c
|
|
3586
|
|
|
3587
|
R E T U R N ' - 1 '
|
|
3588
|
|
|
3589
|
E N D
|
|
3590
|
|
|
3591
|
|
|
3592
|
|
|
3593
|
|
|
3594
|
|
|
3595
|
I F ( @ N E W _ I N D E X < = @ O L D _ I N D E X A N D @ N E W _ I N D E X > 0 A N D @ O L D _ I N D E X > 0 )
|
|
3596
|
|
|
3597
|
B E G I N
|
|
3598
|
|
|
3599
|
R O L L B A C K T R A N S A C T I O N
|
|
3600
|
|
|
3601
|
S E L E C T ' - 1 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' C h ? s ? m ? i p h ? i l ? n h ? n c h ? s ? c i ' E r r o r D e s c
|
|
3602
|
|
|
3603
|
R E T U R N ' - 1 '
|
|
3604
|
|
|
3605
|
E N D
|
|
3606
|
|
|
3607
|
E N D
|
|
3608
|
|
|
3609
|
D E C L A R E @ P E R I O D _ I D V A R C H A R ( 1 5 ) ;
|
|
3610
|
|
|
3611
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ P E R I O D ' , @ P E R I O D _ I D O U T ;
|
|
3612
|
|
|
3613
|
I F @ P E R I O D _ I D = ' ' O R @ P E R I O D _ I D I S N U L L G O T O A B O R T ;
|
|
3614
|
|
|
3615
|
I N S E R T I N T O T R _ R E Q _ P A Y _ P E R I O D ( P E R I O D _ I D , R E Q _ P A Y _ I D , P A Y _ T Y P E , C O N T R A C T _ I D , P A Y _ D T _ R E A L , O L D _ I N D E X , N E W _ I N D E X , A M T _ P A Y , A U T H _ S T A T U S _ K T , C U R R E N C Y , R A T E , F R O M _ D A T E , T O _ D A T E , A D _ P A Y _ I D , P R O C E S S , P A Y _ P H A S E , R E A S O N )
|
|
3616
|
|
|
3617
|
V A L U E S ( @ P E R I O D _ I D , @ p _ R E Q _ P A Y _ I D , ' A D V _ P A Y ' , @ C O N T R A C T _ I D , C O N V E R T ( D A T E , @ P A Y _ D T _ R E A L , 1 0 3 ) ,
|
|
3618
|
|
|
3619
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , ' U ' , @ C U R R E N C Y , @ R A T E , C O N V E R T ( D A T E , @ F R O M _ D A T E , 1 0 3 ) , C O N V E R T ( D A T E , @ T O _ D A T E , 1 0 3 ) , @ p _ R E Q _ P A Y _ I D , ' 0 ' , @ P A Y _ P H A S E , @ R E A S O N _ T T D K )
|
|
3620
|
|
|
3621
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
3622
|
|
|
3623
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
3624
|
|
|
3625
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
3626
|
|
|
3627
|
E N D
|
|
3628
|
|
|
3629
|
C L O S E X m l D a t a P e r i o d ;
|
|
3630
|
|
|
3631
|
D E A L L O C A T E X m l D a t a P e r i o d ;
|
|
3632
|
|
|
3633
|
- - V A L I D A T E S O T I E N
|
|
3634
|
|
|
3635
|
- - I F ( @ p _ R E Q _ A M T > = @ T O T A L _ S C H E D U L E _ A M T )
|
|
3636
|
|
|
3637
|
- - B E G I N
|
|
3638
|
|
|
3639
|
- - R O L L B A C K T R A N S A C T I O N
|
|
3640
|
|
|
3641
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' S ? t i ? n t h a n h t o ? n p h ? i n h ? h ? n h o ? c b ? n g t ? n g s ? t i ? n c ? n l ? i c ? n t h a n h t o ? n : ' + F O R M A T ( S U M ( @ T O T A L _ S C H E D U L E _ A M T ) , ' # , # ' , ' v i - V N ' ) E r r o r D e s c
|
|
3642
|
|
|
3643
|
- - R E T U R N ' - 1 '
|
|
3644
|
|
|
3645
|
- - E N D
|
|
3646
|
|
|
3647
|
- - - -
|
|
3648
|
|
|
3649
|
E N D
|
|
3650
|
|
|
3651
|
- - - - E N D T ? M ? N G H ? P ? N G ? N H K ?
|
|
3652
|
|
|
3653
|
- - - I N S E R T P H ? ? N G T H ? C T H A N H T O ? N
|
|
3654
|
|
|
3655
|
- - - - M e t h o d C u r s o r
|
|
3656
|
|
|
3657
|
D E C L A R E @ R E C E I V E _ I D v a r c h a r ( 1 5 ) , @ R E C E I V E _ N A M E n v a r c h a r ( 1 0 0 ) , @ R E Q _ P A Y _ R E A S O N n v a r c h a r ( M A X ) , @ T O T A L _ A M T _ M E T H O D d e c i m a l ( 1 8 , 2 ) , @ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 ) ,
|
|
3658
|
|
|
3659
|
@ A C C _ N O V A R C H A R ( 5 0 ) , @ A C C _ N A M E N V A R C H A R ( 5 0 ) , @ I S S E D _ B Y N V A R C H A R ( 2 5 0 ) , @ I S S U E D _ D T V A R C H A R ( 2 0 ) , @ C H E C K _ I N V A R C H A R ( 1 5 )
|
|
3660
|
|
|
3661
|
D E C L A R E X m l D a t a M e t h o d C U R S O R F O R
|
|
3662
|
|
|
3663
|
S E L E C T *
|
|
3664
|
|
|
3665
|
F R O M
|
|
3666
|
|
|
3667
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a M e t h o d ' , 2 )
|
|
3668
|
|
|
3669
|
W I T H ( R E C E I V E _ I D v a r c h a r ( 1 5 ) , R E C E I V E _ N A M E n v a r c h a r ( 1 0 0 ) , R E Q _ P A Y _ R E A S O N n v a r c h a r ( M A X ) , T O T A L _ A M T d e c i m a l ( 1 8 , 2 ) , R E Q _ P A Y _ T Y P E v a r c h a r ( 1 ) ,
|
|
3670
|
|
|
3671
|
R E Q _ P A Y _ D E S C n v a r c h a r ( M A X ) , R E Q _ P A Y _ E N T R I E S n v a r c h a r ( M A X ) , A C C _ N O V A R C H A R ( 5 0 ) ,
|
|
3672
|
|
|
3673
|
A C C _ N A M E N V A R C H A R ( 5 0 ) , I S S U E D _ B Y N V A R C H A R ( 2 5 0 ) , I S S U E D _ D T V A R C H A R ( 2 0 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) , C H E C K _ I N V A R C H A R ( 1 5 ) )
|
|
3674
|
|
|
3675
|
O P E N X m l D a t a M e t h o d
|
|
3676
|
|
|
3677
|
F E T C H N E X T F R O M X m l D a t a M e t h o d
|
|
3678
|
|
|
3679
|
I N T O @ R E C E I V E _ I D , @ R E C E I V E _ N A M E , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ A C C _ N O , @ A C C _ N A M E , @ I S S E D _ B Y , @ I S S U E D _ D T , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N
|
|
3680
|
|
|
3681
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
3682
|
|
|
3683
|
B E G I N
|
|
3684
|
|
|
3685
|
I F ( @ R E Q _ P A Y _ T Y P E < > ' 1 ' )
|
|
3686
|
|
|
3687
|
B E G I N
|
|
3688
|
|
|
3689
|
S E T @ I S S U E D _ D T = N U L L
|
|
3690
|
|
|
3691
|
E N D
|
|
3692
|
|
|
3693
|
D E C L A R E @ p _ R E Q _ P A Y _ M E T H O D _ I D V A R C H A R ( 1 5 ) ;
|
|
3694
|
|
|
3695
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ M E T H O D ' , @ p _ R E Q _ P A Y _ M E T H O D _ I D O U T ;
|
|
3696
|
|
|
3697
|
I F @ p _ R E Q _ P A Y _ M E T H O D _ I D = ' ' O R @ p _ R E Q _ P A Y _ M E T H O D _ I D I S N U L L G O T O A B O R T ;
|
|
3698
|
|
|
3699
|
I N S E R T I N T O T R _ R E Q _ P A Y _ M E T H O D ( M E T H O D _ I D , R E Q _ P A Y _ I D , E M P _ I D , R E Q _ P A Y _ R E A S O N , T O T A L _ A M T , R E Q _ P A Y _ T Y P E , R E Q _ P A Y _ D E S C , R E Q _ P A Y _ E N T R I E S , T E M P , M A K E R _ I D ,
|
|
3700
|
|
|
3701
|
C R E A T E _ D T , A C C _ N O , A C C _ N A M E , I S S U E D _ B Y , I S S U E D _ D T , C U R R E N C Y , R A T E , C H E C K _ I N )
|
|
3702
|
|
|
3703
|
V A L U E S ( @ p _ R E Q _ P A Y _ M E T H O D _ I D , @ p _ R E Q _ P A Y _ I D , @ R E C E I V E _ I D , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , ' ' ,
|
|
3704
|
|
|
3705
|
@ p _ M A K E R _ I D , G E T D A T E ( ) , @ A C C _ N O , @ A C C _ N A M E , @ I S S E D _ B Y , C O N V E R T ( D A T E , @ I S S U E D _ D T , 1 0 3 ) , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N )
|
|
3706
|
|
|
3707
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
3708
|
|
|
3709
|
F E T C H N E X T F R O M X m l D a t a M e t h o d
|
|
3710
|
|
|
3711
|
I N T O @ R E C E I V E _ I D , @ R E C E I V E _ N A M E , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ A C C _ N O , @ A C C _ N A M E , @ I S S E D _ B Y , @ I S S U E D _ D T , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N
|
|
3712
|
|
|
3713
|
E N D
|
|
3714
|
|
|
3715
|
C L O S E X m l D a t a M e t h o d ;
|
|
3716
|
|
|
3717
|
D E A L L O C A T E X m l D a t a M e t h o d
|
|
3718
|
|
|
3719
|
- - - - E N D I N S E R T P H ? ? N G T H ? C T H A N H T O ? N
|
|
3720
|
|
|
3721
|
- - - - I N S E R T V A O B A N G D S K H A C H H A N G
|
|
3722
|
|
|
3723
|
D E C L A R E X m l D a t a C u s C U R S O R F O R
|
|
3724
|
|
|
3725
|
S E L E C T *
|
|
3726
|
|
|
3727
|
F R O M
|
|
3728
|
|
|
3729
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a C u s ' , 2 )
|
|
3730
|
|
|
3731
|
W I T H ( C U S _ I D v a r c h a r ( 1 5 ) , E M P _ I D V A R C H A R ( 1 5 ) , A M T _ P A Y _ D O D E C I M A L ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) )
|
|
3732
|
|
|
3733
|
O P E N X m l D a t a C u s ;
|
|
3734
|
|
|
3735
|
F E T C H N E X T F R O M X m l D a t a C u s I N T O @ C U S T _ I D , @ E M P _ I D , @ A M T _ P A Y _ D O , @ C U R R E N C Y , @ R A T E
|
|
3736
|
|
|
3737
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
3738
|
|
|
3739
|
B E G I N
|
|
3740
|
|
|
3741
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ C U S ( R E Q _ P A Y _ I D , C U S T _ I D , E M P _ I D , A M T _ P A Y _ D O , C U R R E N C Y , R A T E , M A K E R _ I D , C R E A T E _ D T )
|
|
3742
|
|
|
3743
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , @ C U S T _ I D , @ E M P _ I D , @ A M T _ P A Y _ D O , @ C U R R E N C Y , @ R A T E , @ p _ M A K E R _ I D , G E T D A T E ( ) )
|
|
3744
|
|
|
3745
|
- - - E N D K H A I B A O C U R S O R
|
|
3746
|
|
|
3747
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
3748
|
|
|
3749
|
F E T C H N E X T F R O M X m l D a t a C u s I N T O @ C U S T _ I D , @ E M P _ I D , @ A M T _ P A Y _ D O , @ C U R R E N C Y , @ R A T E
|
|
3750
|
|
|
3751
|
E N D
|
|
3752
|
|
|
3753
|
C L O S E X m l D a t a C u s ;
|
|
3754
|
|
|
3755
|
D E A L L O C A T E X m l D a t a C u s ;
|
|
3756
|
|
|
3757
|
- - - - E N D
|
|
3758
|
|
|
3759
|
- - H A N G M U C C H I P H I V A N G A N S A C H
|
|
3760
|
|
|
3761
|
D E C L A R E @ T R A D E _ I D v a r c h a r ( 1 5 ) , @ G D _ I D v a r c h a r ( 1 5 ) , @ A M T _ A P P d e c i m a l ( 1 8 , 2 ) , @ A M T _ D O d e c i m a l ( 1 8 , 2 ) , @ A M T _ E X E d e c i m a l ( 1 8 , 2 ) , @ A M T _ R E M A I N _ G D d e c i m a l ( 1 8 , 2 )
|
|
3762
|
|
|
3763
|
D E C L A R E X m l D a t a G o o d C U R S O R F O R
|
|
3764
|
|
|
3765
|
S E L E C T *
|
|
3766
|
|
|
3767
|
F R O M
|
|
3768
|
|
|
3769
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a G o o d ' , 2 )
|
|
3770
|
|
|
3771
|
W I T H ( T R A D E _ I D v a r c h a r ( 1 5 ) , G D _ I D v a r c h a r ( 1 5 ) , A M T _ A P P d e c i m a l ( 1 8 , 2 ) , A M T _ D O d e c i m a l ( 1 8 , 2 ) , A M T _ E X E d e c i m a l ( 1 8 , 2 ) , A M T _ R E M A I N d e c i m a l ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , R E A S O N N V A R C H A R ( 1 0 0 0 ) )
|
|
3772
|
|
|
3773
|
O P E N X m l D a t a G o o d
|
|
3774
|
|
|
3775
|
F E T C H N E X T F R O M X m l D a t a G o o d I N T O @ T R A D E _ I D , @ G D _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ C U R R E N C Y , @ R A T E , @ R E A S O N
|
|
3776
|
|
|
3777
|
W H I L E @ @ f e t c h _ s t a t u s = 0 B E G I N
|
|
3778
|
|
|
3779
|
- - - K I E M T R A N E U N G A N S A C H S U D U N G T H U C T H E L O N H O N N G A N S A C H C O N L A I
|
|
3780
|
|
|
3781
|
S E T @ I N D E X _ N S = @ I N D E X _ N S + 1
|
|
3782
|
|
|
3783
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
3784
|
|
|
3785
|
- - I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
3786
|
|
|
3787
|
- - B E G I N
|
|
3788
|
|
|
3789
|
- - I F ( ( @ A M T _ E X E > @ A M T _ R E M A I N _ G D ) )
|
|
3790
|
|
|
3791
|
- - B E G I N
|
|
3792
|
|
|
3793
|
- - R O L L B A C K T R A N S A C T I O N
|
|
3794
|
|
|
3795
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ N S ) + N ' : N g ? n s ? c h s ? d ? n g t h ? c t ? k h ? n g ? ? c v ? ? t q u ? n g ? n s ? c h c ? n l ? i . ' E r r o r D e s c
|
|
3796
|
|
|
3797
|
- - R E T U R N ' - 1 '
|
|
3798
|
|
|
3799
|
- - E N D
|
|
3800
|
|
|
3801
|
- - E N D
|
|
3802
|
|
|
3803
|
D E C L A R E @ p _ B U D G E T _ I D V A R C H A R ( 1 5 ) ;
|
|
3804
|
|
|
3805
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ B U D G E T ' , @ p _ B U D G E T _ I D O U T ;
|
|
3806
|
|
|
3807
|
I F @ p _ B U D G E T _ I D = ' ' O R @ p _ B U D G E T _ I D I S N U L L G O T O A B O R T ;
|
|
3808
|
|
|
3809
|
I N S E R T I N T O T R _ R E Q _ P A Y _ B U D G E T ( B U D G _ I D , G D _ I D , R E Q _ P A Y _ I D , T R A D E _ I D , A M T _ A P P , A M T _ D O , A M T _ E X E , A M T _ R E M A I N , M A K E R _ I D , C R E A T E _ D T , C U R R E N C Y , R A T E , R E A S O N )
|
|
3810
|
|
|
3811
|
V A L U E S ( @ p _ B U D G E T _ I D , @ G D _ I D , @ p _ R E Q _ P A Y _ I D , @ T R A D E _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ C U R R E N C Y , @ R A T E , @ R E A S O N )
|
|
3812
|
|
|
3813
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
3814
|
|
|
3815
|
F E T C H N E X T F R O M X m l D a t a G o o d I N T O @ T R A D E _ I D , @ G D _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ C U R R E N C Y , @ R A T E , @ R E A S O N
|
|
3816
|
|
|
3817
|
E N D ;
|
|
3818
|
|
|
3819
|
C L O S E X m l D a t a G o o d ;
|
|
3820
|
|
|
3821
|
D E A L L O C A T E X m l D a t a G o o d ;
|
|
3822
|
|
|
3823
|
- - - E N D I N S E R T N G A N S A C H
|
|
3824
|
|
|
3825
|
D E C L A R E @ A T T A C H _ I D v a r c h a r ( 1 5 ) , @ C O N _ I D v a r c h a r ( 1 0 0 ) , @ C O N T _ C O D E V A R C H A R ( 5 0 ) , @ C O N _ N O T E S V A R C H A R ( 1 0 0 0 ) , @ C O N _ D E S C N V A R C H A R ( 1 0 0 0 ) , @ C O N _ T Y P E V A R C H A R ( 1 5 ) , @ A M T _ A T T D E C I M A L ( 1 8 , 2 ) , @ R E F _ D T V A R C H A R ( 2 0 ) , @ N O T E S _ A T T N V A R C H A R ( 1 0 0 0 )
|
|
3826
|
|
|
3827
|
D E C L A R E X m l A t t a c h C U R S O R F O R
|
|
3828
|
|
|
3829
|
S E L E C T *
|
|
3830
|
|
|
3831
|
F R O M
|
|
3832
|
|
|
3833
|
O P E N X M L ( @ h d o c , ' R o o t / X m l A t t a c h ' , 2 )
|
|
3834
|
|
|
3835
|
W I T H ( A T T A C H _ I D v a r c h a r ( 1 5 ) , C O N _ I D v a r c h a r ( 1 0 0 ) , C O N T _ C O D E V A R C H A R ( 5 0 ) , C O N _ N O T E S N V A R C H A R ( 1 0 0 0 ) , C O N _ D E S C N V A R C H A R ( 1 0 0 0 ) , C O N _ T Y P E V A R C H A R ( 1 5 ) , A M T _ A T T D E C I M A L ( 1 8 , 2 ) , R E F _ D T V A R C H A R ( 2 0 ) )
|
|
3836
|
|
|
3837
|
O P E N X m l A t t a c h
|
|
3838
|
|
|
3839
|
- - I N S E R T C H U N G T U D I N H K E M
|
|
3840
|
|
|
3841
|
F E T C H N E X T F R O M X m l A t t a c h I N T O @ A T T A C H _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S _ A T T , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , @ R E F _ D T
|
|
3842
|
|
|
3843
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
3844
|
|
|
3845
|
B E G I N
|
|
3846
|
|
|
3847
|
I F ( @ R E F _ D T = ' ' )
|
|
3848
|
|
|
3849
|
B E G I N
|
|
3850
|
|
|
3851
|
S E T @ R E F _ D T = N U L L
|
|
3852
|
|
|
3853
|
E N D
|
|
3854
|
|
|
3855
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ A T T A C H ' , @ A T T A C H _ I D O U T ;
|
|
3856
|
|
|
3857
|
I F @ A T T A C H _ I D = ' ' O R @ A T T A C H _ I D I S N U L L G O T O A B O R T ;
|
|
3858
|
|
|
3859
|
I N S E R T I N T O T R _ R E Q _ P A Y _ A T T A C H ( A T T A C H _ I D , R E Q _ P A Y _ I D , R E F _ I D , R E F _ C O D E , N O T E S , [ D E S C R I P T I O N ] , [ T Y P E ] , A M T , R E F _ D T ) V A L U E S
|
|
3860
|
|
|
3861
|
( @ A T T A C H _ I D , @ p _ R E Q _ P A Y _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S _ A T T , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , C O N V E R T ( D A T E , @ R E F _ D T , 1 0 3 ) )
|
|
3862
|
|
|
3863
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
3864
|
|
|
3865
|
F E T C H N E X T F R O M X m l A t t a c h I N T O @ A T T A C H _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S _ A T T , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , @ R E F _ D T
|
|
3866
|
|
|
3867
|
E N D
|
|
3868
|
|
|
3869
|
C L O S E X m l A t t a c h ;
|
|
3870
|
|
|
3871
|
D E A L L O C A T E X m l A t t a c h ;
|
|
3872
|
|
|
3873
|
- - - - E N D
|
|
3874
|
|
|
3875
|
- - - B A T D A U V A L I D A T E
|
|
3876
|
|
|
3877
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
3878
|
|
|
3879
|
B E G I N
|
|
3880
|
|
|
3881
|
D E C L A R E @ S U M _ P T T T D E C I M A L ( 1 8 , 0 ) , @ S U M _ N S D E C I M A L ( 1 8 , 0 ) , @ S U M _ L I C H _ T T D E C I M A L ( 1 8 , 0 )
|
|
3882
|
|
|
3883
|
S E T @ S U M _ P T T T = ( S E L E C T S U M ( T O T A L _ A M T * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ P A Y _ M E T H O D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
3884
|
|
|
3885
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y _ S C H E D U L E W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D ) A N D @ p _ R E Q _ T Y P E = ' D ' )
|
|
3886
|
|
|
3887
|
B E G I N
|
|
3888
|
|
|
3889
|
S E T @ S U M _ L I C H _ T T = ( S E L E C T S U M ( A M T _ P A Y _ R E A L * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ P A Y _ S C H E D U L E W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
3890
|
|
|
3891
|
I F ( @ p _ R E Q _ A M T * I S N U L L ( @ p _ R A T E , 1 ) ! = I S N U L L ( @ S U M _ L I C H _ T T , 0 ) )
|
|
3892
|
|
|
3893
|
B E G I N
|
|
3894
|
|
|
3895
|
R O L L B A C K T R A N S A C T I O N
|
|
3896
|
|
|
3897
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? n g s ? t i ? n l ? c h t h a n h t o ? n P O v ? h ? p ? n g l i ? n q u a n ? n k h ? c h h ? n g x ? l ? n ? p h ? i b ? n g s ? t i ? n t ? m ? n g ' E r r o r D e s c
|
|
3898
|
|
|
3899
|
R E T U R N ' - 1 '
|
|
3900
|
|
|
3901
|
E N D
|
|
3902
|
|
|
3903
|
E N D
|
|
3904
|
|
|
3905
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y _ B U D G E T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D ) )
|
|
3906
|
|
|
3907
|
B E G I N
|
|
3908
|
|
|
3909
|
S E T @ S U M _ N S = ( S E L E C T S U M ( A M T _ E X E * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ P A Y _ B U D G E T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
3910
|
|
|
3911
|
I F ( @ p _ R E Q _ A M T * I S N U L L ( @ p _ R A T E , 1 ) ! = I S N U L L ( @ S U M _ P T T T , 0 ) )
|
|
3912
|
|
|
3913
|
B E G I N
|
|
3914
|
|
|
3915
|
R O L L B A C K T R A N S A C T I O N
|
|
3916
|
|
|
3917
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? n g s ? t i ? n s ? d ? n g n g ? n s ? c h v ? c h i p h ? p h ? i b ? n g s ? t i ? n t ? m ? n g ' E r r o r D e s c
|
|
3918
|
|
|
3919
|
R E T U R N ' - 1 '
|
|
3920
|
|
|
3921
|
E N D
|
|
3922
|
|
|
3923
|
E N D
|
|
3924
|
|
|
3925
|
E L S E
|
|
3926
|
|
|
3927
|
I F ( @ p _ R E Q _ A M T * I S N U L L ( @ p _ R A T E , 1 ) ! = I S N U L L ( @ S U M _ P T T T , 0 ) )
|
|
3928
|
|
|
3929
|
B E G I N
|
|
3930
|
|
|
3931
|
R O L L B A C K T R A N S A C T I O N
|
|
3932
|
|
|
3933
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? n g s ? t i ? n p h ? ? n g t h ? c t h a n h t o ? n p h ? i b ? n g s ? t i ? n t ? m ? n g ' E r r o r D e s c
|
|
3934
|
|
|
3935
|
R E T U R N ' - 1 '
|
|
3936
|
|
|
3937
|
E N D
|
|
3938
|
|
|
3939
|
|
|
3940
|
|
|
3941
|
E N D
|
|
3942
|
|
|
3943
|
- - - - E N D
|
|
3944
|
|
|
3945
|
- - - I N S E R T S ? N V ? O B ? N G T R _ R E Q U E S T _ P R O C E S S
|
|
3946
|
|
|
3947
|
I F ( @ p _ R E Q _ T Y P E = ' I ' )
|
|
3948
|
|
|
3949
|
B E G I N
|
|
3950
|
|
|
3951
|
D E C L A R E @ t m p t a b l e ( R O L E _ I D V A R C H A R ( 2 5 ) , B R A N C H _ I D v a r c h a r ( 1 5 ) , A M T D E C I M A L ( 1 8 , 0 ) )
|
|
3952
|
|
|
3953
|
I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E ) = ' H S ' )
|
|
3954
|
|
|
3955
|
B E G I N
|
|
3956
|
|
|
3957
|
- - I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 '
|
|
3958
|
|
|
3959
|
I F E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 8 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
3960
|
|
|
3961
|
B E G I N
|
|
3962
|
|
|
3963
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D < > ' G D K '
|
|
3964
|
|
|
3965
|
E N D
|
|
3966
|
|
|
3967
|
E L S E I F E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 1 0 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
3968
|
|
|
3969
|
B E G I N
|
|
3970
|
|
|
3971
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D < > ' G D K '
|
|
3972
|
|
|
3973
|
E N D
|
|
3974
|
|
|
3975
|
E L S E I F ( E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 0 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 1 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
3976
|
|
|
3977
|
O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 2 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 3 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
3978
|
|
|
3979
|
O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 4 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 2 0 % ' A N D D E P _ I D = @ p _ D E P _ I D ) )
|
|
3980
|
|
|
3981
|
B E G I N
|
|
3982
|
|
|
3983
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D N O T I N ( ' G D K ' , ' P T G D ' )
|
|
3984
|
|
|
3985
|
E N D
|
|
3986
|
|
|
3987
|
E L S E I F ( E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 7 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 9 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
3988
|
|
|
3989
|
O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 1 1 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 2 1 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
3990
|
|
|
3991
|
O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 2 2 % ' A N D D E P _ I D = @ p _ D E P _ I D ) )
|
|
3992
|
|
|
3993
|
B E G I N
|
|
3994
|
|
|
3995
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D < > ' P T G D '
|
|
3996
|
|
|
3997
|
E N D
|
|
3998
|
|
|
3999
|
E L S E
|
|
4000
|
|
|
4001
|
B E G I N
|
|
4002
|
|
|
4003
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 '
|
|
4004
|
|
|
4005
|
E N D
|
|
4006
|
|
|
4007
|
E N D
|
|
4008
|
|
|
4009
|
E L S E
|
|
4010
|
|
|
4011
|
B E G I N
|
|
4012
|
|
|
4013
|
I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E ) = ' C N ' )
|
|
4014
|
|
|
4015
|
B E G I N
|
|
4016
|
|
|
4017
|
- - - B A O G O M D O N V I & 3 C A P D U Y E T C U A H O I S O
|
|
4018
|
|
|
4019
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E
|
|
4020
|
|
|
4021
|
- - I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 '
|
|
4022
|
|
|
4023
|
E N D
|
|
4024
|
|
|
4025
|
E L S E I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E ) = ' P G D ' )
|
|
4026
|
|
|
4027
|
B E G I N
|
|
4028
|
|
|
4029
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y '
|
|
4030
|
|
|
4031
|
A N D B R A N C H _ I D = ( S E L E C T F A T H E R _ I D F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E )
|
|
4032
|
|
|
4033
|
- - I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 '
|
|
4034
|
|
|
4035
|
E N D
|
|
4036
|
|
|
4037
|
E N D
|
|
4038
|
|
|
4039
|
D E C L A R E @ R O L E _ I D V A R C H A R ( 2 0 ) , @ B R A N C H _ I D V A R C H A R ( 2 0 ) , @ I N D E X I N T = 0 , @ S L _ R O L E I N T = 0 , @ L I M I T _ V A L U E D E C I M A L ( 1 8 , 0 )
|
|
4040
|
|
|
4041
|
S E T @ S L _ R O L E = ( S E L E C T C O U N T ( * ) F R O M @ t m p )
|
|
4042
|
|
|
4043
|
D E C L A R E @ I S L E A F V A R C H A R ( 1 ) = ' Y ' , @ P A R E N T _ I D V A R C H A R ( 1 0 ) = ' ' , @ S T A T U S V A R C H A R ( 1 ) = ' C ' , @ N O T E S N V A R C H A R ( 5 0 0 )
|
|
4044
|
|
|
4045
|
D E C L A R E C U R _ P R C U R S O R F O R S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . A M T F R O M @ t m p A
|
|
4046
|
|
|
4047
|
O P E N C U R _ P R
|
|
4048
|
|
|
4049
|
F E T C H N E X T F R O M C U R _ P R I N T O @ R O L E _ I D , @ B R A N C H _ I D , @ L I M I T _ V A L U E
|
|
4050
|
|
|
4051
|
W H I L E @ @ F E T C H _ S T A T U S = 0 - - A N D @ S T O P = 0
|
|
4052
|
|
|
4053
|
B E G I N
|
|
4054
|
|
|
4055
|
S E T @ I N D E X = @ I N D E X + 1
|
|
4056
|
|
|
4057
|
I F @ I N D E X = @ S L _ R O L E
|
|
4058
|
|
|
4059
|
S E T @ I S L E A F = ' Y '
|
|
4060
|
|
|
4061
|
E L S E
|
|
4062
|
|
|
4063
|
S E T @ I S L E A F = ' N '
|
|
4064
|
|
|
4065
|
S E T @ N O T E S = ( S E L E C T N ' ? i ' + R O L E _ D E S C + N ' p h ? d u y ? t ' F R O M T L _ S Y S R O L E W H E R E R O L E _ I D = @ R O L E _ I D )
|
|
4066
|
|
|
4067
|
|
|
4068
|
|
|
4069
|
I F ( @ I N D E X = 1 )
|
|
4070
|
|
|
4071
|
B E G I N
|
|
4072
|
|
|
4073
|
S E T @ P A R E N T _ I D = N U L L
|
|
4074
|
|
|
4075
|
S E T @ S T A T U S = ' C '
|
|
4076
|
|
|
4077
|
- - I N S E R T I N T O T R _ R E Q U E S T _ P R O C E S S V A L U E S ( @ p _ R E Q _ P A Y _ I D , C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X ) , ' C ' , @ R O L E _ I D , @ B R A N C H _ I D , N U L L , N U L L , N U L L , @ I S L E A F )
|
|
4078
|
|
|
4079
|
E N D
|
|
4080
|
|
|
4081
|
E L S E
|
|
4082
|
|
|
4083
|
B E G I N
|
|
4084
|
|
|
4085
|
S E T @ P A R E N T _ I D = C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X - 1 )
|
|
4086
|
|
|
4087
|
S E T @ S T A T U S = ' U '
|
|
4088
|
|
|
4089
|
E N D
|
|
4090
|
|
|
4091
|
I F ( @ L I M I T _ V A L U E > = @ p _ R E Q _ A M T )
|
|
4092
|
|
|
4093
|
B E G I N
|
|
4094
|
|
|
4095
|
I N S E R T I N T O d b o . P L _ R E Q U E S T _ P R O C E S S
|
|
4096
|
|
|
4097
|
(
|
|
4098
|
|
|
4099
|
R E Q _ I D ,
|
|
4100
|
|
|
4101
|
P R O C E S S _ I D ,
|
|
4102
|
|
|
4103
|
S T A T U S ,
|
|
4104
|
|
|
4105
|
R O L E _ U S E R ,
|
|
4106
|
|
|
4107
|
B R A N C H _ I D ,
|
|
4108
|
|
|
4109
|
C H E C K E R _ I D ,
|
|
4110
|
|
|
4111
|
A P P R O V E _ D T ,
|
|
4112
|
|
|
4113
|
P A R E N T _ P R O C E S S _ I D ,
|
|
4114
|
|
|
4115
|
I S _ L E A F , C O S T _ I D , D V D M _ I D , N O T E S
|
|
4116
|
|
|
4117
|
)
|
|
4118
|
|
|
4119
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X ) , @ S T A T U S , @ R O L E _ I D , @ B R A N C H _ I D , N U L L , N U L L , @ P A R E N T _ I D , ' Y ' , ' ' , @ p _ D V D M _ I D , @ N O T E S )
|
|
4120
|
|
|
4121
|
- - I N S E R T I N T O P L _ R E Q U E S T _ P R O C E S S V A L U E S ( @ p _ R E Q _ P A Y _ I D , C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X ) , @ S T A T U S , @ R O L E _ I D , @ B R A N C H _ I D , N U L L , N U L L , @ P A R E N T _ I D , ' Y ' )
|
|
4122
|
|
|
4123
|
B R E A K ;
|
|
4124
|
|
|
4125
|
E N D
|
|
4126
|
|
|
4127
|
E L S E
|
|
4128
|
|
|
4129
|
I N S E R T I N T O P L _ R E Q U E S T _ P R O C E S S (
|
|
4130
|
|
|
4131
|
R E Q _ I D ,
|
|
4132
|
|
|
4133
|
P R O C E S S _ I D ,
|
|
4134
|
|
|
4135
|
S T A T U S ,
|
|
4136
|
|
|
4137
|
R O L E _ U S E R ,
|
|
4138
|
|
|
4139
|
B R A N C H _ I D ,
|
|
4140
|
|
|
4141
|
C H E C K E R _ I D ,
|
|
4142
|
|
|
4143
|
A P P R O V E _ D T ,
|
|
4144
|
|
|
4145
|
P A R E N T _ P R O C E S S _ I D ,
|
|
4146
|
|
|
4147
|
I S _ L E A F , C O S T _ I D , D V D M _ I D , N O T E S
|
|
4148
|
|
|
4149
|
) V A L U E S ( @ p _ R E Q _ P A Y _ I D , C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X ) , @ S T A T U S , @ R O L E _ I D , @ B R A N C H _ I D , N U L L , N U L L , @ P A R E N T _ I D , @ I S L E A F , ' ' , @ p _ D V D M _ I D , @ N O T E S )
|
|
4150
|
|
|
4151
|
- - E N D
|
|
4152
|
|
|
4153
|
|
|
4154
|
|
|
4155
|
F E T C H N E X T F R O M C U R _ P R I N T O @ R O L E _ I D , @ B R A N C H _ I D , @ L I M I T _ V A L U E
|
|
4156
|
|
|
4157
|
E N D
|
|
4158
|
|
|
4159
|
C L O S E C U R _ P R
|
|
4160
|
|
|
4161
|
D E A L L O C A T E C U R _ P R
|
|
4162
|
|
|
4163
|
E N D
|
|
4164
|
|
|
4165
|
- - - C A P N H A T T H A N G C U O I C U N G L A Y
|
|
4166
|
|
|
4167
|
- - U P D A T E T R _ R E Q U E S T _ P R O C E S S S E T I S _ L E A F = ' Y ' W H E R E I D = ( S E L E C T M A X ( I D ) F R O M T R _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
4168
|
|
|
4169
|
C O M M I T T R A N S A C T I O N
|
|
4170
|
|
|
4171
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' ) - - B A T D A U G U I P H E D U Y E T
|
|
4172
|
|
|
4173
|
B E G I N
|
|
4174
|
|
|
4175
|
- - R O L L B A C K T R A N S A C T I O N
|
|
4176
|
|
|
4177
|
- - C A P N H A T T I N H T R A N G D U Y E T K E T O A N L A D A N G X U L Y
|
|
4178
|
|
|
4179
|
- - U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T A U T H _ S T A T U S = ' U ' W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
4180
|
|
|
4181
|
- - I N S E R T I N T O d b o . P L _ P R O C E S S ( R E Q _ I D , P R O C E S S _ I D , C H E C K E R _ I D , A P P R O V E _ D T , P R O C E S S _ D E S C , N O T E S )
|
|
4182
|
|
|
4183
|
- - V A L U E S ( @ p _ R E Q _ P A Y _ I D , ' S E N D ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , N ' ? n v ? g ? i p h ? d u y ? t ' , N ' ? n v ? t ? o p h i ? u t ? m ? n g v ? g ? i p h ? d u y ? t ' )
|
|
4184
|
|
|
4185
|
- - S E L E C T ' 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D A S R E Q _ P A Y _ I D , N ' G ? i p h ? d u y ? t t h ? n h c ? n g ' E r r o r D e s c
|
|
4186
|
|
|
4187
|
- - R E T U R N ' 4 '
|
|
4188
|
|
|
4189
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' ) - - K I E M T R A N E U 2 B I E N X M L K H A C N U L L T U C L A D A N G T R O N G Q U A T R I N H L U U N H A P
|
|
4190
|
|
|
4191
|
B E G I N
|
|
4192
|
|
|
4193
|
D E C L A R E @ B R A N C H _ T Y P E _ C R V A R C H A R ( 1 5 )
|
|
4194
|
|
|
4195
|
S E T @ B R A N C H _ T Y P E _ C R = ( S E L E C T T O P 1 B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E )
|
|
4196
|
|
|
4197
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E T R A S F E R _ U S E R _ R E C I V E = ' ' O R T R A S F E R _ U S E R _ R E C I V E I S N U L L ) A N D @ B R A N C H _ T Y P E _ C R = ' H S ' A N D @ p _ R E Q _ T Y P E = ' I ' )
|
|
4198
|
|
|
4199
|
B E G I N
|
|
4200
|
|
|
4201
|
D E C L A R E @ U S E R _ T P V A R C H A R ( 1 5 ) = ' '
|
|
4202
|
|
|
4203
|
- - S E T @ U S E R _ T P = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R W H E R E S E C U R _ C O D E = @ p _ D E P _ I D
|
|
4204
|
|
|
4205
|
- - A N D ( R o l e N a m e I N ( ' G D D V ' , ' T P T C ' , ' T C ' , ' K T T ' ) O R R o l e N a m e I N ( S E L E C T R O L E _ O L D F R O M T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ N E W = ' G D D V ' ) ) )
|
|
4206
|
|
|
4207
|
I F ( @ U S E R _ T P I S N U L L O R @ U S E R _ T P = ' ' )
|
|
4208
|
|
|
4209
|
B E G I N
|
|
4210
|
|
|
4211
|
S E T @ U S E R _ T P = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R _ V 2 W H E R E S E C U R _ C O D E = @ p _ D E P _ I D
|
|
4212
|
|
|
4213
|
A N D ( R o l e N a m e I N ( ' G D D V ' , ' T P T C ' , ' T C ' , ' K T T ' ) ) )
|
|
4214
|
|
|
4215
|
E N D
|
|
4216
|
|
|
4217
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T T R A S F E R _ U S E R _ R E C I V E = @ U S E R _ T P W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
4218
|
|
|
4219
|
E N D
|
|
4220
|
|
|
4221
|
E L S E I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y M E N T W H E R E T R A S F E R _ U S E R _ R E C I V E = ' ' O R T R A S F E R _ U S E R _ R E C I V E I S N U L L ) A N D @ B R A N C H _ T Y P E _ C R = ' P G D ' )
|
|
4222
|
|
|
4223
|
B E G I N
|
|
4224
|
|
|
4225
|
D E C L A R E @ U S E R _ T P G D V A R C H A R ( 1 5 ) = ' '
|
|
4226
|
|
|
4227
|
- - S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R W H E R E S E C U R _ C O D E = @ p _ D E P _ I D A N D R o l e N a m e I N ( ' T P G D ' ) )
|
|
4228
|
|
|
4229
|
- - S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R W H E R E S E C U R _ C O D E = @ p _ D E P _ I D A N D ( R o l e N a m e I N ( ' T P G D ' ) O R
|
|
4230
|
|
|
4231
|
- - R o l e N a m e I N ( S E L E C T R O L E _ O L D F R O M T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ N E W = ' T P G D ' ) ) )
|
|
4232
|
|
|
4233
|
I F ( @ U S E R _ T P G D I S N U L L O R @ U S E R _ T P G D = ' ' )
|
|
4234
|
|
|
4235
|
B E G I N
|
|
4236
|
|
|
4237
|
S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R _ V 2 W H E R E T L S U B B R I D = @ p _ B R A N C H _ C R E A T E
|
|
4238
|
|
|
4239
|
A N D R o l e N a m e = ' T P G D ' )
|
|
4240
|
|
|
4241
|
E N D
|
|
4242
|
|
|
4243
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T T R A S F E R _ U S E R _ R E C I V E = @ U S E R _ T P G D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
4244
|
|
|
4245
|
E N D
|
|
4246
|
|
|
4247
|
- - C A P N H A T T I N H T R A N G D U Y E T K E T O A N L A D A N G X U L Y
|
|
4248
|
|
|
4249
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T A U T H _ S T A T U S = ' U ' , P R O C E S S = N U L L W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
4250
|
|
|
4251
|
I N S E R T I N T O d b o . P L _ P R O C E S S ( R E Q _ I D , P R O C E S S _ I D , C H E C K E R _ I D , A P P R O V E _ D T , P R O C E S S _ D E S C , N O T E S )
|
|
4252
|
|
|
4253
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , ' S E N D ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , N ' ? n v ? g ? i p h ? d u y ? t ' , N ' ? n v ? t ? o p h i ? u t ? m ? n g v ? g ? i p h ? d u y ? t ' )
|
|
4254
|
|
|
4255
|
S E L E C T ' 4 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' G ? i p h ? d u y ? t t h ? n h c ? n g ' E r r o r D e s c
|
|
4256
|
|
|
4257
|
R E T U R N ' 4 '
|
|
4258
|
|
|
4259
|
E N D
|
|
4260
|
|
|
4261
|
E N D
|
|
4262
|
|
|
4263
|
S E L E C T ' 0 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , @ p _ R E Q _ P A Y _ C O D E A S R E Q _ P A Y _ C O D E , ' ' E r r o r D e s c
|
|
4264
|
|
|
4265
|
R E T U R N ' 0 '
|
|
4266
|
|
|
4267
|
A B O R T :
|
|
4268
|
|
|
4269
|
B E G I N
|
|
4270
|
|
|
4271
|
R O L L B A C K T R A N S A C T I O N
|
|
4272
|
|
|
4273
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , ' ' E r r o r D e s c
|
|
4274
|
|
|
4275
|
R E T U R N ' - 1 '
|
|
4276
|
|
|
4277
|
E n d
|
|
4278
|
|
|
4279
|
G O
|
|
4280
|
|
|
4281
|
/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ T R _ R E Q _ A D V A N C E _ P A Y M E N T _ S e a r c h ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 1 A M * * * * * * /
|
|
4282
|
|
|
4283
|
S E T A N S I _ N U L L S O N
|
|
4284
|
|
|
4285
|
G O
|
|
4286
|
|
|
4287
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
4288
|
|
|
4289
|
G O
|
|
4290
|
|
|
4291
|
C R E A T E P R O C E D U R E [ d b o ] . [ T R _ R E Q _ A D V A N C E _ P A Y M E N T _ S e a r c h ]
|
|
4292
|
|
|
4293
|
@ p _ R E Q _ P A Y _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4294
|
|
|
4295
|
@ p _ R E Q _ P A Y _ C O D E v a r c h a r ( 5 0 ) = N U L L ,
|
|
4296
|
|
|
4297
|
@ p _ R E Q _ D T V A R C H A R ( 2 0 ) = N U L L ,
|
|
4298
|
|
|
4299
|
@ p _ B R A N C H _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4300
|
|
|
4301
|
@ p _ D E P _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4302
|
|
|
4303
|
@ p _ R E Q _ R E A S O N n v a r c h a r ( M A X ) = N U L L ,
|
|
4304
|
|
|
4305
|
@ p _ R E Q _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
4306
|
|
|
4307
|
@ P _ R E Q _ E N T R I E S n v a r c h a r ( M A X ) = N U L L ,
|
|
4308
|
|
|
4309
|
@ p _ R E Q _ D E S C R I P T I O N n v a r c h a r ( M A X ) = N U L L ,
|
|
4310
|
|
|
4311
|
@ p _ R E F _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4312
|
|
|
4313
|
@ p _ R E C E I V E R _ P O n v a r c h a r ( 2 5 0 ) = N U L L ,
|
|
4314
|
|
|
4315
|
@ p _ R E C E I V E R _ D E B I T n v a r c h a r ( 2 5 0 ) = N U L L ,
|
|
4316
|
|
|
4317
|
@ p _ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
4318
|
|
|
4319
|
@ p _ R E Q _ T Y P E _ C U R R E N C Y n v a r c h a r ( 5 0 ) = N U L L ,
|
|
4320
|
|
|
4321
|
@ p _ R E Q _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
4322
|
|
|
4323
|
@ p _ R E Q _ T E M P _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
4324
|
|
|
4325
|
@ p _ M A K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4326
|
|
|
4327
|
@ p _ C R E A T E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
4328
|
|
|
4329
|
@ p _ E D I T O R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4330
|
|
|
4331
|
@ p _ A U T H _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
4332
|
|
|
4333
|
@ p _ C H E C K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4334
|
|
|
4335
|
@ p _ A P P R O V E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
4336
|
|
|
4337
|
@ p _ C R E A T E _ D T _ K T v a r c h a r ( 2 5 ) = N U L L ,
|
|
4338
|
|
|
4339
|
@ p _ M A K E R _ I D _ K T v a r c h a r ( 1 5 ) = N U L L ,
|
|
4340
|
|
|
4341
|
@ p _ A U T H _ S T A T U S _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
4342
|
|
|
4343
|
@ p _ C H E C K E R _ I D _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
4344
|
|
|
4345
|
@ p _ A P P R O V E _ D T _ K T v a r c h a r ( 2 5 ) = n u l l ,
|
|
4346
|
|
|
4347
|
@ p _ C O R E _ N O T E n v a r c h a r ( 5 0 0 ) = N U L L ,
|
|
4348
|
|
|
4349
|
@ p _ B R A N C H _ C R E A T E v a r c h a r ( 1 5 ) = N U L L ,
|
|
4350
|
|
|
4351
|
@ p _ N O T E S v a r c h a r ( 1 5 ) = N U L L ,
|
|
4352
|
|
|
4353
|
@ p _ R E C O R D _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
4354
|
|
|
4355
|
@ p _ T R A N S F E R _ M A K E R n v a r c h a r ( 5 0 ) = N U L L ,
|
|
4356
|
|
|
4357
|
@ p _ T R A N S F E R _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
4358
|
|
|
4359
|
@ p _ T R A S F E R _ U S E R _ R E C I V E v a r c h a r ( 1 5 ) = N U L L ,
|
|
4360
|
|
|
4361
|
@ p _ P R O C E S S v a r c h a r ( 1 5 ) = N U L L ,
|
|
4362
|
|
|
4363
|
@ p _ P A Y _ P H A S E V A R C H A R ( 1 5 ) = N U L L ,
|
|
4364
|
|
|
4365
|
@ p _ X M P _ T E M P X M L = N U L L ,
|
|
4366
|
|
|
4367
|
@ p _ T O P I N T = 1 0 ,
|
|
4368
|
|
|
4369
|
@ p _ L E V E L v a r c h a r ( 1 0 ) = N U L L ,
|
|
4370
|
|
|
4371
|
@ p _ F R M D A T E V A R C H A R ( 2 0 ) = N U L L ,
|
|
4372
|
|
|
4373
|
@ p _ T O D A T E V A R C H A R ( 2 0 ) = N U L L ,
|
|
4374
|
|
|
4375
|
@ p _ B R A N C H _ L O G I N V A R C H A R ( 1 5 ) = N U L L ,
|
|
4376
|
|
|
4377
|
@ p _ I S _ U P D A T E _ K T V A R C H A R ( 1 5 ) = N U L L ,
|
|
4378
|
|
|
4379
|
@ p _ I S _ T R A N S F E R V A R C H A R ( 1 5 ) = N U L L ,
|
|
4380
|
|
|
4381
|
@ p _ D V D M _ I D V A R C H A R ( 1 5 ) = N U L L ,
|
|
4382
|
|
|
4383
|
@ p _ U S E R _ L O G I N V A R C H A R ( 1 5 ) = N U L L ,
|
|
4384
|
|
|
4385
|
@ p _ R A T E D E C I M A L ( 1 8 , 0 ) = 0 ,
|
|
4386
|
|
|
4387
|
@ p _ F U N C T I O N V A R C H A R ( 1 5 ) = N U L L ,
|
|
4388
|
|
|
4389
|
@ p _ T Y P E _ S E A R C H V A R C H A R ( 1 5 ) = N U L L ,
|
|
4390
|
|
|
4391
|
@ p _ T E M P _ P A Y _ S T A T U S V A R C H A R ( 1 0 ) = N U L L
|
|
4392
|
|
|
4393
|
- - s e l e c t * f r o m C M _ A L L C O D E w h e r e C D T Y P E = ' T E M P P A Y S T A T U S '
|
|
4394
|
|
|
4395
|
- - H T H o ? n t ? t
|
|
4396
|
|
|
4397
|
- - D C H U a n g c h ? h o ? n ? n g
|
|
4398
|
|
|
4399
|
- - D H U ? h o ? n ? n g
|
|
4400
|
|
|
4401
|
- - ' ' t ? t c ?
|
|
4402
|
|
|
4403
|
A S
|
|
4404
|
|
|
4405
|
S E T @ p _ T O P = N U L L
|
|
4406
|
|
|
4407
|
D E C L A R E @ T B _ T Y P E T A B L E ( B R A N C H _ T Y P E V A R C H A R ( 1 5 ) )
|
|
4408
|
|
|
4409
|
I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ L O G I N ) = ' H S ' )
|
|
4410
|
|
|
4411
|
B E G I N
|
|
4412
|
|
|
4413
|
I N S E R T I N T O @ T B _ T Y P E V A L U E S ( ' H S ' )
|
|
4414
|
|
|
4415
|
E N D
|
|
4416
|
|
|
4417
|
E L S E
|
|
4418
|
|
|
4419
|
B E G I N
|
|
4420
|
|
|
4421
|
I N S E R T I N T O @ T B _ T Y P E V A L U E S ( ' P G D ' )
|
|
4422
|
|
|
4423
|
I N S E R T I N T O @ T B _ T Y P E V A L U E S ( ' C N ' )
|
|
4424
|
|
|
4425
|
E N D
|
|
4426
|
|
|
4427
|
d e c l a r e @ t m p t a b l e ( B R A N C H _ I D v a r c h a r ( 1 5 ) )
|
|
4428
|
|
|
4429
|
i n s e r t i n t o @ t m p S E L E C T B R A N C H _ I D F R O M [ d b o ] . [ C M _ B R A N C H _ G E T C H I L D I D ] ( @ p _ B R A N C H _ I D )
|
|
4430
|
|
|
4431
|
d e c l a r e @ t m p _ L o g i n t a b l e ( B R A N C H _ I D v a r c h a r ( 1 5 ) )
|
|
4432
|
|
|
4433
|
i n s e r t i n t o @ t m p _ L o g i n S E L E C T B R A N C H _ I D F R O M [ d b o ] . [ C M _ B R A N C H _ G E T C H I L D I D ] ( @ p _ B R A N C H _ L O G I N )
|
|
4434
|
|
|
4435
|
D E C L A R E @ R O L E _ I D V A R C H A R ( 2 0 ) , @ D E P _ I D _ L G V A R C H A R ( 1 5 ) = N U L L , @ C O S T _ L G V A R C H A R ( 1 5 ) , @ D V D M _ I D V A R C H A R ( 1 5 )
|
|
4436
|
|
|
4437
|
D E C L A R E @ B R A N C H _ T Y P E V A R C H A R ( 1 5 )
|
|
4438
|
|
|
4439
|
S E T @ B R A N C H _ T Y P E = ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = ( S E L E C T B R A N C H _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D ) )
|
|
4440
|
|
|
4441
|
S E T @ R O L E _ I D = ( S E L E C T R O L E N A M E F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ U S E R _ L O G I N )
|
|
4442
|
|
|
4443
|
S E T @ D E P _ I D _ L G = ( S E L E C T S E C U R _ C O D E F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ U S E R _ L O G I N )
|
|
4444
|
|
|
4445
|
D E C L A R E @ T M P _ D E P T A B L E ( D E P _ I D V A R C H A R ( 1 5 ) )
|
|
4446
|
|
|
4447
|
S E T @ C O S T _ L G = ( S E L E C T T O P 1 C O S T _ I D F R O M P L _ C O S T C E N T E R _ D T W H E R E D E P _ I D = @ D E P _ I D _ L G )
|
|
4448
|
|
|
4449
|
S E T @ D V D M _ I D = ( S E L E C T T O P 1 D V D M _ I D F R O M P L _ C O S T C E N T E R W H E R E C O S T _ I D = @ C O S T _ L G )
|
|
4450
|
|
|
4451
|
I N S E R T I N T O @ T M P _ D E P S E L E C T B . D E P _ I D F R O M P L _ C O S T C E N T E R _ D T B W H E R E C O S T _ I D = @ C O S T _ L G
|
|
4452
|
|
|
4453
|
D E C L A R E @ B R A N C H _ T Y P E _ L G V A R C H A R ( 1 5 )
|
|
4454
|
|
|
4455
|
S E T @ B R A N C H _ T Y P E _ L G = ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ L O G I N )
|
|
4456
|
|
|
4457
|
|
|
4458
|
|
|
4459
|
- - I F ( E X I S T S ( S E L E C T * F R O M d b o . T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ O L D = @ R O L E _ I D ) )
|
|
4460
|
|
|
4461
|
- - S E T @ R O L E _ I D = ( S E L E C T R O L E _ N E W F R O M d b o . T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ O L D = @ R O L E _ I D )
|
|
4462
|
|
|
4463
|
S E T @ R O L E _ I D = ( S E L E C T T O P 1 R o l e N a m e F R O M T L _ U S E R _ V 2 W H E R E T L N A N M E = @ p _ U S E R _ L O G I N )
|
|
4464
|
|
|
4465
|
|
|
4466
|
|
|
4467
|
I F ( @ p _ T O P = N U L L O R @ p _ T O P = ' ' O R @ p _ T O P = 0 ) B E G I N
|
|
4468
|
|
|
4469
|
S E L E C T A . * , ' ' a s T E M P _ P A Y _ S T A T U S ,
|
|
4470
|
|
|
4471
|
P R . P R O C E S S _ D E S C A S A U T H _ S T A T U S _ N A M E , C . A U T H _ S T A T U S _ N A M E A U T H _ S T A T U S _ N A M E _ K T , T L . T L F u l l N a m e C R E A T E _ F U L L N A M E ,
|
|
4472
|
|
|
4473
|
T L 1 . T L F u l l N a m e A P P R O V E _ F U L L N A M E , T L 2 . T L F u l l N a m e C R E A T E _ F U L L N A M E _ K T , T L 3 . T L F u l l N a m e A P P R O V E _ F U L L N A M E _ K T ,
|
|
4474
|
|
|
4475
|
B R . B R A N C H _ N A M E B R A N C H _ N A M E _ R E Q , B R 1 . B R A N C H _ N A M E B R A N C H _ N A M E _ C R E , D P . D E P _ N A M E , D P . D E P _ C O D E , B R . B R A N C H _ C O D E B R A N C H _ C O D E _ R E Q ,
|
|
4476
|
|
|
4477
|
- - L u a n l t - - 2 0 1 9 / 1 0 / 1 5 - S ? a A L , A L 1
|
|
4478
|
|
|
4479
|
B R 1 . B R A N C H _ C O D E B R A N C H _ C O D E _ C R E , A L . C O N T E N T R E Q _ T Y P E _ N A M E , A L 1 . C O N T E N T R E Q _ P A Y _ T Y P E _ N A M E ,
|
|
4480
|
|
|
4481
|
A . R E Q _ A M T A S T O T A L _ A M T _ T E M P , C A S E W H E N H . S O T I E N _ T T I S N U L L T H E N I S N U L L ( A . P A Y _ A M T , 0 ) E L S E I S N U L L ( H . S O T I E N _ T T , 0 ) E N D A S T O T A L _ A M T _ P A Y _ H I S ,
|
|
4482
|
|
|
4483
|
T L 4 . T L F u l l N a m e A S T R A N S F E R _ F U L L N A M E , T L 5 . T L F u l l N a m e A S T R A N S F E R _ R E C I E V E R _ F U L L N A M E , T L 6 . T L F u l l N a m e A S R E C _ D E B I T _ N A M E , T L 6 . T L N A N M E A S R E C _ D E B I T _ C O D E ,
|
|
4484
|
|
|
4485
|
T L 7 . T L F u l l N a m e A S E M P _ N A M E , T L 7 . T L N A N M E A S E M P _ C O D E ,
|
|
4486
|
|
|
4487
|
P O . P O _ C O D E , P O . P O _ N A M E , S U P . S U P _ N A M E , S U P . T A X _ N O A S S U P _ T A X _ N O , C U S . C U S T O M E R _ C O D E A S C U S T _ C O D E , C U S . C U S T O M E R _ N A M E A S C U S T _ N A M E , P M . P A Y _ P H A S E A S K Y _ T A M _ U N G ,
|
|
4488
|
|
|
4489
|
D V . D V D M _ C O D E , D V . D V D M _ N A M E , P C . R O L E _ U S E R A S R O L E _ C O N F , P R . P R O C E S S _ D E S C A S C O N F _ S T A T U S , P C 1 . N O T E S A S N E X T _ S T E P , P C 3 . L E V E L _ J O B , P C 3 . S T A T U S _ J O B , P C 3 . T Y P E _ J O B ,
|
|
4490
|
|
|
4491
|
P C 3 . T L N A M E A S E X E C _ U S E R , T L 8 . T L F u l l N a m e A S R E C I V E R _ M O N E Y _ F U L L N A M E , B R 1 . B R A N C H _ T Y P E A S B R A N C H _ T Y P E _ C R , B R . B R A N C H _ T Y P E , @ p _ T Y P E _ S E A R C H A S T Y P E _ S E A R C H , S R . R O L E _ I D A S R O L E _ I D _ C R E
|
|
4492
|
|
|
4493
|
F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T A
|
|
4494
|
|
|
4495
|
L E F T J O I N C M _ A U T H _ S T A T U S B O N A . A U T H _ S T A T U S = B . A U T H _ S T A T U S
|
|
4496
|
|
|
4497
|
L E F T J O I N C M _ A U T H _ S T A T U S C O N A . A U T H _ S T A T U S _ K T = C . A U T H _ S T A T U S
|
|
4498
|
|
|
4499
|
L E F T J O I N T L _ U S E R T L O N A . M A K E R _ I D = T L . T L N A N M E
|
|
4500
|
|
|
4501
|
L E F T J O I N T L _ U S E R T L 1 O N A . C H E C K E R _ I D = T L 1 . T L N A N M E
|
|
4502
|
|
|
4503
|
L E F T J O I N T L _ U S E R T L 2 O N A . M A K E R _ I D _ K T = T L 2 . T L N A N M E
|
|
4504
|
|
|
4505
|
L E F T J O I N T L _ U S E R T L 3 O N A . C H E C K E R _ I D _ K T = T L 3 . T L N A N M E
|
|
4506
|
|
|
4507
|
L E F T J O I N d b o . C M _ B R A N C H B R O N A . B R A N C H _ I D = B R . B R A N C H _ I D
|
|
4508
|
|
|
4509
|
L E F T J O I N d b o . C M _ B R A N C H B R 1 O N A . B R A N C H _ C R E A T E = B R 1 . B R A N C H _ I D
|
|
4510
|
|
|
4511
|
L E F T J O I N d b o . C M _ D E P A R T M E N T D P O N D P . D E P _ I D = A . D E P _ I D
|
|
4512
|
|
|
4513
|
- - L u a n l t - - 2 0 1 9 / 1 0 / 1 5 - S ? a A L , A L 1
|
|
4514
|
|
|
4515
|
L E F T J O I N C M _ A L L C O D E A L O N A . R E Q _ T Y P E = A L . C D V A L A N D A L . C D N A M E = ' R E Q _ T Y P E ' - - L o ? i t h a n h t o ? n ( N ? i b ? / T h a n h t o ? n / N ? )
|
|
4516
|
|
|
4517
|
L E F T J O I N C M _ A L L C O D E A L 1 O N A . R E Q _ P A Y _ T Y P E = A L 1 . C D V A L A N D A L 1 . C D N A M E = ' R E Q _ P A Y _ T Y P E ' - - H ? n h t h ? c t h a n h t o ? n ( T i ? n m ? t / C h u y ? n k h o ? n )
|
|
4518
|
|
|
4519
|
L E F T J O I N T L _ U S E R T L 4 O N A . T R A N S F E R _ M A K E R = T L 4 . T L N A N M E
|
|
4520
|
|
|
4521
|
L E F T J O I N T L _ U S E R T L 5 O N A . T R A S F E R _ U S E R _ R E C I V E = T L 5 . T L N A N M E
|
|
4522
|
|
|
4523
|
L E F T J O I N T L _ U S E R T L 6 O N A . R E C E I V E R _ D E B I T = T L 6 . T L N A N M E A N D A . R E Q _ T Y P E = ' D '
|
|
4524
|
|
|
4525
|
L E F T J O I N
|
|
4526
|
|
|
4527
|
(
|
|
4528
|
|
|
4529
|
S E L E C T P A Y _ A D V _ I D , ( I S N U L L ( S U M ( A M T _ U S E ) , 0 ) - I S N U L L ( S U M ( A M T _ A D D ) , 0 ) + I S N U L L ( S U M ( A M T _ R E V E R T ) , 0 ) ) A S S O T I E N _ T T F R O M T R _ R E Q _ P A Y M E N T _ D T W H E R E A U T H _ S T A T U S _ K T = ' A ' G R O U P B Y P A Y _ A D V _ I D
|
|
4530
|
|
|
4531
|
) H O N A . R E Q _ P A Y _ I D = H . P A Y _ A D V _ I D
|
|
4532
|
|
|
4533
|
L E F T J O I N T L _ U S E R T L 7 O N T L 7 . T L N A N M E = A . R E F _ I D A N D A . R E Q _ T Y P E = ' I '
|
|
4534
|
|
|
4535
|
L E F T J O I N T R _ P O _ M A S T E R P O O N A . R E F _ I D = P O . P O _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
4536
|
|
|
4537
|
L E F T J O I N C M _ S U P P L I E R S U P O N P O . S U P _ I D = S U P . S U P _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
4538
|
|
|
4539
|
L E F T J O I N L S _ C U S T O M E R C U S O N A . R E F _ I D = C U S . C U S T O M E R _ I D A N D A . R E Q _ T Y P E = ' D '
|
|
4540
|
|
|
4541
|
L E F T J O I N T R _ P O _ P A Y M E N T P M O N A . P A Y _ P H A S E = P M . P A Y _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
4542
|
|
|
4543
|
L E F T J O I N C M _ D V D M D V O N A . D V D M _ I D = D V . D V D M _ I D
|
|
4544
|
|
|
4545
|
L E F T J O I N P L _ P R O C E S S P R O N A . P R O C E S S = P R . P R O C E S S _ I D A N D A . R E Q _ P A Y _ I D = P R . R E Q _ I D
|
|
4546
|
|
|
4547
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S P C O N P C . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C . R O L E _ U S E R = @ R O L E _ I D A N D P C . S T A T U S = ' C '
|
|
4548
|
|
|
4549
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S P C 1 O N P C 1 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 1 . S T A T U S = ' C '
|
|
4550
|
|
|
4551
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S _ C H I L D P C 3 O N P C 3 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 3 . S T A T U S _ J O B = ' C '
|
|
4552
|
|
|
4553
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S _ C H I L D P C 4 O N P C 4 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 4 . S T A T U S _ J O B = ' C '
|
|
4554
|
|
|
4555
|
L E F T J O I N T L _ U S E R T L 8 O N A . R E C I V E R _ M O N E Y = T L 8 . T L N A N M E
|
|
4556
|
|
|
4557
|
L E F T J O I N T L _ S Y S R O L E S R O N T L . R o l e N a m e = S R . R O L E _ I D
|
|
4558
|
|
|
4559
|
W H E R E 1 = 1
|
|
4560
|
|
|
4561
|
A N D ( A . R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D O R @ p _ R E Q _ P A Y _ I D I S N U L L O R @ p _ R E Q _ P A Y _ I D = ' ' )
|
|
4562
|
|
|
4563
|
A N D ( A . R E Q _ R E A S O N L I K E N ' % ' + @ p _ R E Q _ R E A S O N + ' % ' O R @ p _ R E Q _ R E A S O N = ' ' O R @ p _ R E Q _ R E A S O N I S N U L L )
|
|
4564
|
|
|
4565
|
A N D ( A . A U T H _ S T A T U S = @ p _ A U T H _ S T A T U S O R @ p _ A U T H _ S T A T U S = ' ' O R @ p _ A U T H _ S T A T U S I S N U L L )
|
|
4566
|
|
|
4567
|
A N D ( ( A . M A K E R _ I D _ K T I S N O T N U L L A N D @ p _ I S _ U P D A T E _ K T = ' Y ' ) - - L a y d a n h s a c h c h u a d u o c p h o n g K T c a p n h a t v a d u o c c a p n h a t
|
|
4568
|
|
|
4569
|
O R ( ( A . M A K E R _ I D _ K T I S N U L L A N D @ p _ I S _ U P D A T E _ K T = ' N ' ) ) O R @ p _ I S _ U P D A T E _ K T I S N U L L O R @ p _ I S _ U P D A T E _ K T = ' ' )
|
|
4570
|
|
|
4571
|
A N D ( A . N O T E S L I K E N ' % ' + @ p _ N O T E S + ' % ' O R @ p _ N O T E S = ' ' O R @ p _ N O T E S I S N U L L )
|
|
4572
|
|
|
4573
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 4 - T h ? m F i l t e r R E Q _ T Y P E , F R O M D A T E T O D A T E R E F _ I D
|
|
4574
|
|
|
4575
|
A N D ( A . R E Q _ T Y P E L I K E N ' % ' + @ p _ R E Q _ T Y P E + ' % ' O R @ p _ R E Q _ T Y P E = ' ' O R @ p _ R E Q _ T Y P E I S N U L L )
|
|
4576
|
|
|
4577
|
A N D ( C O N V E R T ( D A T E , A . C R E A T E _ D T ) > = C O N V E R T ( D A T E , @ p _ F R M D A T E , 1 0 3 ) O R @ p _ F R M D A T E I S N U L L O R @ p _ F R M D A T E = ' ' )
|
|
4578
|
|
|
4579
|
A N D ( C O N V E R T ( D A T E , A . C R E A T E _ D T ) < = C O N V E R T ( D A T E , @ p _ T O D A T E , 1 0 3 ) O R @ p _ T O D A T E I S N U L L O R @ p _ T O D A T E = ' ' )
|
|
4580
|
|
|
4581
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 7 - T h ? m F i l t e r R E Q _ P A Y _ C O D E R E Q _ P A Y _ N A M E B R A N C H _ I D D E P _ I D K T _ A U T H
|
|
4582
|
|
|
4583
|
A N D ( A . R E Q _ P A Y _ C O D E L I K E N ' % ' + @ p _ R E Q _ P A Y _ C O D E + ' % ' o r @ p _ R E Q _ P A Y _ C O D E = ' ' O R @ p _ R E Q _ P A Y _ C O D E I S N U L L )
|
|
4584
|
|
|
4585
|
A N D ( A . T R A S F E R _ U S E R _ R E C I V E = @ p _ T R A S F E R _ U S E R _ R E C I V E o r @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R A . M A K E R _ I D _ K T I S N O T N U L L O R A . M A K E R _ I D _ K T < > ' ' )
|
|
4586
|
|
|
4587
|
A N D ( A . B R A N C H _ C R E A T E = @ p _ B R A N C H _ C R E A T E o r @ p _ B R A N C H _ C R E A T E = ' ' O R @ p _ B R A N C H _ C R E A T E I S N U L L )
|
|
4588
|
|
|
4589
|
A N D ( A . D E P _ I D = @ p _ D E P _ I D o r @ p _ D E P _ I D = ' ' O R @ p _ D E P _ I D I S N U L L )
|
|
4590
|
|
|
4591
|
A N D ( A . A U T H _ S T A T U S _ K T = @ p _ A U T H _ S T A T U S _ K T O R @ p _ A U T H _ S T A T U S _ K T = ' ' O R @ p _ A U T H _ S T A T U S _ K T I S N U L L )
|
|
4592
|
|
|
4593
|
A N D ( A . R E F _ I D = @ p _ R E F _ I D O R @ p _ R E F _ I D = ' ' O R @ p _ R E F _ I D I S N U L L )
|
|
4594
|
|
|
4595
|
A N D ( ( A . T R A N S F E R _ M A K E R I S N O T N U L L A N D @ p _ I S _ T R A N S F E R = ' Y ' ) - - L a y d a n h s a c h c h u a d u o c p h o n g K T c a p n h a t v a d u o c c a p n h a t
|
|
4596
|
|
|
4597
|
O R ( ( A . T R A N S F E R _ M A K E R I S N U L L A N D @ p _ I S _ T R A N S F E R = ' N ' ) ) O R @ p _ I S _ T R A N S F E R I S N U L L O R @ p _ I S _ T R A N S F E R = ' ' )
|
|
4598
|
|
|
4599
|
A N D ( ( @ p _ L E V E L = ' A L L ' A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D F R O M @ t m p ) )
|
|
4600
|
|
|
4601
|
O R ( ( @ p _ L E V E L = ' U N I T ' A N D A . B R A N C H _ I D = @ p _ B R A N C H _ I D ) O R ( @ p _ B R A N C H _ I D = ' ' O R @ p _ B R A N C H _ I D I S N U L L ) ) )
|
|
4602
|
|
|
4603
|
A N D ( ( @ p _ L E V E L = ' A L L ' A N D A . B R A N C H _ C R E A T E I N ( S E L E C T B R A N C H _ I D F R O M @ t m p _ L o g i n ) )
|
|
4604
|
|
|
4605
|
O R ( ( @ p _ L E V E L = ' U N I T ' A N D A . B R A N C H _ C R E A T E = @ p _ B R A N C H _ C R E A T E ) O R ( @ p _ B R A N C H _ C R E A T E = ' ' O R @ p _ B R A N C H _ C R E A T E I S N U L L ) ) )
|
|
4606
|
|
|
4607
|
- - - K I E M T R A N E U L A M A N H I N H T I M K I E M P H I E U T A M U N G D E H O A N T A M U N G T H I C H I L A Y N H U N G P H I E U T A M U N G C O S O T I E N T A M U N G C O N L A I = 0
|
|
4608
|
|
|
4609
|
A N D ( ( ( @ p _ P R O C E S S = ' P M ' A N D ( A . R E Q _ A M T - I S N U L L ( H . S O T I E N _ T T , 0 ) ) > 0 ) A N D A . R E Q _ T Y P E = ' I ' ) O R @ p _ P R O C E S S I S N U L L O R @ p _ P R O C E S S = ' ' )
|
|
4610
|
|
|
4611
|
A N D ( ( @ p _ F U N C T I O N = ' K T ' A N D A . M A K E R _ I D _ K T I S N O T N U L L A N D A . M A K E R _ I D _ K T = ' ' ) O R @ p _ F U N C T I O N I S N U L L O R @ p _ F U N C T I O N = ' ' )
|
|
4612
|
|
|
4613
|
A N D ( P C 4 . T L N A M E = @ p _ T R A S F E R _ U S E R _ R E C I V E O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' )
|
|
4614
|
|
|
4615
|
A N D (
|
|
4616
|
|
|
4617
|
( A . R E Q _ T Y P E I N ( ' I ' , ' P ' , ' D ' )
|
|
4618
|
|
|
4619
|
A N D ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D E X I S T S ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ L O G I N A N D B R A N C H _ T Y P E = ' H S ' )
|
|
4620
|
|
|
4621
|
A N D ( ( A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' A N D ( S E L E C T S E C U R _ C O D E F R O M T L _ U S E R W H E R E T L N A N M E = A . M A K E R _ I D ) = ( S E L E C T S E C U R _ C O D E F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ U S E R _ L O G I N ) )
|
|
4622
|
|
|
4623
|
O R ( A . M A K E R _ I D = @ P _ U S E R _ L O G I N O R A . T R A S F E R _ U S E R _ R E C I V E = @ p _ U S E R _ L O G I N ) )
|
|
4624
|
|
|
4625
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D N O T E X I S T S ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ L O G I N A N D B R A N C H _ T Y P E = ' H S ' )
|
|
4626
|
|
|
4627
|
A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D f r o m @ t m p _ L o g i n ) )
|
|
4628
|
|
|
4629
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D ( A . D V D M _ I D I S N O T N U L L O R A . D V D M _ I D < > ' ' A N D A . D V D M _ I D = @ D V D M _ I D A N D A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' ) O R ( A . D E P _ I D I N ( S E L E C T * F R O M @ T M P _ D E P ) A N D A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' ) )
|
|
4630
|
|
|
4631
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D A N D R O L E _ U S E R = ' T G D ' A N D S T A T U S = ' C ' ) )
|
|
4632
|
|
|
4633
|
- - H O A C N G U O C L A I N E U H C N H U N G P H I E U D U O C T A O O P G D , C N
|
|
4634
|
|
|
4635
|
O R ( @ p _ T Y P E _ S E A R C H = ' K T ' A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D f r o m @ t m p _ L o g i n ) ) )
|
|
4636
|
|
|
4637
|
)
|
|
4638
|
|
|
4639
|
O R @ p _ T Y P E _ S E A R C H I S N U L L O R @ p _ T Y P E _ S E A R C H = ' ' )
|
|
4640
|
|
|
4641
|
- - A N D (
|
|
4642
|
|
|
4643
|
- - ( A . P A Y _ A M T = A . R E Q _ A M T A N D ( @ p _ T E M P _ P A Y _ S T A T U S = ' H T ' ) )
|
|
4644
|
|
|
4645
|
- - O R ( A . P A Y _ A M T = 0 A N D ( @ p _ T E M P _ P A Y _ S T A T U S = ' D C H U ' ) )
|
|
4646
|
|
|
4647
|
- - O R ( A . P A Y _ A M T < > 0 a n d A . P A Y _ A M T < A . R E Q _ A M T A N D ( @ p _ T E M P _ P A Y _ S T A T U S = ' D H U ' ) )
|
|
4648
|
|
|
4649
|
- - O R @ p _ T E M P _ P A Y _ S T A T U S I S N U L L O R @ p _ T E M P _ P A Y _ S T A T U S = ' '
|
|
4650
|
|
|
4651
|
- - )
|
|
4652
|
|
|
4653
|
O R D E R B Y A . C R E A T E _ D T D E S C ;
|
|
4654
|
|
|
4655
|
E N D ;
|
|
4656
|
|
|
4657
|
E L S E B E G I N
|
|
4658
|
|
|
4659
|
S E L E C T A . * , ' ' a s T E M P _ P A Y _ S T A T U S , I S N U L L ( B . A U T H _ S T A T U S _ N A M E , N ' C h ? d u y ? t ' ) A S A U T H _ S T A T U S _ N A M E , C . A U T H _ S T A T U S _ N A M E A U T H _ S T A T U S _ N A M E _ K T , T L . T L F u l l N a m e C R E A T E _ F U L L N A M E ,
|
|
4660
|
|
|
4661
|
T L 1 . T L F u l l N a m e A P P R O V E _ F U L L N A M E , T L 2 . T L F u l l N a m e C R E A T E _ F U L L N A M E _ K T , T L 3 . T L F u l l N a m e A P P R O V E _ F U L L N A M E _ K T ,
|
|
4662
|
|
|
4663
|
B R . B R A N C H _ N A M E B R A N C H _ N A M E _ R E Q , B R 1 . B R A N C H _ N A M E B R A N C H _ N A M E _ C R E , D P . D E P _ N A M E A S D E P _ N A M E , D P . D E P _ C O D E A S D E P _ C O D E , B R . B R A N C H _ C O D E B R A N C H _ C O D E _ R E Q ,
|
|
4664
|
|
|
4665
|
- - L u a n l t - - 2 0 1 9 / 1 0 / 1 5 - S ? a A L , A L 1
|
|
4666
|
|
|
4667
|
B R 1 . B R A N C H _ C O D E B R A N C H _ C O D E _ C R E , A L . C O N T E N T R E Q _ T Y P E _ N A M E , A L 1 . C O N T E N T R E Q _ P A Y _ T Y P E _ N A M E ,
|
|
4668
|
|
|
4669
|
A . R E Q _ A M T A S T O T A L _ A M T _ T E M P , C A S E W H E N H . S O T I E N _ T T I S N U L L T H E N I S N U L L ( A . P A Y _ A M T , 0 ) E L S E I S N U L L ( H . S O T I E N _ T T , 0 ) E N D A S T O T A L _ A M T _ P A Y _ H I S ,
|
|
4670
|
|
|
4671
|
T L 4 . T L F u l l N a m e A S T R A N S F E R _ F U L L N A M E , T L 5 . T L F u l l N a m e A S T R A N S F E R _ R E C I E V E R _ F U L L N A M E ,
|
|
4672
|
|
|
4673
|
T L 6 . T L F u l l N a m e A S R E C _ D E B I T _ N A M E , T L 6 . T L N A N M E A S R E C _ D E B I T _ C O D E , T L 7 . T L F u l l N a m e A S E M P _ N A M E , T L 7 . T L N A N M E A S E M P _ C O D E ,
|
|
4674
|
|
|
4675
|
P O . P O _ C O D E , P O . P O _ N A M E , S U P . S U P _ N A M E , S U P . T A X _ N O A S S U P _ T A X _ N O , C U S . C U S T O M E R _ C O D E A S C U S T _ C O D E , C U S . C U S T O M E R _ N A M E A S C U S T _ N A M E , P M . P A Y _ P H A S E A S K Y _ T A M _ U N G ,
|
|
4676
|
|
|
4677
|
D V . D V D M _ C O D E , D V . D V D M _ N A M E , C A S E W H E N P C . R O L E _ U S E R = ' G D D V ' T H E N ( S E L E C T R o l e N a m e F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ U S E R _ L O G I N ) E L S E P C . R O L E _ U S E R E N D A S R O L E _ C O N F , P R . P R O C E S S _ D E S C + N ' v ? o l ? c ' + C O N V E R T ( V A R C H A R ( 3 0 ) , C O N V E R T ( D A T E T I M E , P R . A P P _ D T , 1 0 3 ) ) A S C O N F _ S T A T U S , P C 1 . N O T E S A S N E X T _ S T E P ,
|
|
4678
|
|
|
4679
|
P C 3 . L E V E L _ J O B , P C 3 . S T A T U S _ J O B , P C 3 . T Y P E _ J O B , P C 3 . T L N A M E A S E X E C _ U S E R , T L 8 . T L F u l l N a m e A S R E C I V E R _ M O N E Y _ F U L L N A M E , B R 1 . B R A N C H _ T Y P E A S B R A N C H _ T Y P E _ C R , B R . B R A N C H _ T Y P E , @ p _ T Y P E _ S E A R C H A S T Y P E _ S E A R C H ,
|
|
4680
|
|
|
4681
|
S R . R O L E _ I D A S R O L E _ I D _ C R E , I S N U L L ( H . S O T I E N _ T T , 0 ) A S S T T T , A . R E Q _ A M T - I S N U L L ( H . S O T I E N _ T T , 0 ) A S S L _ C L
|
|
4682
|
|
|
4683
|
F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T A
|
|
4684
|
|
|
4685
|
L E F T J O I N C M _ A U T H _ S T A T U S B O N A . A U T H _ S T A T U S = B . A U T H _ S T A T U S
|
|
4686
|
|
|
4687
|
L E F T J O I N C M _ A U T H _ S T A T U S C O N A . A U T H _ S T A T U S _ K T = C . A U T H _ S T A T U S
|
|
4688
|
|
|
4689
|
L E F T J O I N T L _ U S E R T L O N A . M A K E R _ I D = T L . T L N A N M E
|
|
4690
|
|
|
4691
|
L E F T J O I N T L _ U S E R T L 1 O N A . C H E C K E R _ I D = T L 1 . T L N A N M E
|
|
4692
|
|
|
4693
|
L E F T J O I N T L _ U S E R T L 2 O N A . M A K E R _ I D _ K T = T L 2 . T L N A N M E
|
|
4694
|
|
|
4695
|
L E F T J O I N T L _ U S E R T L 3 O N A . C H E C K E R _ I D _ K T = T L 3 . T L N A N M E
|
|
4696
|
|
|
4697
|
L E F T J O I N d b o . C M _ B R A N C H B R O N A . B R A N C H _ I D = B R . B R A N C H _ I D
|
|
4698
|
|
|
4699
|
L E F T J O I N d b o . C M _ B R A N C H B R 1 O N A . B R A N C H _ C R E A T E = B R 1 . B R A N C H _ I D
|
|
4700
|
|
|
4701
|
L E F T J O I N d b o . C M _ D E P A R T M E N T D P O N A . D E P _ I D = D P . D E P _ I D
|
|
4702
|
|
|
4703
|
- - L u a n l t - - 2 0 1 9 / 1 0 / 1 5 - S ? a A L , A L 1
|
|
4704
|
|
|
4705
|
L E F T J O I N C M _ A L L C O D E A L O N A . R E Q _ T Y P E = A L . C D V A L A N D A L . C D N A M E = ' R E Q _ T Y P E '
|
|
4706
|
|
|
4707
|
L E F T J O I N C M _ A L L C O D E A L 1 O N A . R E Q _ P A Y _ T Y P E = A L 1 . C D V A L A N D A L 1 . C D N A M E = ' R E Q _ P A Y _ T Y P E '
|
|
4708
|
|
|
4709
|
L E F T J O I N T L _ U S E R T L 4 O N A . T R A N S F E R _ M A K E R = T L 4 . T L N A N M E
|
|
4710
|
|
|
4711
|
L E F T J O I N T L _ U S E R T L 5 O N A . T R A S F E R _ U S E R _ R E C I V E = T L 5 . T L N A N M E
|
|
4712
|
|
|
4713
|
L E F T J O I N T L _ U S E R T L 6 O N A . R E C E I V E R _ D E B I T = T L 6 . T L N A N M E A N D A . R E Q _ T Y P E = ' D '
|
|
4714
|
|
|
4715
|
L E F T J O I N
|
|
4716
|
|
|
4717
|
(
|
|
4718
|
|
|
4719
|
S E L E C T P A Y _ A D V _ I D , ( I S N U L L ( S U M ( A M T _ U S E ) , 0 ) - I S N U L L ( S U M ( A M T _ A D D ) , 0 ) + I S N U L L ( S U M ( A M T _ R E V E R T ) , 0 ) ) A S S O T I E N _ T T F R O M T R _ R E Q _ P A Y M E N T _ D T W H E R E A U T H _ S T A T U S _ K T = ' A ' G R O U P B Y P A Y _ A D V _ I D
|
|
4720
|
|
|
4721
|
) H O N A . R E Q _ P A Y _ I D = H . P A Y _ A D V _ I D
|
|
4722
|
|
|
4723
|
L E F T J O I N T L _ U S E R T L 7 O N T L 7 . T L N A N M E = A . R E F _ I D A N D A . R E Q _ T Y P E = ' I '
|
|
4724
|
|
|
4725
|
L E F T J O I N T R _ P O _ M A S T E R P O O N A . R E F _ I D = P O . P O _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
4726
|
|
|
4727
|
L E F T J O I N C M _ S U P P L I E R S U P O N P O . S U P _ I D = S U P . S U P _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
4728
|
|
|
4729
|
L E F T J O I N L S _ C U S T O M E R C U S O N A . R E F _ I D = C U S . C U S T O M E R _ I D A N D A . R E Q _ T Y P E = ' D '
|
|
4730
|
|
|
4731
|
L E F T J O I N T R _ P O _ P A Y M E N T P M O N A . P A Y _ P H A S E = P M . P A Y _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
4732
|
|
|
4733
|
L E F T J O I N C M _ D V D M D V O N A . D V D M _ I D = D V . D V D M _ I D
|
|
4734
|
|
|
4735
|
- - L E F T J O I N P L _ P R O C E S S P R O N A . P R O C E S S = P R . P R O C E S S _ I D A N D A . R E Q _ P A Y _ I D = P R . R E Q _ I D
|
|
4736
|
|
|
4737
|
L E F T J O I N
|
|
4738
|
|
|
4739
|
(
|
|
4740
|
|
|
4741
|
S E L E C T P . R E Q _ I D , P . P R O C E S S _ D E S C , P . A P P R O V E _ D T A S A P P _ D T F R O M P L _ P R O C E S S P
|
|
4742
|
|
|
4743
|
I N N E R J O I N
|
|
4744
|
|
|
4745
|
(
|
|
4746
|
|
|
4747
|
S E L E C T M A X ( P R . I D ) A S I D , M A X ( P R . R E Q _ I D ) A S R E Q _ I D F R O M P L _ P R O C E S S P R
|
|
4748
|
|
|
4749
|
G R O U P B Y P R . R E Q _ I D
|
|
4750
|
|
|
4751
|
) P R O N P R . R E Q _ I D = P . R E Q _ I D A N D P . I D = P R . I D
|
|
4752
|
|
|
4753
|
) A S P R O N A . R E Q _ P A Y _ I D = P R . R E Q _ I D
|
|
4754
|
|
|
4755
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S P C O N P C . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C . R O L E _ U S E R = @ R O L E _ I D A N D P C . S T A T U S = ' C '
|
|
4756
|
|
|
4757
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S P C 1 O N P C 1 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 1 . S T A T U S = ' C '
|
|
4758
|
|
|
4759
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S _ C H I L D P C 3 O N P C 3 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 3 . S T A T U S _ J O B = ' C '
|
|
4760
|
|
|
4761
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S _ C H I L D P C 4 O N P C 4 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 4 . S T A T U S _ J O B = ' C '
|
|
4762
|
|
|
4763
|
L E F T J O I N T L _ U S E R T L 8 O N A . R E C I V E R _ M O N E Y = T L 8 . T L N A N M E
|
|
4764
|
|
|
4765
|
L E F T J O I N T L _ S Y S R O L E S R O N T L . R o l e N a m e = S R . R O L E _ I D
|
|
4766
|
|
|
4767
|
W H E R E 1 = 1
|
|
4768
|
|
|
4769
|
A N D ( A . R E Q _ P A Y _ C O D E L I K E N ' % ' + @ p _ R E Q _ P A Y _ C O D E + ' % ' O R @ p _ R E Q _ P A Y _ C O D E = ' ' O R @ p _ R E Q _ P A Y _ C O D E I S N U L L )
|
|
4770
|
|
|
4771
|
A N D ( A . R E Q _ R E A S O N L I K E N ' % ' + @ p _ R E Q _ R E A S O N + ' % ' O R @ p _ R E Q _ R E A S O N = ' ' O R @ p _ R E Q _ R E A S O N I S N U L L )
|
|
4772
|
|
|
4773
|
A N D ( A . A U T H _ S T A T U S = @ p _ A U T H _ S T A T U S O R @ p _ A U T H _ S T A T U S = ' ' O R @ p _ A U T H _ S T A T U S I S N U L L )
|
|
4774
|
|
|
4775
|
A N D ( ( A . M A K E R _ I D _ K T I S N O T N U L L A N D @ p _ I S _ U P D A T E _ K T = ' Y ' ) - - L a y d a n h s a c h c h u a d u o c p h o n g K T c a p n h a t v a d u o c c a p n h a t
|
|
4776
|
|
|
4777
|
O R ( ( A . M A K E R _ I D _ K T I S N U L L A N D @ p _ I S _ U P D A T E _ K T = ' N ' ) ) O R @ p _ I S _ U P D A T E _ K T I S N U L L O R @ p _ I S _ U P D A T E _ K T = ' ' )
|
|
4778
|
|
|
4779
|
A N D ( A . N O T E S L I K E N ' % ' + @ p _ N O T E S + ' % ' O R @ p _ N O T E S = ' ' O R @ p _ N O T E S I S N U L L )
|
|
4780
|
|
|
4781
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 4 - T h ? m F i l t e r R E Q _ T Y P E , F R O M D A T E T O D A T E R E F _ I D
|
|
4782
|
|
|
4783
|
A N D ( A . R E Q _ T Y P E L I K E N ' % ' + @ p _ R E Q _ T Y P E + ' % ' O R @ p _ R E Q _ T Y P E = ' ' O R @ p _ R E Q _ T Y P E I S N U L L )
|
|
4784
|
|
|
4785
|
A N D ( C O N V E R T ( D A T E , A . C R E A T E _ D T ) > = C O N V E R T ( D A T E , @ p _ F R M D A T E , 1 0 3 ) O R @ p _ F R M D A T E I S N U L L O R @ p _ F R M D A T E = ' ' )
|
|
4786
|
|
|
4787
|
A N D ( C O N V E R T ( D A T E , A . C R E A T E _ D T ) < = C O N V E R T ( D A T E , @ p _ T O D A T E , 1 0 3 ) O R @ p _ T O D A T E I S N U L L O R @ p _ T O D A T E = ' ' )
|
|
4788
|
|
|
4789
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 7 - T h ? m F i l t e r R E Q _ P A Y _ C O D E R E Q _ P A Y _ N A M E B R A N C H _ I D D E P _ I D K T _ A U T H
|
|
4790
|
|
|
4791
|
A N D ( A . R E Q _ P A Y _ C O D E L I K E N ' % ' + @ p _ R E Q _ P A Y _ C O D E + ' % ' o r @ p _ R E Q _ P A Y _ C O D E = ' ' O R @ p _ R E Q _ P A Y _ C O D E I S N U L L )
|
|
4792
|
|
|
4793
|
- - A N D ( A . T R A S F E R _ U S E R _ R E C I V E = @ p _ T R A S F E R _ U S E R _ R E C I V E o r @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R A . M A K E R _ I D _ K T I S N O T N U L L O R A . M A K E R _ I D _ K T < > ' ' )
|
|
4794
|
|
|
4795
|
A N D ( A . D E P _ I D = @ p _ D E P _ I D o r @ p _ D E P _ I D = ' ' O R @ p _ D E P _ I D I S N U L L )
|
|
4796
|
|
|
4797
|
A N D ( ( A . A U T H _ S T A T U S _ K T = @ p _ A U T H _ S T A T U S _ K T O R @ p _ A U T H _ S T A T U S _ K T = ' ' O R @ p _ A U T H _ S T A T U S _ K T I S N U L L ) O R ( @ p _ A U T H _ S T A T U S _ K T = ' P ' A N D A . A U T H _ S T A T U S _ K T I N ( ' P ' , ' S ' ) ) )
|
|
4798
|
|
|
4799
|
A N D ( A . R E F _ I D = @ p _ R E F _ I D O R @ p _ R E F _ I D = ' ' O R @ p _ R E F _ I D I S N U L L )
|
|
4800
|
|
|
4801
|
A N D ( ( @ p _ I S _ T R A N S F E R = ' Y ' A N D ( E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S _ C H I L D W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D ) O R A . A U T H _ S T A T U S _ K T = ' A ' ) ) - - L a y d a n h s a c h c h u a d u o c p h o n g K T c a p n h a t v a d u o c c a p n h a t
|
|
4802
|
|
|
4803
|
O R ( ( @ p _ I S _ T R A N S F E R = ' N ' A N D N O T E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S _ C H I L D W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D ) A N D A . A U T H _ S T A T U S _ K T < > ' A ' ) ) O R @ p _ I S _ T R A N S F E R I S N U L L O R @ p _ I S _ T R A N S F E R = ' ' )
|
|
4804
|
|
|
4805
|
A N D ( ( ( @ p _ P R O C E S S = ' P M ' A N D ( A . R E Q _ A M T - I S N U L L ( H . S O T I E N _ T T , 0 . 0 0 ) ) > 0 ) A N D A . R E Q _ T Y P E = ' I ' ) O R @ p _ P R O C E S S I S N U L L O R @ p _ P R O C E S S = ' ' )
|
|
4806
|
|
|
4807
|
A N D ( ( @ p _ L E V E L = ' A L L ' A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D F R O M @ t m p ) )
|
|
4808
|
|
|
4809
|
O R ( ( @ p _ L E V E L = ' U N I T ' A N D A . B R A N C H _ I D = @ p _ B R A N C H _ I D ) O R ( @ p _ B R A N C H _ I D = ' ' O R @ p _ B R A N C H _ I D I S N U L L ) ) )
|
|
4810
|
|
|
4811
|
|
|
4812
|
|
|
4813
|
A N D ( ( @ p _ L E V E L = ' A L L ' A N D A . B R A N C H _ C R E A T E I N ( S E L E C T B R A N C H _ I D F R O M @ t m p _ L o g i n ) )
|
|
4814
|
|
|
4815
|
O R ( ( @ p _ L E V E L = ' U N I T ' A N D A . B R A N C H _ C R E A T E = @ p _ B R A N C H _ C R E A T E ) O R ( @ p _ B R A N C H _ C R E A T E = ' ' O R @ p _ B R A N C H _ C R E A T E I S N U L L ) ) )
|
|
4816
|
|
|
4817
|
- - A N D ( ( @ p _ T R A S F E R _ U S E R _ R E C I V E I S N O T N U L L A N D E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S _ C H I L D W H E R E T L N A M E = @ p _ T R A S F E R _ U S E R _ R E C I V E ) )
|
|
4818
|
|
|
4819
|
- - O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' )
|
|
4820
|
|
|
4821
|
A N D ( ( @ p _ F U N C T I O N = ' K T ' A N D ( E X I S T S ( S E L E C T T O P 1 * F R O M P L _ R E Q U E S T _ P R O C E S S _ C H I L D W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D A N D T L N A M E = @ p _ U S E R _ L O G I N ) ) O R A . C H E C K E R _ I D _ K T = ' a d m i n ' O R A . A U T H _ S T A T U S _ K T = ' A ' )
|
|
4822
|
|
|
4823
|
O R @ p _ F U N C T I O N I S N U L L O R @ p _ F U N C T I O N = ' ' O R @ p _ F U N C T I O N = ' T F ' )
|
|
4824
|
|
|
4825
|
A N D ( A . M A K E R _ I D L I K E ' % ' + @ p _ M A K E R _ I D + ' % ' O R @ p _ M A K E R _ I D I S N U L L O R @ p _ M A K E R _ I D = ' ' )
|
|
4826
|
|
|
4827
|
- - A N D ( A . M A K E R _ I D _ K T L I K E ' % ' + @ p _ T R A S F E R _ U S E R _ R E C I V E + ' % ' O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' )
|
|
4828
|
|
|
4829
|
- - A N D ( P C 4 . T L N A M E = @ p _ T R A S F E R _ U S E R _ R E C I V E O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' )
|
|
4830
|
|
|
4831
|
A N D ( E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S _ C H I L D W H E R E T L N A M E = @ p _ T R A S F E R _ U S E R _ R E C I V E A N D T Y P E _ J O B = ' X L ' A N D R E Q _ I D = A . R E Q _ P A Y _ I D ) O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' )
|
|
4832
|
|
|
4833
|
A N D
|
|
4834
|
|
|
4835
|
(
|
|
4836
|
|
|
4837
|
A . M A K E R _ I D = @ p _ U S E R _ L O G I N O R ( A . T R A S F E R _ U S E R _ R E C I V E = @ p _ U S E R _ L O G I N A N D A . A U T H _ S T A T U S N O T I N ( ' E ' , ' R ' ) )
|
|
4838
|
|
|
4839
|
O R (
|
|
4840
|
|
|
4841
|
A . A U T H _ S T A T U S < > ' E ' A N D ( ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D @ B R A N C H _ T Y P E _ L G = ' H S ' A N D A . R E Q _ T Y P E = ' I '
|
|
4842
|
|
|
4843
|
A N D ( A . T R A S F E R _ U S E R _ R E C I V E = @ p _ U S E R _ L O G I N
|
|
4844
|
|
|
4845
|
O R ( @ R O L E _ I D = ( S E L E C T R O L E _ U S E R F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D A N D R O L E _ U S E R = @ R O L E _ I D )
|
|
4846
|
|
|
4847
|
O R ( A . D V D M _ I D I S N U L L A N D A . D E P _ I D = @ D E P _ I D _ L G ) )
|
|
4848
|
|
|
4849
|
) )
|
|
4850
|
|
|
4851
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D @ B R A N C H _ T Y P E _ L G = ' H S ' A N D A . R E Q _ T Y P E < > ' I ' A N D
|
|
4852
|
|
|
4853
|
( A . T R A S F E R _ U S E R _ R E C I V E = @ p _ U S E R _ L O G I N O R ( @ R O L E _ I D I N ( ' G D D V ' , ' G D K ' , ' K T T ' , ' T P T C ' ) A N D A . B R A N C H _ I D = @ p _ B R A N C H _ L O G I N A N D A . D E P _ I D = @ D E P _ I D _ L G
|
|
4854
|
|
|
4855
|
A N D ( A . T R A S F E R _ U S E R _ R E C I V E I S N U L L O R A . T R A S F E R _ U S E R _ R E C I V E = ' ' O R ( A . T R A S F E R _ U S E R _ R E C I V E I S N O T N U L L A N D A . T R A S F E R _ U S E R _ R E C I V E < > ' ' A N D A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' ) ) ) ) )
|
|
4856
|
|
|
4857
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D @ B R A N C H _ T Y P E _ L G = ' C N ' A N D ( @ R O L E _ I D = ' G D D V ' A N D
|
|
4858
|
|
|
4859
|
(
|
|
4860
|
|
|
4861
|
( A . T R A S F E R _ U S E R _ R E C I V E I S N O T N U L L A N D A . T R A S F E R _ U S E R _ R E C I V E < > ' ' A N D A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' )
|
|
4862
|
|
|
4863
|
O R A . T R A S F E R _ U S E R _ R E C I V E = ' ' O R A . T R A S F E R _ U S E R _ R E C I V E I S N U L L )
|
|
4864
|
|
|
4865
|
|
|
4866
|
|
|
4867
|
O R ( ( A . B R A N C H _ C R E A T E < > @ p _ B R A N C H _ L O G I N A N D A . T R A S F E R _ U S E R _ R E C I V E I S N O T N U L L A N D A . T R A S F E R _ U S E R _ R E C I V E < > ' ' ) O R A . B R A N C H _ C R E A T E = @ p _ B R A N C H _ L O G I N )
|
|
4868
|
|
|
4869
|
A N D A . B R A N C H _ I D I N ( S E L E C T * F R O M @ t m p ) ) )
|
|
4870
|
|
|
4871
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D @ B R A N C H _ T Y P E _ L G = ' C N ' A N D A . B R A N C H _ I D I N ( S E L E C T * F R O M @ t m p ) )
|
|
4872
|
|
|
4873
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D @ B R A N C H _ T Y P E _ L G = ' P G D ' A N D ( @ R O L E _ I D I N ( ' G D D V ' , ' T P G D ' ) A N D A . B R A N C H _ I D = @ p _ B R A N C H _ L O G I N ) )
|
|
4874
|
|
|
4875
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D ( A . D V D M _ I D I S N O T N U L L A N D A . D V D M _ I D < > ' ' A N D A . D V D M _ I D = @ D V D M _ I D A N D A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' A N D @ R O L E _ I D I N ( S E L E C T R O L E _ U S E R F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D ) )
|
|
4876
|
|
|
4877
|
O R ( A . D E P _ I D I N ( S E L E C T * F R O M @ T M P _ D E P ) A N D A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' A N D @ R O L E _ I D I N ( S E L E C T R O L E _ U S E R F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D ) ) )
|
|
4878
|
|
|
4879
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D ( @ R O L E _ I D = ( S E L E C T R O L E _ U S E R F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D A N D R O L E _ U S E R I N ( ' T G D ' , ' H D Q T ' ) A N D S T A T U S = ' C ' ) ) )
|
|
4880
|
|
|
4881
|
O R ( @ p _ T Y P E _ S E A R C H = ' K T ' A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D f r o m @ t m p _ L o g i n ) )
|
|
4882
|
|
|
4883
|
O R ( @ p _ T Y P E _ S E A R C H = ' P A Y ' A N D ( A . R E Q _ A M T - I S N U L L ( A . P A Y _ A M T , 0 ) ) > = 0 )
|
|
4884
|
|
|
4885
|
) ) )
|
|
4886
|
|
|
4887
|
A N D (
|
|
4888
|
|
|
4889
|
( A . P A Y _ A M T = A . R E Q _ A M T A N D ( @ p _ T E M P _ P A Y _ S T A T U S = ' H T ' ) )
|
|
4890
|
|
|
4891
|
O R ( A . P A Y _ A M T = 0 A N D ( @ p _ T E M P _ P A Y _ S T A T U S = ' D C H U ' ) )
|
|
4892
|
|
|
4893
|
O R ( A . P A Y _ A M T < > 0 a n d A . P A Y _ A M T < A . R E Q _ A M T A N D ( @ p _ T E M P _ P A Y _ S T A T U S = ' D H U ' ) )
|
|
4894
|
|
|
4895
|
O R @ p _ T E M P _ P A Y _ S T A T U S I S N U L L O R @ p _ T E M P _ P A Y _ S T A T U S = ' '
|
|
4896
|
|
|
4897
|
)
|
|
4898
|
|
|
4899
|
O R D E R B Y A . C R E A T E _ D T D E S C ;
|
|
4900
|
|
|
4901
|
E N D ;
|
|
4902
|
|
|
4903
|
G O
|
|
4904
|
|
|
4905
|
/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ T R _ R E Q _ A D V A N C E _ P A Y M E N T _ U p d ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 1 A M * * * * * * /
|
|
4906
|
|
|
4907
|
S E T A N S I _ N U L L S O N
|
|
4908
|
|
|
4909
|
G O
|
|
4910
|
|
|
4911
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
4912
|
|
|
4913
|
G O
|
|
4914
|
|
|
4915
|
C R E A T E P R O C E D U R E [ d b o ] . [ T R _ R E Q _ A D V A N C E _ P A Y M E N T _ U p d ]
|
|
4916
|
|
|
4917
|
@ p _ R E Q _ P A Y _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4918
|
|
|
4919
|
@ p _ R E Q _ P A Y _ C O D E v a r c h a r ( 5 0 ) = N U L L ,
|
|
4920
|
|
|
4921
|
@ p _ R E Q _ D T V A R C H A R ( 2 0 ) = N U L L ,
|
|
4922
|
|
|
4923
|
@ p _ B R A N C H _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4924
|
|
|
4925
|
@ p _ D E P _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4926
|
|
|
4927
|
@ p _ R E Q _ R E A S O N n v a r c h a r ( M A X ) = N U L L ,
|
|
4928
|
|
|
4929
|
@ p _ R E Q _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
4930
|
|
|
4931
|
@ P _ R E Q _ E N T R I E S n v a r c h a r ( M A X ) = N U L L ,
|
|
4932
|
|
|
4933
|
@ p _ R E Q _ D E S C R I P T I O N n v a r c h a r ( M A X ) = N U L L ,
|
|
4934
|
|
|
4935
|
@ p _ R E F _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4936
|
|
|
4937
|
@ p _ R E C E I V E R _ P O n v a r c h a r ( 2 5 0 ) = N U L L ,
|
|
4938
|
|
|
4939
|
@ p _ R E C E I V E R _ D E B I T n v a r c h a r ( 2 5 0 ) = N U L L ,
|
|
4940
|
|
|
4941
|
@ p _ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
4942
|
|
|
4943
|
@ p _ R E Q _ T Y P E _ C U R R E N C Y n v a r c h a r ( 5 0 ) = N U L L ,
|
|
4944
|
|
|
4945
|
@ p _ R E Q _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
4946
|
|
|
4947
|
@ p _ R E Q _ T E M P _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
4948
|
|
|
4949
|
@ p _ M A K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4950
|
|
|
4951
|
@ p _ C R E A T E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
4952
|
|
|
4953
|
@ p _ E D I T O R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4954
|
|
|
4955
|
@ p _ A U T H _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
4956
|
|
|
4957
|
@ p _ C H E C K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
4958
|
|
|
4959
|
@ p _ A P P R O V E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
4960
|
|
|
4961
|
@ p _ C R E A T E _ D T _ K T v a r c h a r ( 2 5 ) = N U L L ,
|
|
4962
|
|
|
4963
|
@ p _ M A K E R _ I D _ K T v a r c h a r ( 1 5 ) = N U L L ,
|
|
4964
|
|
|
4965
|
@ p _ A U T H _ S T A T U S _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
4966
|
|
|
4967
|
@ p _ C H E C K E R _ I D _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
4968
|
|
|
4969
|
@ p _ A P P R O V E _ D T _ K T v a r c h a r ( 2 5 ) = n u l l ,
|
|
4970
|
|
|
4971
|
@ p _ C O N F I R M _ N O T E n v a r c h a r ( 5 0 0 ) = N U L L ,
|
|
4972
|
|
|
4973
|
@ p _ B R A N C H _ C R E A T E v a r c h a r ( 1 5 ) = N U L L ,
|
|
4974
|
|
|
4975
|
@ p _ N O T E S v a r c h a r ( 1 5 ) = N U L L ,
|
|
4976
|
|
|
4977
|
@ p _ R E C O R D _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
4978
|
|
|
4979
|
@ p _ T R A N S F E R _ M A K E R n v a r c h a r ( 5 0 ) = N U L L ,
|
|
4980
|
|
|
4981
|
@ p _ T R A N S F E R _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
4982
|
|
|
4983
|
@ p _ T R A S F E R _ U S E R _ R E C I V E v a r c h a r ( 1 5 ) = N U L L ,
|
|
4984
|
|
|
4985
|
@ p _ P R O C E S S v a r c h a r ( 1 5 ) = N U L L ,
|
|
4986
|
|
|
4987
|
@ p _ P A Y _ P H A S E V A R C H A R ( 1 5 ) = N U L L ,
|
|
4988
|
|
|
4989
|
@ p _ D V D M _ I D V A R C H A R ( 1 5 ) = N U L L ,
|
|
4990
|
|
|
4991
|
@ p _ R A T E D E C I M A L ( 1 8 , 0 ) = 0 ,
|
|
4992
|
|
|
4993
|
@ p _ R E C I V E R _ M O N E Y V A R C H A R ( 1 5 ) = N U L L ,
|
|
4994
|
|
|
4995
|
@ p _ X M P _ T E M P X M L = N U L L ,
|
|
4996
|
|
|
4997
|
@ p _ T Y P E _ F U N C T I O N V A R C H A R ( 1 5 ) = N U L L ,
|
|
4998
|
|
|
4999
|
@ p _ I S _ P E R I O D V A R C H A R ( 5 ) = N U L L
|
|
5000
|
|
|
5001
|
A S
|
|
5002
|
|
|
5003
|
- - V a l i d a t i o n i s h e r e
|
|
5004
|
|
|
5005
|
/ *
|
|
5006
|
|
|
5007
|
D E C L A R E @ E R R O R S Y S N V A R C H A R ( 1 5 ) = ' '
|
|
5008
|
|
|
5009
|
I F ( N O T E X I S T S ( S E L E C T * F R O M A S S _ C O L L E C T W H E R E ) )
|
|
5010
|
|
|
5011
|
S E T @ E R R O R S Y S = ' '
|
|
5012
|
|
|
5013
|
I F @ E R R O R S Y S < > ' '
|
|
5014
|
|
|
5015
|
B E G I N
|
|
5016
|
|
|
5017
|
S E L E C T E r r o r C o d e R e s u l t , ' ' C A R _ I D , E r r o r D e s c E r r o r D e s c F R O M S Y S _ E R R O R W H E R E E r r o r C o d e = @ E R R O R S Y S
|
|
5018
|
|
|
5019
|
R E T U R N ' 0 '
|
|
5020
|
|
|
5021
|
E N D
|
|
5022
|
|
|
5023
|
* /
|
|
5024
|
|
|
5025
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 5 D i s a b l e V a l i d a t i o n
|
|
5026
|
|
|
5027
|
- - D E C L A R E @ E R R O R S Y S N V A R C H A R ( 1 5 ) = ' '
|
|
5028
|
|
|
5029
|
- - I F E X I S T S ( S E L E C T * F R O M T R _ P O _ M A S T E R W H E R E R E F _ I D = @ p _ R E F _ I D )
|
|
5030
|
|
|
5031
|
- - B E G I N
|
|
5032
|
|
|
5033
|
- - S E T @ E R R O R S Y S = ' A S S C - 0 0 0 0 5 '
|
|
5034
|
|
|
5035
|
- - S E L E C T E r r o r C o d e R e s u l t , ' ' R E Q _ P A Y _ I D , E r r o r D e s c E r r o r D e s c F R O M S Y S _ E R R O R W H E R E E r r o r C o d e = @ E R R O R S Y S
|
|
5036
|
|
|
5037
|
- - R E T U R N ' - 1 '
|
|
5038
|
|
|
5039
|
- - E N D
|
|
5040
|
|
|
5041
|
D E C L A R E @ B R A N C H _ T Y P E _ C R V A R C H A R ( 1 5 )
|
|
5042
|
|
|
5043
|
S E T @ B R A N C H _ T Y P E _ C R = ( S E L E C T T O P 1 B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E )
|
|
5044
|
|
|
5045
|
D E C L A R E @ A C C _ N U M V A R C H A R ( 1 5 )
|
|
5046
|
|
|
5047
|
S E T @ A C C _ N U M = ( S E L E C T T O P 1 A C C _ N U M F R O M C M _ A C C O U N T _ P A Y W H E R E R E F _ I D = @ p _ R E F _ I D )
|
|
5048
|
|
|
5049
|
I F @ p _ R E Q _ P A Y _ C O D E I S N U L L O R @ p _ R E Q _ P A Y _ C O D E = ' '
|
|
5050
|
|
|
5051
|
B E G I N
|
|
5052
|
|
|
5053
|
S E L E C T ' - 1 ' R e s u l t , ' ' R E Q _ P A Y _ I D , N ' M ? s ? p h i ? u k h ? n g ? ? c ? t r ? n g ' E r r o r D e s c
|
|
5054
|
|
|
5055
|
R E T U R N ' - 1 '
|
|
5056
|
|
|
5057
|
E N D
|
|
5058
|
|
|
5059
|
I F ( @ p _ R E Q _ T Y P E = ' I ' A N D ( @ p _ R E C E I V E R _ D E B I T I S N U L L O R @ p _ R E C E I V E R _ D E B I T = ' ' ) )
|
|
5060
|
|
|
5061
|
B E G I N
|
|
5062
|
|
|
5063
|
S E L E C T ' - 1 ' R e s u l t , ' ' R E Q _ P A Y _ I D , N ' T ? i k h o ? n n h ? n v i ? n t ? m ? n g k h ? n g ? ? c ? t r ? n g ' E r r o r D e s c
|
|
5064
|
|
|
5065
|
R E T U R N ' - 1 '
|
|
5066
|
|
|
5067
|
E N D
|
|
5068
|
|
|
5069
|
I F E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ C O D E = @ p _ R E Q _ P A Y _ C O D E A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D )
|
|
5070
|
|
|
5071
|
B E G I N
|
|
5072
|
|
|
5073
|
S E L E C T ' - 1 ' R e s u l t , ' ' R E Q _ P A Y _ I D , N ' M ? s ? p h i ? u ? t ? n t ? i t r o n g h ? t h ? n g ' E r r o r D e s c
|
|
5074
|
|
|
5075
|
R E T U R N ' - 1 '
|
|
5076
|
|
|
5077
|
E N D
|
|
5078
|
|
|
5079
|
- - I F ( ( ( S E L E C T T O P 1 A C C _ N U M F R O M C M _ A C C O U N T _ P A Y W H E R E R E F _ I D = @ p _ R E F _ I D ) < > @ p _ R E C E I V E R _ D E B I T ) A N D @ p _ R E Q _ T Y P E = ' I ' )
|
|
5080
|
|
|
5081
|
- - I F ( @ A C C _ N U M < > @ p _ R E C E I V E R _ D E B I T A N D @ p _ R E Q _ T Y P E = ' I ' A N D L E N ( I S N U L L ( @ A C C _ N U M , ' ' ) ) > 0 )
|
|
5082
|
|
|
5083
|
- - B E G I N
|
|
5084
|
|
|
5085
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' T ? i k h o ? n t ? m ? n g c ? a n h ? n v i ? n ? t ? n t ? i t r o n g h ? t h ? n g ! B ? n k h ? n g ? ? c p h ? p c h ? n h s ? a ' E r r o r D e s c
|
|
5086
|
|
|
5087
|
- - R E T U R N ' - 1 '
|
|
5088
|
|
|
5089
|
- - E N D
|
|
5090
|
|
|
5091
|
I F ( N O T E X I S T S ( S E L E C T * F R O M C M _ A C C O U N T _ P A Y W H E R E R E F _ I D = @ p _ R E F _ I D ) A N D @ p _ R E Q _ T Y P E = ' I ' )
|
|
5092
|
|
|
5093
|
B E G I N
|
|
5094
|
|
|
5095
|
I N S E R T I N T O C M _ A C C O U N T _ P A Y ( R E F _ I D , A C C _ T Y P E , A C C _ N U M , A C C _ N A M E , F U N T I O N , M A K E R _ I D , A U T H _ S T A T U S , C R E A T E _ D T , T K _ G L , T K _ G L _ N A M E ) V A L U E S ( @ p _ R E F _ I D , ' A D V _ P A Y ' , @ p _ R E C E I V E R _ D E B I T , ' T K T A M U N G C U A N H A N V I E N ' + @ p _ R E F _ I D , ' I ' , @ p _ M A K E R _ I D , ' U ' , G E T D A T E ( ) , ' 3 6 1 2 0 0 0 0 1 ' , ' T A M U N G D E H O A T D O N G N G H I E P V U ' )
|
|
5096
|
|
|
5097
|
E N D
|
|
5098
|
|
|
5099
|
E L S E
|
|
5100
|
|
|
5101
|
B E G I N
|
|
5102
|
|
|
5103
|
I F ( @ A C C _ N U M < > @ p _ R E C E I V E R _ D E B I T A N D @ p _ R E Q _ T Y P E = ' I ' A N D L E N ( I S N U L L ( @ A C C _ N U M , ' ' ) ) > 0 )
|
|
5104
|
|
|
5105
|
B E G I N
|
|
5106
|
|
|
5107
|
- - R O L L B A C K T R A N S A C T I O N
|
|
5108
|
|
|
5109
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' T ? i k h o ? n t ? m ? n g c ? a n h ? n v i ? n ? t ? n t ? i t r o n g h ? t h ? n g ! B ? n k h ? n g ? ? c p h ? p c h ? n h s ? a ' E r r o r D e s c
|
|
5110
|
|
|
5111
|
R E T U R N ' - 1 '
|
|
5112
|
|
|
5113
|
E N D
|
|
5114
|
|
|
5115
|
E N D
|
|
5116
|
|
|
5117
|
- - I F ( E X I S T S ( S E L E C T * F R O M C M _ A C C O U N T _ P A Y W H E R E A C C _ N U M = @ p _ R E C E I V E R _ D E B I T A N D R E F _ I D < > @ p _ R E F _ I D ) )
|
|
5118
|
|
|
5119
|
- - B E G I N
|
|
5120
|
|
|
5121
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' T ? i k h o ? n t ? m ? n g n ? y ? t ? n t ? i t r o n g h ? t h ? n g v ? ? ? c g ? n c h o m ? t n h ? n v i ? n k h ? c ' E r r o r D e s c
|
|
5122
|
|
|
5123
|
- - R E T U R N ' - 1 '
|
|
5124
|
|
|
5125
|
- - E N D
|
|
5126
|
|
|
5127
|
I F ( L E N ( I S N U L L ( @ p _ R E C E I V E R _ D E B I T , ' ' ) ) > 1 5 A N D @ p _ R E Q _ T Y P E = ' I ' )
|
|
5128
|
|
|
5129
|
B E G I N
|
|
5130
|
|
|
5131
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' T ? i k h o ? n t ? m ? n g n ? y k h ? n g ? ? c v ? ? t q u ? 1 5 k ? t ? ' E r r o r D e s c
|
|
5132
|
|
|
5133
|
R E T U R N ' - 1 '
|
|
5134
|
|
|
5135
|
E N D
|
|
5136
|
|
|
5137
|
- - 1 9 - 1 1 - 2 0 1 9 L U C T V B O S U N G V A L I D A T E T R O N G Q U A T R I N H T E S T S A U K H I U A T
|
|
5138
|
|
|
5139
|
- - N E U T A M U N G C H O N H A C U N G C A P T H I D O T T H A N H T O A N K H O N G D U O C P H E P N U L L
|
|
5140
|
|
|
5141
|
- - S O T I E N T H A N H T O ? N P H A I L O N H O N K H O N G
|
|
5142
|
|
|
5143
|
I F ( @ p _ R E Q _ A M T < = 0 )
|
|
5144
|
|
|
5145
|
B E G I N
|
|
5146
|
|
|
5147
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' S ? t i ? n t ? m ? n g p h ? i l ? n h ? n 0 ' E r r o r D e s c
|
|
5148
|
|
|
5149
|
R E T U R N ' - 1 '
|
|
5150
|
|
|
5151
|
E N D
|
|
5152
|
|
|
5153
|
- - E N D V A L I D A T E T R O N G Q U A T R I N H T E S T U A T
|
|
5154
|
|
|
5155
|
B E G I N T R A N S A C T I O N
|
|
5156
|
|
|
5157
|
- - I F ( @ p _ D V D M _ I D I S N U L L O R @ p _ D V D M _ I D = ' ' )
|
|
5158
|
|
|
5159
|
- - B E G I N
|
|
5160
|
|
|
5161
|
- - S E T @ p _ D V D M _ I D = ( S E L E C T T O P 1 D V D M _ I D F R O M C M _ D V D M W H E R E D V D M _ N A M E = ' K H O I T A I C H I N H ' )
|
|
5162
|
|
|
5163
|
- - E N D
|
|
5164
|
|
|
5165
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T
|
|
5166
|
|
|
5167
|
R E F _ I D = @ p _ R E F _ I D ,
|
|
5168
|
|
|
5169
|
D E P _ I D = @ p _ D E P _ I D , R E Q _ R E A S O N = @ p _ R E Q _ R E A S O N , R E Q _ P A Y _ T Y P E = @ p _ R E Q _ P A Y _ T Y P E , R E Q _ D T = C O N V E R T ( D A T E , @ p _ R E Q _ D T , 1 0 3 ) ,
|
|
5170
|
|
|
5171
|
R E Q _ A M T = @ p _ R E Q _ A M T ,
|
|
5172
|
|
|
5173
|
N O T E S = @ p _ N O T E S ,
|
|
5174
|
|
|
5175
|
R E Q _ T Y P E = @ p _ R E Q _ T Y P E , R E Q _ D E S C R I P T I O N = @ p _ R E Q _ D E S C R I P T I O N , R E C E I V E R _ P O = @ p _ R E C E I V E R _ P O , R E C E I V E R _ D E B I T = @ p _ R E C E I V E R _ D E B I T ,
|
|
5176
|
|
|
5177
|
R E Q _ T E M P _ A M T = @ p _ R E Q _ T E M P _ A M T , R E Q _ E N T R I E S = @ P _ R E Q _ E N T R I E S , B R A N C H _ I D = @ p _ B R A N C H _ I D , R E Q _ P A Y _ C O D E = @ p _ R E Q _ P A Y _ C O D E , P A Y _ P H A S E = @ p _ P A Y _ P H A S E ,
|
|
5178
|
|
|
5179
|
A U T H _ S T A T U S = ' E ' , D V D M _ I D = @ p _ D V D M _ I D , R A T E = @ p _ R A T E , R E Q _ T Y P E _ C U R R E N C Y = @ p _ R E Q _ T Y P E _ C U R R E N C Y , R E C I V E R _ M O N E Y = @ p _ R E C I V E R _ M O N E Y , T R A S F E R _ U S E R _ R E C I V E = @ p _ T R A S F E R _ U S E R _ R E C I V E , I S _ P E R I O D = @ p _ I S _ P E R I O D
|
|
5180
|
|
|
5181
|
W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5182
|
|
|
5183
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
5184
|
|
|
5185
|
- - - I N S E R T V ? O B ? N G D E T A I L N ? U T ? M ? N G L ? T ? M ? N G T H A N H T O ? N
|
|
5186
|
|
|
5187
|
D E C L A R E @ h d o c I N T
|
|
5188
|
|
|
5189
|
E X E C s p _ x m l _ p r e p a r e d o c u m e n t @ h d o c O U T P U T , @ p _ X M P _ T E M P ;
|
|
5190
|
|
|
5191
|
|
|
5192
|
|
|
5193
|
- - K I E M T R A N E U T A M U N G T H A N H T O A N
|
|
5194
|
|
|
5195
|
I F ( ( @ p _ R E Q _ T Y P E = ' P ' A N D ( @ p _ I S _ P E R I O D < > ' Y ' O R @ p _ I S _ P E R I O D I S N U L L ) ) O R @ p _ R E Q _ T Y P E = ' D ' )
|
|
5196
|
|
|
5197
|
B E G I N
|
|
5198
|
|
|
5199
|
D E L E T E F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5200
|
|
|
5201
|
D E L E T E F R O M T R _ R E Q _ P A Y _ S C H E D U L E W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5202
|
|
|
5203
|
D E C L A R E @ P O _ I D v a r c h a r ( 1 5 ) , @ T E R M _ P A Y v a r c h a r ( 1 5 ) , @ A M T _ P A Y _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , @ R E Q _ A D V _ I D _ S C H E V A R C H A R ( 1 5 ) , @ A M T _ A D V A N C E _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , @ A M T _ P A Y _ D O d e c i m a l ( 1 8 , 2 ) ,
|
|
5204
|
|
|
5205
|
@ A M T _ R E M A I N _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , @ R E Q _ A D _ D T v a r c h a r ( 2 0 ) , @ P R O C E S S v a r c h a r ( 1 5 ) , @ P A Y _ I D V A R C H A R ( 1 5 ) ,
|
|
5206
|
|
|
5207
|
@ R E F _ I D V A R C H A R ( 1 5 ) , @ R E Q _ P A Y _ D E S C N V A R C H A R ( 5 0 0 ) , @ R E Q _ P A Y _ E N T R I E S N V A R C H A R ( 2 5 0 ) , @ C U R R E N C Y V A R C H A R ( 1 5 ) , @ R A T E D E C I M A L ( 1 8 , 0 ) , @ C U S T _ I D V A R C H A R ( 1 5 ) ,
|
|
5208
|
|
|
5209
|
@ E M P _ I D V A R C H A R ( 1 5 ) , @ A M T _ P A Y _ R E A L D E C I M A L ( 1 8 , 2 ) , @ C H E C K _ I N V A R C H A R ( 1 5 ) , @ I S _ C L O S E D V A R C H A R ( 1 ) = N U L L , @ I N D E X _ N S I N T = 0 , @ R E A S O N N V A R C H A R ( 1 0 0 0 ) , @ R E F _ T Y P E V A R C H A R ( 1 5 )
|
|
5210
|
|
|
5211
|
D E C L A R E X m l D a t a P O C U R S O R F O R
|
|
5212
|
|
|
5213
|
S E L E C T *
|
|
5214
|
|
|
5215
|
F R O M
|
|
5216
|
|
|
5217
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P O ' , 2 )
|
|
5218
|
|
|
5219
|
W I T H ( R E F _ I D v a r c h a r ( 1 5 ) , I S _ C L O S E D V A R C H A R ( 1 ) , R E F _ T Y P E V A R C H A R ( 1 5 ) )
|
|
5220
|
|
|
5221
|
O P E N X m l D a t a P O ;
|
|
5222
|
|
|
5223
|
D E C L A R E @ I N D E X _ P O I N T = 0
|
|
5224
|
|
|
5225
|
S E T @ I N D E X _ P O = 0
|
|
5226
|
|
|
5227
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
5228
|
|
|
5229
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
5230
|
|
|
5231
|
B E G I N
|
|
5232
|
|
|
5233
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
5234
|
|
|
5235
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
5236
|
|
|
5237
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
5238
|
|
|
5239
|
B E G I N
|
|
5240
|
|
|
5241
|
|
|
5242
|
|
|
5243
|
|
|
5244
|
|
|
5245
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
5246
|
|
|
5247
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D T Y P E = ' C ' A N D R E Q _ P A Y _ I D
|
|
5248
|
|
|
5249
|
I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
5250
|
|
|
5251
|
B E G I N
|
|
5252
|
|
|
5253
|
R O L L B A C K T R A N S A C T I O N
|
|
5254
|
|
|
5255
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O / h ? p ? n g s ? ' +
|
|
5256
|
|
|
5257
|
( S E L E C T C O N T R A C T _ I D F R O M T R _ C O N T R A C T W H E R E C O N T R A C T _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
5258
|
|
|
5259
|
R E T U R N ' - 1 '
|
|
5260
|
|
|
5261
|
E N D
|
|
5262
|
|
|
5263
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
5264
|
|
|
5265
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D T Y P E = ' C ' A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
5266
|
|
|
5267
|
B E G I N
|
|
5268
|
|
|
5269
|
R O L L B A C K T R A N S A C T I O N
|
|
5270
|
|
|
5271
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : H ? p ? n g s ? ' +
|
|
5272
|
|
|
5273
|
( S E L E C T C O N T R A C T _ I D F R O M T R _ C O N T R A C T W H E R E C O N T R A C T _ I D = @ R E F _ I D ) + N ' a n g ? ? c t h a n h t o ? n . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
5274
|
|
|
5275
|
R E T U R N ' - 1 '
|
|
5276
|
|
|
5277
|
E N D
|
|
5278
|
|
|
5279
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
5280
|
|
|
5281
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D T Y P E = ' P ' A N D R E Q _ P A Y _ I D
|
|
5282
|
|
|
5283
|
I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
5284
|
|
|
5285
|
B E G I N
|
|
5286
|
|
|
5287
|
R O L L B A C K T R A N S A C T I O N
|
|
5288
|
|
|
5289
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
5290
|
|
|
5291
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
5292
|
|
|
5293
|
R E T U R N ' - 1 '
|
|
5294
|
|
|
5295
|
E N D
|
|
5296
|
|
|
5297
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
5298
|
|
|
5299
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D T Y P E = ' P ' A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
5300
|
|
|
5301
|
B E G I N
|
|
5302
|
|
|
5303
|
R O L L B A C K T R A N S A C T I O N
|
|
5304
|
|
|
5305
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
5306
|
|
|
5307
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t h a n h t o ? n . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
5308
|
|
|
5309
|
R E T U R N ' - 1 '
|
|
5310
|
|
|
5311
|
E N D
|
|
5312
|
|
|
5313
|
- - - K I E M T R A X E M P O N A Y D U O C T H A N H T O A N H A Y C H U A
|
|
5314
|
|
|
5315
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D T Y P E = ' P ' A N D R E F _ I D I N ( S E L E C T P O _ I D F R O M T R _ P O _ M A S T E R W H E R E I S _ C L O S E D = ' Y ' ) ) )
|
|
5316
|
|
|
5317
|
B E G I N
|
|
5318
|
|
|
5319
|
R O L L B A C K T R A N S A C T I O N
|
|
5320
|
|
|
5321
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
5322
|
|
|
5323
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' ? ? ? c t h a n h t o ? n . V u i l ? n g h ? y b ? n n h ? p ! ' E r r o r D e s c
|
|
5324
|
|
|
5325
|
R E T U R N ' - 1 '
|
|
5326
|
|
|
5327
|
E N D
|
|
5328
|
|
|
5329
|
E N D
|
|
5330
|
|
|
5331
|
D E C L A R E @ R E Q _ P A Y D T I D V A R C H A R ( 1 5 ) ;
|
|
5332
|
|
|
5333
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ A D V A N C E _ D T ' , @ R E Q _ P A Y D T I D O U T ;
|
|
5334
|
|
|
5335
|
I F @ R E Q _ P A Y D T I D = ' ' O R @ R E Q _ P A Y D T I D I S N U L L G O T O A B O R T ;
|
|
5336
|
|
|
5337
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ D T ( R E Q _ P A Y D T I D , R E Q _ P A Y _ I D , R E F _ I D , T Y P E , M A K E R _ I D , C R E A T E _ D T , I S _ C L O S E D , R E F _ T Y P E ) V A L U E S
|
|
5338
|
|
|
5339
|
( @ R E Q _ P A Y D T I D , @ p _ R E Q _ P A Y _ I D , @ R E F _ I D , ' A D V _ P A Y ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ I S _ C L O S E D , @ R E F _ T Y P E )
|
|
5340
|
|
|
5341
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
5342
|
|
|
5343
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
5344
|
|
|
5345
|
E N D
|
|
5346
|
|
|
5347
|
C L O S E X m l D a t a P O ;
|
|
5348
|
|
|
5349
|
D E A L L O C A T E X m l D a t a P O ;
|
|
5350
|
|
|
5351
|
- - - C U S O R D A N H S A C H L I C H T H A N H T O A N P O - H D
|
|
5352
|
|
|
5353
|
D E C L A R E X m l D a t a S c h e d u l e C U R S O R F O R
|
|
5354
|
|
|
5355
|
S E L E C T *
|
|
5356
|
|
|
5357
|
F R O M
|
|
5358
|
|
|
5359
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a S c h e d u l e ' , 2 )
|
|
5360
|
|
|
5361
|
W I T H ( P O _ I D v a r c h a r ( 1 5 ) , T E R M _ P A Y v a r c h a r ( 1 5 ) , A M T _ P A Y _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , R E Q _ A D V _ I D v a r c h a r ( 1 5 ) , A M T _ A D V A N C E _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , A M T _ P A Y _ D O d e c i m a l ( 1 8 , 2 ) ,
|
|
5362
|
|
|
5363
|
A M T _ R E M A I N _ S C H E D U L E d e c i m a l ( 1 8 , 0 ) , R E Q _ A D _ D T v a r c h a r ( 2 0 ) , P R O C E S S v a r c h a r ( 1 5 ) , P A Y _ I D V A R C H A R ( 1 5 ) , R E F _ I D V A R C H A R ( 1 5 ) ,
|
|
5364
|
|
|
5365
|
R E Q _ P A Y _ D E S C N V A R C H A R ( 5 0 0 ) , R E Q _ P A Y _ E N T R I E S N V A R C H A R ( 2 5 0 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) , A M T _ P A Y _ R E A L D E C I M A L ( 1 8 , 2 ) )
|
|
5366
|
|
|
5367
|
O P E N X m l D a t a S c h e d u l e
|
|
5368
|
|
|
5369
|
F E T C H N E X T F R O M X m l D a t a S c h e d u l e I N T O @ P O _ I D , @ T E R M _ P A Y , @ A M T _ P A Y _ S C H E D U L E , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ P A Y _ D O ,
|
|
5370
|
|
|
5371
|
@ A M T _ R E M A I N _ S C H E D U L E , @ R E Q _ A D _ D T , @ P R O C E S S , @ P A Y _ I D , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ R E A L
|
|
5372
|
|
|
5373
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
5374
|
|
|
5375
|
B E G I N
|
|
5376
|
|
|
5377
|
D E C L A R E @ p _ R E Q _ P A Y _ S C H E D U L E _ I D V A R C H A R ( 1 5 ) ;
|
|
5378
|
|
|
5379
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ S C H E D U L E ' , @ p _ R E Q _ P A Y _ S C H E D U L E _ I D O U T ;
|
|
5380
|
|
|
5381
|
I F @ p _ R E Q _ P A Y _ S C H E D U L E _ I D = ' ' O R @ p _ R E Q _ P A Y _ S C H E D U L E _ I D I S N U L L G O T O A B O R T ;
|
|
5382
|
|
|
5383
|
I N S E R T I N T O T R _ R E Q _ P A Y _ S C H E D U L E (
|
|
5384
|
|
|
5385
|
S C H E D U L E _ I D , R E Q _ P A Y _ I D , P A Y _ I D , A M T _ P A Y , P A Y _ P H A S E , R E Q _ A D V _ I D , A M T _ A D V A N C E , A M T _ P A Y _ D O , A M T _ R E M A I N , R E Q _ P A Y _ D T , R E Q _ A D _ D T , P R O C E S S , M A K E R _ I D ,
|
|
5386
|
|
|
5387
|
C R E A T E _ D T , A U T H _ S T A T U S _ K T , P A Y M E N T _ S T A T U S , T R N _ T Y P E , R E F _ I D , R E Q _ P A Y _ D E S C , R E Q _ P A Y _ E N T R I E S , C U R R E N C Y , R A T E , A M T _ P A Y _ R E A L )
|
|
5388
|
|
|
5389
|
V A L U E S ( @ p _ R E Q _ P A Y _ S C H E D U L E _ I D , @ p _ R E Q _ P A Y _ I D , @ P A Y _ I D , @ A M T _ P A Y _ S C H E D U L E , @ T E R M _ P A Y , @ p _ R E Q _ P A Y _ I D , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ P A Y _ D O , @ A M T _ R E M A I N _ S C H E D U L E ,
|
|
5390
|
|
|
5391
|
G E T D A T E ( ) , C O N V E R T ( D A T E T I M E , @ R E Q _ A D _ D T , 1 0 3 ) , N U L L , @ p _ M A K E R _ I D , G E T D A T E ( ) , ' U ' , ' ' , ' A D V _ P A Y ' , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ R E A L )
|
|
5392
|
|
|
5393
|
- - - E N D K H A I B A O C U R S O R
|
|
5394
|
|
|
5395
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
5396
|
|
|
5397
|
F E T C H N E X T F R O M X m l D a t a S c h e d u l e I N T O @ P O _ I D , @ T E R M _ P A Y , @ A M T _ P A Y _ S C H E D U L E , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ P A Y _ D O ,
|
|
5398
|
|
|
5399
|
@ A M T _ R E M A I N _ S C H E D U L E , @ R E Q _ A D _ D T , @ P R O C E S S , @ P A Y _ I D , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ R E A L
|
|
5400
|
|
|
5401
|
E N D
|
|
5402
|
|
|
5403
|
C L O S E X m l D a t a S c h e d u l e ;
|
|
5404
|
|
|
5405
|
D E A L L O C A T E X m l D a t a S c h e d u l e ;
|
|
5406
|
|
|
5407
|
E N D
|
|
5408
|
|
|
5409
|
- - - E N D T ? M ? N G T H A N H T O ? N
|
|
5410
|
|
|
5411
|
- - - - T ? M ? N G H ? N H K ?
|
|
5412
|
|
|
5413
|
I F ( @ p _ R E Q _ T Y P E = ' P ' A N D @ p _ I S _ P E R I O D = ' Y ' )
|
|
5414
|
|
|
5415
|
B E G I N
|
|
5416
|
|
|
5417
|
D E L E T E F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5418
|
|
|
5419
|
D E L E T E F R O M T R _ R E Q _ P A Y _ P E R I O D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5420
|
|
|
5421
|
D E C L A R E X m l D a t a P O C U R S O R F O R
|
|
5422
|
|
|
5423
|
S E L E C T *
|
|
5424
|
|
|
5425
|
F R O M
|
|
5426
|
|
|
5427
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P O ' , 2 )
|
|
5428
|
|
|
5429
|
W I T H ( R E F _ I D v a r c h a r ( 1 5 ) , I S _ C L O S E D V A R C H A R ( 1 ) , R E F _ T Y P E V A R C H A R ( 1 5 ) )
|
|
5430
|
|
|
5431
|
O P E N X m l D a t a P O ;
|
|
5432
|
|
|
5433
|
S E T @ I N D E X _ P O = 0
|
|
5434
|
|
|
5435
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
5436
|
|
|
5437
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
5438
|
|
|
5439
|
B E G I N
|
|
5440
|
|
|
5441
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
5442
|
|
|
5443
|
D E C L A R E @ R E Q _ P A Y D T I D _ C V A R C H A R ( 1 5 ) ;
|
|
5444
|
|
|
5445
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ A D V A N C E _ D T ' , @ R E Q _ P A Y D T I D _ C O U T ;
|
|
5446
|
|
|
5447
|
I F @ R E Q _ P A Y D T I D _ C = ' ' O R @ R E Q _ P A Y D T I D _ C I S N U L L G O T O A B O R T ;
|
|
5448
|
|
|
5449
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ D T ( R E Q _ P A Y D T I D , R E Q _ P A Y _ I D , R E F _ I D , T Y P E , M A K E R _ I D , C R E A T E _ D T , I S _ C L O S E D , R E F _ T Y P E ) V A L U E S
|
|
5450
|
|
|
5451
|
( @ R E Q _ P A Y D T I D _ C , @ p _ R E Q _ P A Y _ I D , @ R E F _ I D , ' A D V _ P A Y ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ I S _ C L O S E D , @ R E F _ T Y P E )
|
|
5452
|
|
|
5453
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
5454
|
|
|
5455
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
5456
|
|
|
5457
|
E N D
|
|
5458
|
|
|
5459
|
C L O S E X m l D a t a P O ;
|
|
5460
|
|
|
5461
|
D E A L L O C A T E X m l D a t a P O ;
|
|
5462
|
|
|
5463
|
- - - C U S O R D A N H S A C H L I C H T H A N H T O A N P O - H D
|
|
5464
|
|
|
5465
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
5466
|
|
|
5467
|
- - I N S E R T F R O M P E R I O D
|
|
5468
|
|
|
5469
|
D E C L A R E X m l D a t a P e r i o d C U R S O R F O R
|
|
5470
|
|
|
5471
|
S E L E C T *
|
|
5472
|
|
|
5473
|
F R O M
|
|
5474
|
|
|
5475
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P e r i o d ' , 2 )
|
|
5476
|
|
|
5477
|
W I T H ( C O N T R A C T _ I D v a r c h a r ( 1 5 ) , P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
5478
|
|
|
5479
|
O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , A M T _ P A Y D E C I M A L ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) , F R O M _ D A T E V A R C H A R ( 2 0 ) , T O _ D A T E V A R C H A R ( 2 0 ) , P A Y _ P H A S E N V A R C H A R ( 2 5 0 ) , R E A S O N N V A R C H A R ( 2 0 0 0 ) )
|
|
5480
|
|
|
5481
|
O P E N X m l D a t a P e r i o d ;
|
|
5482
|
|
|
5483
|
D E C L A R E @ C O N T R A C T _ I D v a r c h a r ( 1 5 ) , @ P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , @ P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
5484
|
|
|
5485
|
@ O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ A M T _ P A Y _ P E R I O D D E C I M A L ( 1 8 , 2 ) , @ F R O M _ D A T E V A R C H A R ( 2 0 ) , @ T O _ D A T E V A R C H A R ( 2 0 ) , @ P A Y _ P H A S E N V A R C H A R ( 2 5 0 ) , @ R E A S O N _ T T D K N V A R C H A R ( 2 0 0 0 )
|
|
5486
|
|
|
5487
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
5488
|
|
|
5489
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
5490
|
|
|
5491
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
5492
|
|
|
5493
|
B E G I N
|
|
5494
|
|
|
5495
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
5496
|
|
|
5497
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
5498
|
|
|
5499
|
B E G I N
|
|
5500
|
|
|
5501
|
|
|
5502
|
|
|
5503
|
I F ( E X I S T S ( S E L E C T C O N T R A C T _ I D
|
|
5504
|
|
|
5505
|
F R O M T R _ C O N T R A C T
|
|
5506
|
|
|
5507
|
W H E R E C O N T R A C T _ I D = @ R E F _ I D A N D C O N V E R T ( D A T E , E N D _ D T , 1 0 3 ) < C O N V E R T ( D A T E , G E T D A T E ( ) , 1 0 3 ) A N D E N D _ D T I S N O T N U L L A N D C O N T _ T Y P E = ' D K ' A N D C O N T _ T Y P E I S N O T N U L L A N D C O N T _ T Y P E < > ' ' ) )
|
|
5508
|
|
|
5509
|
|
|
5510
|
|
|
5511
|
- - A N D I S _ C L O S E D = ' Y ' ) )
|
|
5512
|
|
|
5513
|
B E G I N
|
|
5514
|
|
|
5515
|
R O L L B A C K T R A N S A C T I O N
|
|
5516
|
|
|
5517
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? m ? n g h ? p ? n g ? n h k ? ? ? n g ' E r r o r D e s c
|
|
5518
|
|
|
5519
|
R E T U R N ' - 1 '
|
|
5520
|
|
|
5521
|
E N D
|
|
5522
|
|
|
5523
|
|
|
5524
|
|
|
5525
|
I F ( @ N E W _ I N D E X < = @ O L D _ I N D E X A N D @ N E W _ I N D E X > 0 A N D @ O L D _ I N D E X > 0 )
|
|
5526
|
|
|
5527
|
B E G I N
|
|
5528
|
|
|
5529
|
R O L L B A C K T R A N S A C T I O N
|
|
5530
|
|
|
5531
|
S E L E C T ' - 1 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' C h ? s ? m ? i p h ? i l ? n h ? n c h ? s ? c i ' E r r o r D e s c
|
|
5532
|
|
|
5533
|
R E T U R N ' - 1 '
|
|
5534
|
|
|
5535
|
E N D
|
|
5536
|
|
|
5537
|
E N D
|
|
5538
|
|
|
5539
|
D E C L A R E @ P E R I O D _ I D V A R C H A R ( 1 5 ) ;
|
|
5540
|
|
|
5541
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ P E R I O D ' , @ P E R I O D _ I D O U T ;
|
|
5542
|
|
|
5543
|
I F @ P E R I O D _ I D = ' ' O R @ P E R I O D _ I D I S N U L L G O T O A B O R T ;
|
|
5544
|
|
|
5545
|
I N S E R T I N T O T R _ R E Q _ P A Y _ P E R I O D ( P E R I O D _ I D , R E Q _ P A Y _ I D , P A Y _ T Y P E , C O N T R A C T _ I D , P A Y _ D T _ R E A L , O L D _ I N D E X , N E W _ I N D E X , A M T _ P A Y , A U T H _ S T A T U S _ K T , C U R R E N C Y , R A T E , F R O M _ D A T E , T O _ D A T E , A D _ P A Y _ I D , P R O C E S S , P A Y _ P H A S E , R E A S O N )
|
|
5546
|
|
|
5547
|
V A L U E S ( @ P E R I O D _ I D , @ p _ R E Q _ P A Y _ I D , ' A D V _ P A Y ' , @ C O N T R A C T _ I D , C O N V E R T ( D A T E , @ P A Y _ D T _ R E A L , 1 0 3 ) ,
|
|
5548
|
|
|
5549
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , ' U ' , @ C U R R E N C Y , @ R A T E , C O N V E R T ( D A T E , @ F R O M _ D A T E , 1 0 3 ) , C O N V E R T ( D A T E , @ T O _ D A T E , 1 0 3 ) , @ p _ R E Q _ P A Y _ I D , ' 0 ' , @ P A Y _ P H A S E , @ R E A S O N _ T T D K )
|
|
5550
|
|
|
5551
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
5552
|
|
|
5553
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
5554
|
|
|
5555
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
5556
|
|
|
5557
|
E N D
|
|
5558
|
|
|
5559
|
C L O S E X m l D a t a P e r i o d ;
|
|
5560
|
|
|
5561
|
D E A L L O C A T E X m l D a t a P e r i o d ;
|
|
5562
|
|
|
5563
|
- - V A L I D A T E S O T I E N
|
|
5564
|
|
|
5565
|
- - I F ( @ p _ R E Q _ A M T > = @ T O T A L _ S C H E D U L E _ A M T )
|
|
5566
|
|
|
5567
|
- - B E G I N
|
|
5568
|
|
|
5569
|
- - R O L L B A C K T R A N S A C T I O N
|
|
5570
|
|
|
5571
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' S ? t i ? n t h a n h t o ? n p h ? i n h ? h ? n h o ? c b ? n g t ? n g s ? t i ? n c ? n l ? i c ? n t h a n h t o ? n : ' + F O R M A T ( S U M ( @ T O T A L _ S C H E D U L E _ A M T ) , ' # , # ' , ' v i - V N ' ) E r r o r D e s c
|
|
5572
|
|
|
5573
|
- - R E T U R N ' - 1 '
|
|
5574
|
|
|
5575
|
- - E N D
|
|
5576
|
|
|
5577
|
- - - -
|
|
5578
|
|
|
5579
|
E N D
|
|
5580
|
|
|
5581
|
- - - - E N D T ? M ? N G H ? N H K ?
|
|
5582
|
|
|
5583
|
- - - I N S E R T P H ? ? N G T H ? C T H A N H T O ? N
|
|
5584
|
|
|
5585
|
- - - - M e t h o d C u r s o r
|
|
5586
|
|
|
5587
|
D E L E T E F R O M T R _ R E Q _ P A Y _ M E T H O D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5588
|
|
|
5589
|
D E C L A R E @ R E C E I V E _ I D v a r c h a r ( 1 5 ) , @ R E C E I V E _ N A M E n v a r c h a r ( 1 0 0 ) , @ R E Q _ P A Y _ R E A S O N n v a r c h a r ( M A X ) , @ T O T A L _ A M T _ M E T H O D d e c i m a l ( 1 8 , 2 ) , @ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 ) ,
|
|
5590
|
|
|
5591
|
@ A C C _ N O V A R C H A R ( 5 0 ) , @ A C C _ N A M E N V A R C H A R ( 5 0 ) , @ I S S E D _ B Y N V A R C H A R ( 2 5 0 ) , @ I S S U E D _ D T V A R C H A R ( 2 0 )
|
|
5592
|
|
|
5593
|
D E C L A R E X m l D a t a M e t h o d C U R S O R F O R
|
|
5594
|
|
|
5595
|
S E L E C T *
|
|
5596
|
|
|
5597
|
F R O M
|
|
5598
|
|
|
5599
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a M e t h o d ' , 2 )
|
|
5600
|
|
|
5601
|
W I T H ( R E C E I V E _ I D v a r c h a r ( 1 5 ) , R E C E I V E _ N A M E n v a r c h a r ( 1 0 0 ) , R E Q _ P A Y _ R E A S O N n v a r c h a r ( M A X ) , T O T A L _ A M T d e c i m a l ( 1 8 , 2 ) , R E Q _ P A Y _ T Y P E v a r c h a r ( 1 ) ,
|
|
5602
|
|
|
5603
|
R E Q _ P A Y _ D E S C n v a r c h a r ( M A X ) , R E Q _ P A Y _ E N T R I E S n v a r c h a r ( M A X ) , A C C _ N O V A R C H A R ( 5 0 ) , A C C _ N A M E N V A R C H A R ( 5 0 ) ,
|
|
5604
|
|
|
5605
|
I S S U E D _ B Y N V A R C H A R ( 2 5 0 ) , I S S U E D _ D T V A R C H A R ( 2 0 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) , C H E C K _ I N V A R C H A R ( 1 5 ) )
|
|
5606
|
|
|
5607
|
O P E N X m l D a t a M e t h o d
|
|
5608
|
|
|
5609
|
F E T C H N E X T F R O M X m l D a t a M e t h o d
|
|
5610
|
|
|
5611
|
I N T O @ R E C E I V E _ I D , @ R E C E I V E _ N A M E , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ A C C _ N O , @ A C C _ N A M E , @ I S S E D _ B Y , @ I S S U E D _ D T , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N
|
|
5612
|
|
|
5613
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
5614
|
|
|
5615
|
B E G I N
|
|
5616
|
|
|
5617
|
I F ( @ R E Q _ P A Y _ T Y P E < > ' 1 ' )
|
|
5618
|
|
|
5619
|
B E G I N
|
|
5620
|
|
|
5621
|
S E T @ I S S U E D _ D T = N U L L
|
|
5622
|
|
|
5623
|
E N D
|
|
5624
|
|
|
5625
|
D E C L A R E @ p _ R E Q _ P A Y _ M E T H O D _ I D V A R C H A R ( 1 5 ) ;
|
|
5626
|
|
|
5627
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ M E T H O D ' , @ p _ R E Q _ P A Y _ M E T H O D _ I D O U T ;
|
|
5628
|
|
|
5629
|
I F @ p _ R E Q _ P A Y _ M E T H O D _ I D = ' ' O R @ p _ R E Q _ P A Y _ M E T H O D _ I D I S N U L L G O T O A B O R T ;
|
|
5630
|
|
|
5631
|
I N S E R T I N T O T R _ R E Q _ P A Y _ M E T H O D ( M E T H O D _ I D , R E Q _ P A Y _ I D , E M P _ I D , R E Q _ P A Y _ R E A S O N , T O T A L _ A M T , R E Q _ P A Y _ T Y P E , R E Q _ P A Y _ D E S C , R E Q _ P A Y _ E N T R I E S , T E M P , M A K E R _ I D ,
|
|
5632
|
|
|
5633
|
C R E A T E _ D T , A C C _ N O , A C C _ N A M E , I S S U E D _ B Y , I S S U E D _ D T , C U R R E N C Y , R A T E , C H E C K _ I N )
|
|
5634
|
|
|
5635
|
V A L U E S ( @ p _ R E Q _ P A Y _ M E T H O D _ I D , @ p _ R E Q _ P A Y _ I D , @ R E C E I V E _ I D , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , ' ' ,
|
|
5636
|
|
|
5637
|
@ p _ M A K E R _ I D , G E T D A T E ( ) , @ A C C _ N O , @ A C C _ N A M E , @ I S S E D _ B Y , C O N V E R T ( D A T E , @ I S S U E D _ D T , 1 0 3 ) , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N )
|
|
5638
|
|
|
5639
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
5640
|
|
|
5641
|
F E T C H N E X T F R O M X m l D a t a M e t h o d
|
|
5642
|
|
|
5643
|
I N T O @ R E C E I V E _ I D , @ R E C E I V E _ N A M E , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ A C C _ N O , @ A C C _ N A M E , @ I S S E D _ B Y , @ I S S U E D _ D T , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N
|
|
5644
|
|
|
5645
|
E N D
|
|
5646
|
|
|
5647
|
C L O S E X m l D a t a M e t h o d ;
|
|
5648
|
|
|
5649
|
D E A L L O C A T E X m l D a t a M e t h o d
|
|
5650
|
|
|
5651
|
- - - - E N D I N S E R T P H ? ? N G T H ? C T H A N H T O ? N
|
|
5652
|
|
|
5653
|
- - - - I N S E R T V A O B A N G D S K H A C H H A N G
|
|
5654
|
|
|
5655
|
D E L E T E F R O M T R _ R E Q _ A D V A N C E _ C U S W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5656
|
|
|
5657
|
D E C L A R E X m l D a t a C u s C U R S O R F O R
|
|
5658
|
|
|
5659
|
S E L E C T *
|
|
5660
|
|
|
5661
|
F R O M
|
|
5662
|
|
|
5663
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a C u s ' , 2 )
|
|
5664
|
|
|
5665
|
W I T H ( C U S _ I D v a r c h a r ( 1 5 ) , E M P _ I D V A R C H A R ( 1 5 ) , A M T _ P A Y _ D O d e c i m a l ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) )
|
|
5666
|
|
|
5667
|
O P E N X m l D a t a C u s ;
|
|
5668
|
|
|
5669
|
F E T C H N E X T F R O M X m l D a t a C u s I N T O @ C U S T _ I D , @ E M P _ I D , @ A M T _ P A Y _ D O , @ C U R R E N C Y , @ R A T E
|
|
5670
|
|
|
5671
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
5672
|
|
|
5673
|
B E G I N
|
|
5674
|
|
|
5675
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ C U S ( R E Q _ P A Y _ I D , C U S T _ I D , E M P _ I D , A M T _ P A Y _ D O , C U R R E N C Y , R A T E , M A K E R _ I D , C R E A T E _ D T )
|
|
5676
|
|
|
5677
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , @ C U S T _ I D , @ E M P _ I D , @ A M T _ P A Y _ D O , @ C U R R E N C Y , @ R A T E , @ p _ M A K E R _ I D , G E T D A T E ( ) )
|
|
5678
|
|
|
5679
|
- - - E N D K H A I B A O C U R S O R
|
|
5680
|
|
|
5681
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
5682
|
|
|
5683
|
F E T C H N E X T F R O M X m l D a t a C u s I N T O @ C U S T _ I D , @ E M P _ I D , @ A M T _ P A Y _ D O , @ C U R R E N C Y , @ R A T E
|
|
5684
|
|
|
5685
|
E N D
|
|
5686
|
|
|
5687
|
C L O S E X m l D a t a C u s ;
|
|
5688
|
|
|
5689
|
D E A L L O C A T E X m l D a t a C u s ;
|
|
5690
|
|
|
5691
|
- - - - E N D
|
|
5692
|
|
|
5693
|
- - H A N G M U C C H I P H I V A N G A N S A C H
|
|
5694
|
|
|
5695
|
D E L E T E F R O M T R _ R E Q _ P A Y _ B U D G E T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5696
|
|
|
5697
|
D E C L A R E @ T R A D E _ I D v a r c h a r ( 1 5 ) , @ G D _ I D v a r c h a r ( 1 5 ) , @ A M T _ A P P d e c i m a l ( 1 8 , 2 ) , @ A M T _ D O d e c i m a l ( 1 8 , 2 ) , @ A M T _ E X E d e c i m a l ( 1 8 , 2 ) , @ A M T _ R E M A I N _ G D d e c i m a l ( 1 8 , 2 )
|
|
5698
|
|
|
5699
|
D E C L A R E X m l D a t a G o o d C U R S O R F O R
|
|
5700
|
|
|
5701
|
S E L E C T *
|
|
5702
|
|
|
5703
|
F R O M
|
|
5704
|
|
|
5705
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a G o o d ' , 2 )
|
|
5706
|
|
|
5707
|
W I T H ( T R A D E _ I D v a r c h a r ( 1 5 ) , G D _ I D v a r c h a r ( 1 5 ) , A M T _ A P P d e c i m a l ( 1 8 , 2 ) , A M T _ D O d e c i m a l ( 1 8 , 2 ) , A M T _ E X E d e c i m a l ( 1 8 , 2 ) , A M T _ R E M A I N d e c i m a l ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , R E A S O N N V A R C H A R ( 1 0 0 0 ) )
|
|
5708
|
|
|
5709
|
O P E N X m l D a t a G o o d
|
|
5710
|
|
|
5711
|
F E T C H N E X T F R O M X m l D a t a G o o d I N T O @ T R A D E _ I D , @ G D _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ C U R R E N C Y , @ R A T E , @ R E A S O N
|
|
5712
|
|
|
5713
|
W H I L E @ @ f e t c h _ s t a t u s = 0 B E G I N
|
|
5714
|
|
|
5715
|
- - - K I E M T R A N E U N G A N S A C H S U D U N G T H U C T H E L O N H O N N G A N S A C H C O N L A I
|
|
5716
|
|
|
5717
|
S E T @ I N D E X _ N S = @ I N D E X _ N S + 1
|
|
5718
|
|
|
5719
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
5720
|
|
|
5721
|
- - I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
5722
|
|
|
5723
|
- - B E G I N
|
|
5724
|
|
|
5725
|
- - I F ( ( @ A M T _ E X E > @ A M T _ R E M A I N _ G D ) )
|
|
5726
|
|
|
5727
|
- - B E G I N
|
|
5728
|
|
|
5729
|
- - R O L L B A C K T R A N S A C T I O N
|
|
5730
|
|
|
5731
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ N S ) + N ' : N g ? n s ? c h s ? d ? n g t h ? c t ? k h ? n g ? ? c v ? ? t q u ? n g ? n s ? c h c ? n l ? i . ' E r r o r D e s c
|
|
5732
|
|
|
5733
|
- - R E T U R N ' - 1 '
|
|
5734
|
|
|
5735
|
- - E N D
|
|
5736
|
|
|
5737
|
- - E N D
|
|
5738
|
|
|
5739
|
D E C L A R E @ p _ B U D G E T _ I D V A R C H A R ( 1 5 ) ;
|
|
5740
|
|
|
5741
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ B U D G E T ' , @ p _ B U D G E T _ I D O U T ;
|
|
5742
|
|
|
5743
|
I F @ p _ B U D G E T _ I D = ' ' O R @ p _ B U D G E T _ I D I S N U L L G O T O A B O R T ;
|
|
5744
|
|
|
5745
|
I N S E R T I N T O T R _ R E Q _ P A Y _ B U D G E T ( B U D G _ I D , G D _ I D , R E Q _ P A Y _ I D , T R A D E _ I D , A M T _ A P P , A M T _ D O , A M T _ E X E , A M T _ R E M A I N , M A K E R _ I D , C R E A T E _ D T , C U R R E N C Y , R A T E , R E A S O N )
|
|
5746
|
|
|
5747
|
V A L U E S ( @ p _ B U D G E T _ I D , @ G D _ I D , @ p _ R E Q _ P A Y _ I D , @ T R A D E _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ C U R R E N C Y , @ R A T E , @ R E A S O N )
|
|
5748
|
|
|
5749
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
5750
|
|
|
5751
|
F E T C H N E X T F R O M X m l D a t a G o o d I N T O @ T R A D E _ I D , @ G D _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ C U R R E N C Y , @ R A T E , @ R E A S O N
|
|
5752
|
|
|
5753
|
E N D ;
|
|
5754
|
|
|
5755
|
C L O S E X m l D a t a G o o d ;
|
|
5756
|
|
|
5757
|
D E A L L O C A T E X m l D a t a G o o d ;
|
|
5758
|
|
|
5759
|
- - - E N D I N S E R T N G A N S A C H
|
|
5760
|
|
|
5761
|
D E L E T E F R O M T R _ R E Q _ P A Y _ A T T A C H W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5762
|
|
|
5763
|
D E C L A R E @ A T T A C H _ I D v a r c h a r ( 1 5 ) , @ C O N _ I D v a r c h a r ( 1 0 0 ) , @ C O N T _ C O D E V A R C H A R ( 5 0 ) , @ C O N _ N O T E S V A R C H A R ( 1 0 0 0 ) , @ C O N _ D E S C N V A R C H A R ( 1 0 0 0 ) , @ C O N _ T Y P E V A R C H A R ( 1 5 ) , @ A M T _ A T T D E C I M A L ( 1 8 , 2 ) , @ R E F _ D T V A R C H A R ( 2 0 ) , @ N O T E S _ A T T N V A R C H A R ( 1 0 0 0 )
|
|
5764
|
|
|
5765
|
D E C L A R E X m l A t t a c h C U R S O R F O R
|
|
5766
|
|
|
5767
|
S E L E C T *
|
|
5768
|
|
|
5769
|
F R O M
|
|
5770
|
|
|
5771
|
O P E N X M L ( @ h d o c , ' R o o t / X m l A t t a c h ' , 2 )
|
|
5772
|
|
|
5773
|
W I T H ( A T T A C H _ I D v a r c h a r ( 1 5 ) , C O N _ I D v a r c h a r ( 1 0 0 ) , C O N T _ C O D E V A R C H A R ( 5 0 ) , C O N _ N O T E S N V A R C H A R ( 1 0 0 0 ) , C O N _ D E S C N V A R C H A R ( 1 0 0 0 ) , C O N _ T Y P E V A R C H A R ( 1 5 ) , A M T _ A T T D E C I M A L ( 1 8 , 2 ) , R E F _ D T V A R C H A R ( 2 0 ) )
|
|
5774
|
|
|
5775
|
O P E N X m l A t t a c h
|
|
5776
|
|
|
5777
|
- - I N S E R T C H U N G T U D I N H K E M
|
|
5778
|
|
|
5779
|
F E T C H N E X T F R O M X m l A t t a c h I N T O @ A T T A C H _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S _ A T T , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , @ R E F _ D T
|
|
5780
|
|
|
5781
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
5782
|
|
|
5783
|
B E G I N
|
|
5784
|
|
|
5785
|
I F ( @ R E F _ D T = ' ' )
|
|
5786
|
|
|
5787
|
B E G I N
|
|
5788
|
|
|
5789
|
S E T @ R E F _ D T = N U L L
|
|
5790
|
|
|
5791
|
E N D
|
|
5792
|
|
|
5793
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ A T T A C H ' , @ A T T A C H _ I D O U T ;
|
|
5794
|
|
|
5795
|
I F @ A T T A C H _ I D = ' ' O R @ A T T A C H _ I D I S N U L L G O T O A B O R T ;
|
|
5796
|
|
|
5797
|
I N S E R T I N T O T R _ R E Q _ P A Y _ A T T A C H ( A T T A C H _ I D , R E Q _ P A Y _ I D , R E F _ I D , R E F _ C O D E , N O T E S , [ D E S C R I P T I O N ] , [ T Y P E ] , A M T , R E F _ D T ) V A L U E S
|
|
5798
|
|
|
5799
|
( @ A T T A C H _ I D , @ p _ R E Q _ P A Y _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S _ A T T , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , C O N V E R T ( D A T E , @ R E F _ D T , 1 0 3 ) )
|
|
5800
|
|
|
5801
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
5802
|
|
|
5803
|
F E T C H N E X T F R O M X m l A t t a c h I N T O @ A T T A C H _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S _ A T T , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , @ R E F _ D T
|
|
5804
|
|
|
5805
|
E N D
|
|
5806
|
|
|
5807
|
C L O S E X m l A t t a c h ;
|
|
5808
|
|
|
5809
|
D E A L L O C A T E X m l A t t a c h ;
|
|
5810
|
|
|
5811
|
- - - - E N D
|
|
5812
|
|
|
5813
|
- - - B A T D A U V A L I D A T E
|
|
5814
|
|
|
5815
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
5816
|
|
|
5817
|
B E G I N
|
|
5818
|
|
|
5819
|
D E C L A R E @ S U M _ P T T T D E C I M A L ( 1 8 , 0 ) , @ S U M _ N S D E C I M A L ( 1 8 , 0 ) , @ S U M _ L I C H _ T T D E C I M A L ( 1 8 , 0 )
|
|
5820
|
|
|
5821
|
S E T @ S U M _ P T T T = ( S E L E C T S U M ( T O T A L _ A M T * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ P A Y _ M E T H O D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
5822
|
|
|
5823
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y _ S C H E D U L E W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D ) A N D @ p _ R E Q _ T Y P E = ' D ' )
|
|
5824
|
|
|
5825
|
B E G I N
|
|
5826
|
|
|
5827
|
S E T @ S U M _ L I C H _ T T = ( S E L E C T S U M ( A M T _ P A Y _ R E A L * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ P A Y _ S C H E D U L E W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
5828
|
|
|
5829
|
I F ( @ p _ R E Q _ A M T * I S N U L L ( @ p _ R A T E , 1 ) ! = I S N U L L ( @ S U M _ L I C H _ T T , 0 ) )
|
|
5830
|
|
|
5831
|
B E G I N
|
|
5832
|
|
|
5833
|
R O L L B A C K T R A N S A C T I O N
|
|
5834
|
|
|
5835
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? n g s ? t i ? n l ? c h t h a n h t o ? n P O v ? h ? p ? n g l i ? n q u a n ? n k h ? c h h ? n g x ? l ? n ? p h ? i b ? n g s ? t i ? n t ? m ? n g ' E r r o r D e s c
|
|
5836
|
|
|
5837
|
R E T U R N ' - 1 '
|
|
5838
|
|
|
5839
|
E N D
|
|
5840
|
|
|
5841
|
E N D
|
|
5842
|
|
|
5843
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y _ B U D G E T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D ) )
|
|
5844
|
|
|
5845
|
B E G I N
|
|
5846
|
|
|
5847
|
S E T @ S U M _ N S = ( S E L E C T S U M ( A M T _ E X E * I S N U L L ( R A T E , 1 ) ) F R O M T R _ R E Q _ P A Y _ B U D G E T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D )
|
|
5848
|
|
|
5849
|
I F ( @ p _ R E Q _ A M T * I S N U L L ( @ p _ R A T E , 1 ) ! = I S N U L L ( @ S U M _ P T T T , 0 ) )
|
|
5850
|
|
|
5851
|
B E G I N
|
|
5852
|
|
|
5853
|
R O L L B A C K T R A N S A C T I O N
|
|
5854
|
|
|
5855
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? n g s ? t i ? n s ? d ? n g n g ? n s ? c h v ? c h i p h ? p h ? i b ? n g s ? t i ? n t ? m ? n g ' E r r o r D e s c
|
|
5856
|
|
|
5857
|
R E T U R N ' - 1 '
|
|
5858
|
|
|
5859
|
E N D
|
|
5860
|
|
|
5861
|
E N D
|
|
5862
|
|
|
5863
|
E L S E
|
|
5864
|
|
|
5865
|
I F ( @ p _ R E Q _ A M T * I S N U L L ( @ p _ R A T E , 1 ) ! = I S N U L L ( @ S U M _ P T T T , 0 ) )
|
|
5866
|
|
|
5867
|
B E G I N
|
|
5868
|
|
|
5869
|
R O L L B A C K T R A N S A C T I O N
|
|
5870
|
|
|
5871
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T ? n g s ? t i ? n p h ? ? n g t h ? c t h a n h t o ? n p h ? i b ? n g s ? t i ? n t ? m ? n g ' E r r o r D e s c
|
|
5872
|
|
|
5873
|
R E T U R N ' - 1 '
|
|
5874
|
|
|
5875
|
E N D
|
|
5876
|
|
|
5877
|
|
|
5878
|
|
|
5879
|
E N D
|
|
5880
|
|
|
5881
|
- - - - E N D
|
|
5882
|
|
|
5883
|
I F ( @ p _ R E Q _ T Y P E = ' I ' )
|
|
5884
|
|
|
5885
|
B E G I N
|
|
5886
|
|
|
5887
|
D E L E T E F R O M P L _ R E Q U E S T _ P R O C E S S W H E R E R E Q _ I D = @ p _ R E Q _ P A Y _ I D
|
|
5888
|
|
|
5889
|
D E C L A R E @ t m p t a b l e ( R O L E _ I D V A R C H A R ( 2 5 ) , B R A N C H _ I D v a r c h a r ( 1 5 ) , A M T d e c i m a l ( 1 8 , 2 ) )
|
|
5890
|
|
|
5891
|
I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E ) = ' H S ' )
|
|
5892
|
|
|
5893
|
B E G I N
|
|
5894
|
|
|
5895
|
- - D E C L A R E @ D E P _ C O D E V A R C H A R ( 1 5 )
|
|
5896
|
|
|
5897
|
- - S E T @ D E P _ C O D E = ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ I D = @ p _ D E P _ I D )
|
|
5898
|
|
|
5899
|
I F E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 8 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
5900
|
|
|
5901
|
B E G I N
|
|
5902
|
|
|
5903
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D < > ' G D K '
|
|
5904
|
|
|
5905
|
E N D
|
|
5906
|
|
|
5907
|
E L S E I F E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 1 0 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
5908
|
|
|
5909
|
B E G I N
|
|
5910
|
|
|
5911
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D < > ' G D K '
|
|
5912
|
|
|
5913
|
E N D
|
|
5914
|
|
|
5915
|
E L S E I F ( E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 0 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 1 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
5916
|
|
|
5917
|
O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 2 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 3 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
5918
|
|
|
5919
|
O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 4 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 2 0 % ' A N D D E P _ I D = @ p _ D E P _ I D ) )
|
|
5920
|
|
|
5921
|
B E G I N
|
|
5922
|
|
|
5923
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D N O T I N ( ' G D K ' , ' P T G D ' )
|
|
5924
|
|
|
5925
|
E N D
|
|
5926
|
|
|
5927
|
E L S E I F ( E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 7 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 0 9 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
5928
|
|
|
5929
|
O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 1 1 % ' A N D D E P _ I D = @ p _ D E P _ I D ) O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 2 1 % ' A N D D E P _ I D = @ p _ D E P _ I D )
|
|
5930
|
|
|
5931
|
O R E X I S T S ( S E L E C T * F R O M C M _ D E P A R T M E N T W H E R E D E P _ C O D E L I K E ' % 0 6 9 2 2 % ' A N D D E P _ I D = @ p _ D E P _ I D ) )
|
|
5932
|
|
|
5933
|
B E G I N
|
|
5934
|
|
|
5935
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 ' A N D A . R O L E _ I D < > ' P T G D '
|
|
5936
|
|
|
5937
|
E N D
|
|
5938
|
|
|
5939
|
E L S E
|
|
5940
|
|
|
5941
|
B E G I N
|
|
5942
|
|
|
5943
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 '
|
|
5944
|
|
|
5945
|
E N D
|
|
5946
|
|
|
5947
|
E N D
|
|
5948
|
|
|
5949
|
E L S E
|
|
5950
|
|
|
5951
|
B E G I N
|
|
5952
|
|
|
5953
|
I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E ) = ' C N ' )
|
|
5954
|
|
|
5955
|
B E G I N
|
|
5956
|
|
|
5957
|
- - - B A O G O M D O N V I & 3 C A P D U Y E T C U A H O I S O
|
|
5958
|
|
|
5959
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E
|
|
5960
|
|
|
5961
|
- - I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 '
|
|
5962
|
|
|
5963
|
E N D
|
|
5964
|
|
|
5965
|
E L S E I F ( ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E ) = ' P G D ' )
|
|
5966
|
|
|
5967
|
B E G I N
|
|
5968
|
|
|
5969
|
I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ( S E L E C T F A T H E R _ I D F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E )
|
|
5970
|
|
|
5971
|
- - I N S E R T I N T O @ t m p S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . L I M I T _ V A L U E F R O M T L _ S Y S R O L E _ L I M I T A W H E R E A . L I M I T _ T Y P E = ' A D V _ P A Y ' A N D B R A N C H _ I D = ' D V 0 0 0 1 '
|
|
5972
|
|
|
5973
|
E N D
|
|
5974
|
|
|
5975
|
E N D
|
|
5976
|
|
|
5977
|
D E C L A R E @ R O L E _ I D V A R C H A R ( 2 0 ) , @ B R A N C H _ I D V A R C H A R ( 2 0 ) , @ I N D E X I N T = 0 , @ S L _ R O L E I N T = 0 , @ L I M I T _ V A L U E D E C I M A L ( 1 8 , 0 )
|
|
5978
|
|
|
5979
|
S E T @ S L _ R O L E = ( S E L E C T C O U N T ( * ) F R O M @ t m p )
|
|
5980
|
|
|
5981
|
D E C L A R E @ I S L E A F V A R C H A R ( 1 ) = ' Y ' , @ P A R E N T _ I D V A R C H A R ( 1 0 ) = ' ' , @ S T A T U S V A R C H A R ( 1 ) = ' C ' , @ N O T E S N V A R C H A R ( 5 0 0 )
|
|
5982
|
|
|
5983
|
D E C L A R E C U R _ P R C U R S O R F O R S E L E C T A . R O L E _ I D , A . B R A N C H _ I D , A . A M T F R O M @ t m p A
|
|
5984
|
|
|
5985
|
O P E N C U R _ P R
|
|
5986
|
|
|
5987
|
F E T C H N E X T F R O M C U R _ P R I N T O @ R O L E _ I D , @ B R A N C H _ I D , @ L I M I T _ V A L U E
|
|
5988
|
|
|
5989
|
W H I L E @ @ F E T C H _ S T A T U S = 0 - - A N D @ S T O P = 0
|
|
5990
|
|
|
5991
|
B E G I N
|
|
5992
|
|
|
5993
|
S E T @ I N D E X = @ I N D E X + 1
|
|
5994
|
|
|
5995
|
I F @ I N D E X = @ S L _ R O L E
|
|
5996
|
|
|
5997
|
S E T @ I S L E A F = ' Y '
|
|
5998
|
|
|
5999
|
E L S E
|
|
6000
|
|
|
6001
|
S E T @ I S L E A F = ' N '
|
|
6002
|
|
|
6003
|
S E T @ N O T E S = ( S E L E C T N ' ? i ' + R O L E _ D E S C + N ' p h ? d u y ? t ' F R O M T L _ S Y S R O L E W H E R E R O L E _ I D = @ R O L E _ I D )
|
|
6004
|
|
|
6005
|
|
|
6006
|
|
|
6007
|
I F ( @ I N D E X = 1 )
|
|
6008
|
|
|
6009
|
B E G I N
|
|
6010
|
|
|
6011
|
S E T @ P A R E N T _ I D = N U L L
|
|
6012
|
|
|
6013
|
S E T @ S T A T U S = ' C '
|
|
6014
|
|
|
6015
|
- - I N S E R T I N T O T R _ R E Q U E S T _ P R O C E S S V A L U E S ( @ p _ R E Q _ P A Y _ I D , C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X ) , ' C ' , @ R O L E _ I D , @ B R A N C H _ I D , N U L L , N U L L , N U L L , @ I S L E A F )
|
|
6016
|
|
|
6017
|
E N D
|
|
6018
|
|
|
6019
|
E L S E
|
|
6020
|
|
|
6021
|
B E G I N
|
|
6022
|
|
|
6023
|
S E T @ P A R E N T _ I D = C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X - 1 )
|
|
6024
|
|
|
6025
|
S E T @ S T A T U S = ' U '
|
|
6026
|
|
|
6027
|
E N D
|
|
6028
|
|
|
6029
|
I F ( @ L I M I T _ V A L U E > = @ p _ R E Q _ A M T )
|
|
6030
|
|
|
6031
|
B E G I N
|
|
6032
|
|
|
6033
|
I N S E R T I N T O d b o . P L _ R E Q U E S T _ P R O C E S S
|
|
6034
|
|
|
6035
|
(
|
|
6036
|
|
|
6037
|
R E Q _ I D ,
|
|
6038
|
|
|
6039
|
P R O C E S S _ I D ,
|
|
6040
|
|
|
6041
|
S T A T U S ,
|
|
6042
|
|
|
6043
|
R O L E _ U S E R ,
|
|
6044
|
|
|
6045
|
B R A N C H _ I D ,
|
|
6046
|
|
|
6047
|
C H E C K E R _ I D ,
|
|
6048
|
|
|
6049
|
A P P R O V E _ D T ,
|
|
6050
|
|
|
6051
|
P A R E N T _ P R O C E S S _ I D ,
|
|
6052
|
|
|
6053
|
I S _ L E A F , C O S T _ I D , D V D M _ I D , N O T E S
|
|
6054
|
|
|
6055
|
)
|
|
6056
|
|
|
6057
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X ) , @ S T A T U S , @ R O L E _ I D , @ B R A N C H _ I D , N U L L , N U L L , @ P A R E N T _ I D , ' Y ' , ' ' , @ p _ D V D M _ I D , @ N O T E S )
|
|
6058
|
|
|
6059
|
- - I N S E R T I N T O P L _ R E Q U E S T _ P R O C E S S V A L U E S ( @ p _ R E Q _ P A Y _ I D , C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X ) , @ S T A T U S , @ R O L E _ I D , @ B R A N C H _ I D , N U L L , N U L L , @ P A R E N T _ I D , ' Y ' )
|
|
6060
|
|
|
6061
|
B R E A K ;
|
|
6062
|
|
|
6063
|
E N D
|
|
6064
|
|
|
6065
|
E L S E
|
|
6066
|
|
|
6067
|
I N S E R T I N T O P L _ R E Q U E S T _ P R O C E S S (
|
|
6068
|
|
|
6069
|
R E Q _ I D ,
|
|
6070
|
|
|
6071
|
P R O C E S S _ I D ,
|
|
6072
|
|
|
6073
|
S T A T U S ,
|
|
6074
|
|
|
6075
|
R O L E _ U S E R ,
|
|
6076
|
|
|
6077
|
B R A N C H _ I D ,
|
|
6078
|
|
|
6079
|
C H E C K E R _ I D ,
|
|
6080
|
|
|
6081
|
A P P R O V E _ D T ,
|
|
6082
|
|
|
6083
|
P A R E N T _ P R O C E S S _ I D ,
|
|
6084
|
|
|
6085
|
I S _ L E A F , C O S T _ I D , D V D M _ I D , N O T E S
|
|
6086
|
|
|
6087
|
) V A L U E S ( @ p _ R E Q _ P A Y _ I D , C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X ) , @ S T A T U S , @ R O L E _ I D , @ B R A N C H _ I D , N U L L , N U L L , @ P A R E N T _ I D , @ I S L E A F , ' ' , @ p _ D V D M _ I D , @ N O T E S )
|
|
6088
|
|
|
6089
|
- - E N D
|
|
6090
|
|
|
6091
|
|
|
6092
|
|
|
6093
|
F E T C H N E X T F R O M C U R _ P R I N T O @ R O L E _ I D , @ B R A N C H _ I D , @ L I M I T _ V A L U E
|
|
6094
|
|
|
6095
|
E N D
|
|
6096
|
|
|
6097
|
C L O S E C U R _ P R
|
|
6098
|
|
|
6099
|
D E A L L O C A T E C U R _ P R
|
|
6100
|
|
|
6101
|
E N D
|
|
6102
|
|
|
6103
|
C O M M I T T R A N S A C T I O N
|
|
6104
|
|
|
6105
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' ) - - B A T D A U G U I P H E D U Y E T
|
|
6106
|
|
|
6107
|
B E G I N
|
|
6108
|
|
|
6109
|
- - R O L L B A C K T R A N S A C T I O N
|
|
6110
|
|
|
6111
|
- - C A P N H A T T I N H T R A N G D U Y E T K E T O A N L A D A N G X U L Y
|
|
6112
|
|
|
6113
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E T R A S F E R _ U S E R _ R E C I V E = ' ' O R T R A S F E R _ U S E R _ R E C I V E I S N U L L ) A N D @ B R A N C H _ T Y P E _ C R = ' H S ' A N D @ p _ R E Q _ T Y P E = ' I ' )
|
|
6114
|
|
|
6115
|
B E G I N
|
|
6116
|
|
|
6117
|
D E C L A R E @ U S E R _ T P V A R C H A R ( 1 5 ) = ' '
|
|
6118
|
|
|
6119
|
- - S E T @ U S E R _ T P = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R W H E R E S E C U R _ C O D E = @ p _ D E P _ I D
|
|
6120
|
|
|
6121
|
- - A N D ( R o l e N a m e I N ( ' G D D V ' , ' T P T C ' , ' T C ' , ' K T T ' ) O R R o l e N a m e I N ( S E L E C T R O L E _ O L D F R O M T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ N E W = ' G D D V ' ) ) )
|
|
6122
|
|
|
6123
|
I F ( @ U S E R _ T P I S N U L L O R @ U S E R _ T P = ' ' )
|
|
6124
|
|
|
6125
|
B E G I N
|
|
6126
|
|
|
6127
|
S E T @ U S E R _ T P = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R _ V 2 W H E R E S E C U R _ C O D E = @ p _ D E P _ I D
|
|
6128
|
|
|
6129
|
A N D ( R o l e N a m e I N ( ' G D D V ' , ' T P T C ' , ' T C ' , ' K T T ' ) ) )
|
|
6130
|
|
|
6131
|
E N D
|
|
6132
|
|
|
6133
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T T R A S F E R _ U S E R _ R E C I V E = @ U S E R _ T P W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
6134
|
|
|
6135
|
E N D
|
|
6136
|
|
|
6137
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E T R A S F E R _ U S E R _ R E C I V E = ' ' O R T R A S F E R _ U S E R _ R E C I V E I S N U L L ) A N D @ B R A N C H _ T Y P E _ C R = ' P G D ' )
|
|
6138
|
|
|
6139
|
B E G I N
|
|
6140
|
|
|
6141
|
D E C L A R E @ U S E R _ T P G D V A R C H A R ( 1 5 ) = ' '
|
|
6142
|
|
|
6143
|
- - S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R W H E R E S E C U R _ C O D E = @ p _ D E P _ I D A N D ( R o l e N a m e I N ( ' T P G D ' ) O R
|
|
6144
|
|
|
6145
|
- - R o l e N a m e I N ( S E L E C T R O L E _ O L D F R O M T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ N E W = ' T P G D ' ) ) )
|
|
6146
|
|
|
6147
|
I F ( @ U S E R _ T P G D I S N U L L O R @ U S E R _ T P G D = ' ' )
|
|
6148
|
|
|
6149
|
B E G I N
|
|
6150
|
|
|
6151
|
S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R _ V 2 W H E R E T L S U B B R I D = @ p _ B R A N C H _ C R E A T E
|
|
6152
|
|
|
6153
|
A N D R o l e N a m e = ' T P G D ' )
|
|
6154
|
|
|
6155
|
E N D
|
|
6156
|
|
|
6157
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T T R A S F E R _ U S E R _ R E C I V E = @ U S E R _ T P G D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
6158
|
|
|
6159
|
E N D
|
|
6160
|
|
|
6161
|
U P D A T E T R _ R E Q _ A D V A N C E _ P A Y M E N T S E T A U T H _ S T A T U S = ' U ' W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
6162
|
|
|
6163
|
I N S E R T I N T O d b o . P L _ P R O C E S S ( R E Q _ I D , P R O C E S S _ I D , C H E C K E R _ I D , A P P R O V E _ D T , P R O C E S S _ D E S C , N O T E S )
|
|
6164
|
|
|
6165
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , ' S E N D ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , N ' ? n v ? g ? i p h ? d u y ? t ' , N ' ? n v ? t ? o p h i ? u t ? m ? n g v ? g ? i p h ? d u y ? t ' )
|
|
6166
|
|
|
6167
|
S E L E C T ' 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D A S R E Q _ P A Y _ I D , N ' G ? i p h ? d u y ? t t h ? n h c ? n g ' E r r o r D e s c
|
|
6168
|
|
|
6169
|
R E T U R N ' 4 '
|
|
6170
|
|
|
6171
|
E N D
|
|
6172
|
|
|
6173
|
S E L E C T ' 0 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , ' ' E r r o r D e s c
|
|
6174
|
|
|
6175
|
R E T U R N ' 0 '
|
|
6176
|
|
|
6177
|
A B O R T :
|
|
6178
|
|
|
6179
|
B E G I N
|
|
6180
|
|
|
6181
|
R O L L B A C K T R A N S A C T I O N
|
|
6182
|
|
|
6183
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' E r r o r D e s c
|
|
6184
|
|
|
6185
|
R E T U R N ' - 1 '
|
|
6186
|
|
|
6187
|
E n d
|
|
6188
|
|
|
6189
|
|
|
6190
|
|
|
6191
|
G O
|
|
6192
|
|
|
6193
|
/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ T R _ R E Q _ P A Y M E N T _ I n s ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 1 A M * * * * * * /
|
|
6194
|
|
|
6195
|
S E T A N S I _ N U L L S O N
|
|
6196
|
|
|
6197
|
G O
|
|
6198
|
|
|
6199
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
6200
|
|
|
6201
|
G O
|
|
6202
|
|
|
6203
|
|
|
6204
|
|
|
6205
|
C R E A T E P R O C E D U R E [ d b o ] . [ T R _ R E Q _ P A Y M E N T _ I n s ]
|
|
6206
|
|
|
6207
|
@ p _ R E Q _ P A Y _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
6208
|
|
|
6209
|
@ p _ R E Q _ P A Y _ C O D E v a r c h a r ( 5 0 ) = N U L L ,
|
|
6210
|
|
|
6211
|
@ p _ R E Q _ D T V A R C H A R ( 2 0 ) = N U L L ,
|
|
6212
|
|
|
6213
|
@ p _ B R A N C H _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
6214
|
|
|
6215
|
@ p _ D E P _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
6216
|
|
|
6217
|
@ p _ R E Q _ R E A S O N n v a r c h a r ( M A X ) = N U L L ,
|
|
6218
|
|
|
6219
|
@ p _ R E Q _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
6220
|
|
|
6221
|
@ P _ R E Q _ E N T R I E S n v a r c h a r ( M A X ) = N U L L ,
|
|
6222
|
|
|
6223
|
@ p _ R E Q _ D E S C R I P T I O N n v a r c h a r ( M A X ) = N U L L ,
|
|
6224
|
|
|
6225
|
@ p _ R E F _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
6226
|
|
|
6227
|
@ p _ R E C E I V E R _ P O n v a r c h a r ( 2 5 0 ) = N U L L ,
|
|
6228
|
|
|
6229
|
@ p _ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
6230
|
|
|
6231
|
@ p _ R E Q _ T Y P E _ C U R R E N C Y n v a r c h a r ( 5 0 ) = N U L L ,
|
|
6232
|
|
|
6233
|
@ p _ R E Q _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
6234
|
|
|
6235
|
@ p _ R E Q _ T E M P _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
6236
|
|
|
6237
|
@ p _ M A K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
6238
|
|
|
6239
|
@ p _ C R E A T E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
6240
|
|
|
6241
|
@ p _ E D I T O R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
6242
|
|
|
6243
|
@ p _ A U T H _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
6244
|
|
|
6245
|
@ p _ C H E C K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
6246
|
|
|
6247
|
@ p _ A P P R O V E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
6248
|
|
|
6249
|
@ p _ C R E A T E _ D T _ K T v a r c h a r ( 2 5 ) = N U L L ,
|
|
6250
|
|
|
6251
|
@ p _ M A K E R _ I D _ K T v a r c h a r ( 1 5 ) = N U L L ,
|
|
6252
|
|
|
6253
|
@ p _ A U T H _ S T A T U S _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
6254
|
|
|
6255
|
@ p _ C H E C K E R _ I D _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
6256
|
|
|
6257
|
@ p _ A P P R O V E _ D T _ K T v a r c h a r ( 2 5 ) = n u l l ,
|
|
6258
|
|
|
6259
|
@ p _ C O N F I R M _ N O T E n v a r c h a r ( 5 0 0 ) = N U L L ,
|
|
6260
|
|
|
6261
|
@ p _ B R A N C H _ C R E A T E v a r c h a r ( 1 5 ) = N U L L ,
|
|
6262
|
|
|
6263
|
@ p _ N O T E S v a r c h a r ( 1 5 ) = N U L L ,
|
|
6264
|
|
|
6265
|
@ p _ R E C O R D _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
6266
|
|
|
6267
|
@ p _ T R A N S F E R _ M A K E R n v a r c h a r ( 5 0 ) = N U L L ,
|
|
6268
|
|
|
6269
|
@ p _ T R A N S F E R _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
6270
|
|
|
6271
|
@ p _ T R A S F E R _ U S E R _ R E C I V E v a r c h a r ( 1 5 ) = N U L L ,
|
|
6272
|
|
|
6273
|
@ p _ P R O C E S S v a r c h a r ( 1 5 ) = N U L L ,
|
|
6274
|
|
|
6275
|
@ p _ P A Y _ P H A S E V A R C H A R ( 1 5 ) = N U L L ,
|
|
6276
|
|
|
6277
|
@ p _ R A T E D E C I M A L ( 1 8 , 2 ) = 0 ,
|
|
6278
|
|
|
6279
|
@ p _ I S _ P E R I O D V A R C H A R ( 5 ) = N U L L ,
|
|
6280
|
|
|
6281
|
@ p _ T Y P E _ F U N C T I O N V A R C H A R ( 1 5 ) = N U L L ,
|
|
6282
|
|
|
6283
|
@ p _ X M P _ T E M P X M L = N U L L ,
|
|
6284
|
|
|
6285
|
@ p _ X M P _ T E M P _ 2 X M L = N U L L
|
|
6286
|
|
|
6287
|
|
|
6288
|
|
|
6289
|
A S
|
|
6290
|
|
|
6291
|
B E G I N T R A N S A C T I O N
|
|
6292
|
|
|
6293
|
D E C L A R E @ V A T d e c i m a l ( 1 8 , 0 ) = N U L L , @ T R A N S _ N O n v a r c h a r ( 5 0 ) = N U L L , @ T R A N S _ D T V A R C H A R ( 2 0 ) = N U L L , @ I N V O I C E _ S I G N n v a r c h a r ( 5 0 ) = N U L L , @ I N V O I C E _ N O _ S I G N n v a r c h a r ( 5 0 ) = n u l l ,
|
|
6294
|
|
|
6295
|
@ I N V O I C E _ N O n v a r c h a r ( 5 0 ) = N U L L , @ I N V O I C E _ D T V A R C H A R ( 2 0 ) = N U L L , @ S E L L E R n v a r c h a r ( 5 0 ) = N U L L , @ T A X _ N O n v a r c h a r ( 1 5 ) = N U L L , @ G O O D S _ N A M E n v a r c h a r ( 5 0 0 ) = N U L L ,
|
|
6296
|
|
|
6297
|
@ P R I C E d e c i m a l ( 1 8 , 0 ) = N U L L , @ T A X d e c i m a l ( 1 8 , 0 ) = N U L L , @ N O T E S N V A R C H A R ( M A X ) = N U L L , @ V A T _ R A T E d e c i m a l ( 1 8 , 2 ) , @ R E F _ I D V A R C H A R ( 1 5 ) , @ I S _ C L O S E D V A R C H A R ( 1 ) ,
|
|
6298
|
|
|
6299
|
@ A C C _ N O V A R C H A R ( 2 5 ) , @ A C C _ N A M E N V A R C H A R ( 2 5 0 ) , @ I S S U E D _ B Y N V A R C H A R ( 2 5 0 ) , @ I S S U E D _ D T V A R C H A R ( 2 0 ) , @ C U R R E N C Y V A R C H A R ( 1 5 ) = N U L L , @ R A T E D E C I M A L ( 1 8 , 2 ) , @ T Y P E _ T R A N S V A R C H A R ( 1 5 ) ,
|
|
6300
|
|
|
6301
|
@ T Y P E _ V A T V A R C H A R ( 1 5 ) , @ T Y P E _ F U N C V A R C H A R ( 1 5 ) , @ R E A S O N N V A R C H A R ( 1 0 0 0 ) , @ R E F _ T Y P E V A R C H A R ( 1 5 )
|
|
6302
|
|
|
6303
|
D E C L A R E @ P A Y _ A D V _ I D V A R C H A R ( 1 5 ) , @ R E Q _ P A Y _ A D V _ C O D E V A R C H A R ( 1 5 )
|
|
6304
|
|
|
6305
|
D E C L A R E @ A M T _ A D V A N C E D d e c i m a l ( 1 8 , 2 ) , @ A M T _ D O d e c i m a l ( 1 8 , 2 ) ,
|
|
6306
|
|
|
6307
|
@ A M T _ R E M A I N d e c i m a l ( 1 8 , 2 ) , @ A M T _ P A Y d e c i m a l ( 1 8 , 2 ) , @ A M T _ U S E d e c i m a l ( 1 8 , 2 ) , @ A M T _ R E V E R T D E C I M A L ( 1 8 , 2 ) , @ A M T _ A D D D E C I M A L ( 1 8 , 2 )
|
|
6308
|
|
|
6309
|
D E C L A R E @ T O T A L _ S C H E D U L E _ A M T d e c i m a l ( 1 8 , 2 ) = 0
|
|
6310
|
|
|
6311
|
D E C L A R E @ I N D E X _ P O I N T = 0 , @ I N D E X _ A D I N T = 0 , @ I N D E X _ I V I N T = 0 , @ I N D E X _ N S I N T = 0
|
|
6312
|
|
|
6313
|
D E C L A R E @ h d o c I N T , @ h D o c 2 I N T
|
|
6314
|
|
|
6315
|
E X E C s p _ x m l _ p r e p a r e d o c u m e n t @ h d o c O U T P U T , @ p _ X M P _ T E M P ;
|
|
6316
|
|
|
6317
|
E X E C s p _ x m l _ p r e p a r e d o c u m e n t @ h D o c 2 O U T P U T , @ p _ X M P _ T E M P _ 2 ;
|
|
6318
|
|
|
6319
|
D E C L A R E X m l D a t a C U R S O R L O C A L F O R
|
|
6320
|
|
|
6321
|
S E L E C T *
|
|
6322
|
|
|
6323
|
F R O M
|
|
6324
|
|
|
6325
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a ' , 2 )
|
|
6326
|
|
|
6327
|
W I T H ( T R A N S _ N O n v a r c h a r ( 5 0 ) , T R A N S _ D T V A R C H A R ( 2 0 ) , I N V O I C E _ S I G N n v a r c h a r ( 5 0 ) , I N V O I C E _ N O _ S I G N n v a r c h a r ( 5 0 ) ,
|
|
6328
|
|
|
6329
|
I N V O I C E _ N O n v a r c h a r ( 5 0 ) , I N V O I C E _ D T V A R C H A R ( 2 0 ) , S E L L E R n v a r c h a r ( 5 0 ) , T A X _ N O n v a r c h a r ( 1 5 ) , G O O D S _ N A M E n v a r c h a r ( 5 0 0 ) ,
|
|
6330
|
|
|
6331
|
P R I C E d e c i m a l ( 1 8 , 2 ) , T A X d e c i m a l ( 1 8 , 2 ) , V A T d e c i m a l ( 1 8 , 2 ) , N O T E N V A R C H A R ( M A X ) , V A T _ R A T E d e c i m a l ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , T Y P E _ V A T V A R C H A R ( 1 5 ) , T Y P E _ F U N C V A R C H A R ( 1 5 ) )
|
|
6332
|
|
|
6333
|
O P E N X m l D a t a ;
|
|
6334
|
|
|
6335
|
- - C U R S O R 2
|
|
6336
|
|
|
6337
|
D E C L A R E X m l D a t a P a y C U R S O R L O C A L F O R
|
|
6338
|
|
|
6339
|
S E L E C T *
|
|
6340
|
|
|
6341
|
F R O M
|
|
6342
|
|
|
6343
|
O P E N X M L ( @ h D o c 2 , ' / R o o t / X m l D a t a P a y ' , 2 )
|
|
6344
|
|
|
6345
|
W I T H ( P A Y _ A D V _ I D n v a r c h a r ( 5 0 ) , A M T _ A D V A N C E D d e c i m a l ( 1 8 , 0 ) , A M T _ D O d e c i m a l ( 1 8 , 2 ) ,
|
|
6346
|
|
|
6347
|
A M T _ R E M A I N d e c i m a l ( 1 8 , 2 ) , A M T _ P A Y d e c i m a l ( 1 8 , 2 ) , A M T _ U S E d e c i m a l ( 1 8 , 2 ) , A M T _ R E V E R T D E C I M A L ( 1 8 , 2 ) , A M T _ A D D D E C I M A L ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) )
|
|
6348
|
|
|
6349
|
O P E N X m l D a t a P a y ;
|
|
6350
|
|
|
6351
|
- - - - - - - - - - - - - - - - - - - - - - - -
|
|
6352
|
|
|
6353
|
- - L u a n l t - - -
|
|
6354
|
|
|
6355
|
- - M e t h o d C u r s o r
|
|
6356
|
|
|
6357
|
D E C L A R E @ R E C E I V E _ I D v a r c h a r ( 1 5 ) , @ R E C E I V E _ N A M E n v a r c h a r ( 1 0 0 ) , @ R E Q _ P A Y _ R E A S O N n v a r c h a r ( M A X ) , @ T O T A L _ A M T _ M E T H O D d e c i m a l ( 1 8 , 2 ) ,
|
|
6358
|
|
|
6359
|
@ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 ) , @ R E Q _ P A Y _ D E S C n v a r c h a r ( M A X ) , @ R E Q _ P A Y _ E N T R I E S n v a r c h a r ( M A X ) , @ C H E C K _ I N V A R C H A R ( 1 5 )
|
|
6360
|
|
|
6361
|
D E C L A R E X m l D a t a M e t h o d C U R S O R L O C A L F O R
|
|
6362
|
|
|
6363
|
S E L E C T *
|
|
6364
|
|
|
6365
|
F R O M
|
|
6366
|
|
|
6367
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a M e t h o d ' , 2 )
|
|
6368
|
|
|
6369
|
W I T H ( R E C E I V E _ I D v a r c h a r ( 1 5 ) , R E C E I V E _ N A M E n v a r c h a r ( 1 0 0 ) , R E Q _ P A Y _ R E A S O N n v a r c h a r ( M A X ) , T O T A L _ A M T d e c i m a l ( 1 8 , 2 ) ,
|
|
6370
|
|
|
6371
|
R E Q _ P A Y _ T Y P E v a r c h a r ( 1 ) , R E Q _ P A Y _ D E S C n v a r c h a r ( M A X ) , R E Q _ P A Y _ E N T R I E S n v a r c h a r ( M A X ) , A C C _ N O V A R C H A R ( 2 5 ) ,
|
|
6372
|
|
|
6373
|
A C C _ N A M E N V A R C H A R ( 2 5 0 ) , I S S U E D _ B Y N V A R C H A R ( 2 5 0 ) , I S S U E D _ D T V A R C H A R ( 2 0 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , C H E C K _ I N V A R C H A R ( 1 5 ) , T Y P E _ T R A N S V A R C H A R ( 1 5 ) )
|
|
6374
|
|
|
6375
|
O P E N X m l D a t a M e t h o d
|
|
6376
|
|
|
6377
|
- - - - - - - - - -
|
|
6378
|
|
|
6379
|
- - C a t C u r s o r
|
|
6380
|
|
|
6381
|
D E C L A R E @ R E Q _ A D V _ I D v a r c h a r ( 1 5 ) , @ C A T _ N A M E n v a r c h a r ( 1 0 0 ) , @ T O T A L _ A M T _ C A T d e c i m a l ( 1 8 , 2 ) , @ D E P T _ I D V A R C H A R ( 1 5 )
|
|
6382
|
|
|
6383
|
D E C L A R E X m l D a t a C a t C U R S O R L O C A L F O R
|
|
6384
|
|
|
6385
|
S E L E C T *
|
|
6386
|
|
|
6387
|
F R O M
|
|
6388
|
|
|
6389
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a C a t ' , 2 )
|
|
6390
|
|
|
6391
|
W I T H ( R E Q _ A D V _ I D V A R C H A R ( 1 5 ) , C A T _ N A M E n v a r c h a r ( 1 0 0 ) , T O T A L _ A M T d e c i m a l ( 1 8 , 2 ) , D E P T _ I D V A R C H A R ( 1 5 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) )
|
|
6392
|
|
|
6393
|
O P E N X m l D a t a C a t
|
|
6394
|
|
|
6395
|
- - - - - - - - - - - - - - -
|
|
6396
|
|
|
6397
|
- - S e r v i c e C u r s o r
|
|
6398
|
|
|
6399
|
D E C L A R E @ R E Q _ P A Y _ S E R V I C E _ N A M E n v a r c h a r ( 1 0 0 ) , @ R E C E I V E _ I D _ S E R V I C E v a r c h a r ( 1 5 ) , @ R E C E I V E _ N A M E _ S E R V I C E n v a r c h a r ( 1 0 0 ) , @ R E Q _ P A Y _ R E A S O N _ S E R V I C E n v a r c h a r ( M A X ) ,
|
|
6400
|
|
|
6401
|
@ T O T A L _ A M T _ S E R V I C E d e c i m a l ( 1 8 , 2 ) ,
|
|
6402
|
|
|
6403
|
@ R E Q _ P A Y _ T Y P E _ S E R V I C E v a r c h a r ( 1 ) , @ R E Q _ P A Y _ D E S C _ S E R V I C E n v a r c h a r ( M A X ) , @ R E Q _ P A Y _ E N T R I E S _ S E R V I C E n v a r c h a r ( M A X ) , @ D E P T _ I D _ S R V V A R C H A R ( 1 5 )
|
|
6404
|
|
|
6405
|
D E C L A R E X m l D a t a S e r v i c e C U R S O R L O C A L F O R
|
|
6406
|
|
|
6407
|
S E L E C T *
|
|
6408
|
|
|
6409
|
F R O M
|
|
6410
|
|
|
6411
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a S e r v i c e ' , 2 )
|
|
6412
|
|
|
6413
|
W I T H ( R E Q _ P A Y _ S E R V I C E _ N A M E n v a r c h a r ( 1 0 0 ) , R E C E I V E _ I D _ S E R V I C E v a r c h a r ( 1 5 ) , R E C E I V E _ N A M E _ S E R V I C E n v a r c h a r ( 1 0 0 ) , R E Q _ P A Y _ R E A S O N _ S E R V I C E n v a r c h a r ( M A X ) ,
|
|
6414
|
|
|
6415
|
T O T A L _ A M T _ S E R V I C E d e c i m a l ( 1 8 , 2 ) , R E Q _ P A Y _ T Y P E _ S E R V I C E v a r c h a r ( 1 ) , R E Q _ P A Y _ D E S C _ S E R V I C E n v a r c h a r ( M A X ) , R E Q _ P A Y _ E N T R I E S _ S E R V I C E n v a r c h a r ( M A X ) ,
|
|
6416
|
|
|
6417
|
D E P T _ I D V A R C H A R ( 1 5 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) )
|
|
6418
|
|
|
6419
|
O P E N X m l D a t a S e r v i c e
|
|
6420
|
|
|
6421
|
- - - - - - - - - - - - - - -
|
|
6422
|
|
|
6423
|
- - S c h e d u l e C u r s o r
|
|
6424
|
|
|
6425
|
D E C L A R E @ P O _ I D v a r c h a r ( 1 5 ) , @ T E R M _ P A Y v a r c h a r ( 1 5 ) , @ A M T _ P A Y _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) , @ R E Q _ A D V _ I D _ S C H E V A R C H A R ( 1 5 ) , @ A M T _ A D V A N C E _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) ,
|
|
6426
|
|
|
6427
|
@ A M T _ R E M A I N _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) , @ R E Q _ A D _ D T v a r c h a r ( 2 0 ) , @ P R O C E S S v a r c h a r ( 1 5 ) , @ P A Y _ I D V A R C H A R ( 1 5 ) , @ A M T _ P A Y _ R E A L D E C I M A L ( 1 8 , 2 ) , @ A M T _ P A Y _ D O D E C I M A L ( 1 8 , 2 )
|
|
6428
|
|
|
6429
|
D E C L A R E X m l D a t a S c h e d u l e C U R S O R L O C A L F O R
|
|
6430
|
|
|
6431
|
S E L E C T *
|
|
6432
|
|
|
6433
|
F R O M
|
|
6434
|
|
|
6435
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a S c h e d u l e ' , 2 )
|
|
6436
|
|
|
6437
|
W I T H ( P O _ I D v a r c h a r ( 1 5 ) , T E R M _ P A Y v a r c h a r ( 1 5 ) , A M T _ P A Y _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) , R E Q _ A D V _ I D v a r c h a r ( 1 5 ) , A M T _ A D V A N C E _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) ,
|
|
6438
|
|
|
6439
|
A M T _ R E M A I N _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) , R E Q _ A D _ D T v a r c h a r ( 2 0 ) , P R O C E S S v a r c h a r ( 1 5 ) , P A Y _ I D V A R C H A R ( 1 5 ) , R E F _ I D V A R C H A R ( 1 5 ) , R E Q _ P A Y _ D E S C N V A R C H A R ( 2 5 0 ) ,
|
|
6440
|
|
|
6441
|
R E Q _ P A Y _ E N T R I E S N V A R C H A R ( 2 5 0 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , A M T _ P A Y _ D O D E C I M A L ( 1 8 , 2 ) , A M T _ P A Y _ R E A L D E C I M A L ( 1 8 , 2 ) )
|
|
6442
|
|
|
6443
|
O P E N X m l D a t a S c h e d u l e
|
|
6444
|
|
|
6445
|
- - E N D l u a n l t - - -
|
|
6446
|
|
|
6447
|
- - D S H A N G M U C N G A N S A C H
|
|
6448
|
|
|
6449
|
D E C L A R E @ T R A D E _ I D v a r c h a r ( 1 5 ) , @ G D _ I D v a r c h a r ( 1 5 ) , @ A M T _ A P P d e c i m a l ( 1 8 , 2 ) , @ A M T _ E X E d e c i m a l ( 1 8 , 2 ) , @ A M T _ R E M A I N _ G D d e c i m a l ( 1 8 , 2 )
|
|
6450
|
|
|
6451
|
D E C L A R E X m l D a t a G o o d C U R S O R L O C A L F O R
|
|
6452
|
|
|
6453
|
S E L E C T *
|
|
6454
|
|
|
6455
|
F R O M
|
|
6456
|
|
|
6457
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a G o o d ' , 2 )
|
|
6458
|
|
|
6459
|
W I T H ( T R A D E _ I D v a r c h a r ( 1 5 ) , G D _ I D v a r c h a r ( 1 5 ) , A M T _ A P P d e c i m a l ( 1 8 , 2 ) , A M T _ D O d e c i m a l ( 1 8 , 2 ) , A M T _ E X E d e c i m a l ( 1 8 , 2 ) , A M T _ R E M A I N d e c i m a l ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , R E A S O N N V A R C H A R ( 1 0 0 0 ) )
|
|
6460
|
|
|
6461
|
O P E N X m l D a t a G o o d
|
|
6462
|
|
|
6463
|
- - - - E N D C U R S O R
|
|
6464
|
|
|
6465
|
- - C a t C u r s o r
|
|
6466
|
|
|
6467
|
D E C L A R E @ A T T A C H _ I D v a r c h a r ( 1 5 ) , @ C O N _ I D v a r c h a r ( 1 0 0 ) , @ C O N T _ C O D E V A R C H A R ( 5 0 ) , @ C O N _ N O T E S V A R C H A R ( 1 0 0 0 ) , @ C O N _ D E S C N V A R C H A R ( 1 0 0 0 ) , @ C O N _ T Y P E V A R C H A R ( 1 5 ) , @ A M T _ A T T D E C I M A L ( 1 8 , 2 ) , @ R E F _ D T V A R C H A R ( 2 0 )
|
|
6468
|
|
|
6469
|
D E C L A R E X m l A t t a c h C U R S O R L O C A L F O R
|
|
6470
|
|
|
6471
|
S E L E C T *
|
|
6472
|
|
|
6473
|
F R O M
|
|
6474
|
|
|
6475
|
O P E N X M L ( @ h d o c , ' R o o t / X m l A t t a c h ' , 2 )
|
|
6476
|
|
|
6477
|
W I T H ( A T T A C H _ I D v a r c h a r ( 1 5 ) , C O N _ I D v a r c h a r ( 1 0 0 ) , C O N T _ C O D E V A R C H A R ( 5 0 ) , C O N _ N O T E S N V A R C H A R ( 1 0 0 0 ) , C O N _ D E S C N V A R C H A R ( 1 0 0 0 ) , C O N _ T Y P E V A R C H A R ( 1 5 ) , A M T _ A T T D E C I M A L ( 1 8 , 2 ) , R E F _ D T V A R C H A R ( 2 0 ) )
|
|
6478
|
|
|
6479
|
O P E N X m l A t t a c h
|
|
6480
|
|
|
6481
|
- - T H I E U V Q 2 8 1 1 1 9 - - -
|
|
6482
|
|
|
6483
|
E X E C [ d b o ] . [ P A Y _ C O D E _ G e n K e y ] ' T R _ R E Q _ P A Y M E N T ' , ' ' , ' ' , @ p _ R E Q _ P A Y _ C O D E o u t
|
|
6484
|
|
|
6485
|
- - E N D - -
|
|
6486
|
|
|
6487
|
D E C L A R E @ I N D E X I N T = 0
|
|
6488
|
|
|
6489
|
I F @ p _ R E Q _ P A Y _ C O D E I S N U L L O R @ p _ R E Q _ P A Y _ C O D E = ' '
|
|
6490
|
|
|
6491
|
B E G I N
|
|
6492
|
|
|
6493
|
R O L L B A C K T R A N S A C T I O N
|
|
6494
|
|
|
6495
|
S E L E C T ' - 1 ' R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' M ? s ? p h i ? u k h ? n g ? ? c ? t r ? n g ' E r r o r D e s c
|
|
6496
|
|
|
6497
|
R E T U R N ' - 1 '
|
|
6498
|
|
|
6499
|
E N D
|
|
6500
|
|
|
6501
|
I F E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y M E N T W H E R E R E Q _ P A Y _ C O D E = @ p _ R E Q _ P A Y _ C O D E )
|
|
6502
|
|
|
6503
|
B E G I N
|
|
6504
|
|
|
6505
|
R O L L B A C K T R A N S A C T I O N
|
|
6506
|
|
|
6507
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' S ? p h i ? u ? n g h ? t h a n h t o ? n ? t ? n t ? i t r o n g h ? t h ? n g ' E r r o r D e s c
|
|
6508
|
|
|
6509
|
R E T U R N ' - 1 '
|
|
6510
|
|
|
6511
|
E N D
|
|
6512
|
|
|
6513
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y M E N T ' , @ p _ R E Q _ P A Y _ I D o u t
|
|
6514
|
|
|
6515
|
I F @ p _ R E Q _ P A Y _ I D = ' ' O R @ p _ R E Q _ P A Y _ I D I S N U L L G O T O A B O R T
|
|
6516
|
|
|
6517
|
I N S E R T I N T O [ d b o ] . [ T R _ R E Q _ P A Y M E N T ]
|
|
6518
|
|
|
6519
|
( [ R E Q _ P A Y _ I D ]
|
|
6520
|
|
|
6521
|
, [ R E Q _ P A Y _ C O D E ] , [ R E Q _ D T ]
|
|
6522
|
|
|
6523
|
, [ B R A N C H _ I D ]
|
|
6524
|
|
|
6525
|
, [ D E P _ I D ]
|
|
6526
|
|
|
6527
|
, [ R E Q _ R E A S O N ]
|
|
6528
|
|
|
6529
|
, [ R E Q _ T Y P E ] , R E Q _ E N T R I E S ,
|
|
6530
|
|
|
6531
|
[ R E Q _ D E S C R I P T I O N ]
|
|
6532
|
|
|
6533
|
, R E F _ I D ,
|
|
6534
|
|
|
6535
|
R E C E I V E R _ P O
|
|
6536
|
|
|
6537
|
, [ R E Q _ P A Y _ T Y P E ]
|
|
6538
|
|
|
6539
|
, [ R E Q _ T Y P E _ C U R R E N C Y ]
|
|
6540
|
|
|
6541
|
, [ R E Q _ A M T ]
|
|
6542
|
|
|
6543
|
, [ R E Q _ T E M P _ A M T ]
|
|
6544
|
|
|
6545
|
, [ M A K E R _ I D ]
|
|
6546
|
|
|
6547
|
, [ C R E A T E _ D T ]
|
|
6548
|
|
|
6549
|
, [ E D I T O R _ I D ]
|
|
6550
|
|
|
6551
|
, [ A U T H _ S T A T U S ]
|
|
6552
|
|
|
6553
|
, [ C H E C K E R _ I D ]
|
|
6554
|
|
|
6555
|
, [ A P P R O V E _ D T ]
|
|
6556
|
|
|
6557
|
, [ C R E A T E _ D T _ K T ]
|
|
6558
|
|
|
6559
|
, [ M A K E R _ I D _ K T ]
|
|
6560
|
|
|
6561
|
, [ A U T H _ S T A T U S _ K T ]
|
|
6562
|
|
|
6563
|
, [ C H E C K E R _ I D _ K T ]
|
|
6564
|
|
|
6565
|
, [ A P P R O V E _ D T _ K T ]
|
|
6566
|
|
|
6567
|
, [ C O N F I R M _ N O T E ]
|
|
6568
|
|
|
6569
|
, [ B R A N C H _ C R E A T E ]
|
|
6570
|
|
|
6571
|
, [ N O T E S ] , R E C O R D _ S T A T U S , T R A N S F E R _ M A K E R , T R A N S F E R _ D T , T R A S F E R _ U S E R _ R E C I V E , P R O C E S S , P A Y _ P H A S E , I S _ P E R I O D )
|
|
6572
|
|
|
6573
|
V A L U E S
|
|
6574
|
|
|
6575
|
( @ p _ R E Q _ P A Y _ I D ,
|
|
6576
|
|
|
6577
|
@ p _ R E Q _ P A Y _ C O D E , C O N V E R T ( D A T E , @ p _ R E Q _ D T , 1 0 3 ) ,
|
|
6578
|
|
|
6579
|
@ p _ B R A N C H _ I D ,
|
|
6580
|
|
|
6581
|
@ p _ D E P _ I D ,
|
|
6582
|
|
|
6583
|
@ p _ R E Q _ R E A S O N ,
|
|
6584
|
|
|
6585
|
@ p _ R E Q _ T Y P E ,
|
|
6586
|
|
|
6587
|
@ P _ R E Q _ E N T R I E S ,
|
|
6588
|
|
|
6589
|
@ p _ R E Q _ D E S C R I P T I O N ,
|
|
6590
|
|
|
6591
|
@ p _ R E F _ I D ,
|
|
6592
|
|
|
6593
|
@ p _ R E C E I V E R _ P O ,
|
|
6594
|
|
|
6595
|
@ p _ R E Q _ P A Y _ T Y P E ,
|
|
6596
|
|
|
6597
|
@ p _ R E Q _ T Y P E _ C U R R E N C Y ,
|
|
6598
|
|
|
6599
|
@ p _ R E Q _ A M T ,
|
|
6600
|
|
|
6601
|
@ p _ R E Q _ T E M P _ A M T ,
|
|
6602
|
|
|
6603
|
@ p _ M A K E R _ I D ,
|
|
6604
|
|
|
6605
|
G E T D A T E ( ) ,
|
|
6606
|
|
|
6607
|
@ p _ E D I T O R _ I D ,
|
|
6608
|
|
|
6609
|
' E ' ,
|
|
6610
|
|
|
6611
|
N U L L ,
|
|
6612
|
|
|
6613
|
N U L L ,
|
|
6614
|
|
|
6615
|
N U L L ,
|
|
6616
|
|
|
6617
|
N U L L ,
|
|
6618
|
|
|
6619
|
N U L L ,
|
|
6620
|
|
|
6621
|
N U L L ,
|
|
6622
|
|
|
6623
|
N U L L ,
|
|
6624
|
|
|
6625
|
N U L L ,
|
|
6626
|
|
|
6627
|
@ p _ B R A N C H _ C R E A T E ,
|
|
6628
|
|
|
6629
|
@ p _ N O T E S , @ p _ R E C O R D _ S T A T U S ,
|
|
6630
|
|
|
6631
|
@ p _ T R A N S F E R _ M A K E R ,
|
|
6632
|
|
|
6633
|
N U L L ,
|
|
6634
|
|
|
6635
|
@ p _ T R A S F E R _ U S E R _ R E C I V E ,
|
|
6636
|
|
|
6637
|
N U L L , @ p _ P A Y _ P H A S E , I S N U L L ( @ p _ I S _ P E R I O D , ' N ' ) )
|
|
6638
|
|
|
6639
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
6640
|
|
|
6641
|
- - - I N S E R T L I C H T H A N H T O A N
|
|
6642
|
|
|
6643
|
- - I N S E R T F R O M M e t h o d C u r s o r
|
|
6644
|
|
|
6645
|
S E T @ I N D E X = 0
|
|
6646
|
|
|
6647
|
F E T C H N E X T F R O M X m l D a t a M e t h o d I N T O @ R E C E I V E _ I D , @ R E C E I V E _ N A M E , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E ,
|
|
6648
|
|
|
6649
|
@ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ A C C _ N O , @ A C C _ N A M E , @ I S S U E D _ B Y , @ I S S U E D _ D T , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N , @ T Y P E _ T R A N S
|
|
6650
|
|
|
6651
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
6652
|
|
|
6653
|
B E G I N
|
|
6654
|
|
|
6655
|
I F ( @ R E Q _ P A Y _ T Y P E < > ' 1 ' )
|
|
6656
|
|
|
6657
|
B E G I N
|
|
6658
|
|
|
6659
|
S E T @ I S S U E D _ D T = N U L L
|
|
6660
|
|
|
6661
|
E N D
|
|
6662
|
|
|
6663
|
S E T @ I N D E X = @ I N D E X + 1
|
|
6664
|
|
|
6665
|
D E C L A R E @ p _ R E Q _ P A Y _ M E T H O D _ I D V A R C H A R ( 1 5 ) ;
|
|
6666
|
|
|
6667
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ M E T H O D ' , @ p _ R E Q _ P A Y _ M E T H O D _ I D O U T ;
|
|
6668
|
|
|
6669
|
I F @ p _ R E Q _ P A Y _ M E T H O D _ I D = ' ' O R @ p _ R E Q _ P A Y _ M E T H O D _ I D I S N U L L G O T O A B O R T ;
|
|
6670
|
|
|
6671
|
I N S E R T I N T O T R _ R E Q _ P A Y _ M E T H O D
|
|
6672
|
|
|
6673
|
V A L U E S ( @ p _ R E Q _ P A Y _ M E T H O D _ I D , @ p _ R E Q _ P A Y _ I D , @ R E C E I V E _ I D , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , ' ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ A C C _ N O , @ A C C _ N A M E , @ I S S U E D _ B Y , C O N V E R T ( D A T E , @ I S S U E D _ D T , 1 0 3 ) , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N , @ T Y P E _ T R A N S )
|
|
6674
|
|
|
6675
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
6676
|
|
|
6677
|
F E T C H N E X T F R O M X m l D a t a M e t h o d I N T O @ R E C E I V E _ I D , @ R E C E I V E _ N A M E , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C ,
|
|
6678
|
|
|
6679
|
@ R E Q _ P A Y _ E N T R I E S , @ A C C _ N O , @ A C C _ N A M E , @ I S S U E D _ B Y , @ I S S U E D _ D T , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N , @ T Y P E _ T R A N S
|
|
6680
|
|
|
6681
|
E N D
|
|
6682
|
|
|
6683
|
C L O S E X m l D a t a M e t h o d ;
|
|
6684
|
|
|
6685
|
D E A L L O C A T E X m l D a t a M e t h o d ;
|
|
6686
|
|
|
6687
|
- - - - - - - - - - - - - - - - - - - - - - - - -
|
|
6688
|
|
|
6689
|
- - I N S E R T C H U N G T U D I N H K E M
|
|
6690
|
|
|
6691
|
F E T C H N E X T F R O M X m l A t t a c h I N T O @ A T T A C H _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , @ R E F _ D T
|
|
6692
|
|
|
6693
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
6694
|
|
|
6695
|
B E G I N
|
|
6696
|
|
|
6697
|
I F ( @ R E F _ D T = ' ' )
|
|
6698
|
|
|
6699
|
B E G I N
|
|
6700
|
|
|
6701
|
S E T @ R E F _ D T = N U L L
|
|
6702
|
|
|
6703
|
E N D
|
|
6704
|
|
|
6705
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ A T T A C H ' , @ A T T A C H _ I D O U T ;
|
|
6706
|
|
|
6707
|
I F @ A T T A C H _ I D = ' ' O R @ A T T A C H _ I D I S N U L L G O T O A B O R T ;
|
|
6708
|
|
|
6709
|
I N S E R T I N T O T R _ R E Q _ P A Y _ A T T A C H ( A T T A C H _ I D , R E Q _ P A Y _ I D , R E F _ I D , R E F _ C O D E , N O T E S , [ D E S C R I P T I O N ] , [ T Y P E ] , A M T , R E F _ D T ) V A L U E S
|
|
6710
|
|
|
6711
|
( @ A T T A C H _ I D , @ p _ R E Q _ P A Y _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , C O N V E R T ( D A T E , @ R E F _ D T , 1 0 3 ) )
|
|
6712
|
|
|
6713
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
6714
|
|
|
6715
|
F E T C H N E X T F R O M X m l A t t a c h I N T O @ A T T A C H _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , @ R E F _ D T
|
|
6716
|
|
|
6717
|
E N D
|
|
6718
|
|
|
6719
|
C L O S E X m l A t t a c h ;
|
|
6720
|
|
|
6721
|
D E A L L O C A T E X m l A t t a c h ;
|
|
6722
|
|
|
6723
|
- - - - E N D
|
|
6724
|
|
|
6725
|
- - I n s e r t X m l D a t a
|
|
6726
|
|
|
6727
|
F E T C H N E X T F R O M X m l D a t a I N T O @ T R A N S _ N O , @ T R A N S _ D T , @ I N V O I C E _ S I G N , @ I N V O I C E _ N O _ S I G N , @ I N V O I C E _ N O , @ I N V O I C E _ D T , @ S E L L E R ,
|
|
6728
|
|
|
6729
|
@ T A X _ N O , @ G O O D S _ N A M E , @ P R I C E , @ T A X , @ V A T , @ N O T E S , @ V A T _ R A T E , @ C U R R E N C Y , @ R A T E , @ T Y P E _ V A T , @ T Y P E _ F U N C
|
|
6730
|
|
|
6731
|
W H I L E @ @ f e t c h _ s t a t u s = 0 B E G I N
|
|
6732
|
|
|
6733
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
6734
|
|
|
6735
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
6736
|
|
|
6737
|
B E G I N
|
|
6738
|
|
|
6739
|
S E T @ I N D E X _ I V = @ I N D E X _ I V + 1
|
|
6740
|
|
|
6741
|
I F ( L E N ( @ I N V O I C E _ N O ) > 7 )
|
|
6742
|
|
|
6743
|
B E G I N
|
|
6744
|
|
|
6745
|
R O L L B A C K T R A N S A C T I O N
|
|
6746
|
|
|
6747
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D ? n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ I V ) + N ' : S ? h ? a ? n ' + @ I N V O I C E _ N O + N ' k h ? n g ? ? c v ? ? t q u ? 7 k ? t ? ' E r r o r D e s c
|
|
6748
|
|
|
6749
|
R E T U R N ' - 1 '
|
|
6750
|
|
|
6751
|
E N D
|
|
6752
|
|
|
6753
|
I F ( L E N ( @ I N V O I C E _ N O ) < 7 )
|
|
6754
|
|
|
6755
|
B E G I N
|
|
6756
|
|
|
6757
|
R O L L B A C K T R A N S A C T I O N
|
|
6758
|
|
|
6759
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D ? n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ I V ) + N ' : S ? h ? a ? n ' + @ I N V O I C E _ N O + N ' p h ? i ? 7 k ? t ? ' E r r o r D e s c
|
|
6760
|
|
|
6761
|
R E T U R N ' - 1 '
|
|
6762
|
|
|
6763
|
E N D
|
|
6764
|
|
|
6765
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y _ I N V O I C E W H E R E I N V O I C E _ N O = @ I N V O I C E _ N O A N D I N V O I C E _ N O _ S I G N = @ I N V O I C E _ N O _ S I G N A N D I N V O I C E _ S I G N = @ I N V O I C E _ S I G N A N D T A X _ N O = @ T A X _ N O A N D T A X = @ T A X ) )
|
|
6766
|
|
|
6767
|
B E G I N
|
|
6768
|
|
|
6769
|
R O L L B A C K T R A N S A C T I O N
|
|
6770
|
|
|
6771
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D ? n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ I V ) + N ' : S ? h ? a ? n ' + @ I N V O I C E _ N O + N ' ? t ? n t ? i t r o n g h ? t h ? n g ' E r r o r D e s c
|
|
6772
|
|
|
6773
|
R E T U R N ' - 1 '
|
|
6774
|
|
|
6775
|
E N D
|
|
6776
|
|
|
6777
|
E N D
|
|
6778
|
|
|
6779
|
S E T @ I N D E X = @ I N D E X + 1
|
|
6780
|
|
|
6781
|
D E C L A R E @ p _ R E Q _ I N V _ I D V A R C H A R ( 1 5 ) ;
|
|
6782
|
|
|
6783
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ I N V O I C E ' , @ p _ R E Q _ I N V _ I D O U T ;
|
|
6784
|
|
|
6785
|
I F @ p _ R E Q _ I N V _ I D = ' ' O R @ p _ R E Q _ I N V _ I D I S N U L L G O T O A B O R T ;
|
|
6786
|
|
|
6787
|
I N S E R T I N T O T R _ R E Q _ P A Y _ I N V O I C E ( R E Q _ P A Y D T _ I D , R E Q _ P A Y _ I D , T R A N S _ N O , T R A N S _ D T , I N V O I C E _ S I G N , I N V O I C E _ N O , I N V O I C E _ D T , S E L L E R , T A X _ N O , G O O D S _ N A M E , P R I C E , T A X , V A T , N O T E ,
|
|
6788
|
|
|
6789
|
M A K E R _ I D , C R E A T E _ D T , E D I T O R _ I D , A U T H _ S T A T U S , C H E C K E R _ I D , A P P R O V E _ D T ,
|
|
6790
|
|
|
6791
|
C R E A T E _ D T _ K T , M A K E R _ I D _ K T , A U T H _ S T A T U S _ K T , C H E C K E R _ I D _ K T , A P P R O V E _ D T _ K T , R E C O R D _ S T A T U S , I N V O I C E _ N O _ S I G N , V A T _ R A T E , C U R R E N C Y , R A T E , P R I C E _ K T , V A T _ K T , T O T A L _ A M T _ K T , T Y P E _ V A T , T Y P E _ F U N C )
|
|
6792
|
|
|
6793
|
V A L U E S ( @ p _ R E Q _ I N V _ I D , @ p _ R E Q _ P A Y _ I D , @ T R A N S _ N O , N U L L , @ I N V O I C E _ S I G N , @ I N V O I C E _ N O , C O N V E R T ( D A T E , @ I N V O I C E _ D T , 1 0 3 ) , @ S E L L E R , @ T A X _ N O , @ G O O D S _ N A M E , @ P R I C E , @ T A X , @ V A T , @ N O T E S ,
|
|
6794
|
|
|
6795
|
@ p _ M A K E R _ I D , G E T D A T E ( ) , N U L L , ' U ' , N U L L , N U L L , N U L L , N U L L , N U L L , N U L L , N U L L , ' 1 ' , @ I N V O I C E _ N O _ S I G N , @ V A T _ R A T E , @ C U R R E N C Y , @ R A T E , @ P R I C E , @ V A T , @ P R I C E + @ V A T , @ T Y P E _ V A T , @ T Y P E _ F U N C )
|
|
6796
|
|
|
6797
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
6798
|
|
|
6799
|
F E T C H N E X T F R O M X m l D a t a
|
|
6800
|
|
|
6801
|
I N T O @ T R A N S _ N O , @ T R A N S _ D T , @ I N V O I C E _ S I G N , @ I N V O I C E _ N O _ S I G N , @ I N V O I C E _ N O , @ I N V O I C E _ D T , @ S E L L E R , @ T A X _ N O , @ G O O D S _ N A M E , @ P R I C E , @ T A X , @ V A T , @ N O T E S , @ V A T _ R A T E , @ C U R R E N C Y , @ R A T E , @ T Y P E _ V A T , @ T Y P E _ F U N C
|
|
6802
|
|
|
6803
|
E N D ;
|
|
6804
|
|
|
6805
|
C L O S E X m l D a t a ;
|
|
6806
|
|
|
6807
|
D E A L L O C A T E X m l D a t a ;
|
|
6808
|
|
|
6809
|
- - - I N S E R T C A C H A N G M U C N G A N S A C H
|
|
6810
|
|
|
6811
|
F E T C H N E X T F R O M X m l D a t a G o o d I N T O @ T R A D E _ I D , @ G D _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ C U R R E N C Y , @ R A T E , @ R E A S O N
|
|
6812
|
|
|
6813
|
W H I L E @ @ f e t c h _ s t a t u s = 0 B E G I N
|
|
6814
|
|
|
6815
|
- - - K I E M T R A N E U N G A N S A C H S U D U N G T H U C T H E L O N H O N N G A N S A C H C O N L A I
|
|
6816
|
|
|
6817
|
S E T @ I N D E X _ N S = @ I N D E X _ N S + 1
|
|
6818
|
|
|
6819
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
6820
|
|
|
6821
|
- - I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
6822
|
|
|
6823
|
- - B E G I N
|
|
6824
|
|
|
6825
|
- - I F ( ( @ A M T _ E X E > @ A M T _ R E M A I N _ G D ) )
|
|
6826
|
|
|
6827
|
- - B E G I N
|
|
6828
|
|
|
6829
|
- - R O L L B A C K T R A N S A C T I O N
|
|
6830
|
|
|
6831
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ N S ) + N ' : N g ? n s ? c h s ? d ? n g t h ? c t ? k h ? n g ? ? c v ? ? t q u ? n g ? n s ? c h c ? n l ? i . ' E r r o r D e s c
|
|
6832
|
|
|
6833
|
- - R E T U R N ' - 1 '
|
|
6834
|
|
|
6835
|
- - E N D
|
|
6836
|
|
|
6837
|
- - E N D
|
|
6838
|
|
|
6839
|
D E C L A R E @ p _ B U D G E T _ I D V A R C H A R ( 1 5 ) ;
|
|
6840
|
|
|
6841
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ B U D G E T ' , @ p _ B U D G E T _ I D O U T ;
|
|
6842
|
|
|
6843
|
I F @ p _ B U D G E T _ I D = ' ' O R @ p _ B U D G E T _ I D I S N U L L G O T O A B O R T ;
|
|
6844
|
|
|
6845
|
I N S E R T I N T O T R _ R E Q _ P A Y _ B U D G E T ( B U D G _ I D , G D _ I D , R E Q _ P A Y _ I D , T R A D E _ I D , A M T _ A P P , A M T _ D O , A M T _ E X E , A M T _ R E M A I N , M A K E R _ I D , C R E A T E _ D T , C U R R E N C Y , R A T E , R E A S O N )
|
|
6846
|
|
|
6847
|
V A L U E S ( @ p _ B U D G E T _ I D , @ G D _ I D , @ p _ R E Q _ P A Y _ I D , @ T R A D E _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ C U R R E N C Y , @ R A T E , @ R E A S O N )
|
|
6848
|
|
|
6849
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
6850
|
|
|
6851
|
F E T C H N E X T F R O M X m l D a t a G o o d I N T O @ T R A D E _ I D , @ G D _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ C U R R E N C Y , @ R A T E , @ R E A S O N
|
|
6852
|
|
|
6853
|
E N D ;
|
|
6854
|
|
|
6855
|
C L O S E X m l D a t a G o o d ;
|
|
6856
|
|
|
6857
|
D E A L L O C A T E X m l D a t a G o o d ;
|
|
6858
|
|
|
6859
|
- - - E N D I N S E R T N G A N S A C H
|
|
6860
|
|
|
6861
|
- - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
6862
|
|
|
6863
|
- - L u a n l t - -
|
|
6864
|
|
|
6865
|
- - - - - - - - - - - - - - - - - - - - - - - -
|
|
6866
|
|
|
6867
|
I F ( @ p _ R E Q _ T Y P E = ' I ' )
|
|
6868
|
|
|
6869
|
B E G I N
|
|
6870
|
|
|
6871
|
F E T C H N E X T F R O M X m l D a t a P a y I N T O @ P A Y _ A D V _ I D , @ A M T _ A D V A N C E D , @ A M T _ D O , @ A M T _ R E M A I N , @ A M T _ P A Y , @ A M T _ U S E , @ A M T _ R E V E R T , @ A M T _ A D D , @ C U R R E N C Y , @ R A T E
|
|
6872
|
|
|
6873
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
6874
|
|
|
6875
|
B E G I N
|
|
6876
|
|
|
6877
|
S E T @ R E Q _ P A Y _ A D V _ C O D E = ( S E L E C T R E Q _ P A Y _ C O D E F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ P A Y _ A D V _ I D )
|
|
6878
|
|
|
6879
|
S E T @ I N D E X _ A D = @ I N D E X _ A D + 1
|
|
6880
|
|
|
6881
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
6882
|
|
|
6883
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
6884
|
|
|
6885
|
B E G I N
|
|
6886
|
|
|
6887
|
- - K I E M T R A X E M C O P H I E U N A O D A N G D U O C T H A N H T O A N H O A N T A M U N G M A C H U A D U Y E T H A Y C H U A
|
|
6888
|
|
|
6889
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y M E N T _ D T W H E R E ( P A Y _ A D V _ I D = @ P A Y _ A D V _ I D A N D ( A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) A N D P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
6890
|
|
|
6891
|
B E G I N
|
|
6892
|
|
|
6893
|
R O L L B A C K T R A N S A C T I O N
|
|
6894
|
|
|
6895
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ A D ) + N ' : P h i ? u t ? m ? n g s ? ' + @ R E Q _ P A Y _ A D V _ C O D E + N ' a n g ? ? c t h a n h t o ? n h o ? n t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
6896
|
|
|
6897
|
R E T U R N ' - 1 '
|
|
6898
|
|
|
6899
|
E N D
|
|
6900
|
|
|
6901
|
- - K I E M T R A N E U S O T I E N D E N G H I H O A N T A M ? N G L O N H O N S O T I E N C O N L A I C A N P H A I T A M U N G
|
|
6902
|
|
|
6903
|
I F ( @ A M T _ R E V E R T > ( @ A M T _ R E M A I N - @ A M T _ U S E ) A N D @ A M T _ R E V E R T > 0 )
|
|
6904
|
|
|
6905
|
B E G I N
|
|
6906
|
|
|
6907
|
R O L L B A C K T R A N S A C T I O N
|
|
6908
|
|
|
6909
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ A D ) + N ' : S ? t i ? n h o ? n ? n g k h ? n g ? ? c v ? ? t q u ? ' + F O R M A T ( ( @ A M T _ R E M A I N - @ A M T _ U S E ) , ' # , # ' , ' v i - V N ' ) E r r o r D e s c
|
|
6910
|
|
|
6911
|
R E T U R N ' - 1 '
|
|
6912
|
|
|
6913
|
E N D
|
|
6914
|
|
|
6915
|
E N D
|
|
6916
|
|
|
6917
|
D E C L A R E @ p _ R E Q _ P A Y D T _ I D V A R C H A R ( 1 5 ) ;
|
|
6918
|
|
|
6919
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y M E N T _ D T ' , @ p _ R E Q _ P A Y D T _ I D O U T ;
|
|
6920
|
|
|
6921
|
I F @ p _ R E Q _ P A Y D T _ I D = ' ' O R @ p _ R E Q _ P A Y D T _ I D I S N U L L G O T O A B O R T ;
|
|
6922
|
|
|
6923
|
I N S E R T I N T O T R _ R E Q _ P A Y M E N T _ D T
|
|
6924
|
|
|
6925
|
V A L U E S ( @ p _ R E Q _ P A Y D T _ I D , @ P A Y _ A D V _ I D , @ p _ R E Q _ P A Y _ I D , I S N U L L ( @ A M T _ A D V A N C E D , 0 ) , I S N U L L ( @ A M T _ D O , 0 ) , I S N U L L ( @ A M T _ R E M A I N , 0 ) ,
|
|
6926
|
|
|
6927
|
I S N U L L ( @ A M T _ P A Y , 0 ) , I S N U L L ( @ A M T _ U S E , 0 ) , I S N U L L ( @ A M T _ R E V E R T , 0 ) , I S N U L L ( @ A M T _ A D D , 0 ) , G E T D A T E ( ) , @ p _ M A K E R _ I D , G E T D A T E ( ) , N U L L , N U L L , ' U ' , N U L L , N U L L , N U L L , N U L L , N U L L , @ C U R R E N C Y , @ R A T E )
|
|
6928
|
|
|
6929
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
6930
|
|
|
6931
|
F E T C H N E X T F R O M X m l D a t a P a y I N T O @ P A Y _ A D V _ I D , @ A M T _ A D V A N C E D , @ A M T _ D O , @ A M T _ R E M A I N , @ A M T _ P A Y , @ A M T _ U S E , @ A M T _ R E V E R T , @ A M T _ A D D , @ C U R R E N C Y , @ R A T E
|
|
6932
|
|
|
6933
|
E N D
|
|
6934
|
|
|
6935
|
C L O S E X m l D a t a P a y ;
|
|
6936
|
|
|
6937
|
D E A L L O C A T E X m l D a t a P a y ;
|
|
6938
|
|
|
6939
|
- - I N S E R T F R O M C a t C u r s o r
|
|
6940
|
|
|
6941
|
S E T @ I N D E X = 0
|
|
6942
|
|
|
6943
|
F E T C H N E X T F R O M X m l D a t a C a t I N T O @ R E Q _ A D V _ I D , @ C A T _ N A M E , @ T O T A L _ A M T _ C A T , @ D E P T _ I D , @ C U R R E N C Y , @ R A T E
|
|
6944
|
|
|
6945
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
6946
|
|
|
6947
|
B E G I N
|
|
6948
|
|
|
6949
|
S E T @ I N D E X = @ I N D E X + 1
|
|
6950
|
|
|
6951
|
D E C L A R E @ p _ R E Q _ P A Y _ C A T _ I D V A R C H A R ( 1 5 ) ;
|
|
6952
|
|
|
6953
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ C A T ' , @ p _ R E Q _ P A Y _ C A T _ I D O U T ;
|
|
6954
|
|
|
6955
|
I F @ p _ R E Q _ P A Y _ C A T _ I D = ' ' O R @ p _ R E Q _ P A Y _ C A T _ I D I S N U L L G O T O A B O R T ;
|
|
6956
|
|
|
6957
|
I N S E R T I N T O T R _ R E Q _ P A Y _ C A T
|
|
6958
|
|
|
6959
|
V A L U E S ( @ p _ R E Q _ P A Y _ C A T _ I D , @ p _ R E Q _ P A Y _ I D , @ R E Q _ A D V _ I D , @ C A T _ N A M E , @ T O T A L _ A M T _ C A T , @ D E P T _ I D , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ C U R R E N C Y , @ R A T E )
|
|
6960
|
|
|
6961
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
6962
|
|
|
6963
|
F E T C H N E X T F R O M X m l D a t a C a t I N T O @ R E Q _ A D V _ I D , @ C A T _ N A M E , @ T O T A L _ A M T _ C A T , @ D E P T _ I D , @ C U R R E N C Y , @ R A T E
|
|
6964
|
|
|
6965
|
E N D
|
|
6966
|
|
|
6967
|
C L O S E X m l D a t a C a t ;
|
|
6968
|
|
|
6969
|
D E A L L O C A T E X m l D a t a C a t ;
|
|
6970
|
|
|
6971
|
E N D
|
|
6972
|
|
|
6973
|
I F ( @ p _ R E Q _ T Y P E = ' D ' O R @ p _ R E Q _ T Y P E = ' I ' )
|
|
6974
|
|
|
6975
|
B E G I N
|
|
6976
|
|
|
6977
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
6978
|
|
|
6979
|
- - I N S E R T F R O M S e r v i c e C u r s o r
|
|
6980
|
|
|
6981
|
S E T @ I N D E X = 0
|
|
6982
|
|
|
6983
|
F E T C H N E X T F R O M X m l D a t a S e r v i c e I N T O @ R E Q _ P A Y _ S E R V I C E _ N A M E , @ R E C E I V E _ I D _ S E R V I C E , @ R E C E I V E _ N A M E _ S E R V I C E , @ R E Q _ P A Y _ R E A S O N _ S E R V I C E , @ T O T A L _ A M T _ S E R V I C E ,
|
|
6984
|
|
|
6985
|
@ R E Q _ P A Y _ T Y P E _ S E R V I C E , @ R E Q _ P A Y _ D E S C _ S E R V I C E , @ R E Q _ P A Y _ E N T R I E S _ S E R V I C E , @ D E P T _ I D _ S R V , @ C U R R E N C Y , @ R A T E
|
|
6986
|
|
|
6987
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
6988
|
|
|
6989
|
B E G I N
|
|
6990
|
|
|
6991
|
S E T @ I N D E X = @ I N D E X + 1
|
|
6992
|
|
|
6993
|
D E C L A R E @ p _ R E Q _ P A Y _ S E R V I C E _ I D V A R C H A R ( 1 5 ) ;
|
|
6994
|
|
|
6995
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ S E R V I C E ' , @ p _ R E Q _ P A Y _ S E R V I C E _ I D O U T ;
|
|
6996
|
|
|
6997
|
I F @ p _ R E Q _ P A Y _ S E R V I C E _ I D = ' ' O R @ p _ R E Q _ P A Y _ S E R V I C E _ I D I S N U L L G O T O A B O R T ;
|
|
6998
|
|
|
6999
|
I N S E R T I N T O T R _ R E Q _ P A Y _ S E R V I C E ( S E R V I C E _ I D , R E Q _ P A Y _ I D , S E R V I C E _ N A M E , E M P _ I D , R E Q _ P A Y _ R E A S O N , T O T A L _ A M T , R E Q _ P A Y _ T Y P E , R E Q _ P A Y _ D E S C , R E Q _ P A Y _ E N T R I E S , M A K E R _ I D , C R E A T E _ D T , D E P T _ I D , C U R R E N C Y , R A T E )
|
|
7000
|
|
|
7001
|
V A L U E S ( @ p _ R E Q _ P A Y _ S E R V I C E _ I D , @ p _ R E Q _ P A Y _ I D , @ R E Q _ P A Y _ S E R V I C E _ N A M E , @ R E C E I V E _ I D _ S E R V I C E , @ R E Q _ P A Y _ R E A S O N _ S E R V I C E , @ T O T A L _ A M T _ S E R V I C E ,
|
|
7002
|
|
|
7003
|
@ R E Q _ P A Y _ T Y P E _ S E R V I C E , @ R E Q _ P A Y _ D E S C _ S E R V I C E , @ R E Q _ P A Y _ E N T R I E S _ S E R V I C E , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ D E P T _ I D _ S R V , @ C U R R E N C Y , @ R A T E )
|
|
7004
|
|
|
7005
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
7006
|
|
|
7007
|
F E T C H N E X T F R O M X m l D a t a S e r v i c e I N T O @ R E Q _ P A Y _ S E R V I C E _ N A M E , @ R E C E I V E _ I D _ S E R V I C E , @ R E C E I V E _ N A M E _ S E R V I C E , @ R E Q _ P A Y _ R E A S O N _ S E R V I C E , @ T O T A L _ A M T _ S E R V I C E , @ R E Q _ P A Y _ T Y P E _ S E R V I C E ,
|
|
7008
|
|
|
7009
|
@ R E Q _ P A Y _ D E S C _ S E R V I C E , @ R E Q _ P A Y _ E N T R I E S _ S E R V I C E , @ D E P T _ I D _ S R V , @ C U R R E N C Y , @ R A T E
|
|
7010
|
|
|
7011
|
E N D
|
|
7012
|
|
|
7013
|
C L O S E X m l D a t a S e r v i c e ;
|
|
7014
|
|
|
7015
|
D E A L L O C A T E X m l D a t a S e r v i c e ;
|
|
7016
|
|
|
7017
|
E N D
|
|
7018
|
|
|
7019
|
I F ( ( @ p _ R E Q _ T Y P E = ' P ' A N D ( @ p _ I S _ P E R I O D < > ' Y ' O R @ p _ I S _ P E R I O D I S N U L L ) ) O R @ p _ R E Q _ T Y P E = ' I ' )
|
|
7020
|
|
|
7021
|
B E G I N
|
|
7022
|
|
|
7023
|
D E C L A R E X m l D a t a P O C U R S O R L O C A L F O R
|
|
7024
|
|
|
7025
|
S E L E C T *
|
|
7026
|
|
|
7027
|
F R O M
|
|
7028
|
|
|
7029
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P O ' , 2 )
|
|
7030
|
|
|
7031
|
W I T H ( R E F _ I D v a r c h a r ( 1 5 ) , I S _ C L O S E D V A R C H A R ( 1 ) , R E F _ T Y P E V A R C H A R ( 1 5 ) )
|
|
7032
|
|
|
7033
|
O P E N X m l D a t a P O ;
|
|
7034
|
|
|
7035
|
S E T @ I N D E X _ P O = 0
|
|
7036
|
|
|
7037
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
7038
|
|
|
7039
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
7040
|
|
|
7041
|
B E G I N
|
|
7042
|
|
|
7043
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
7044
|
|
|
7045
|
- - - - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
7046
|
|
|
7047
|
- - I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
7048
|
|
|
7049
|
- - B E G I N
|
|
7050
|
|
|
7051
|
- - R O L L B A C K T R A N S A C T I O N
|
|
7052
|
|
|
7053
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O / h ? p ? n g s ? ' + ( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
7054
|
|
|
7055
|
- - R E T U R N ' - 1 '
|
|
7056
|
|
|
7057
|
- - E N D
|
|
7058
|
|
|
7059
|
- - - - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
7060
|
|
|
7061
|
- - I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
7062
|
|
|
7063
|
- - B E G I N
|
|
7064
|
|
|
7065
|
- - R O L L B A C K T R A N S A C T I O N
|
|
7066
|
|
|
7067
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O / h ? p ? n g s ? ' + ( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t h a n h t o ? n . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
7068
|
|
|
7069
|
- - R E T U R N ' - 1 '
|
|
7070
|
|
|
7071
|
- - E N D
|
|
7072
|
|
|
7073
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
7074
|
|
|
7075
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
7076
|
|
|
7077
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
7078
|
|
|
7079
|
B E G I N
|
|
7080
|
|
|
7081
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E F _ T Y P E = ' C ' A N D R E Q _ P A Y _ I D
|
|
7082
|
|
|
7083
|
I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
7084
|
|
|
7085
|
B E G I N
|
|
7086
|
|
|
7087
|
R O L L B A C K T R A N S A C T I O N
|
|
7088
|
|
|
7089
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : H ? p ? n g s ? ' +
|
|
7090
|
|
|
7091
|
( S E L E C T C O N T R A C T _ I D F R O M T R _ C O N T R A C T W H E R E C O N T R A C T _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
7092
|
|
|
7093
|
R E T U R N ' - 1 '
|
|
7094
|
|
|
7095
|
E N D
|
|
7096
|
|
|
7097
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
7098
|
|
|
7099
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E F _ T Y P E = ' C ' A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
7100
|
|
|
7101
|
B E G I N
|
|
7102
|
|
|
7103
|
R O L L B A C K T R A N S A C T I O N
|
|
7104
|
|
|
7105
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : H ? p ? n g s ? ' +
|
|
7106
|
|
|
7107
|
( S E L E C T C O N T R A C T _ I D F R O M T R _ C O N T R A C T W H E R E C O N T R A C T _ I D = @ R E F _ I D ) + N ' a n g ? ? c t h a n h t o ? n . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
7108
|
|
|
7109
|
R E T U R N ' - 1 '
|
|
7110
|
|
|
7111
|
E N D
|
|
7112
|
|
|
7113
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
7114
|
|
|
7115
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E F _ T Y P E = ' P ' A N D R E Q _ P A Y _ I D
|
|
7116
|
|
|
7117
|
I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
7118
|
|
|
7119
|
B E G I N
|
|
7120
|
|
|
7121
|
R O L L B A C K T R A N S A C T I O N
|
|
7122
|
|
|
7123
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
7124
|
|
|
7125
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
7126
|
|
|
7127
|
R E T U R N ' - 1 '
|
|
7128
|
|
|
7129
|
E N D
|
|
7130
|
|
|
7131
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
7132
|
|
|
7133
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E F _ T Y P E = ' P ' A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
7134
|
|
|
7135
|
B E G I N
|
|
7136
|
|
|
7137
|
R O L L B A C K T R A N S A C T I O N
|
|
7138
|
|
|
7139
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
7140
|
|
|
7141
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t h a n h t o ? n . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
7142
|
|
|
7143
|
R E T U R N ' - 1 '
|
|
7144
|
|
|
7145
|
E N D
|
|
7146
|
|
|
7147
|
- - - K I E M T R A X E M P O N A Y D U O C T H A N H T O A N H A Y C H U A
|
|
7148
|
|
|
7149
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E F _ T Y P E = ' P ' A N D R E F _ I D I N ( S E L E C T P O _ I D F R O M T R _ P O _ M A S T E R W H E R E I S _ C L O S E D = ' Y ' ) ) )
|
|
7150
|
|
|
7151
|
B E G I N
|
|
7152
|
|
|
7153
|
R O L L B A C K T R A N S A C T I O N
|
|
7154
|
|
|
7155
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
7156
|
|
|
7157
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' ? ? ? c t h a n h t o ? n x o n g . V u i l ? n g c h ? n P O k h ? c ? t h a n h t o ? n h o ? c x ? a b ? n n h ? p n ? y ! ' E r r o r D e s c
|
|
7158
|
|
|
7159
|
R E T U R N ' - 1 '
|
|
7160
|
|
|
7161
|
E N D
|
|
7162
|
|
|
7163
|
E N D
|
|
7164
|
|
|
7165
|
D E C L A R E @ R E Q _ P A Y D T I D V A R C H A R ( 1 5 ) ;
|
|
7166
|
|
|
7167
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ A D V A N C E _ D T ' , @ R E Q _ P A Y D T I D O U T ;
|
|
7168
|
|
|
7169
|
I F @ R E Q _ P A Y D T I D = ' ' O R @ R E Q _ P A Y D T I D I S N U L L G O T O A B O R T ;
|
|
7170
|
|
|
7171
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ D T ( R E Q _ P A Y D T I D , R E Q _ P A Y _ I D , R E F _ I D , T Y P E , M A K E R _ I D , C R E A T E _ D T , I S _ C L O S E D , R E F _ T Y P E ) V A L U E S
|
|
7172
|
|
|
7173
|
( @ R E Q _ P A Y D T I D , @ p _ R E Q _ P A Y _ I D , @ R E F _ I D , ' P A Y ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ I S _ C L O S E D , @ R E F _ T Y P E )
|
|
7174
|
|
|
7175
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
7176
|
|
|
7177
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
7178
|
|
|
7179
|
E N D
|
|
7180
|
|
|
7181
|
C L O S E X m l D a t a P O ;
|
|
7182
|
|
|
7183
|
D E A L L O C A T E X m l D a t a P O ;
|
|
7184
|
|
|
7185
|
- - - C U S O R D A N H S A C H L I C H T H A N H T O A N P O - H D
|
|
7186
|
|
|
7187
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
7188
|
|
|
7189
|
- - I N S E R T F R O M S c h e d u l e C u r s o r
|
|
7190
|
|
|
7191
|
S E T @ I N D E X _ P O = 0
|
|
7192
|
|
|
7193
|
F E T C H N E X T F R O M X m l D a t a S c h e d u l e I N T O @ P O _ I D , @ T E R M _ P A Y , @ A M T _ P A Y _ S C H E D U L E , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ R E M A I N _ S C H E D U L E , @ R E Q _ A D _ D T ,
|
|
7194
|
|
|
7195
|
@ P R O C E S S , @ P A Y _ I D , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ D O , @ A M T _ P A Y _ R E A L
|
|
7196
|
|
|
7197
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
7198
|
|
|
7199
|
B E G I N
|
|
7200
|
|
|
7201
|
- - I F ( @ A M T _ R E M A I N _ S C H E D U L E = 0 )
|
|
7202
|
|
|
7203
|
- - B E G I N
|
|
7204
|
|
|
7205
|
- - S E T @ P R O C E S S = ' 3 '
|
|
7206
|
|
|
7207
|
- - E N D
|
|
7208
|
|
|
7209
|
- - I F ( @ P R O C E S S < > ' 2 ' )
|
|
7210
|
|
|
7211
|
- - B E G I N
|
|
7212
|
|
|
7213
|
- - S E T @ T O T A L _ S C H E D U L E _ A M T = @ T O T A L _ S C H E D U L E _ A M T + @ A M T _ R E M A I N _ S C H E D U L E
|
|
7214
|
|
|
7215
|
- - E N D
|
|
7216
|
|
|
7217
|
- - - -
|
|
7218
|
|
|
7219
|
S E T @ T O T A L _ S C H E D U L E _ A M T = @ T O T A L _ S C H E D U L E _ A M T + ( @ A M T _ P A Y _ S C H E D U L E - @ A M T _ A D V A N C E _ S C H E D U L E - @ A M T _ P A Y _ D O )
|
|
7220
|
|
|
7221
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
7222
|
|
|
7223
|
D E C L A R E @ p _ R E Q _ P A Y _ S C H E D U L E _ I D V A R C H A R ( 1 5 ) ;
|
|
7224
|
|
|
7225
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ S C H E D U L E ' , @ p _ R E Q _ P A Y _ S C H E D U L E _ I D O U T ;
|
|
7226
|
|
|
7227
|
I F @ p _ R E Q _ P A Y _ S C H E D U L E _ I D = ' ' O R @ p _ R E Q _ P A Y _ S C H E D U L E _ I D I S N U L L G O T O A B O R T ;
|
|
7228
|
|
|
7229
|
I N S E R T I N T O T R _ R E Q _ P A Y _ S C H E D U L E ( S C H E D U L E _ I D , R E Q _ P A Y _ I D , P A Y _ I D , A M T _ P A Y , P A Y _ P H A S E , R E Q _ A D V _ I D , A M T _ A D V A N C E , A M T _ P A Y _ D O , A M T _ R E M A I N , R E Q _ P A Y _ D T , R E Q _ A D _ D T , P R O C E S S , M A K E R _ I D ,
|
|
7230
|
|
|
7231
|
C R E A T E _ D T , A U T H _ S T A T U S _ K T , P A Y M E N T _ S T A T U S , T R N _ T Y P E , R E F _ I D , R E Q _ P A Y _ D E S C , R E Q _ P A Y _ E N T R I E S , C U R R E N C Y , R A T E , A M T _ P A Y _ R E A L )
|
|
7232
|
|
|
7233
|
V A L U E S ( @ p _ R E Q _ P A Y _ S C H E D U L E _ I D , @ p _ R E Q _ P A Y _ I D , @ P A Y _ I D , @ A M T _ P A Y _ S C H E D U L E , @ T E R M _ P A Y , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E ,
|
|
7234
|
|
|
7235
|
- - I I F ( @ P R O C E S S < > ' 2 ' , ( @ A M T _ P A Y _ S C H E D U L E - @ A M T _ A D V A N C E _ S C H E D U L E ) , 0 ) ,
|
|
7236
|
|
|
7237
|
@ A M T _ P A Y _ D O ,
|
|
7238
|
|
|
7239
|
@ A M T _ R E M A I N _ S C H E D U L E , G E T D A T E ( ) , C O N V E R T ( D A T E T I M E , @ R E Q _ A D _ D T , 1 0 3 ) , @ P R O C E S S , @ p _ M A K E R _ I D , G E T D A T E ( ) , ' U ' , ' ' , ' P A Y ' ,
|
|
7240
|
|
|
7241
|
@ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ R E A L )
|
|
7242
|
|
|
7243
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
7244
|
|
|
7245
|
F E T C H N E X T F R O M X m l D a t a S c h e d u l e I N T O @ P O _ I D , @ T E R M _ P A Y , @ A M T _ P A Y _ S C H E D U L E , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ R E M A I N _ S C H E D U L E , @ R E Q _ A D _ D T ,
|
|
7246
|
|
|
7247
|
@ P R O C E S S , @ P A Y _ I D , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ D O , @ A M T _ P A Y _ R E A L
|
|
7248
|
|
|
7249
|
E N D
|
|
7250
|
|
|
7251
|
C L O S E X m l D a t a S c h e d u l e ;
|
|
7252
|
|
|
7253
|
D E A L L O C A T E X m l D a t a S c h e d u l e ;
|
|
7254
|
|
|
7255
|
- - V A L I D A T E D A N H S A C H H O A N U N G - - L U C T V B O S U N G 1 9 - 1 1 - 2 0 1 9 . C H U A B I E T C O V A L I D A T E H A Y K H O N G N E N V A L I D A T E D U O I S T O R E
|
|
7256
|
|
|
7257
|
- - I F ( @ I N D E X _ P O = 0 )
|
|
7258
|
|
|
7259
|
- - B E G I N
|
|
7260
|
|
|
7261
|
- - R O L L B A C K T R A N S A C T I O N
|
|
7262
|
|
|
7263
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D a n h s ? c h c ? c k h o ? n h o ? n t ? m ? n g k h ? n g ? ? c p h ? p t r ? n g ' E r r o r D e s c
|
|
7264
|
|
|
7265
|
- - R E T U R N ' - 1 '
|
|
7266
|
|
|
7267
|
- - E N D
|
|
7268
|
|
|
7269
|
- - V A L I D A T E S O T I E N
|
|
7270
|
|
|
7271
|
- - I F ( @ p _ R E Q _ A M T > = @ T O T A L _ S C H E D U L E _ A M T )
|
|
7272
|
|
|
7273
|
- - B E G I N
|
|
7274
|
|
|
7275
|
- - R O L L B A C K T R A N S A C T I O N
|
|
7276
|
|
|
7277
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' S ? t i ? n t h a n h t o ? n p h ? i n h ? h ? n h o ? c b ? n g t ? n g s ? t i ? n c ? n l ? i c ? n t h a n h t o ? n : ' + F O R M A T ( S U M ( @ T O T A L _ S C H E D U L E _ A M T ) , ' # , # ' , ' v i - V N ' ) E r r o r D e s c
|
|
7278
|
|
|
7279
|
- - R E T U R N ' - 1 '
|
|
7280
|
|
|
7281
|
- - E N D
|
|
7282
|
|
|
7283
|
- - - -
|
|
7284
|
|
|
7285
|
E N D
|
|
7286
|
|
|
7287
|
I F ( ( @ p _ R E Q _ T Y P E = ' P ' A N D @ p _ I S _ P E R I O D = ' Y ' ) O R @ p _ R E Q _ T Y P E = ' I ' )
|
|
7288
|
|
|
7289
|
B E G I N
|
|
7290
|
|
|
7291
|
|
|
7292
|
|
|
7293
|
D E C L A R E X m l D a t a P O C U R S O R L O C A L F O R
|
|
7294
|
|
|
7295
|
S E L E C T *
|
|
7296
|
|
|
7297
|
F R O M
|
|
7298
|
|
|
7299
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P O ' , 2 )
|
|
7300
|
|
|
7301
|
W I T H ( R E F _ I D v a r c h a r ( 1 5 ) , I S _ C L O S E D V A R C H A R ( 1 ) , R E F _ T Y P E V A R C H A R ( 1 5 ) )
|
|
7302
|
|
|
7303
|
O P E N X m l D a t a P O ;
|
|
7304
|
|
|
7305
|
S E T @ I N D E X _ P O = 0
|
|
7306
|
|
|
7307
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
7308
|
|
|
7309
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
7310
|
|
|
7311
|
B E G I N
|
|
7312
|
|
|
7313
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
7314
|
|
|
7315
|
D E C L A R E @ R E Q _ P A Y D T I D _ C V A R C H A R ( 1 5 ) ;
|
|
7316
|
|
|
7317
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ A D V A N C E _ D T ' , @ R E Q _ P A Y D T I D _ C O U T ;
|
|
7318
|
|
|
7319
|
I F @ R E Q _ P A Y D T I D _ C = ' ' O R @ R E Q _ P A Y D T I D _ C I S N U L L G O T O A B O R T ;
|
|
7320
|
|
|
7321
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ D T ( R E Q _ P A Y D T I D , R E Q _ P A Y _ I D , R E F _ I D , T Y P E , M A K E R _ I D , C R E A T E _ D T , I S _ C L O S E D , R E F _ T Y P E ) V A L U E S
|
|
7322
|
|
|
7323
|
( @ R E Q _ P A Y D T I D _ C , @ p _ R E Q _ P A Y _ I D , @ R E F _ I D , ' P A Y ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ I S _ C L O S E D , @ R E F _ T Y P E )
|
|
7324
|
|
|
7325
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
7326
|
|
|
7327
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
7328
|
|
|
7329
|
E N D
|
|
7330
|
|
|
7331
|
C L O S E X m l D a t a P O ;
|
|
7332
|
|
|
7333
|
D E A L L O C A T E X m l D a t a P O ;
|
|
7334
|
|
|
7335
|
- - - C U S O R D A N H S A C H L I C H T H A N H T O A N P O - H D
|
|
7336
|
|
|
7337
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
7338
|
|
|
7339
|
- - I N S E R T F R O M P E R I O D
|
|
7340
|
|
|
7341
|
D E C L A R E X m l D a t a P e r i o d C U R S O R L O C A L F O R
|
|
7342
|
|
|
7343
|
S E L E C T *
|
|
7344
|
|
|
7345
|
F R O M
|
|
7346
|
|
|
7347
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P e r i o d ' , 2 )
|
|
7348
|
|
|
7349
|
W I T H ( C O N T R A C T _ I D v a r c h a r ( 1 5 ) , P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
7350
|
|
|
7351
|
O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , A M T _ P A Y D E C I M A L ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) , F R O M _ D A T E V A R C H A R ( 2 0 ) , T O _ D A T E V A R C H A R ( 2 0 ) , A D _ P A Y _ I D V A R C H A R ( 1 5 ) , P R O C E S S V A R C H A R ( 5 ) , P A R E N T _ I D V A R C H A R ( 1 5 ) , P A Y _ P H A S E N V A R C H A R ( 2 5 0 ) , R E A S O N N V A R C H A R ( 2 0 0 0 ) )
|
|
7352
|
|
|
7353
|
O P E N X m l D a t a P e r i o d ;
|
|
7354
|
|
|
7355
|
D E C L A R E @ C O N T R A C T _ I D v a r c h a r ( 1 5 ) , @ P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , @ P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
7356
|
|
|
7357
|
@ O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ A M T _ P A Y _ P E R I O D D E C I M A L ( 1 8 , 2 ) , @ F R O M _ D A T E V A R C H A R ( 2 0 ) , @ T O _ D A T E V A R C H A R ( 2 0 ) , @ A D _ P A Y _ I D V A R C H A R ( 1 5 ) , @ _ P R O C E S S V A R C H A R ( 5 ) , @ P A R E N T _ I D V A R C H A R ( 1 5 ) , @ P A Y _ P H A S E N V A R C H A R ( 2 5 0 ) , @ R E A S O N _ T T D K N V A R C H A R ( 2 0 0 0 )
|
|
7358
|
|
|
7359
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
7360
|
|
|
7361
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ A D _ P A Y _ I D , @ _ P R O C E S S , @ P A R E N T _ I D , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
7362
|
|
|
7363
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
7364
|
|
|
7365
|
B E G I N
|
|
7366
|
|
|
7367
|
|
|
7368
|
|
|
7369
|
- - K H I N A O B A M G U I P H E D U Y E T T H I M O I C H E C K V A L I D A T E
|
|
7370
|
|
|
7371
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
7372
|
|
|
7373
|
B E G I N
|
|
7374
|
|
|
7375
|
|
|
7376
|
|
|
7377
|
I F ( E X I S T S ( S E L E C T C O N T R A C T _ I D
|
|
7378
|
|
|
7379
|
F R O M T R _ C O N T R A C T
|
|
7380
|
|
|
7381
|
W H E R E C O N T R A C T _ I D = @ R E F _ I D A N D C O N V E R T ( D A T E , E N D _ D T , 1 0 3 ) < C O N V E R T ( D A T E , G E T D A T E ( ) , 1 0 3 ) A N D E N D _ D T I S N O T N U L L A N D C O N T _ T Y P E = ' D K ' A N D C O N T _ T Y P E I S N O T N U L L A N D C O N T _ T Y P E < > ' ' ) )
|
|
7382
|
|
|
7383
|
B E G I N
|
|
7384
|
|
|
7385
|
R O L L B A C K T R A N S A C T I O N
|
|
7386
|
|
|
7387
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T h a n h t o ? n h ? p ? n g ? n h k ? ? ? n g ' E r r o r D e s c
|
|
7388
|
|
|
7389
|
R E T U R N ' - 1 '
|
|
7390
|
|
|
7391
|
E N D
|
|
7392
|
|
|
7393
|
|
|
7394
|
|
|
7395
|
I F ( @ N E W _ I N D E X < = @ O L D _ I N D E X A N D ( @ N E W _ I N D E X > 0 A N D @ O L D _ I N D E X > 0 ) )
|
|
7396
|
|
|
7397
|
B E G I N
|
|
7398
|
|
|
7399
|
R O L L B A C K T R A N S A C T I O N
|
|
7400
|
|
|
7401
|
S E L E C T ' - 1 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' C h ? s ? m ? i p h ? i l ? n h ? n c h ? s ? c i ' E r r o r D e s c
|
|
7402
|
|
|
7403
|
R E T U R N ' - 1 '
|
|
7404
|
|
|
7405
|
E N D
|
|
7406
|
|
|
7407
|
E N D
|
|
7408
|
|
|
7409
|
D E C L A R E @ P E R I O D _ I D V A R C H A R ( 1 5 ) ;
|
|
7410
|
|
|
7411
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ P E R I O D ' , @ P E R I O D _ I D O U T ;
|
|
7412
|
|
|
7413
|
I F @ P E R I O D _ I D = ' ' O R @ P E R I O D _ I D I S N U L L G O T O A B O R T ;
|
|
7414
|
|
|
7415
|
I N S E R T I N T O T R _ R E Q _ P A Y _ P E R I O D ( P E R I O D _ I D , R E Q _ P A Y _ I D , P A Y _ T Y P E , C O N T R A C T _ I D , P A Y _ D T _ R E A L , O L D _ I N D E X , N E W _ I N D E X , A M T _ P A Y , A U T H _ S T A T U S _ K T , C U R R E N C Y , R A T E , F R O M _ D A T E , T O _ D A T E , A D _ P A Y _ I D , P R O C E S S , P A R E N T _ I D , P A Y _ P H A S E , R E A S O N )
|
|
7416
|
|
|
7417
|
V A L U E S ( @ P E R I O D _ I D , @ p _ R E Q _ P A Y _ I D , ' P A Y ' , @ C O N T R A C T _ I D , C O N V E R T ( D A T E , @ P A Y _ D T _ R E A L , 1 0 3 ) ,
|
|
7418
|
|
|
7419
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , ' U ' , @ C U R R E N C Y , @ R A T E , C O N V E R T ( D A T E , @ F R O M _ D A T E , 1 0 3 ) , C O N V E R T ( D A T E , @ T O _ D A T E , 1 0 3 ) , @ A D _ P A Y _ I D , @ _ P R O C E S S , @ P A R E N T _ I D , @ P A Y _ P H A S E , @ R E A S O N _ T T D K )
|
|
7420
|
|
|
7421
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
7422
|
|
|
7423
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
7424
|
|
|
7425
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ A D _ P A Y _ I D , @ _ P R O C E S S , @ P A R E N T _ I D , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
7426
|
|
|
7427
|
E N D
|
|
7428
|
|
|
7429
|
C L O S E X m l D a t a P e r i o d ;
|
|
7430
|
|
|
7431
|
D E A L L O C A T E X m l D a t a P e r i o d ;
|
|
7432
|
|
|
7433
|
- - V A L I D A T E S O T I E N
|
|
7434
|
|
|
7435
|
- - I F ( @ p _ R E Q _ A M T > = @ T O T A L _ S C H E D U L E _ A M T )
|
|
7436
|
|
|
7437
|
- - B E G I N
|
|
7438
|
|
|
7439
|
- - R O L L B A C K T R A N S A C T I O N
|
|
7440
|
|
|
7441
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' S ? t i ? n t h a n h t o ? n p h ? i n h ? h ? n h o ? c b ? n g t ? n g s ? t i ? n c ? n l ? i c ? n t h a n h t o ? n : ' + F O R M A T ( S U M ( @ T O T A L _ S C H E D U L E _ A M T ) , ' # , # ' , ' v i - V N ' ) E r r o r D e s c
|
|
7442
|
|
|
7443
|
- - R E T U R N ' - 1 '
|
|
7444
|
|
|
7445
|
- - E N D
|
|
7446
|
|
|
7447
|
- - - -
|
|
7448
|
|
|
7449
|
E N D
|
|
7450
|
|
|
7451
|
C O M M I T T R A N S A C T I O N
|
|
7452
|
|
|
7453
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' ) - - B A T D A U G U I P H E D U Y E T
|
|
7454
|
|
|
7455
|
B E G I N
|
|
7456
|
|
|
7457
|
- - R O L L B A C K T R A N S A C T I O N
|
|
7458
|
|
|
7459
|
- - C A P N H A T T I N H T R A N G D U Y E T K E T O A N L A D A N G X U L Y
|
|
7460
|
|
|
7461
|
D E C L A R E @ B R A N C H _ T Y P E _ C R V A R C H A R ( 1 5 )
|
|
7462
|
|
|
7463
|
S E T @ B R A N C H _ T Y P E _ C R = ( S E L E C T T O P 1 B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E )
|
|
7464
|
|
|
7465
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y M E N T W H E R E T R A S F E R _ U S E R _ R E C I V E = ' ' O R T R A S F E R _ U S E R _ R E C I V E I S N U L L ) A N D @ B R A N C H _ T Y P E _ C R = ' P G D ' )
|
|
7466
|
|
|
7467
|
B E G I N
|
|
7468
|
|
|
7469
|
D E C L A R E @ U S E R _ T P G D V A R C H A R ( 1 5 )
|
|
7470
|
|
|
7471
|
S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R W H E R E S E C U R _ C O D E = @ p _ D E P _ I D A N D
|
|
7472
|
|
|
7473
|
( R o l e N a m e I N ( ' T P G D ' ) O R R o l e N a m e I N ( S E L E C T R O L E _ O L D F R O M T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ N E W = ' G D D V ' ) ) )
|
|
7474
|
|
|
7475
|
I F ( @ U S E R _ T P G D I S N U L L O R @ U S E R _ T P G D = ' ' )
|
|
7476
|
|
|
7477
|
B E G I N
|
|
7478
|
|
|
7479
|
S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R _ V 2 W H E R E T L S U B B R I D = @ p _ B R A N C H _ C R E A T E
|
|
7480
|
|
|
7481
|
A N D R o l e N a m e = ' T P G D ' )
|
|
7482
|
|
|
7483
|
E N D
|
|
7484
|
|
|
7485
|
U P D A T E T R _ R E Q _ P A Y M E N T S E T T R A S F E R _ U S E R _ R E C I V E = @ U S E R _ T P G D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
7486
|
|
|
7487
|
E N D
|
|
7488
|
|
|
7489
|
U P D A T E T R _ R E Q _ P A Y M E N T S E T A U T H _ S T A T U S = ' U ' W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
7490
|
|
|
7491
|
I N S E R T I N T O d b o . P L _ P R O C E S S ( R E Q _ I D , P R O C E S S _ I D , C H E C K E R _ I D , A P P R O V E _ D T , P R O C E S S _ D E S C , N O T E S )
|
|
7492
|
|
|
7493
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , ' S E N D ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , N ' ? n v ? g ? i p h ? d u y ? t ' , N ' ? n v ? t ? o p h i ? u t h a n h t o ? n v ? g ? i p h ? d u y ? t ' )
|
|
7494
|
|
|
7495
|
S E L E C T ' 4 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D A S R E Q _ P A Y _ I D , N ' G ? i p h ? d u y ? t t h ? n h c ? n g ' E r r o r D e s c
|
|
7496
|
|
|
7497
|
R E T U R N ' 4 '
|
|
7498
|
|
|
7499
|
E N D
|
|
7500
|
|
|
7501
|
S E L E C T ' 0 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , @ p _ R E Q _ P A Y _ C O D E A S R E Q _ P A Y _ C O D E , ' ' E r r o r D e s c
|
|
7502
|
|
|
7503
|
R E T U R N ' 0 '
|
|
7504
|
|
|
7505
|
A B O R T :
|
|
7506
|
|
|
7507
|
B E G I N
|
|
7508
|
|
|
7509
|
R O L L B A C K T R A N S A C T I O N
|
|
7510
|
|
|
7511
|
C L O S E X m l D a t a ;
|
|
7512
|
|
|
7513
|
D E A L L O C A T E X m l D a t a ;
|
|
7514
|
|
|
7515
|
C L O S E X m l D a t a P a y ;
|
|
7516
|
|
|
7517
|
D E A L L O C A T E X m l D a t a P a y ;
|
|
7518
|
|
|
7519
|
C l o s e X m l D a t a M e t h o d ;
|
|
7520
|
|
|
7521
|
C l o s e X m l D a t a C a t ;
|
|
7522
|
|
|
7523
|
C L O S E X m l D a t a S e r v i c e ;
|
|
7524
|
|
|
7525
|
C L O S E X m l D a t a S c h e d u l e ;
|
|
7526
|
|
|
7527
|
D e a l l o c a t e X m l D a t a M e t h o d ;
|
|
7528
|
|
|
7529
|
D e a l l o c a t e X m l D a t a C a t ;
|
|
7530
|
|
|
7531
|
D E A L L O C A T E X m l D a t a S e r v i c e ;
|
|
7532
|
|
|
7533
|
D E A L L O C A T E X m l D a t a S c h e d u l e ;
|
|
7534
|
|
|
7535
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , ' ' E r r o r D e s c
|
|
7536
|
|
|
7537
|
R E T U R N ' - 1 '
|
|
7538
|
|
|
7539
|
E n d
|
|
7540
|
|
|
7541
|
|
|
7542
|
|
|
7543
|
G O
|
|
7544
|
|
|
7545
|
/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ T R _ R E Q _ P A Y M E N T _ S e a r c h ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 1 A M * * * * * * /
|
|
7546
|
|
|
7547
|
S E T A N S I _ N U L L S O N
|
|
7548
|
|
|
7549
|
G O
|
|
7550
|
|
|
7551
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
7552
|
|
|
7553
|
G O
|
|
7554
|
|
|
7555
|
C R E A T E P R O C E D U R E [ d b o ] . [ T R _ R E Q _ P A Y M E N T _ S e a r c h ]
|
|
7556
|
|
|
7557
|
@ p _ R E Q _ P A Y _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
7558
|
|
|
7559
|
@ p _ R E Q _ P A Y _ C O D E v a r c h a r ( 5 0 ) = N U L L ,
|
|
7560
|
|
|
7561
|
@ p _ R E Q _ D T V A R C H A R ( 2 0 ) = N U L L ,
|
|
7562
|
|
|
7563
|
@ p _ B R A N C H _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
7564
|
|
|
7565
|
@ p _ D E P _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
7566
|
|
|
7567
|
@ p _ R E Q _ R E A S O N n v a r c h a r ( M A X ) = N U L L ,
|
|
7568
|
|
|
7569
|
@ p _ R E Q _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
7570
|
|
|
7571
|
@ P _ R E Q _ E N T R I E S n v a r c h a r ( M A X ) = N U L L ,
|
|
7572
|
|
|
7573
|
@ p _ R E Q _ D E S C R I P T I O N n v a r c h a r ( M A X ) = N U L L ,
|
|
7574
|
|
|
7575
|
@ p _ R E F _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
7576
|
|
|
7577
|
@ p _ R E C E I V E R _ P O n v a r c h a r ( 2 5 0 ) = N U L L ,
|
|
7578
|
|
|
7579
|
@ p _ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
7580
|
|
|
7581
|
@ p _ R E Q _ T Y P E _ C U R R E N C Y n v a r c h a r ( 5 0 ) = N U L L ,
|
|
7582
|
|
|
7583
|
@ p _ R E Q _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
7584
|
|
|
7585
|
@ p _ R E Q _ T E M P _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
7586
|
|
|
7587
|
@ p _ M A K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
7588
|
|
|
7589
|
@ p _ C R E A T E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
7590
|
|
|
7591
|
@ p _ E D I T O R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
7592
|
|
|
7593
|
@ p _ A U T H _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
7594
|
|
|
7595
|
@ p _ C H E C K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
7596
|
|
|
7597
|
@ p _ A P P R O V E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
7598
|
|
|
7599
|
@ p _ C R E A T E _ D T _ K T v a r c h a r ( 2 5 ) = N U L L ,
|
|
7600
|
|
|
7601
|
@ p _ M A K E R _ I D _ K T v a r c h a r ( 1 5 ) = N U L L ,
|
|
7602
|
|
|
7603
|
@ p _ A U T H _ S T A T U S _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
7604
|
|
|
7605
|
@ p _ C H E C K E R _ I D _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
7606
|
|
|
7607
|
@ p _ A P P R O V E _ D T _ K T v a r c h a r ( 2 5 ) = n u l l ,
|
|
7608
|
|
|
7609
|
@ p _ C O N F I R M _ N O T E n v a r c h a r ( 5 0 0 ) = N U L L ,
|
|
7610
|
|
|
7611
|
@ p _ B R A N C H _ C R E A T E v a r c h a r ( 1 5 ) = N U L L ,
|
|
7612
|
|
|
7613
|
@ p _ N O T E S v a r c h a r ( 1 5 ) = N U L L ,
|
|
7614
|
|
|
7615
|
@ p _ R E C O R D _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
7616
|
|
|
7617
|
@ p _ T R A N S F E R _ M A K E R n v a r c h a r ( 5 0 ) = N U L L ,
|
|
7618
|
|
|
7619
|
@ p _ T R A N S F E R _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
7620
|
|
|
7621
|
@ p _ T R A S F E R _ U S E R _ R E C I V E v a r c h a r ( 1 5 ) = N U L L ,
|
|
7622
|
|
|
7623
|
@ p _ P R O C E S S v a r c h a r ( 1 5 ) = N U L L ,
|
|
7624
|
|
|
7625
|
@ p _ P A Y _ P H A S E V A R C H A R ( 1 5 ) = N U L L ,
|
|
7626
|
|
|
7627
|
@ p _ T O P I N T = 1 0 ,
|
|
7628
|
|
|
7629
|
@ p _ L E V E L v a r c h a r ( 1 0 ) = N U L L ,
|
|
7630
|
|
|
7631
|
@ p _ F R M D A T E V A R C H A R ( 2 0 ) = N U L L ,
|
|
7632
|
|
|
7633
|
@ p _ T O D A T E V A R C H A R ( 2 0 ) = N U L L ,
|
|
7634
|
|
|
7635
|
@ p _ B R A N C H _ L O G I N V A R C H A R ( 1 5 ) = N U L L ,
|
|
7636
|
|
|
7637
|
@ p _ I S _ U P D A T E _ K T V A R C H A R ( 1 5 ) = N U L L ,
|
|
7638
|
|
|
7639
|
@ P _ I S _ T R A N S F E R V A R C H A R ( 1 5 ) = N U L L ,
|
|
7640
|
|
|
7641
|
@ p _ T E R M _ I D V A R C H A R ( 1 5 ) = N U L L ,
|
|
7642
|
|
|
7643
|
@ P _ U S E R _ L O G I N V A R C H A R ( 1 5 ) = N U L L ,
|
|
7644
|
|
|
7645
|
@ p _ F U N C T I O N V A R C H A R ( 1 5 ) = N U L L ,
|
|
7646
|
|
|
7647
|
@ p _ T Y P E _ S E A R C H V A R C H A R ( 1 5 ) = N U L L
|
|
7648
|
|
|
7649
|
A S
|
|
7650
|
|
|
7651
|
S E T @ p _ T O P = N U L L
|
|
7652
|
|
|
7653
|
d e c l a r e @ t m p t a b l e ( B R A N C H _ I D v a r c h a r ( 1 5 ) )
|
|
7654
|
|
|
7655
|
i n s e r t i n t o @ t m p S E L E C T B R A N C H _ I D F R O M [ d b o ] . [ C M _ B R A N C H _ G E T C H I L D I D ] ( @ p _ B R A N C H _ I D )
|
|
7656
|
|
|
7657
|
d e c l a r e @ t m p _ L o g i n t a b l e ( B R A N C H _ I D v a r c h a r ( 1 5 ) )
|
|
7658
|
|
|
7659
|
i n s e r t i n t o @ t m p _ L o g i n S E L E C T B R A N C H _ I D F R O M [ d b o ] . [ C M _ B R A N C H _ G E T C H I L D I D ] ( @ p _ B R A N C H _ L O G I N )
|
|
7660
|
|
|
7661
|
D E C L A R E @ R O L E _ I D V A R C H A R ( 2 0 ) , @ D E P _ I D _ L G V A R C H A R ( 1 5 ) = N U L L , @ C O S T _ L G V A R C H A R ( 1 5 ) , @ D V D M _ I D V A R C H A R ( 1 5 )
|
|
7662
|
|
|
7663
|
D E C L A R E @ B R A N C H _ T Y P E V A R C H A R ( 1 5 )
|
|
7664
|
|
|
7665
|
S E T @ B R A N C H _ T Y P E = ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = ( S E L E C T B R A N C H _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D ) )
|
|
7666
|
|
|
7667
|
S E T @ R O L E _ I D = ( S E L E C T R O L E N A M E F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ U S E R _ L O G I N )
|
|
7668
|
|
|
7669
|
S E T @ D E P _ I D _ L G = ( S E L E C T S E C U R _ C O D E F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ U S E R _ L O G I N )
|
|
7670
|
|
|
7671
|
D E C L A R E @ T M P _ D E P T A B L E ( D E P _ I D V A R C H A R ( 1 5 ) )
|
|
7672
|
|
|
7673
|
S E T @ C O S T _ L G = ( S E L E C T T O P 1 C O S T _ I D F R O M P L _ C O S T C E N T E R _ D T W H E R E D E P _ I D = @ D E P _ I D _ L G )
|
|
7674
|
|
|
7675
|
S E T @ D V D M _ I D = ( S E L E C T T O P 1 D V D M _ I D F R O M P L _ C O S T C E N T E R W H E R E C O S T _ I D = @ C O S T _ L G )
|
|
7676
|
|
|
7677
|
I N S E R T I N T O @ T M P _ D E P S E L E C T B . D E P _ I D F R O M P L _ C O S T C E N T E R _ D T B W H E R E C O S T _ I D = @ C O S T _ L G
|
|
7678
|
|
|
7679
|
D E C L A R E @ B R A N C H _ T Y P E _ L G V A R C H A R ( 1 5 )
|
|
7680
|
|
|
7681
|
S E T @ B R A N C H _ T Y P E _ L G = ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ L O G I N )
|
|
7682
|
|
|
7683
|
|
|
7684
|
|
|
7685
|
- - I F ( E X I S T S ( S E L E C T * F R O M d b o . T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ O L D = @ R O L E _ I D ) )
|
|
7686
|
|
|
7687
|
- - S E T @ R O L E _ I D = ( S E L E C T R O L E _ N E W F R O M d b o . T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ O L D = @ R O L E _ I D )
|
|
7688
|
|
|
7689
|
S E T @ R O L E _ I D = ( S E L E C T T O P 1 R o l e N a m e F R O M T L _ U S E R _ V 2 W H E R E T L N A N M E = @ p _ U S E R _ L O G I N )
|
|
7690
|
|
|
7691
|
|
|
7692
|
|
|
7693
|
I F ( @ p _ T O P = N U L L O R @ p _ T O P = ' ' O R @ p _ T O P = 0 ) B E G I N
|
|
7694
|
|
|
7695
|
S E L E C T A . * , B . A U T H _ S T A T U S _ N A M E , C . A U T H _ S T A T U S _ N A M E A U T H _ S T A T U S _ N A M E _ K T , T L . T L F u l l N a m e C R E A T E _ F U L L N A M E ,
|
|
7696
|
|
|
7697
|
T L 1 . T L F u l l N a m e A P P R O V E _ F U L L N A M E , T L 2 . T L F u l l N a m e C R E A T E _ F U L L N A M E _ K T , T L 3 . T L F u l l N a m e A P P R O V E _ F U L L N A M E _ K T ,
|
|
7698
|
|
|
7699
|
B R . B R A N C H _ N A M E B R A N C H _ N A M E _ R E Q , B R 1 . B R A N C H _ N A M E B R A N C H _ N A M E _ C R E , D P . D E P _ N A M E , D P . D E P _ C O D E , B R . B R A N C H _ C O D E B R A N C H _ C O D E _ R E Q ,
|
|
7700
|
|
|
7701
|
- - L u a n l t - - 2 0 1 9 / 1 0 / 1 5 - S ? a A L , A L 1
|
|
7702
|
|
|
7703
|
B R 1 . B R A N C H _ C O D E B R A N C H _ C O D E _ C R E , A L . C O N T E N T R E Q _ T Y P E _ N A M E , A L 1 . C O N T E N T R E Q _ P A Y _ T Y P E _ N A M E , I S N U L L ( ( A . R E Q _ A M T - H . S O T I E N _ T T ) , 0 ) A S T O T A L _ A M T _ T E M P ,
|
|
7704
|
|
|
7705
|
I S N U L L ( H . S O T I E N _ T T , 0 ) T O T A L _ A M T _ P A Y _ H I S ,
|
|
7706
|
|
|
7707
|
T L 4 . T L F u l l N a m e A S T R A N S F E R _ F U L L N A M E , T L 5 . T L F u l l N a m e A S T R A N S F E R _ R E C I E V E R _ F U L L N A M E , ' ' E M P _ F U L L N A M E , P O . P O _ C O D E , P O . P O _ N A M E , S . S U P _ N A M E , S . T A X _ N O S U P _ T A X _ N O ,
|
|
7708
|
|
|
7709
|
P C 3 . L E V E L _ J O B , P C 3 . S T A T U S _ J O B , P C 3 . T Y P E _ J O B , P C 3 . T L N A M E A S E X E C _ U S E R , @ p _ T Y P E _ S E A R C H A S T Y P E _ S E A R C H , S R . R O L E _ I D A S R O L E _ I D _ C R E , ' ' A S B R A N C H _ T Y P E _ C R
|
|
7710
|
|
|
7711
|
F R O M T R _ R E Q _ P A Y M E N T A
|
|
7712
|
|
|
7713
|
L E F T J O I N C M _ A U T H _ S T A T U S B O N A . A U T H _ S T A T U S = B . A U T H _ S T A T U S
|
|
7714
|
|
|
7715
|
L E F T J O I N C M _ A U T H _ S T A T U S C O N A . A U T H _ S T A T U S _ K T = C . A U T H _ S T A T U S
|
|
7716
|
|
|
7717
|
L E F T J O I N T L _ U S E R T L O N A . M A K E R _ I D = T L . T L N A N M E
|
|
7718
|
|
|
7719
|
L E F T J O I N T L _ U S E R T L 1 O N A . C H E C K E R _ I D = T L 1 . T L N A N M E
|
|
7720
|
|
|
7721
|
L E F T J O I N T L _ U S E R T L 2 O N A . M A K E R _ I D _ K T = T L 2 . T L N A N M E
|
|
7722
|
|
|
7723
|
L E F T J O I N T L _ U S E R T L 3 O N A . C H E C K E R _ I D _ K T = T L 3 . T L N A N M E
|
|
7724
|
|
|
7725
|
L E F T J O I N d b o . C M _ B R A N C H B R O N A . B R A N C H _ I D = B R . B R A N C H _ I D
|
|
7726
|
|
|
7727
|
L E F T J O I N d b o . C M _ B R A N C H B R 1 O N A . B R A N C H _ C R E A T E = B R 1 . B R A N C H _ I D
|
|
7728
|
|
|
7729
|
L E F T J O I N d b o . C M _ D E P A R T M E N T D P O N D P . D E P _ I D = A . D E P _ I D
|
|
7730
|
|
|
7731
|
- - L u a n l t - - 2 0 1 9 / 1 0 / 1 5 - S ? a A L , A L 1
|
|
7732
|
|
|
7733
|
L E F T J O I N C M _ A L L C O D E A L O N A . R E Q _ T Y P E = A L . C D V A L A N D A L . C D N A M E = ' P A Y _ T Y P E ' - - L o ? i t h a n h t o ? n ( N ? i b ? / T h a n h t o ? n / N ? )
|
|
7734
|
|
|
7735
|
L E F T J O I N C M _ A L L C O D E A L 1 O N A . R E Q _ P A Y _ T Y P E = A L 1 . C D V A L A N D A L 1 . C D N A M E = ' R E Q _ P A Y _ T Y P E ' - - H ? n h t h ? c t h a n h t o ? n ( T i ? n m ? t / C h u y ? n k h o ? n )
|
|
7736
|
|
|
7737
|
L E F T J O I N T L _ U S E R T L 4 O N A . T R A N S F E R _ M A K E R = T L 4 . T L N A N M E
|
|
7738
|
|
|
7739
|
L E F T J O I N T L _ U S E R T L 5 O N A . T R A S F E R _ U S E R _ R E C I V E = T L 5 . T L N A N M E
|
|
7740
|
|
|
7741
|
L E F T J O I N
|
|
7742
|
|
|
7743
|
(
|
|
7744
|
|
|
7745
|
S E L E C T P A Y _ A D V _ I D , S U M ( A M T _ P A Y ) S O T I E N _ T T F R O M T R _ R E Q _ P A Y M E N T _ D T W H E R E A U T H _ S T A T U S _ K T = ' A ' G R O U P B Y P A Y _ A D V _ I D
|
|
7746
|
|
|
7747
|
) H O N A . R E Q _ P A Y _ I D = H . P A Y _ A D V _ I D
|
|
7748
|
|
|
7749
|
L E F T J O I N T R _ P O _ M A S T E R P O O N A . R E F _ I D = P O . P O _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
7750
|
|
|
7751
|
L E F T J O I N C M _ S U P P L I E R S O N S . S U P _ I D = P O . S U P _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
7752
|
|
|
7753
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S _ C H I L D P C 3 O N P C 3 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 3 . S T A T U S _ J O B = ' C '
|
|
7754
|
|
|
7755
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S _ C H I L D P C 4 O N P C 4 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 4 . S T A T U S _ J O B = ' C '
|
|
7756
|
|
|
7757
|
L E F T J O I N T L _ S Y S R O L E S R O N T L . R o l e N a m e = S R . R O L E _ I D
|
|
7758
|
|
|
7759
|
W H E R E 1 = 1
|
|
7760
|
|
|
7761
|
A N D ( A . A U T H _ S T A T U S = @ p _ A U T H _ S T A T U S O R @ p _ A U T H _ S T A T U S = ' ' O R @ p _ A U T H _ S T A T U S I S N U L L )
|
|
7762
|
|
|
7763
|
A N D ( ( @ p _ L E V E L = ' A L L ' A N D A . B R A N C H _ C R E A T E I N ( S E L E C T B R A N C H _ I D F R O M @ t m p ) )
|
|
7764
|
|
|
7765
|
O R ( ( @ p _ L E V E L = ' U N I T ' A N D A . B R A N C H _ C R E A T E = @ p _ B R A N C H _ C R E A T E ) O R ( @ p _ B R A N C H _ C R E A T E = ' ' O R @ p _ B R A N C H _ C R E A T E I S N U L L ) ) )
|
|
7766
|
|
|
7767
|
A N D ( ( A . M A K E R _ I D _ K T I S N O T N U L L A N D @ p _ I S _ U P D A T E _ K T = ' Y ' ) - - L a y d a n h s a c h c h u a d u o c p h o n g K T c a p n h a t v a d u o c c a p n h a t
|
|
7768
|
|
|
7769
|
O R ( ( A . M A K E R _ I D _ K T I S N U L L A N D @ p _ I S _ U P D A T E _ K T = ' N ' ) ) O R @ p _ I S _ U P D A T E _ K T I S N U L L O R @ p _ I S _ U P D A T E _ K T = ' ' )
|
|
7770
|
|
|
7771
|
A N D ( A . N O T E S L I K E N ' % ' + @ p _ N O T E S + ' % ' O R @ p _ N O T E S = ' ' O R @ p _ N O T E S I S N U L L )
|
|
7772
|
|
|
7773
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 4 - T h ? m F i l t e r R E Q _ T Y P E , F R O M D A T E T O D A T E R E F _ I D
|
|
7774
|
|
|
7775
|
A N D ( A . R E Q _ T Y P E L I K E N ' % ' + @ p _ R E Q _ T Y P E + ' % ' O R @ p _ R E Q _ T Y P E = ' ' O R @ p _ R E Q _ T Y P E I S N U L L )
|
|
7776
|
|
|
7777
|
A N D ( C O N V E R T ( D A T E , A . C R E A T E _ D T ) > = C O N V E R T ( D A T E , @ p _ F R M D A T E , 1 0 3 ) O R @ p _ F R M D A T E I S N U L L O R @ p _ F R M D A T E = ' ' )
|
|
7778
|
|
|
7779
|
A N D ( C O N V E R T ( D A T E , A . C R E A T E _ D T ) < = C O N V E R T ( D A T E , @ p _ T O D A T E , 1 0 3 ) O R @ p _ T O D A T E I S N U L L O R @ p _ T O D A T E = ' ' )
|
|
7780
|
|
|
7781
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 7 - T h ? m F i l t e r R E Q _ P A Y _ C O D E R E Q _ P A Y _ N A M E B R A N C H _ I D D E P _ I D K T _ A U T H
|
|
7782
|
|
|
7783
|
A N D ( A . R E Q _ P A Y _ C O D E L I K E N ' % ' + @ p _ R E Q _ P A Y _ C O D E + ' % ' o r @ p _ R E Q _ P A Y _ C O D E = ' ' O R @ p _ R E Q _ P A Y _ C O D E I S N U L L )
|
|
7784
|
|
|
7785
|
A N D ( A . T R A S F E R _ U S E R _ R E C I V E = @ p _ T R A S F E R _ U S E R _ R E C I V E o r @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R A . M A K E R _ I D _ K T I S N O T N U L L O R A . M A K E R _ I D _ K T < > ' ' )
|
|
7786
|
|
|
7787
|
A N D ( A . B R A N C H _ C R E A T E = @ p _ B R A N C H _ C R E A T E o r @ p _ B R A N C H _ C R E A T E = ' ' O R @ p _ B R A N C H _ C R E A T E I S N U L L )
|
|
7788
|
|
|
7789
|
A N D ( A . D E P _ I D = @ p _ D E P _ I D o r @ p _ D E P _ I D = ' ' O R @ p _ D E P _ I D I S N U L L )
|
|
7790
|
|
|
7791
|
A N D ( A . A U T H _ S T A T U S _ K T = @ p _ A U T H _ S T A T U S _ K T O R @ p _ A U T H _ S T A T U S _ K T = ' ' O R @ p _ A U T H _ S T A T U S _ K T I S N U L L )
|
|
7792
|
|
|
7793
|
A N D ( A . R E F _ I D = @ p _ R E F _ I D O R @ p _ R E F _ I D = ' ' O R @ p _ R E F _ I D I S N U L L )
|
|
7794
|
|
|
7795
|
- - N e u b e n p h a n h e k e t o a n t h i c h i l a y n h u n g u s e r c o m a k e r _ i d k h a c n u l l
|
|
7796
|
|
|
7797
|
A N D ( ( @ p _ F U N C T I O N = ' K T ' A N D A . M A K E R _ I D _ K T I S N O T N U L L A N D A . M A K E R _ I D _ K T = ' ' ) O R @ p _ F U N C T I O N I S N U L L O R @ p _ F U N C T I O N = ' ' O R @ p _ F U N C T I O N = ' T F ' )
|
|
7798
|
|
|
7799
|
A N D ( P C 4 . T L N A M E = @ p _ T R A S F E R _ U S E R _ R E C I V E O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' )
|
|
7800
|
|
|
7801
|
- - B O S U N G D O A N C O D E D O D O N V I T H I T R U O N G P H O N G N A O C H I D U O C T H A Y C A C G I A O D I C H C U A P H O N G D O T H O I
|
|
7802
|
|
|
7803
|
- - N E U L A P H I E U D E N G H I T A M U N G N O I B O D O H O I S O T A O T H I T R U O N G P H O N G C H I D U O C P H E P T H A Y C A C G I A O D I C H D O N H A N V I E N C U A M I N H T A O
|
|
7804
|
|
|
7805
|
- - A N D (
|
|
7806
|
|
|
7807
|
- - ( @ p _ F U N C T I O N < > ' T F ' A N D A . R E Q _ T Y P E I N ( ' I ' , ' P ' , ' D ' ) A N D E X I S T S ( S E L E C T * F R O M C M _ B R A N C H W H E R E B R A N C H _ T Y P E = ' H S ' A N D B R A N C H _ I D = A . B R A N C H _ I D ) A N D A . D E P _ I D = @ D E P _ I D _ L G )
|
|
7808
|
|
|
7809
|
- - O R ( @ p _ F U N C T I O N < > ' T F ' A N D E X I S T S ( S E L E C T * F R O M C M _ B R A N C H W H E R E B R A N C H _ T Y P E I N ( ' C N ' , ' P G D ' ) A N D B R A N C H _ I D = A . B R A N C H _ I D ) )
|
|
7810
|
|
|
7811
|
- - O R ( @ p _ F U N C T I O N = ' T F ' A N D A . B R A N C H _ C R E A T E I N ( S E L E C T B R A N C H _ I D F R O M @ t m p _ L o g i n ) )
|
|
7812
|
|
|
7813
|
- - )
|
|
7814
|
|
|
7815
|
- - - C H E C K N E U T I M K I E M O H C Q T T H I P H O N G B A N N A O T H A Y G I A O D I C H C U A P H O N G B A N D O
|
|
7816
|
|
|
7817
|
A N D ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D E X I S T S ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = A . B R A N C H _ I D A N D B R A N C H _ T Y P E = ' H S ' )
|
|
7818
|
|
|
7819
|
A N D ( ( ( A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' O R A . T R A S F E R _ U S E R _ R E C I V E I S N U L L O R A . T R A S F E R _ U S E R _ R E C I V E = ' ' ) A N D ( S E L E C T S E C U R _ C O D E F R O M T L _ U S E R W H E R E T L N A N M E = A . M A K E R _ I D ) = ( S E L E C T S E C U R _ C O D E F R O M T L _ U S E R W H E R E T L N A N M E = @ p _ U S E R _ L O G I N ) )
|
|
7820
|
|
|
7821
|
O R ( A . M A K E R _ I D = @ P _ U S E R _ L O G I N O R A . T R A S F E R _ U S E R _ R E C I V E = @ p _ U S E R _ L O G I N ) )
|
|
7822
|
|
|
7823
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D N O T E X I S T S ( S E L E C T B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = A . B R A N C H _ I D A N D B R A N C H _ T Y P E = ' H S ' )
|
|
7824
|
|
|
7825
|
A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D f r o m @ t m p _ L o g i n ) )
|
|
7826
|
|
|
7827
|
- - H O A C N G U O C L A I N E U H C N H U N G P H I E U D U O C T A O O P G D , C N
|
|
7828
|
|
|
7829
|
O R ( @ p _ T Y P E _ S E A R C H = ' K T ' A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D f r o m @ t m p _ L o g i n ) )
|
|
7830
|
|
|
7831
|
O R @ p _ T Y P E _ S E A R C H I S N U L L O R @ p _ T Y P E _ S E A R C H = ' ' )
|
|
7832
|
|
|
7833
|
O R D E R B Y A . C R E A T E _ D T D E S C ;
|
|
7834
|
|
|
7835
|
E N D ;
|
|
7836
|
|
|
7837
|
E L S E B E G I N
|
|
7838
|
|
|
7839
|
S E L E C T A . * , B . A U T H _ S T A T U S _ N A M E , C . A U T H _ S T A T U S _ N A M E A U T H _ S T A T U S _ N A M E _ K T , T L . T L F u l l N a m e C R E A T E _ F U L L N A M E ,
|
|
7840
|
|
|
7841
|
T L 1 . T L F u l l N a m e A P P R O V E _ F U L L N A M E , T L 2 . T L F u l l N a m e C R E A T E _ F U L L N A M E _ K T , T L 3 . T L F u l l N a m e A P P R O V E _ F U L L N A M E _ K T ,
|
|
7842
|
|
|
7843
|
B R . B R A N C H _ N A M E B R A N C H _ N A M E _ R E Q , B R 1 . B R A N C H _ N A M E B R A N C H _ N A M E _ C R E , D P . D E P _ N A M E , D P . D E P _ C O D E , B R . B R A N C H _ C O D E B R A N C H _ C O D E _ R E Q ,
|
|
7844
|
|
|
7845
|
- - L u a n l t - - 2 0 1 9 / 1 0 / 1 5 - S ? a A L , A L 1
|
|
7846
|
|
|
7847
|
B R 1 . B R A N C H _ C O D E B R A N C H _ C O D E _ C R E , A L . C O N T E N T R E Q _ T Y P E _ N A M E , A L 1 . C O N T E N T R E Q _ P A Y _ T Y P E _ N A M E , I S N U L L ( ( A . R E Q _ A M T - H . S O T I E N _ T T ) , 0 ) A S T O T A L _ A M T _ T E M P ,
|
|
7848
|
|
|
7849
|
I S N U L L ( H . S O T I E N _ T T , 0 ) T O T A L _ A M T _ P A Y _ H I S ,
|
|
7850
|
|
|
7851
|
T L 4 . T L F u l l N a m e A S T R A N S F E R _ F U L L N A M E , T L 5 . T L F u l l N a m e A S T R A N S F E R _ R E C I E V E R _ F U L L N A M E , ' ' E M P _ F U L L N A M E , P O . P O _ C O D E , P O . P O _ N A M E , S . S U P _ N A M E , S . T A X _ N O S U P _ T A X _ N O ,
|
|
7852
|
|
|
7853
|
P C 3 . L E V E L _ J O B , P C 3 . S T A T U S _ J O B , P C 3 . T Y P E _ J O B , P C 3 . T L N A M E A S E X E C _ U S E R , @ p _ T Y P E _ S E A R C H A S T Y P E _ S E A R C H , S R . R O L E _ I D A S R O L E _ I D _ C R E , B R 1 . B R A N C H _ T Y P E A S B R A N C H _ T Y P E _ C R
|
|
7854
|
|
|
7855
|
F R O M T R _ R E Q _ P A Y M E N T A
|
|
7856
|
|
|
7857
|
L E F T J O I N C M _ A U T H _ S T A T U S B O N A . A U T H _ S T A T U S = B . A U T H _ S T A T U S
|
|
7858
|
|
|
7859
|
L E F T J O I N C M _ A U T H _ S T A T U S C O N A . A U T H _ S T A T U S _ K T = C . A U T H _ S T A T U S
|
|
7860
|
|
|
7861
|
L E F T J O I N T L _ U S E R T L O N A . M A K E R _ I D = T L . T L N A N M E
|
|
7862
|
|
|
7863
|
L E F T J O I N T L _ U S E R T L 1 O N A . C H E C K E R _ I D = T L 1 . T L N A N M E
|
|
7864
|
|
|
7865
|
L E F T J O I N T L _ U S E R T L 2 O N A . M A K E R _ I D _ K T = T L 2 . T L N A N M E
|
|
7866
|
|
|
7867
|
L E F T J O I N T L _ U S E R T L 3 O N A . C H E C K E R _ I D _ K T = T L 3 . T L N A N M E
|
|
7868
|
|
|
7869
|
L E F T J O I N d b o . C M _ B R A N C H B R O N A . B R A N C H _ I D = B R . B R A N C H _ I D
|
|
7870
|
|
|
7871
|
L E F T J O I N d b o . C M _ B R A N C H B R 1 O N A . B R A N C H _ C R E A T E = B R 1 . B R A N C H _ I D
|
|
7872
|
|
|
7873
|
L E F T J O I N d b o . C M _ D E P A R T M E N T D P O N D P . D E P _ I D = A . D E P _ I D
|
|
7874
|
|
|
7875
|
- - L u a n l t - - 2 0 1 9 / 1 0 / 1 5 - S ? a A L , A L 1
|
|
7876
|
|
|
7877
|
L E F T J O I N C M _ A L L C O D E A L O N A . R E Q _ T Y P E = A L . C D V A L A N D A L . C D N A M E = ' P A Y _ T Y P E '
|
|
7878
|
|
|
7879
|
L E F T J O I N C M _ A L L C O D E A L 1 O N A . R E Q _ P A Y _ T Y P E = A L 1 . C D V A L A N D A L 1 . C D N A M E = ' R E Q _ P A Y _ T Y P E '
|
|
7880
|
|
|
7881
|
L E F T J O I N T L _ U S E R T L 4 O N A . T R A N S F E R _ M A K E R = T L 4 . T L N A N M E
|
|
7882
|
|
|
7883
|
L E F T J O I N T L _ U S E R T L 5 O N A . T R A S F E R _ U S E R _ R E C I V E = T L 5 . T L N A N M E
|
|
7884
|
|
|
7885
|
L E F T J O I N
|
|
7886
|
|
|
7887
|
(
|
|
7888
|
|
|
7889
|
S E L E C T P A Y _ A D V _ I D , S U M ( A M T _ P A Y ) S O T I E N _ T T F R O M T R _ R E Q _ P A Y M E N T _ D T W H E R E A U T H _ S T A T U S _ K T = ' A ' G R O U P B Y P A Y _ A D V _ I D
|
|
7890
|
|
|
7891
|
) H O N A . R E Q _ P A Y _ I D = H . P A Y _ A D V _ I D
|
|
7892
|
|
|
7893
|
L E F T J O I N T R _ P O _ M A S T E R P O O N A . R E F _ I D = P O . P O _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
7894
|
|
|
7895
|
L E F T J O I N C M _ S U P P L I E R S O N S . S U P _ I D = P O . S U P _ I D A N D A . R E Q _ T Y P E = ' P '
|
|
7896
|
|
|
7897
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S _ C H I L D P C 3 O N P C 3 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 3 . S T A T U S _ J O B = ' C '
|
|
7898
|
|
|
7899
|
L E F T J O I N P L _ R E Q U E S T _ P R O C E S S _ C H I L D P C 4 O N P C 4 . R E Q _ I D = A . R E Q _ P A Y _ I D A N D P C 4 . S T A T U S _ J O B = ' C '
|
|
7900
|
|
|
7901
|
L E F T J O I N T L _ S Y S R O L E S R O N T L . R o l e N a m e = S R . R O L E _ I D
|
|
7902
|
|
|
7903
|
W H E R E 1 = 1
|
|
7904
|
|
|
7905
|
A N D ( A . A U T H _ S T A T U S = @ p _ A U T H _ S T A T U S O R @ p _ A U T H _ S T A T U S = ' ' O R @ p _ A U T H _ S T A T U S I S N U L L )
|
|
7906
|
|
|
7907
|
A N D ( A . M A K E R _ I D = @ p _ M A K E R _ I D O R @ p _ M A K E R _ I D = ' ' O R @ p _ M A K E R _ I D I S N U L L )
|
|
7908
|
|
|
7909
|
A N D ( A . D E P _ I D = @ p _ D E P _ I D O R @ p _ D E P _ I D = ' ' O R @ p _ D E P _ I D I S N U L L )
|
|
7910
|
|
|
7911
|
A N D ( ( @ p _ L E V E L = ' A L L ' A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D F R O M @ t m p _ L o g i n ) )
|
|
7912
|
|
|
7913
|
O R ( ( @ p _ L E V E L = ' U N I T ' A N D A . B R A N C H _ I D = @ p _ B R A N C H _ I D ) O R ( @ p _ B R A N C H _ I D = ' ' O R @ p _ B R A N C H _ I D I S N U L L ) ) )
|
|
7914
|
|
|
7915
|
A N D ( ( @ p _ L E V E L = ' A L L ' A N D A . B R A N C H _ C R E A T E I N ( S E L E C T B R A N C H _ I D F R O M @ t m p _ L o g i n ) )
|
|
7916
|
|
|
7917
|
O R ( ( @ p _ L E V E L = ' U N I T ' A N D A . B R A N C H _ C R E A T E = @ p _ B R A N C H _ C R E A T E ) O R ( @ p _ B R A N C H _ C R E A T E = ' ' O R @ p _ B R A N C H _ C R E A T E I S N U L L ) ) )
|
|
7918
|
|
|
7919
|
A N D ( ( A . M A K E R _ I D _ K T I S N O T N U L L A N D @ p _ I S _ U P D A T E _ K T = ' Y ' ) - - L a y d a n h s a c h c h u a d u o c p h o n g K T c a p n h a t v a d u o c c a p n h a t
|
|
7920
|
|
|
7921
|
O R ( ( A . M A K E R _ I D _ K T I S N U L L A N D @ p _ I S _ U P D A T E _ K T = ' N ' ) ) O R @ p _ I S _ U P D A T E _ K T I S N U L L O R @ p _ I S _ U P D A T E _ K T = ' ' )
|
|
7922
|
|
|
7923
|
A N D ( A . N O T E S L I K E N ' % ' + @ p _ N O T E S + ' % ' O R @ p _ N O T E S = ' ' O R @ p _ N O T E S I S N U L L )
|
|
7924
|
|
|
7925
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 4 - T h ? m F i l t e r R E Q _ T Y P E , F R O M D A T E T O D A T E R E F _ I D
|
|
7926
|
|
|
7927
|
A N D ( A . R E Q _ T Y P E L I K E N ' % ' + @ p _ R E Q _ T Y P E + ' % ' O R @ p _ R E Q _ T Y P E = ' ' O R @ p _ R E Q _ T Y P E I S N U L L )
|
|
7928
|
|
|
7929
|
A N D ( C O N V E R T ( D A T E , A . C R E A T E _ D T ) > = C O N V E R T ( D A T E , @ p _ F R M D A T E , 1 0 3 ) O R @ p _ F R M D A T E I S N U L L O R @ p _ F R M D A T E = ' ' )
|
|
7930
|
|
|
7931
|
A N D ( C O N V E R T ( D A T E , A . C R E A T E _ D T ) < = C O N V E R T ( D A T E , @ p _ T O D A T E , 1 0 3 ) O R @ p _ T O D A T E I S N U L L O R @ p _ T O D A T E = ' ' )
|
|
7932
|
|
|
7933
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 7 - T h ? m F i l t e r R E Q _ P A Y _ C O D E R E Q _ P A Y _ N A M E B R A N C H _ I D D E P _ I D K T _ A U T H
|
|
7934
|
|
|
7935
|
A N D ( A . R E Q _ P A Y _ C O D E L I K E N ' % ' + @ p _ R E Q _ P A Y _ C O D E + ' % ' o r @ p _ R E Q _ P A Y _ C O D E = ' ' O R @ p _ R E Q _ P A Y _ C O D E I S N U L L )
|
|
7936
|
|
|
7937
|
A N D ( A . R E Q _ R E A S O N L I K E N ' % ' + @ p _ R E Q _ R E A S O N + ' % ' o r @ p _ R E Q _ R E A S O N = ' ' O R @ p _ R E Q _ R E A S O N I S N U L L )
|
|
7938
|
|
|
7939
|
- - A N D ( A . T R A S F E R _ U S E R _ R E C I V E = @ p _ T R A S F E R _ U S E R _ R E C I V E o r @ p _ T R A S F E R _ U S E R _ R E C I V E = ' ' O R @ p _ T R A S F E R _ U S E R _ R E C I V E I S N U L L O R A . M A K E R _ I D _ K T I S N O T N U L L O R A . M A K E R _ I D _ K T < > ' ' )
|
|
7940
|
|
|
7941
|
- - A N D ( A . B R A N C H _ C R E A T E = @ p _ B R A N C H _ C R E A T E o r @ p _ B R A N C H _ C R E A T E = ' ' O R @ p _ B R A N C H _ C R E A T E I S N U L L )
|
|
7942
|
|
|
7943
|
A N D ( A . D E P _ I D = @ p _ D E P _ I D o r @ p _ D E P _ I D = ' ' O R @ p _ D E P _ I D I S N U L L )
|
|
7944
|
|
|
7945
|
A N D ( ( A . A U T H _ S T A T U S _ K T = @ p _ A U T H _ S T A T U S _ K T O R @ p _ A U T H _ S T A T U S _ K T = ' ' O R @ p _ A U T H _ S T A T U S _ K T I S N U L L ) O R ( @ p _ A U T H _ S T A T U S _ K T = ' P ' A N D A . A U T H _ S T A T U S _ K T I N ( ' P ' , ' S ' ) ) )
|
|
7946
|
|
|
7947
|
A N D ( A . R E F _ I D = @ p _ R E F _ I D O R @ p _ R E F _ I D = ' ' O R @ p _ R E F _ I D I S N U L L )
|
|
7948
|
|
|
7949
|
- - A N D ( ( A . T R A N S F E R _ M A K E R I S N O T N U L L A N D @ p _ I S _ T R A N S F E R = ' Y ' ) - - L a y d a n h s a c h c h u a d u o c p h o n g K T c a p n h a t v a d u o c c a p n h a t
|
|
7950
|
|
|
7951
|
- - O R ( ( A . T R A N S F E R _ M A K E R I S N U L L A N D @ p _ I S _ T R A N S F E R = ' N ' ) ) O R @ p _ I S _ T R A N S F E R I S N U L L O R @ p _ I S _ T R A N S F E R = ' ' )
|
|
7952
|
|
|
7953
|
- - N e u b e n p h a n h e k e t o a n t h i c h i l a y n h u n g u s e r c o m a k e r _ i d k h a c n u l l
|
|
7954
|
|
|
7955
|
A N D ( ( @ p _ F U N C T I O N = ' K T ' A N D ( E X I S T S ( S E L E C T T O P 1 * F R O M P L _ R E Q U E S T _ P R O C E S S _ C H I L D W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D A N D T L N A M E = @ p _ U S E R _ L O G I N ) ) O R A . C H E C K E R _ I D _ K T = ' a d m i n ' O R A . A U T H _ S T A T U S _ K T = ' A ' )
|
|
7956
|
|
|
7957
|
O R @ p _ F U N C T I O N = ' ' O R @ p _ F U N C T I O N I S N U L L O R @ p _ F U N C T I O N = ' T F ' )
|
|
7958
|
|
|
7959
|
- - A N D ( ( @ p _ F U N C T I O N = ' K T ' A N D A . M A K E R _ I D _ K T I S N O T N U L L A N D A . M A K E R _ I D _ K T = ' ' ) O R @ p _ F U N C T I O N I S N U L L O R @ p _ F U N C T I O N = ' ' )
|
|
7960
|
|
|
7961
|
A N D ( ( @ p _ I S _ T R A N S F E R = ' Y ' A N D ( E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S _ C H I L D W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D ) O R A . A U T H _ S T A T U S _ K T = ' A ' ) ) - - L a y d a n h s a c h c h u a d u o c p h o n g K T c a p n h a t v a d u o c c a p n h a t
|
|
7962
|
|
|
7963
|
O R ( ( @ p _ I S _ T R A N S F E R = ' N ' A N D ( N O T E X I S T S ( S E L E C T * F R O M P L _ R E Q U E S T _ P R O C E S S _ C H I L D W H E R E R E Q _ I D = A . R E Q _ P A Y _ I D ) ) A N D A . A U T H _ S T A T U S _ K T < > ' A ' ) ) O R @ p _ I S _ T R A N S F E R I S N U L L O R @ p _ I S _ T R A N S F E R = ' ' )
|
|
7964
|
|
|
7965
|
A N D
|
|
7966
|
|
|
7967
|
(
|
|
7968
|
|
|
7969
|
A . M A K E R _ I D = @ p _ U S E R _ L O G I N O R ( A . T R A S F E R _ U S E R _ R E C I V E = @ P _ U S E R _ L O G I N A N D A . A U T H _ S T A T U S N O T I N ( ' E ' , ' R ' ) )
|
|
7970
|
|
|
7971
|
O R ( A . A U T H _ S T A T U S < > ' E ' A N D
|
|
7972
|
|
|
7973
|
(
|
|
7974
|
|
|
7975
|
( @ p _ T Y P E _ S E A R C H = ' H C ' A N D @ B R A N C H _ T Y P E _ L G = ' H S ' A N D ( A . T R A S F E R _ U S E R _ R E C I V E = @ p _ U S E R _ L O G I N O R ( @ R O L E _ I D I N ( ' G D D V ' , ' G D K ' , ' K T T ' , ' T P T C ' ) A N D A . B R A N C H _ I D = @ p _ B R A N C H _ L O G I N A N D A . D E P _ I D = @ D E P _ I D _ L G
|
|
7976
|
|
|
7977
|
A N D ( A . T R A S F E R _ U S E R _ R E C I V E I S N U L L O R A . T R A S F E R _ U S E R _ R E C I V E = ' ' O R ( A . T R A S F E R _ U S E R _ R E C I V E I S N O T N U L L A N D A . T R A S F E R _ U S E R _ R E C I V E < > ' ' A N D A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' ) ) ) ) )
|
|
7978
|
|
|
7979
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D @ B R A N C H _ T Y P E _ L G = ' C N ' A N D ( @ R O L E _ I D = ' G D D V ' A N D
|
|
7980
|
|
|
7981
|
( ( A . T R A S F E R _ U S E R _ R E C I V E I S N O T N U L L A N D A . T R A S F E R _ U S E R _ R E C I V E < > ' ' A N D A . P R O C E S S I S N O T N U L L A N D A . P R O C E S S < > ' ' ) O R A . T R A S F E R _ U S E R _ R E C I V E = ' ' O R A . T R A S F E R _ U S E R _ R E C I V E I S N U L L )
|
|
7982
|
|
|
7983
|
O R ( ( A . B R A N C H _ C R E A T E < > @ p _ B R A N C H _ L O G I N A N D A . T R A S F E R _ U S E R _ R E C I V E I S N O T N U L L A N D A . T R A S F E R _ U S E R _ R E C I V E < > ' ' ) O R A . B R A N C H _ C R E A T E = @ p _ B R A N C H _ L O G I N )
|
|
7984
|
|
|
7985
|
A N D A . B R A N C H _ I D I N ( S E L E C T * F R O M @ t m p ) ) )
|
|
7986
|
|
|
7987
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D @ B R A N C H _ T Y P E _ L G = ' P G D ' A N D ( @ R O L E _ I D I N ( ' G D D V ' , ' T P G D ' ) A N D A . B R A N C H _ I D = @ p _ B R A N C H _ L O G I N ) )
|
|
7988
|
|
|
7989
|
O R ( @ p _ T Y P E _ S E A R C H = ' H C ' A N D @ R O L E _ I D = ' K S V ' A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D f r o m @ t m p _ L o g i n ) )
|
|
7990
|
|
|
7991
|
O R ( @ p _ T Y P E _ S E A R C H = ' K T ' A N D A . B R A N C H _ I D I N ( S E L E C T B R A N C H _ I D f r o m @ t m p _ L o g i n ) )
|
|
7992
|
|
|
7993
|
O R @ p _ T Y P E _ S E A R C H I S N U L L O R @ p _ T Y P E _ S E A R C H = ' '
|
|
7994
|
|
|
7995
|
) ) )
|
|
7996
|
|
|
7997
|
O R D E R B Y A . C R E A T E _ D T D E S C ;
|
|
7998
|
|
|
7999
|
E N D ;
|
|
8000
|
|
|
8001
|
G O
|
|
8002
|
|
|
8003
|
/ * * * * * * O b j e c t : S t o r e d P r o c e d u r e [ d b o ] . [ T R _ R E Q _ P A Y M E N T _ U p d ] S c r i p t D a t e : 8 / 1 7 / 2 0 2 0 5 : 5 5 : 4 1 A M * * * * * * /
|
|
8004
|
|
|
8005
|
S E T A N S I _ N U L L S O N
|
|
8006
|
|
|
8007
|
G O
|
|
8008
|
|
|
8009
|
S E T Q U O T E D _ I D E N T I F I E R O N
|
|
8010
|
|
|
8011
|
G O
|
|
8012
|
|
|
8013
|
|
|
8014
|
|
|
8015
|
C R E A T E P R O C E D U R E [ d b o ] . [ T R _ R E Q _ P A Y M E N T _ U p d ]
|
|
8016
|
|
|
8017
|
@ p _ R E Q _ P A Y _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
8018
|
|
|
8019
|
@ p _ R E Q _ P A Y _ C O D E v a r c h a r ( 5 0 ) = N U L L ,
|
|
8020
|
|
|
8021
|
@ p _ R E Q _ D T V A R C H A R ( 2 0 ) = N U L L ,
|
|
8022
|
|
|
8023
|
@ p _ B R A N C H _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
8024
|
|
|
8025
|
@ p _ D E P _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
8026
|
|
|
8027
|
@ p _ R E Q _ R E A S O N n v a r c h a r ( M A X ) = N U L L ,
|
|
8028
|
|
|
8029
|
@ p _ R E Q _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
8030
|
|
|
8031
|
@ P _ R E Q _ E N T R I E S n v a r c h a r ( M A X ) = N U L L ,
|
|
8032
|
|
|
8033
|
@ p _ R E Q _ D E S C R I P T I O N n v a r c h a r ( M A X ) = N U L L ,
|
|
8034
|
|
|
8035
|
@ p _ R E F _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
8036
|
|
|
8037
|
@ p _ R E C E I V E R _ P O n v a r c h a r ( 2 5 0 ) = N U L L ,
|
|
8038
|
|
|
8039
|
@ p _ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 5 ) = N U L L ,
|
|
8040
|
|
|
8041
|
@ p _ R E Q _ T Y P E _ C U R R E N C Y n v a r c h a r ( 5 0 ) = N U L L ,
|
|
8042
|
|
|
8043
|
@ p _ R E Q _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
8044
|
|
|
8045
|
@ p _ R E Q _ T E M P _ A M T d e c i m a l ( 1 8 , 0 ) = N U L L ,
|
|
8046
|
|
|
8047
|
@ p _ M A K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
8048
|
|
|
8049
|
@ p _ C R E A T E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
8050
|
|
|
8051
|
@ p _ E D I T O R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
8052
|
|
|
8053
|
@ p _ A U T H _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
8054
|
|
|
8055
|
@ p _ C H E C K E R _ I D v a r c h a r ( 1 5 ) = N U L L ,
|
|
8056
|
|
|
8057
|
@ p _ A P P R O V E _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
8058
|
|
|
8059
|
@ p _ C R E A T E _ D T _ K T v a r c h a r ( 2 5 ) = N U L L ,
|
|
8060
|
|
|
8061
|
@ p _ M A K E R _ I D _ K T v a r c h a r ( 1 5 ) = N U L L ,
|
|
8062
|
|
|
8063
|
@ p _ A U T H _ S T A T U S _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
8064
|
|
|
8065
|
@ p _ C H E C K E R _ I D _ K T v a r c h a r ( 1 ) = N U L L ,
|
|
8066
|
|
|
8067
|
@ p _ A P P R O V E _ D T _ K T v a r c h a r ( 2 5 ) = n u l l ,
|
|
8068
|
|
|
8069
|
@ p _ C O N F I R M _ N O T E n v a r c h a r ( 5 0 0 ) = N U L L ,
|
|
8070
|
|
|
8071
|
@ p _ B R A N C H _ C R E A T E v a r c h a r ( 1 5 ) = N U L L ,
|
|
8072
|
|
|
8073
|
@ p _ N O T E S v a r c h a r ( 1 5 ) = N U L L ,
|
|
8074
|
|
|
8075
|
@ p _ R E C O R D _ S T A T U S v a r c h a r ( 1 ) = N U L L ,
|
|
8076
|
|
|
8077
|
@ p _ T R A N S F E R _ M A K E R n v a r c h a r ( 5 0 ) = N U L L ,
|
|
8078
|
|
|
8079
|
@ p _ T R A N S F E R _ D T v a r c h a r ( 2 5 ) = N U L L ,
|
|
8080
|
|
|
8081
|
@ p _ T R A S F E R _ U S E R _ R E C I V E v a r c h a r ( 1 5 ) = N U L L ,
|
|
8082
|
|
|
8083
|
@ p _ P R O C E S S v a r c h a r ( 1 5 ) = N U L L ,
|
|
8084
|
|
|
8085
|
@ p _ P A Y _ P H A S E V A R C H A R ( 1 5 ) = N U L L ,
|
|
8086
|
|
|
8087
|
@ p _ R A T E D E C I M A L ( 1 8 , 2 ) = 0 ,
|
|
8088
|
|
|
8089
|
@ p _ I S _ P E R I O D V A R C H A R ( 5 ) = N U L L ,
|
|
8090
|
|
|
8091
|
@ p _ X M P _ T E M P X M L = N U L L ,
|
|
8092
|
|
|
8093
|
@ p _ X M P _ T E M P _ 2 X M L = N U L L ,
|
|
8094
|
|
|
8095
|
@ p _ T Y P E _ F U N C T I O N V A R C H A R ( 1 5 ) = N U L L
|
|
8096
|
|
|
8097
|
A S
|
|
8098
|
|
|
8099
|
- - V a l i d a t i o n i s h e r e
|
|
8100
|
|
|
8101
|
/ *
|
|
8102
|
|
|
8103
|
D E C L A R E @ E R R O R S Y S N V A R C H A R ( 1 5 ) = ' '
|
|
8104
|
|
|
8105
|
I F ( N O T E X I S T S ( S E L E C T * F R O M A S S _ C O L L E C T W H E R E ) )
|
|
8106
|
|
|
8107
|
S E T @ E R R O R S Y S = ' '
|
|
8108
|
|
|
8109
|
I F @ E R R O R S Y S < > ' '
|
|
8110
|
|
|
8111
|
B E G I N
|
|
8112
|
|
|
8113
|
S E L E C T E r r o r C o d e R e s u l t , ' ' C A R _ I D , E r r o r D e s c E r r o r D e s c F R O M S Y S _ E R R O R W H E R E E r r o r C o d e = @ E R R O R S Y S
|
|
8114
|
|
|
8115
|
R E T U R N ' 0 '
|
|
8116
|
|
|
8117
|
E N D
|
|
8118
|
|
|
8119
|
* /
|
|
8120
|
|
|
8121
|
|
|
8122
|
|
|
8123
|
- - L u a n l t - 2 0 1 9 / 1 0 / 1 5 D i s a b l e V a l i d a t i o n
|
|
8124
|
|
|
8125
|
- - D E C L A R E @ E R R O R S Y S N V A R C H A R ( 1 5 ) = ' '
|
|
8126
|
|
|
8127
|
- - I F E X I S T S ( S E L E C T * F R O M T R _ P O _ M A S T E R W H E R E R E F _ I D = @ p _ R E F _ I D )
|
|
8128
|
|
|
8129
|
- - B E G I N
|
|
8130
|
|
|
8131
|
- - S E T @ E R R O R S Y S = ' A S S C - 0 0 0 0 5 '
|
|
8132
|
|
|
8133
|
- - S E L E C T E r r o r C o d e R e s u l t , ' ' R E Q _ P A Y _ I D , E r r o r D e s c E r r o r D e s c F R O M S Y S _ E R R O R W H E R E E r r o r C o d e = @ E R R O R S Y S
|
|
8134
|
|
|
8135
|
- - R E T U R N ' - 1 '
|
|
8136
|
|
|
8137
|
- - E N D
|
|
8138
|
|
|
8139
|
I F @ p _ R E Q _ P A Y _ C O D E I S N U L L O R @ p _ R E Q _ P A Y _ C O D E = ' '
|
|
8140
|
|
|
8141
|
B E G I N
|
|
8142
|
|
|
8143
|
S E L E C T ' - 1 ' R e s u l t , ' ' R E Q _ P A Y _ I D , N ' M ? s ? p h i ? u k h ? n g ? ? c p h ? p ? t r ? n g ' E r r o r D e s c
|
|
8144
|
|
|
8145
|
R E T U R N ' - 1 '
|
|
8146
|
|
|
8147
|
E N D
|
|
8148
|
|
|
8149
|
I F E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y M E N T W H E R E R E Q _ P A Y _ C O D E = @ p _ R E Q _ P A Y _ C O D E A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D )
|
|
8150
|
|
|
8151
|
B E G I N
|
|
8152
|
|
|
8153
|
S E L E C T ' - 1 ' R e s u l t , ' ' R E Q _ P A Y _ I D , N ' M ? s ? p h i ? u ? t ? n t ? i t r o n g h ? t h ? n g ' E r r o r D e s c
|
|
8154
|
|
|
8155
|
R E T U R N ' - 1 '
|
|
8156
|
|
|
8157
|
E N D
|
|
8158
|
|
|
8159
|
B E G I N T R A N S A C T I O N
|
|
8160
|
|
|
8161
|
D E C L A R E @ V A T d e c i m a l ( 1 8 , 0 ) = N U L L , @ T R A N S _ N O n v a r c h a r ( 5 0 ) = N U L L ,
|
|
8162
|
|
|
8163
|
@ T R A N S _ D T V A R C H A R ( 2 0 ) = N U L L , @ I N V O I C E _ S I G N n v a r c h a r ( 5 0 ) = N U L L , @ I N V O I C E _ N O _ S I G N n v a r c h a r ( 5 0 ) = N U L L , @ I N V O I C E _ N O n v a r c h a r ( 5 0 ) = N U L L , @ I N V O I C E _ D T V A R C H A R ( 2 0 ) = N U L L , @ S E L L E R n v a r c h a r ( 5 0 ) = N U L L , @ T A X _ N O n v a r c h a r ( 1 5 ) = N U L L , @ G O O D S _ N A M E n v a r c h a r ( 5 0 0 ) = N U L L ,
|
|
8164
|
|
|
8165
|
@ P R I C E d e c i m a l ( 1 8 , 0 ) = N U L L , @ T A X d e c i m a l ( 1 8 , 0 ) = N U L L , @ N O T E S N V A R C H A R ( M A X ) = N U L L , @ V A T _ R A T E D E C I M A L ( 1 8 , 0 ) , @ A C C _ N O V A R C H A R ( 2 5 ) , @ A C C _ N A M E N V A R C H A R ( 2 5 0 ) , @ I S S U E D _ B Y N V A R C H A R ( 2 5 0 ) ,
|
|
8166
|
|
|
8167
|
@ I S S U E D _ D T V A R C H A R ( 2 0 ) , @ C U R R E N C Y V A R C H A R ( 1 5 ) = N U L L , @ R A T E D E C I M A L ( 1 8 , 2 ) , @ T Y P E _ V A T V A R C H A R ( 1 5 ) , @ T Y P E _ F U N C V A R C H A R ( 1 5 )
|
|
8168
|
|
|
8169
|
D E C L A R E @ P A Y _ A D V _ I D V A R C H A R ( 1 5 ) , @ T Y P E _ T R A N S V A R C H A R ( 1 5 ) , @ R E Q _ P A Y _ A D V _ C O D E V A R C H A R ( 1 5 ) , @ R E A S O N N V A R C H A R ( 1 0 0 0 ) , @ R E F _ T Y P E V A R C H A R ( 1 5 )
|
|
8170
|
|
|
8171
|
D E C L A R E @ A M T _ A D V A N C E D D E C I M A L ( 1 8 , 0 ) , @ A M T _ D O D E C I M A L ( 1 8 , 0 ) ,
|
|
8172
|
|
|
8173
|
@ A M T _ R E M A I N D E C I M A L ( 1 8 , 0 ) , @ A M T _ P A Y D E C I M A L ( 1 8 , 0 ) , @ A M T _ U S E D E C I M A L ( 1 8 , 2 ) , @ A M T _ R E V E R T D E C I M A L ( 1 8 , 2 ) , @ A M T _ A D D D E C I M A L ( 1 8 , 2 )
|
|
8174
|
|
|
8175
|
D E C L A R E @ T O T A L _ S C H E D U L E _ A M T D E C I M A L ( 1 8 , 0 ) = 0
|
|
8176
|
|
|
8177
|
D E C L A R E @ I N D E X _ A D I N T = 0 , @ I N D E X _ S V I N T = 0 , @ I N D E X I N T = 0 , @ I N D E X _ I V I N T = 0 , @ I N D E X _ N S I N T = 0
|
|
8178
|
|
|
8179
|
D E C L A R E @ h d o c I N T , @ h D o c 2 I N T
|
|
8180
|
|
|
8181
|
E X E C s p _ x m l _ p r e p a r e d o c u m e n t @ h d o c O U T P U T , @ p _ X M P _ T E M P ;
|
|
8182
|
|
|
8183
|
E X E C s p _ x m l _ p r e p a r e d o c u m e n t @ h D o c 2 O U T P U T , @ p _ X M P _ T E M P _ 2 ;
|
|
8184
|
|
|
8185
|
D E C L A R E X m l D a t a C U R S O R F O R
|
|
8186
|
|
|
8187
|
S E L E C T *
|
|
8188
|
|
|
8189
|
F R O M
|
|
8190
|
|
|
8191
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a ' , 2 )
|
|
8192
|
|
|
8193
|
W I T H ( T R A N S _ N O n v a r c h a r ( 5 0 ) , T R A N S _ D T V A R C H A R ( 2 0 ) , I N V O I C E _ S I G N n v a r c h a r ( 5 0 ) , I N V O I C E _ N O _ S I G N n v a r c h a r ( 5 0 ) ,
|
|
8194
|
|
|
8195
|
I N V O I C E _ N O n v a r c h a r ( 5 0 ) , I N V O I C E _ D T V A R C H A R ( 2 0 ) , S E L L E R n v a r c h a r ( 5 0 ) , T A X _ N O n v a r c h a r ( 1 5 ) , G O O D S _ N A M E n v a r c h a r ( 5 0 0 ) ,
|
|
8196
|
|
|
8197
|
P R I C E d e c i m a l ( 1 8 , 2 ) , T A X d e c i m a l ( 1 8 , 2 ) , V A T d e c i m a l ( 1 8 , 2 ) , N O T E N V A R C H A R ( M A X ) , V A T _ R A T E d e c i m a l ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , T Y P E _ V A T V A R C H A R ( 1 5 ) , T Y P E _ F U N C V A R C H A R ( 1 5 ) )
|
|
8198
|
|
|
8199
|
O P E N X m l D a t a ;
|
|
8200
|
|
|
8201
|
- - C U R S O R 2
|
|
8202
|
|
|
8203
|
D E C L A R E X m l D a t a P a y C U R S O R F O R
|
|
8204
|
|
|
8205
|
S E L E C T *
|
|
8206
|
|
|
8207
|
F R O M
|
|
8208
|
|
|
8209
|
O P E N X M L ( @ h D o c 2 , ' / R o o t / X m l D a t a P a y ' , 2 )
|
|
8210
|
|
|
8211
|
W I T H ( P A Y _ A D V _ I D n v a r c h a r ( 5 0 ) , A M T _ A D V A N C E D d e c i m a l ( 1 8 , 0 ) , A M T _ D O d e c i m a l ( 1 8 , 2 ) ,
|
|
8212
|
|
|
8213
|
A M T _ R E M A I N d e c i m a l ( 1 8 , 2 ) , A M T _ P A Y d e c i m a l ( 1 8 , 2 ) , A M T _ U S E d e c i m a l ( 1 8 , 2 ) , A M T _ R E V E R T D E C I M A L ( 1 8 , 0 ) , A M T _ A D D D E C I M A L ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) )
|
|
8214
|
|
|
8215
|
O P E N X m l D a t a P a y ;
|
|
8216
|
|
|
8217
|
- - - - - - - - - - - - - - - - - - - - - - - -
|
|
8218
|
|
|
8219
|
- - L u a n l t - - -
|
|
8220
|
|
|
8221
|
- - M e t h o d C u r s o r
|
|
8222
|
|
|
8223
|
D E C L A R E @ R E C E I V E _ I D v a r c h a r ( 1 5 ) , @ R E C E I V E _ N A M E n v a r c h a r ( 1 0 0 ) , @ R E Q _ P A Y _ R E A S O N n v a r c h a r ( M A X ) , @ T O T A L _ A M T _ M E T H O D d e c i m a l ( 1 8 , 2 ) ,
|
|
8224
|
|
|
8225
|
@ R E Q _ P A Y _ T Y P E v a r c h a r ( 1 ) , @ R E Q _ P A Y _ D E S C n v a r c h a r ( M A X ) , @ R E Q _ P A Y _ E N T R I E S n v a r c h a r ( M A X ) , @ C H E C K _ I N V A R C H A R ( 1 5 )
|
|
8226
|
|
|
8227
|
D E C L A R E X m l D a t a M e t h o d C U R S O R F O R
|
|
8228
|
|
|
8229
|
S E L E C T *
|
|
8230
|
|
|
8231
|
F R O M
|
|
8232
|
|
|
8233
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a M e t h o d ' , 2 )
|
|
8234
|
|
|
8235
|
W I T H ( R E C E I V E _ I D v a r c h a r ( 1 5 ) , R E C E I V E _ N A M E n v a r c h a r ( 1 0 0 ) , R E Q _ P A Y _ R E A S O N n v a r c h a r ( M A X ) , T O T A L _ A M T d e c i m a l ( 1 8 , 2 ) ,
|
|
8236
|
|
|
8237
|
R E Q _ P A Y _ T Y P E v a r c h a r ( 1 ) , R E Q _ P A Y _ D E S C n v a r c h a r ( M A X ) , R E Q _ P A Y _ E N T R I E S n v a r c h a r ( M A X ) , A C C _ N O V A R C H A R ( 2 5 ) ,
|
|
8238
|
|
|
8239
|
A C C _ N A M E N V A R C H A R ( 2 5 0 ) , I S S U E D _ B Y N V A R C H A R ( 2 5 0 ) , I S S U E D _ D T V A R C H A R ( 2 0 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , C H E C K _ I N V A R C H A R ( 1 5 ) , T Y P E _ T R A N S V A R C H A R ( 1 5 ) )
|
|
8240
|
|
|
8241
|
O P E N X m l D a t a M e t h o d
|
|
8242
|
|
|
8243
|
- - - - - - - - - -
|
|
8244
|
|
|
8245
|
- - C a t C u r s o r
|
|
8246
|
|
|
8247
|
D E C L A R E @ R E Q _ A D V _ I D v a r c h a r ( 1 5 ) , @ C A T _ N A M E n v a r c h a r ( 1 0 0 ) , @ T O T A L _ A M T _ C A T d e c i m a l ( 1 8 , 2 ) , @ D E P T _ I D V A R C H A R ( 1 5 )
|
|
8248
|
|
|
8249
|
D E C L A R E X m l D a t a C a t C U R S O R F O R
|
|
8250
|
|
|
8251
|
S E L E C T *
|
|
8252
|
|
|
8253
|
F R O M
|
|
8254
|
|
|
8255
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a C a t ' , 2 )
|
|
8256
|
|
|
8257
|
W I T H ( R E Q _ A D V _ I D V A R C H A R ( 1 5 ) , C A T _ N A M E n v a r c h a r ( 1 0 0 ) , T O T A L _ A M T d e c i m a l ( 1 8 , 2 ) , D E P T _ I D V A R C H A R ( 1 5 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) )
|
|
8258
|
|
|
8259
|
O P E N X m l D a t a C a t
|
|
8260
|
|
|
8261
|
- - - - - - - - - - - - - - -
|
|
8262
|
|
|
8263
|
- - S e r v i c e C u r s o r
|
|
8264
|
|
|
8265
|
D E C L A R E @ R E Q _ P A Y _ S E R V I C E _ N A M E n v a r c h a r ( 1 0 0 ) , @ R E C E I V E _ I D _ S E R V I C E v a r c h a r ( 1 5 ) , @ R E C E I V E _ N A M E _ S E R V I C E n v a r c h a r ( 1 0 0 ) , @ R E Q _ P A Y _ R E A S O N _ S E R V I C E n v a r c h a r ( M A X ) ,
|
|
8266
|
|
|
8267
|
@ T O T A L _ A M T _ S E R V I C E d e c i m a l ( 1 8 , 2 ) ,
|
|
8268
|
|
|
8269
|
@ R E Q _ P A Y _ T Y P E _ S E R V I C E v a r c h a r ( 1 ) , @ R E Q _ P A Y _ D E S C _ S E R V I C E n v a r c h a r ( M A X ) , @ R E Q _ P A Y _ E N T R I E S _ S E R V I C E n v a r c h a r ( M A X ) , @ D E P T _ I D _ S R V V A R C H A R ( 1 5 )
|
|
8270
|
|
|
8271
|
D E C L A R E X m l D a t a S e r v i c e C U R S O R F O R
|
|
8272
|
|
|
8273
|
S E L E C T *
|
|
8274
|
|
|
8275
|
F R O M
|
|
8276
|
|
|
8277
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a S e r v i c e ' , 2 )
|
|
8278
|
|
|
8279
|
W I T H ( R E Q _ P A Y _ S E R V I C E _ N A M E n v a r c h a r ( 1 0 0 ) , R E C E I V E _ I D _ S E R V I C E v a r c h a r ( 1 5 ) , R E C E I V E _ N A M E _ S E R V I C E n v a r c h a r ( 1 0 0 ) , R E Q _ P A Y _ R E A S O N _ S E R V I C E n v a r c h a r ( M A X ) ,
|
|
8280
|
|
|
8281
|
T O T A L _ A M T _ S E R V I C E d e c i m a l ( 1 8 , 2 ) , R E Q _ P A Y _ T Y P E _ S E R V I C E v a r c h a r ( 1 ) , R E Q _ P A Y _ D E S C _ S E R V I C E n v a r c h a r ( M A X ) , R E Q _ P A Y _ E N T R I E S _ S E R V I C E n v a r c h a r ( M A X ) ,
|
|
8282
|
|
|
8283
|
D E P T _ I D V A R C H A R ( 1 5 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) )
|
|
8284
|
|
|
8285
|
O P E N X m l D a t a S e r v i c e
|
|
8286
|
|
|
8287
|
- - - - - - - - - - - - - - -
|
|
8288
|
|
|
8289
|
- - S c h e d u l e C u r s o r
|
|
8290
|
|
|
8291
|
D E C L A R E @ P O _ I D v a r c h a r ( 1 5 ) , @ T E R M _ P A Y v a r c h a r ( 1 5 ) , @ A M T _ P A Y _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) , @ R E Q _ A D V _ I D _ S C H E V A R C H A R ( 1 5 ) , @ A M T _ A D V A N C E _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) ,
|
|
8292
|
|
|
8293
|
@ A M T _ R E M A I N _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) , @ R E Q _ A D _ D T v a r c h a r ( 2 0 ) , @ P R O C E S S v a r c h a r ( 1 5 ) , @ P A Y _ I D V A R C H A R ( 1 5 ) , @ A M T _ P A Y _ D O D E C I M A L ( 1 8 , 2 ) , @ A M T _ P A Y _ R E A L D E C I M A L ( 1 8 , 2 )
|
|
8294
|
|
|
8295
|
D E C L A R E X m l D a t a S c h e d u l e C U R S O R F O R
|
|
8296
|
|
|
8297
|
S E L E C T *
|
|
8298
|
|
|
8299
|
F R O M
|
|
8300
|
|
|
8301
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a S c h e d u l e ' , 2 )
|
|
8302
|
|
|
8303
|
W I T H ( P O _ I D v a r c h a r ( 1 5 ) , T E R M _ P A Y v a r c h a r ( 1 5 ) , A M T _ P A Y _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) , R E Q _ A D V _ I D v a r c h a r ( 1 5 ) , A M T _ A D V A N C E _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) ,
|
|
8304
|
|
|
8305
|
A M T _ R E M A I N _ S C H E D U L E d e c i m a l ( 1 8 , 2 ) , R E Q _ A D _ D T v a r c h a r ( 2 0 ) , P R O C E S S v a r c h a r ( 1 5 ) , P A Y _ I D V A R C H A R ( 1 5 ) , R E F _ I D V A R C H A R ( 1 5 ) , R E Q _ P A Y _ D E S C N V A R C H A R ( 2 5 0 ) ,
|
|
8306
|
|
|
8307
|
R E Q _ P A Y _ E N T R I E S N V A R C H A R ( 2 5 0 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , A M T _ P A Y _ D O D E C I M A L ( 1 8 , 2 ) , A M T _ P A Y _ R E A L D E C I M A L ( 1 8 , 2 ) )
|
|
8308
|
|
|
8309
|
O P E N X m l D a t a S c h e d u l e
|
|
8310
|
|
|
8311
|
- - E N D l u a n l t - - -
|
|
8312
|
|
|
8313
|
- - D S H A N G M U C N G A N S A C H
|
|
8314
|
|
|
8315
|
D E C L A R E @ T R A D E _ I D v a r c h a r ( 1 5 ) , @ G D _ I D v a r c h a r ( 1 5 ) , @ A M T _ A P P d e c i m a l ( 1 8 , 2 ) , @ A M T _ E X E d e c i m a l ( 1 8 , 2 ) , @ A M T _ R E M A I N _ G D d e c i m a l ( 1 8 , 2 )
|
|
8316
|
|
|
8317
|
D E C L A R E X m l D a t a G o o d C U R S O R F O R
|
|
8318
|
|
|
8319
|
S E L E C T *
|
|
8320
|
|
|
8321
|
F R O M
|
|
8322
|
|
|
8323
|
O P E N X M L ( @ h d o c , ' R o o t / X m l D a t a G o o d ' , 2 )
|
|
8324
|
|
|
8325
|
W I T H ( T R A D E _ I D v a r c h a r ( 1 5 ) , G D _ I D v a r c h a r ( 1 5 ) , A M T _ A P P d e c i m a l ( 1 8 , 2 ) , A M T _ D O d e c i m a l ( 1 8 , 2 ) , A M T _ E X E d e c i m a l ( 1 8 , 2 ) , A M T _ R E M A I N d e c i m a l ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 1 5 ) , R A T E D E C I M A L ( 1 8 , 2 ) , R E A S O N N V A R C H A R ( 1 0 0 0 ) )
|
|
8326
|
|
|
8327
|
O P E N X m l D a t a G o o d
|
|
8328
|
|
|
8329
|
- - - - E N D C U R S O R H A N G M U C N G A N S A C H
|
|
8330
|
|
|
8331
|
- - D I N H K E M C H U N G T U D I N H K E M
|
|
8332
|
|
|
8333
|
D E C L A R E @ A T T A C H _ I D v a r c h a r ( 1 5 ) , @ C O N _ I D v a r c h a r ( 1 0 0 ) , @ C O N T _ C O D E V A R C H A R ( 5 0 ) , @ C O N _ N O T E S V A R C H A R ( 1 0 0 0 ) , @ C O N _ D E S C N V A R C H A R ( 1 0 0 0 ) , @ C O N _ T Y P E V A R C H A R ( 1 5 ) , @ A M T _ A T T D E C I M A L ( 1 8 , 2 ) , @ R E F _ D T V A R C H A R ( 2 0 )
|
|
8334
|
|
|
8335
|
D E C L A R E X m l A t t a c h C U R S O R F O R
|
|
8336
|
|
|
8337
|
S E L E C T *
|
|
8338
|
|
|
8339
|
F R O M
|
|
8340
|
|
|
8341
|
O P E N X M L ( @ h d o c , ' R o o t / X m l A t t a c h ' , 2 )
|
|
8342
|
|
|
8343
|
W I T H ( A T T A C H _ I D v a r c h a r ( 1 5 ) , C O N _ I D v a r c h a r ( 1 0 0 ) , C O N T _ C O D E V A R C H A R ( 5 0 ) , C O N _ N O T E S N V A R C H A R ( 1 0 0 0 ) , C O N _ D E S C N V A R C H A R ( 1 0 0 0 ) , C O N _ T Y P E V A R C H A R ( 1 5 ) , A M T _ A T T D E C I M A L ( 1 8 , 2 ) , R E F _ D T V A R C H A R ( 2 0 ) )
|
|
8344
|
|
|
8345
|
O P E N X m l A t t a c h
|
|
8346
|
|
|
8347
|
- - E N D
|
|
8348
|
|
|
8349
|
U P D A T E T R _ R E Q _ P A Y M E N T S E T
|
|
8350
|
|
|
8351
|
R E F _ I D = @ p _ R E F _ I D ,
|
|
8352
|
|
|
8353
|
D E P _ I D = @ p _ D E P _ I D , R E Q _ R E A S O N = @ p _ R E Q _ R E A S O N , R E Q _ P A Y _ T Y P E = @ p _ R E Q _ P A Y _ T Y P E , R E Q _ A M T = @ p _ R E Q _ A M T , R E Q _ D T = C O N V E R T ( D A T E , @ p _ R E Q _ D T , 1 0 3 ) ,
|
|
8354
|
|
|
8355
|
N O T E S = @ p _ N O T E S ,
|
|
8356
|
|
|
8357
|
R E Q _ T Y P E = @ p _ R E Q _ T Y P E , R E Q _ D E S C R I P T I O N = @ p _ R E Q _ D E S C R I P T I O N , R E C E I V E R _ P O = @ p _ R E C E I V E R _ P O , T R A N S F E R _ M A K E R = @ p _ T R A N S F E R _ M A K E R ,
|
|
8358
|
|
|
8359
|
R E Q _ T E M P _ A M T = @ p _ R E Q _ T E M P _ A M T , R E Q _ E N T R I E S = @ P _ R E Q _ E N T R I E S , B R A N C H _ I D = @ p _ B R A N C H _ I D , R E Q _ P A Y _ C O D E = @ p _ R E Q _ P A Y _ C O D E , A U T H _ S T A T U S = ' E ' , I S _ P E R I O D = @ p _ I S _ P E R I O D , T R A S F E R _ U S E R _ R E C I V E = @ p _ T R A S F E R _ U S E R _ R E C I V E
|
|
8360
|
|
|
8361
|
W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8362
|
|
|
8363
|
I F @ @ E r r o r < > 0 G O T O A B O R T
|
|
8364
|
|
|
8365
|
- - I n s e r t X m l D a t a
|
|
8366
|
|
|
8367
|
D E L E T E F R O M T R _ R E Q _ P A Y _ I N V O I C E W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8368
|
|
|
8369
|
F E T C H N E X T F R O M X m l D a t a I N T O @ T R A N S _ N O , @ T R A N S _ D T , @ I N V O I C E _ S I G N , @ I N V O I C E _ N O _ S I G N , @ I N V O I C E _ N O , @ I N V O I C E _ D T , @ S E L L E R ,
|
|
8370
|
|
|
8371
|
@ T A X _ N O , @ G O O D S _ N A M E , @ P R I C E , @ T A X , @ V A T , @ N O T E S , @ V A T _ R A T E , @ C U R R E N C Y , @ R A T E , @ T Y P E _ V A T , @ T Y P E _ F U N C
|
|
8372
|
|
|
8373
|
W H I L E @ @ f e t c h _ s t a t u s = 0 B E G I N
|
|
8374
|
|
|
8375
|
S E T @ I N D E X _ I V = @ I N D E X _ I V + 1
|
|
8376
|
|
|
8377
|
- - K H I N A O B A M G U I P H E D U Y E T H E T H O N G M O I C H E C K V A L I D A T E
|
|
8378
|
|
|
8379
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
8380
|
|
|
8381
|
B E G I N
|
|
8382
|
|
|
8383
|
I F ( L E N ( @ I N V O I C E _ N O ) > 7 )
|
|
8384
|
|
|
8385
|
B E G I N
|
|
8386
|
|
|
8387
|
R O L L B A C K T R A N S A C T I O N
|
|
8388
|
|
|
8389
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' D ? n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ I V ) + N ' : S ? h ? a ? n ' + @ I N V O I C E _ N O + N ' k h ? n g ? ? c v ? ? t q u ? 7 k ? t ? ' E r r o r D e s c
|
|
8390
|
|
|
8391
|
R E T U R N ' - 1 '
|
|
8392
|
|
|
8393
|
E N D
|
|
8394
|
|
|
8395
|
I F ( L E N ( @ I N V O I C E _ N O ) < 7 )
|
|
8396
|
|
|
8397
|
B E G I N
|
|
8398
|
|
|
8399
|
R O L L B A C K T R A N S A C T I O N
|
|
8400
|
|
|
8401
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' D ? n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ I V ) + N ' : S ? h ? a ? n ' + @ I N V O I C E _ N O + N ' p h ? i ? 7 k ? t ? ' E r r o r D e s c
|
|
8402
|
|
|
8403
|
R E T U R N ' - 1 '
|
|
8404
|
|
|
8405
|
E N D
|
|
8406
|
|
|
8407
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y _ I N V O I C E W H E R E I N V O I C E _ N O = @ I N V O I C E _ N O A N D I N V O I C E _ N O _ S I G N = @ I N V O I C E _ N O _ S I G N A N D I N V O I C E _ S I G N = @ I N V O I C E _ S I G N A N D T A X _ N O = @ T A X _ N O A N D T A X = @ T A X ) )
|
|
8408
|
|
|
8409
|
B E G I N
|
|
8410
|
|
|
8411
|
R O L L B A C K T R A N S A C T I O N
|
|
8412
|
|
|
8413
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' D ? n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ I V ) + N ' : S ? h ? a ? n ' + @ I N V O I C E _ N O + N ' ? t ? n t ? i t r o n g h ? t h ? n g ' E r r o r D e s c
|
|
8414
|
|
|
8415
|
R E T U R N ' - 1 '
|
|
8416
|
|
|
8417
|
E N D
|
|
8418
|
|
|
8419
|
E N D
|
|
8420
|
|
|
8421
|
- - S E T @ I N D E X = @ I N D E X + 1
|
|
8422
|
|
|
8423
|
D E C L A R E @ p _ R E Q _ I N V _ I D V A R C H A R ( 1 5 ) ;
|
|
8424
|
|
|
8425
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ I N V O I C E ' , @ p _ R E Q _ I N V _ I D O U T ;
|
|
8426
|
|
|
8427
|
I F @ p _ R E Q _ I N V _ I D = ' ' O R @ p _ R E Q _ I N V _ I D I S N U L L G O T O A B O R T ;
|
|
8428
|
|
|
8429
|
I N S E R T I N T O T R _ R E Q _ P A Y _ I N V O I C E ( R E Q _ P A Y D T _ I D , R E Q _ P A Y _ I D , T R A N S _ N O , T R A N S _ D T , I N V O I C E _ S I G N , I N V O I C E _ N O , I N V O I C E _ D T , S E L L E R , T A X _ N O , G O O D S _ N A M E , P R I C E , T A X , V A T , N O T E ,
|
|
8430
|
|
|
8431
|
M A K E R _ I D , C R E A T E _ D T , E D I T O R _ I D , A U T H _ S T A T U S , C H E C K E R _ I D , A P P R O V E _ D T ,
|
|
8432
|
|
|
8433
|
C R E A T E _ D T _ K T , M A K E R _ I D _ K T , A U T H _ S T A T U S _ K T , C H E C K E R _ I D _ K T , A P P R O V E _ D T _ K T , R E C O R D _ S T A T U S , I N V O I C E _ N O _ S I G N , V A T _ R A T E , C U R R E N C Y , R A T E , P R I C E _ K T , V A T _ K T , T O T A L _ A M T _ K T , T Y P E _ V A T , T Y P E _ F U N C )
|
|
8434
|
|
|
8435
|
V A L U E S ( @ p _ R E Q _ I N V _ I D , @ p _ R E Q _ P A Y _ I D , @ T R A N S _ N O , N U L L , @ I N V O I C E _ S I G N , @ I N V O I C E _ N O , C O N V E R T ( D A T E , @ I N V O I C E _ D T , 1 0 3 ) , @ S E L L E R , @ T A X _ N O , @ G O O D S _ N A M E , @ P R I C E , @ T A X , @ V A T , @ N O T E S ,
|
|
8436
|
|
|
8437
|
@ p _ M A K E R _ I D , G E T D A T E ( ) , N U L L , ' U ' , N U L L , N U L L , N U L L , N U L L , N U L L , N U L L , N U L L , ' 1 ' , @ I N V O I C E _ N O _ S I G N , @ V A T _ R A T E , @ C U R R E N C Y , @ R A T E , @ P R I C E , @ V A T , @ P R I C E + @ V A T , @ T Y P E _ V A T , @ T Y P E _ F U N C )
|
|
8438
|
|
|
8439
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
8440
|
|
|
8441
|
F E T C H N E X T F R O M X m l D a t a
|
|
8442
|
|
|
8443
|
I N T O @ T R A N S _ N O , @ T R A N S _ D T , @ I N V O I C E _ S I G N , @ I N V O I C E _ N O _ S I G N , @ I N V O I C E _ N O , @ I N V O I C E _ D T , @ S E L L E R , @ T A X _ N O , @ G O O D S _ N A M E , @ P R I C E , @ T A X , @ V A T , @ N O T E S , @ V A T _ R A T E , @ C U R R E N C Y , @ R A T E , @ T Y P E _ V A T , @ T Y P E _ F U N C
|
|
8444
|
|
|
8445
|
E N D ;
|
|
8446
|
|
|
8447
|
C L O S E X m l D a t a ;
|
|
8448
|
|
|
8449
|
D E A L L O C A T E X m l D a t a ;
|
|
8450
|
|
|
8451
|
- - - I N S E R T C A C H A N G M U C N G A N S A C H
|
|
8452
|
|
|
8453
|
D E L E T E F R O M T R _ R E Q _ P A Y _ B U D G E T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8454
|
|
|
8455
|
- - - I N S E R T C A C H A N G M U C N G A N S A C H
|
|
8456
|
|
|
8457
|
F E T C H N E X T F R O M X m l D a t a G o o d I N T O @ T R A D E _ I D , @ G D _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ C U R R E N C Y , @ R A T E , @ R E A S O N
|
|
8458
|
|
|
8459
|
W H I L E @ @ f e t c h _ s t a t u s = 0 B E G I N
|
|
8460
|
|
|
8461
|
- - - K I E M T R A N E U N G A N S A C H S U D U N G T H U C T H E L O N H O N N G A N S A C H C O N L A I
|
|
8462
|
|
|
8463
|
S E T @ I N D E X _ N S = @ I N D E X _ N S + 1
|
|
8464
|
|
|
8465
|
- - K H I N A O B A M G U I P H E D U Y E T H E T H O N G M O I C H E C K V A L I D A T E
|
|
8466
|
|
|
8467
|
- - I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' ) - - T A M T H O I B O Q U A C H U A C H E C K N G A N S A C H
|
|
8468
|
|
|
8469
|
- - B E G I N
|
|
8470
|
|
|
8471
|
- - I F ( ( @ A M T _ E X E > @ A M T _ R E M A I N _ G D ) )
|
|
8472
|
|
|
8473
|
- - B E G I N
|
|
8474
|
|
|
8475
|
- - R O L L B A C K T R A N S A C T I O N
|
|
8476
|
|
|
8477
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ N S ) + N ' : N g ? n s ? c h s ? d ? n g t h ? c t ? k h ? n g ? ? c v ? ? t q u ? n g ? n s ? c h c ? n l ? i . ' E r r o r D e s c
|
|
8478
|
|
|
8479
|
- - R E T U R N ' - 1 '
|
|
8480
|
|
|
8481
|
- - E N D
|
|
8482
|
|
|
8483
|
- - E N D
|
|
8484
|
|
|
8485
|
D E C L A R E @ p _ B U D G E T _ I D V A R C H A R ( 1 5 ) ;
|
|
8486
|
|
|
8487
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ B U D G E T ' , @ p _ B U D G E T _ I D O U T ;
|
|
8488
|
|
|
8489
|
I F @ p _ B U D G E T _ I D = ' ' O R @ p _ B U D G E T _ I D I S N U L L G O T O A B O R T ;
|
|
8490
|
|
|
8491
|
I N S E R T I N T O T R _ R E Q _ P A Y _ B U D G E T ( B U D G _ I D , G D _ I D , R E Q _ P A Y _ I D , T R A D E _ I D , A M T _ A P P , A M T _ D O , A M T _ E X E , A M T _ R E M A I N , M A K E R _ I D , C R E A T E _ D T , C U R R E N C Y , R A T E , R E A S O N )
|
|
8492
|
|
|
8493
|
V A L U E S ( @ p _ B U D G E T _ I D , @ G D _ I D , @ p _ R E Q _ P A Y _ I D , @ T R A D E _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ C U R R E N C Y , @ R A T E , @ R E A S O N )
|
|
8494
|
|
|
8495
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
8496
|
|
|
8497
|
F E T C H N E X T F R O M X m l D a t a G o o d I N T O @ T R A D E _ I D , @ G D _ I D , @ A M T _ A P P , @ A M T _ D O , @ A M T _ E X E , @ A M T _ R E M A I N _ G D , @ C U R R E N C Y , @ R A T E , @ R E A S O N
|
|
8498
|
|
|
8499
|
E N D ;
|
|
8500
|
|
|
8501
|
C L O S E X m l D a t a G o o d ;
|
|
8502
|
|
|
8503
|
D E A L L O C A T E X m l D a t a G o o d ;
|
|
8504
|
|
|
8505
|
- - I N S E R T F R O M M e t h o d C u r s o r
|
|
8506
|
|
|
8507
|
D E L E T E F R O M T R _ R E Q _ P A Y _ M E T H O D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8508
|
|
|
8509
|
S E T @ I N D E X = 0
|
|
8510
|
|
|
8511
|
F E T C H N E X T F R O M X m l D a t a M e t h o d I N T O @ R E C E I V E _ I D , @ R E C E I V E _ N A M E , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E ,
|
|
8512
|
|
|
8513
|
@ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ A C C _ N O , @ A C C _ N A M E , @ I S S U E D _ B Y , @ I S S U E D _ D T , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N , @ T Y P E _ T R A N S
|
|
8514
|
|
|
8515
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
8516
|
|
|
8517
|
B E G I N
|
|
8518
|
|
|
8519
|
I F ( @ R E Q _ P A Y _ T Y P E < > ' 1 ' )
|
|
8520
|
|
|
8521
|
B E G I N
|
|
8522
|
|
|
8523
|
S E T @ I S S U E D _ D T = N U L L
|
|
8524
|
|
|
8525
|
E N D
|
|
8526
|
|
|
8527
|
S E T @ I N D E X = @ I N D E X + 1
|
|
8528
|
|
|
8529
|
D E C L A R E @ p _ R E Q _ P A Y _ M E T H O D _ I D V A R C H A R ( 1 5 ) ;
|
|
8530
|
|
|
8531
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ M E T H O D ' , @ p _ R E Q _ P A Y _ M E T H O D _ I D O U T ;
|
|
8532
|
|
|
8533
|
I F @ p _ R E Q _ P A Y _ M E T H O D _ I D = ' ' O R @ p _ R E Q _ P A Y _ M E T H O D _ I D I S N U L L G O T O A B O R T ;
|
|
8534
|
|
|
8535
|
I N S E R T I N T O T R _ R E Q _ P A Y _ M E T H O D
|
|
8536
|
|
|
8537
|
V A L U E S ( @ p _ R E Q _ P A Y _ M E T H O D _ I D , @ p _ R E Q _ P A Y _ I D , @ R E C E I V E _ I D , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , ' ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ A C C _ N O , @ A C C _ N A M E , @ I S S U E D _ B Y , C O N V E R T ( D A T E , @ I S S U E D _ D T , 1 0 3 ) , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N , @ T Y P E _ T R A N S )
|
|
8538
|
|
|
8539
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
8540
|
|
|
8541
|
F E T C H N E X T F R O M X m l D a t a M e t h o d I N T O @ R E C E I V E _ I D , @ R E C E I V E _ N A M E , @ R E Q _ P A Y _ R E A S O N , @ T O T A L _ A M T _ M E T H O D , @ R E Q _ P A Y _ T Y P E , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ A C C _ N O , @ A C C _ N A M E , @ I S S U E D _ B Y , @ I S S U E D _ D T , @ C U R R E N C Y , @ R A T E , @ C H E C K _ I N , @ T Y P E _ T R A N S
|
|
8542
|
|
|
8543
|
E N D
|
|
8544
|
|
|
8545
|
C L O S E X m l D a t a M e t h o d ;
|
|
8546
|
|
|
8547
|
D E A L L O C A T E X m l D a t a M e t h o d ;
|
|
8548
|
|
|
8549
|
- - - E N D I N S E R T N G A N S A C H
|
|
8550
|
|
|
8551
|
- - - I N S E R T V A O B A N G C H U N G T U D I N H K E M
|
|
8552
|
|
|
8553
|
- - I N S E R T C H U N G T U D I N H K E M
|
|
8554
|
|
|
8555
|
D E L E T E F R O M T R _ R E Q _ P A Y _ A T T A C H W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8556
|
|
|
8557
|
- - O P E N X m l A t t a c h ;
|
|
8558
|
|
|
8559
|
F E T C H N E X T F R O M X m l A t t a c h I N T O @ A T T A C H _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , @ R E F _ D T
|
|
8560
|
|
|
8561
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
8562
|
|
|
8563
|
B E G I N
|
|
8564
|
|
|
8565
|
I F ( @ R E F _ D T = ' ' )
|
|
8566
|
|
|
8567
|
B E G I N
|
|
8568
|
|
|
8569
|
S E T @ R E F _ D T = N U L L
|
|
8570
|
|
|
8571
|
E N D
|
|
8572
|
|
|
8573
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ A T T A C H ' , @ A T T A C H _ I D O U T ;
|
|
8574
|
|
|
8575
|
I F @ A T T A C H _ I D = ' ' O R @ A T T A C H _ I D I S N U L L G O T O A B O R T ;
|
|
8576
|
|
|
8577
|
I N S E R T I N T O T R _ R E Q _ P A Y _ A T T A C H ( A T T A C H _ I D , R E Q _ P A Y _ I D , R E F _ I D , R E F _ C O D E , N O T E S , [ D E S C R I P T I O N ] , [ T Y P E ] , [ A M T ] , R E F _ D T ) V A L U E S
|
|
8578
|
|
|
8579
|
( @ A T T A C H _ I D , @ p _ R E Q _ P A Y _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , C O N V E R T ( D A T E , @ R E F _ D T , 1 0 3 ) )
|
|
8580
|
|
|
8581
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
8582
|
|
|
8583
|
F E T C H N E X T F R O M X m l A t t a c h I N T O @ A T T A C H _ I D , @ C O N _ I D , @ C O N T _ C O D E , @ N O T E S , @ C O N _ D E S C , @ C O N _ T Y P E , @ A M T _ A T T , @ R E F _ D T
|
|
8584
|
|
|
8585
|
E N D
|
|
8586
|
|
|
8587
|
C L O S E X m l A t t a c h ;
|
|
8588
|
|
|
8589
|
D E A L L O C A T E X m l A t t a c h ;
|
|
8590
|
|
|
8591
|
- - - - E N D
|
|
8592
|
|
|
8593
|
- - - - - - - - - - - - - - - - - - - - - - - -
|
|
8594
|
|
|
8595
|
I F ( @ p _ R E Q _ T Y P E = ' I ' )
|
|
8596
|
|
|
8597
|
B E G I N
|
|
8598
|
|
|
8599
|
- - B E G I N C U R R S O R 2
|
|
8600
|
|
|
8601
|
D E L E T E F R O M T R _ R E Q _ P A Y M E N T _ D T W H E R E P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8602
|
|
|
8603
|
F E T C H N E X T F R O M X m l D a t a P a y I N T O @ P A Y _ A D V _ I D , @ A M T _ A D V A N C E D , @ A M T _ D O , @ A M T _ R E M A I N , @ A M T _ P A Y , @ A M T _ U S E , @ A M T _ R E V E R T , @ A M T _ A D D , @ C U R R E N C Y , @ R A T E
|
|
8604
|
|
|
8605
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
8606
|
|
|
8607
|
B E G I N
|
|
8608
|
|
|
8609
|
S E T @ I N D E X _ A D = @ I N D E X _ A D + 1
|
|
8610
|
|
|
8611
|
S E T @ R E Q _ P A Y _ A D V _ C O D E = ( S E L E C T R E Q _ P A Y _ C O D E F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E R E Q _ P A Y _ I D = @ P A Y _ A D V _ I D )
|
|
8612
|
|
|
8613
|
S E T @ I N D E X _ A D = @ I N D E X _ A D + 1
|
|
8614
|
|
|
8615
|
- - K H I N A O B A M G U I P H E D U Y E T H E T H O N G M O I C H E C K V A L I D A T E
|
|
8616
|
|
|
8617
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
8618
|
|
|
8619
|
B E G I N
|
|
8620
|
|
|
8621
|
- - K I E M T R A X E M C O P H I E U N A O D A N G D U O C T H A N H T O A N H O A N T A M U N G M A C H U A D U Y E T H A Y C H U A
|
|
8622
|
|
|
8623
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y M E N T _ D T W H E R E ( P A Y _ A D V _ I D = @ P A Y _ A D V _ I D A N D ( A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) A N D P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
8624
|
|
|
8625
|
B E G I N
|
|
8626
|
|
|
8627
|
R O L L B A C K T R A N S A C T I O N
|
|
8628
|
|
|
8629
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ A D ) + N ' : P h i ? u t ? m ? n g s ? ' + @ R E Q _ P A Y _ A D V _ C O D E + N ' a n g ? ? c t h a n h t o ? n h o ? n t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
8630
|
|
|
8631
|
R E T U R N ' - 1 '
|
|
8632
|
|
|
8633
|
E N D
|
|
8634
|
|
|
8635
|
- - K I E M T R A N E U S O T I E N D E N G H I H O A N T A M ? N G L O N H O N S O T I E N C O N L A I C A N P H A I T A M U N G
|
|
8636
|
|
|
8637
|
I F ( @ A M T _ R E V E R T > ( @ A M T _ R E M A I N - @ A M T _ U S E ) A N D @ A M T _ R E V E R T > 0 )
|
|
8638
|
|
|
8639
|
B E G I N
|
|
8640
|
|
|
8641
|
R O L L B A C K T R A N S A C T I O N
|
|
8642
|
|
|
8643
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ A D ) + N ' : S ? t i ? n h o ? n ? n g k h ? n g ? ? c v ? ? t q u ? ' + F O R M A T ( ( @ A M T _ R E M A I N - @ A M T _ U S E ) , ' # , # ' , ' v i - V N ' ) E r r o r D e s c
|
|
8644
|
|
|
8645
|
R E T U R N ' - 1 '
|
|
8646
|
|
|
8647
|
E N D
|
|
8648
|
|
|
8649
|
E N D
|
|
8650
|
|
|
8651
|
D E C L A R E @ p _ R E Q _ P A Y D T _ I D V A R C H A R ( 1 5 ) ;
|
|
8652
|
|
|
8653
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y M E N T _ D T ' , @ p _ R E Q _ P A Y D T _ I D O U T ;
|
|
8654
|
|
|
8655
|
I F @ p _ R E Q _ P A Y D T _ I D = ' ' O R @ p _ R E Q _ P A Y D T _ I D I S N U L L G O T O A B O R T ;
|
|
8656
|
|
|
8657
|
I N S E R T I N T O T R _ R E Q _ P A Y M E N T _ D T
|
|
8658
|
|
|
8659
|
V A L U E S ( @ p _ R E Q _ P A Y D T _ I D , @ P A Y _ A D V _ I D , @ p _ R E Q _ P A Y _ I D , I S N U L L ( @ A M T _ A D V A N C E D , 0 ) , I S N U L L ( @ A M T _ D O , 0 ) , I S N U L L ( @ A M T _ R E M A I N , 0 ) ,
|
|
8660
|
|
|
8661
|
I S N U L L ( @ A M T _ P A Y , 0 ) , I S N U L L ( @ A M T _ U S E , 0 ) , I S N U L L ( @ A M T _ R E V E R T , 0 ) , I S N U L L ( @ A M T _ A D D , 0 ) , G E T D A T E ( ) , @ p _ M A K E R _ I D , G E T D A T E ( ) , N U L L , N U L L , ' U ' , N U L L , N U L L , N U L L , N U L L , N U L L , @ C U R R E N C Y , @ R A T E )
|
|
8662
|
|
|
8663
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
8664
|
|
|
8665
|
F E T C H N E X T F R O M X m l D a t a P a y I N T O @ P A Y _ A D V _ I D , @ A M T _ A D V A N C E D , @ A M T _ D O , @ A M T _ R E M A I N , @ A M T _ P A Y , @ A M T _ U S E , @ A M T _ R E V E R T , @ A M T _ A D D , @ C U R R E N C Y , @ R A T E
|
|
8666
|
|
|
8667
|
E N D
|
|
8668
|
|
|
8669
|
C L O S E X m l D a t a P a y ;
|
|
8670
|
|
|
8671
|
D E A L L O C A T E X m l D a t a P a y ;
|
|
8672
|
|
|
8673
|
- - E N D C U R S O R 2 - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
8674
|
|
|
8675
|
- - - - - - - - - - - - - - - - - - - - - - - - -
|
|
8676
|
|
|
8677
|
- - I N S E R T F R O M C a t C u r s o r
|
|
8678
|
|
|
8679
|
D E L E T E F R O M T R _ R E Q _ P A Y _ C A T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8680
|
|
|
8681
|
F E T C H N E X T F R O M X m l D a t a C a t I N T O @ R E Q _ A D V _ I D , @ C A T _ N A M E , @ T O T A L _ A M T _ C A T , @ D E P T _ I D , @ C U R R E N C Y , @ R A T E
|
|
8682
|
|
|
8683
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
8684
|
|
|
8685
|
B E G I N
|
|
8686
|
|
|
8687
|
S E T @ I N D E X = @ I N D E X + 1
|
|
8688
|
|
|
8689
|
D E C L A R E @ p _ R E Q _ P A Y _ C A T _ I D V A R C H A R ( 1 5 ) ;
|
|
8690
|
|
|
8691
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ C A T ' , @ p _ R E Q _ P A Y _ C A T _ I D O U T ;
|
|
8692
|
|
|
8693
|
I F @ p _ R E Q _ P A Y _ C A T _ I D = ' ' O R @ p _ R E Q _ P A Y _ C A T _ I D I S N U L L G O T O A B O R T ;
|
|
8694
|
|
|
8695
|
I N S E R T I N T O T R _ R E Q _ P A Y _ C A T
|
|
8696
|
|
|
8697
|
V A L U E S ( @ p _ R E Q _ P A Y _ C A T _ I D , @ p _ R E Q _ P A Y _ I D , @ R E Q _ A D V _ I D , @ C A T _ N A M E , @ T O T A L _ A M T _ C A T , @ D E P T _ I D , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ C U R R E N C Y , @ R A T E )
|
|
8698
|
|
|
8699
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
8700
|
|
|
8701
|
F E T C H N E X T F R O M X m l D a t a C a t I N T O @ R E Q _ A D V _ I D , @ C A T _ N A M E , @ T O T A L _ A M T _ C A T , @ D E P T _ I D , @ C U R R E N C Y , @ R A T E
|
|
8702
|
|
|
8703
|
E N D
|
|
8704
|
|
|
8705
|
C L O S E X m l D a t a C a t ;
|
|
8706
|
|
|
8707
|
D E A L L O C A T E X m l D a t a C a t ;
|
|
8708
|
|
|
8709
|
D E L E T E F R O M T R _ R E Q _ P A Y _ P E R I O D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8710
|
|
|
8711
|
D E C L A R E X m l D a t a P e r i o d C U R S O R F O R
|
|
8712
|
|
|
8713
|
S E L E C T *
|
|
8714
|
|
|
8715
|
F R O M
|
|
8716
|
|
|
8717
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P e r i o d ' , 2 )
|
|
8718
|
|
|
8719
|
W I T H ( C O N T R A C T _ I D v a r c h a r ( 1 5 ) , P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
8720
|
|
|
8721
|
O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , A M T _ P A Y D E C I M A L ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) , F R O M _ D A T E V A R C H A R ( 2 0 ) , T O _ D A T E V A R C H A R ( 2 0 ) , A D _ P A Y _ I D V A R C H A R ( 1 5 ) , P R O C E S S V A R C H A R ( 5 ) , P A R E N T _ I D V A R C H A R ( 1 5 ) , P A Y _ P H A S E N V A R C H A R ( 2 5 0 ) , R E A S O N N V A R C H A R ( 2 0 0 0 ) )
|
|
8722
|
|
|
8723
|
O P E N X m l D a t a P e r i o d ;
|
|
8724
|
|
|
8725
|
D E C L A R E @ C O N T R A C T _ I D v a r c h a r ( 1 5 ) , @ P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , @ P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
8726
|
|
|
8727
|
@ O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ A M T _ P A Y _ P E R I O D D E C I M A L ( 1 8 , 2 ) , @ F R O M _ D A T E V A R C H A R ( 2 0 ) , @ T O _ D A T E V A R C H A R ( 2 0 ) , @ A D _ P A Y _ I D V A R C H A R ( 1 5 ) , @ _ P R O C E S S V A R C H A R ( 1 5 ) , @ P A R E N T _ I D V A R C H A R ( 1 5 ) , @ P A Y _ P H A S E N V A R C H A R ( 2 5 0 ) , @ R E A S O N _ T T D K N V A R C H A R ( 2 0 0 0 )
|
|
8728
|
|
|
8729
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
8730
|
|
|
8731
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ A D _ P A Y _ I D , @ _ P R O C E S S , @ P A R E N T _ I D , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
8732
|
|
|
8733
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
8734
|
|
|
8735
|
B E G I N
|
|
8736
|
|
|
8737
|
- - K H I N A O B A M G U I P H E D U Y E T H E T H O N G M O I C H E C K V A L I D A T E
|
|
8738
|
|
|
8739
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
8740
|
|
|
8741
|
B E G I N
|
|
8742
|
|
|
8743
|
I F ( @ N E W _ I N D E X < = @ O L D _ I N D E X A N D ( @ N E W _ I N D E X > 0 A N D @ O L D _ I N D E X > 0 ) )
|
|
8744
|
|
|
8745
|
B E G I N
|
|
8746
|
|
|
8747
|
R O L L B A C K T R A N S A C T I O N
|
|
8748
|
|
|
8749
|
S E L E C T ' - 1 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' C h ? s ? m ? i p h ? i l ? n h ? n c h ? s ? c i ' E r r o r D e s c
|
|
8750
|
|
|
8751
|
R E T U R N ' - 1 '
|
|
8752
|
|
|
8753
|
E N D
|
|
8754
|
|
|
8755
|
E N D
|
|
8756
|
|
|
8757
|
D E C L A R E @ P E R I O D _ I D V A R C H A R ( 1 5 ) ;
|
|
8758
|
|
|
8759
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ P E R I O D ' , @ P E R I O D _ I D O U T ;
|
|
8760
|
|
|
8761
|
I F @ P E R I O D _ I D = ' ' O R @ P E R I O D _ I D I S N U L L G O T O A B O R T ;
|
|
8762
|
|
|
8763
|
I N S E R T I N T O T R _ R E Q _ P A Y _ P E R I O D ( P E R I O D _ I D , R E Q _ P A Y _ I D , P A Y _ T Y P E , C O N T R A C T _ I D , P A Y _ D T _ R E A L , O L D _ I N D E X , N E W _ I N D E X , A M T _ P A Y , A U T H _ S T A T U S _ K T , C U R R E N C Y , R A T E , F R O M _ D A T E , T O _ D A T E , A D _ P A Y _ I D , P R O C E S S , P A R E N T _ I D , P A Y _ P H A S E , R E A S O N )
|
|
8764
|
|
|
8765
|
V A L U E S ( @ P E R I O D _ I D , @ p _ R E Q _ P A Y _ I D , ' P A Y ' , @ C O N T R A C T _ I D , C O N V E R T ( D A T E , @ P A Y _ D T _ R E A L , 1 0 3 ) ,
|
|
8766
|
|
|
8767
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , ' U ' , @ C U R R E N C Y , @ R A T E , C O N V E R T ( D A T E , @ F R O M _ D A T E , 1 0 3 ) , C O N V E R T ( D A T E , @ T O _ D A T E , 1 0 3 ) , @ A D _ P A Y _ I D , @ _ P R O C E S S , @ P A R E N T _ I D , @ P A Y _ P H A S E , @ R E A S O N _ T T D K )
|
|
8768
|
|
|
8769
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
8770
|
|
|
8771
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
8772
|
|
|
8773
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ A D _ P A Y _ I D , @ _ P R O C E S S , @ P A R E N T _ I D , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
8774
|
|
|
8775
|
E N D
|
|
8776
|
|
|
8777
|
C L O S E X m l D a t a P e r i o d ;
|
|
8778
|
|
|
8779
|
D E A L L O C A T E X m l D a t a P e r i o d ;
|
|
8780
|
|
|
8781
|
- - V A L I D A T E S O T I E N
|
|
8782
|
|
|
8783
|
- - I F ( @ p _ R E Q _ A M T > = @ T O T A L _ S C H E D U L E _ A M T )
|
|
8784
|
|
|
8785
|
- - B E G I N
|
|
8786
|
|
|
8787
|
- - R O L L B A C K T R A N S A C T I O N
|
|
8788
|
|
|
8789
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' S ? t i ? n t h a n h t o ? n p h ? i n h ? h ? n h o ? c b ? n g t ? n g s ? t i ? n c ? n l ? i c ? n t h a n h t o ? n : ' + F O R M A T ( S U M ( @ T O T A L _ S C H E D U L E _ A M T ) , ' # , # ' , ' v i - V N ' ) E r r o r D e s c
|
|
8790
|
|
|
8791
|
- - R E T U R N ' - 1 '
|
|
8792
|
|
|
8793
|
- - E N D
|
|
8794
|
|
|
8795
|
E N D
|
|
8796
|
|
|
8797
|
I F ( @ p _ R E Q _ T Y P E = ' D ' O R @ p _ R E Q _ T Y P E = ' I ' )
|
|
8798
|
|
|
8799
|
B E G I N
|
|
8800
|
|
|
8801
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
8802
|
|
|
8803
|
D E L E T E F R O M T R _ R E Q _ P A Y _ S E R V I C E W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8804
|
|
|
8805
|
- - I N S E R T F R O M S e r v i c e C u r s o r
|
|
8806
|
|
|
8807
|
S E T @ I N D E X = 0
|
|
8808
|
|
|
8809
|
F E T C H N E X T F R O M X m l D a t a S e r v i c e I N T O @ R E Q _ P A Y _ S E R V I C E _ N A M E , @ R E C E I V E _ I D _ S E R V I C E , @ R E C E I V E _ N A M E _ S E R V I C E , @ R E Q _ P A Y _ R E A S O N _ S E R V I C E , @ T O T A L _ A M T _ S E R V I C E ,
|
|
8810
|
|
|
8811
|
@ R E Q _ P A Y _ T Y P E _ S E R V I C E , @ R E Q _ P A Y _ D E S C _ S E R V I C E , @ R E Q _ P A Y _ E N T R I E S _ S E R V I C E , @ D E P T _ I D _ S R V , @ C U R R E N C Y , @ R A T E
|
|
8812
|
|
|
8813
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
8814
|
|
|
8815
|
B E G I N
|
|
8816
|
|
|
8817
|
S E T @ I N D E X = @ I N D E X + 1
|
|
8818
|
|
|
8819
|
D E C L A R E @ p _ R E Q _ P A Y _ S E R V I C E _ I D V A R C H A R ( 1 5 ) ;
|
|
8820
|
|
|
8821
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ S E R V I C E ' , @ p _ R E Q _ P A Y _ S E R V I C E _ I D O U T ;
|
|
8822
|
|
|
8823
|
I F @ p _ R E Q _ P A Y _ S E R V I C E _ I D = ' ' O R @ p _ R E Q _ P A Y _ S E R V I C E _ I D I S N U L L G O T O A B O R T ;
|
|
8824
|
|
|
8825
|
I N S E R T I N T O T R _ R E Q _ P A Y _ S E R V I C E ( S E R V I C E _ I D , R E Q _ P A Y _ I D , S E R V I C E _ N A M E , E M P _ I D , R E Q _ P A Y _ R E A S O N , T O T A L _ A M T , R E Q _ P A Y _ T Y P E , R E Q _ P A Y _ D E S C , R E Q _ P A Y _ E N T R I E S , M A K E R _ I D , C R E A T E _ D T , D E P T _ I D , C U R R E N C Y , R A T E )
|
|
8826
|
|
|
8827
|
V A L U E S ( @ p _ R E Q _ P A Y _ S E R V I C E _ I D , @ p _ R E Q _ P A Y _ I D , @ R E Q _ P A Y _ S E R V I C E _ N A M E , @ R E C E I V E _ I D _ S E R V I C E , @ R E Q _ P A Y _ R E A S O N _ S E R V I C E , @ T O T A L _ A M T _ S E R V I C E ,
|
|
8828
|
|
|
8829
|
@ R E Q _ P A Y _ T Y P E _ S E R V I C E , @ R E Q _ P A Y _ D E S C _ S E R V I C E , @ R E Q _ P A Y _ E N T R I E S _ S E R V I C E , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ D E P T _ I D _ S R V , @ C U R R E N C Y , @ R A T E )
|
|
8830
|
|
|
8831
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
8832
|
|
|
8833
|
F E T C H N E X T F R O M X m l D a t a S e r v i c e I N T O @ R E Q _ P A Y _ S E R V I C E _ N A M E , @ R E C E I V E _ I D _ S E R V I C E , @ R E C E I V E _ N A M E _ S E R V I C E , @ R E Q _ P A Y _ R E A S O N _ S E R V I C E , @ T O T A L _ A M T _ S E R V I C E , @ R E Q _ P A Y _ T Y P E _ S E R V I C E ,
|
|
8834
|
|
|
8835
|
@ R E Q _ P A Y _ D E S C _ S E R V I C E , @ R E Q _ P A Y _ E N T R I E S _ S E R V I C E , @ D E P T _ I D _ S R V , @ C U R R E N C Y , @ R A T E
|
|
8836
|
|
|
8837
|
E N D
|
|
8838
|
|
|
8839
|
C L O S E X m l D a t a S e r v i c e ;
|
|
8840
|
|
|
8841
|
D E A L L O C A T E X m l D a t a S e r v i c e ;
|
|
8842
|
|
|
8843
|
E N D
|
|
8844
|
|
|
8845
|
I F ( ( @ p _ R E Q _ T Y P E = ' P ' A N D ( @ p _ I S _ P E R I O D < > ' Y ' O R @ p _ I S _ P E R I O D I S N U L L ) ) O R @ p _ R E Q _ T Y P E = ' I ' )
|
|
8846
|
|
|
8847
|
B E G I N
|
|
8848
|
|
|
8849
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
8850
|
|
|
8851
|
D E L E T E F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8852
|
|
|
8853
|
D E C L A R E @ I N D E X _ P O I N T , @ R E F _ I D V A R C H A R ( 1 5 ) , @ I S _ C L O S E D V A R C H A R ( 1 )
|
|
8854
|
|
|
8855
|
D E C L A R E X m l D a t a P O C U R S O R F O R
|
|
8856
|
|
|
8857
|
S E L E C T *
|
|
8858
|
|
|
8859
|
F R O M
|
|
8860
|
|
|
8861
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P O ' , 2 )
|
|
8862
|
|
|
8863
|
W I T H ( R E F _ I D v a r c h a r ( 1 5 ) , I S _ C L O S E D V A R C H A R ( 1 ) , R E F _ T Y P E V A R C H A R ( 1 5 ) )
|
|
8864
|
|
|
8865
|
O P E N X m l D a t a P O ;
|
|
8866
|
|
|
8867
|
S E T @ I N D E X _ P O = 0
|
|
8868
|
|
|
8869
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
8870
|
|
|
8871
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
8872
|
|
|
8873
|
B E G I N
|
|
8874
|
|
|
8875
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
8876
|
|
|
8877
|
- - K H I N A O B A M G U I P H E D U Y E T H E T H O N G M O I C H E C K V A L I D A T E
|
|
8878
|
|
|
8879
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
8880
|
|
|
8881
|
B E G I N
|
|
8882
|
|
|
8883
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
8884
|
|
|
8885
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E F _ T Y P E = ' C ' A N D R E Q _ P A Y _ I D
|
|
8886
|
|
|
8887
|
I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
8888
|
|
|
8889
|
B E G I N
|
|
8890
|
|
|
8891
|
R O L L B A C K T R A N S A C T I O N
|
|
8892
|
|
|
8893
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : H ? p ? n g s ? ' +
|
|
8894
|
|
|
8895
|
( S E L E C T C O N T R A C T _ I D F R O M T R _ C O N T R A C T W H E R E C O N T R A C T _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
8896
|
|
|
8897
|
R E T U R N ' - 1 '
|
|
8898
|
|
|
8899
|
E N D
|
|
8900
|
|
|
8901
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
8902
|
|
|
8903
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E F _ T Y P E = ' C ' A N D R E Q _ P A Y _ I D I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) A N D R E Q _ P A Y _ I D < > @ p _ R E Q _ P A Y _ I D ) )
|
|
8904
|
|
|
8905
|
B E G I N
|
|
8906
|
|
|
8907
|
R O L L B A C K T R A N S A C T I O N
|
|
8908
|
|
|
8909
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : H ? p ? n g s ? ' +
|
|
8910
|
|
|
8911
|
( S E L E C T C O N T R A C T _ I D F R O M T R _ C O N T R A C T W H E R E C O N T R A C T _ I D = @ R E F _ I D ) + N ' a n g ? ? c t h a n h t o ? n . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
8912
|
|
|
8913
|
R E T U R N ' - 1 '
|
|
8914
|
|
|
8915
|
E N D
|
|
8916
|
|
|
8917
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
8918
|
|
|
8919
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E F _ T Y P E = ' P ' A N D R E Q _ P A Y _ I D
|
|
8920
|
|
|
8921
|
I N ( S E L E C T R E Q _ P A Y _ I D F R O M T R _ R E Q _ A D V A N C E _ P A Y M E N T W H E R E A U T H _ S T A T U S _ K T < > ' A ' O R A U T H _ S T A T U S _ K T I S N U L L ) ) )
|
|
8922
|
|
|
8923
|
B E G I N
|
|
8924
|
|
|
8925
|
R O L L B A C K T R A N S A C T I O N
|
|
8926
|
|
|
8927
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
8928
|
|
|
8929
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' a n g ? ? c t ? m ? n g . V u i l ? n g ? i g i a o d ? c h h o ? n t ? t ' E r r o r D e s c
|
|
8930
|
|
|
8931
|
R E T U R N ' - 1 '
|
|
8932
|
|
|
8933
|
E N D
|
|
8934
|
|
|
8935
|
- - K I E M T R A N E U C O P O N A O D O D A N G T H U C H I E N T H A N H T O A N H O A C T A M U N G T H I P H A I T H O N G B A O C H O H O A N T A T G I A O D I C H
|
|
8936
|
|
|
8937
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E F _ I D = @ R E F _ I D A N D R E F _ T Y P E = ' P ' A N D R E F _ I D I N ( S E L E C T P O _ I D F R O M T R _ P O _ M A S T E R W H E R E I S _ C L O S E D = ' Y ' ) ) )
|
|
8938
|
|
|
8939
|
B E G I N
|
|
8940
|
|
|
8941
|
R O L L B A C K T R A N S A C T I O N
|
|
8942
|
|
|
8943
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' D o n g ' + C O N V E R T ( V A R C H A R ( 5 ) , @ I N D E X _ P O ) + N ' : P O s ? ' +
|
|
8944
|
|
|
8945
|
( S E L E C T P O _ C O D E F R O M T R _ P O _ M A S T E R W H E R E P O _ I D = @ R E F _ I D ) + N ' ? ? ? c t h a n h t o ? n x o n g . V u i l ? n g c h ? n P O k h ? c ? t ? m ? n g h o ? c x ? a b ? n n h ? p n ? y ' E r r o r D e s c
|
|
8946
|
|
|
8947
|
R E T U R N ' - 1 '
|
|
8948
|
|
|
8949
|
E N D
|
|
8950
|
|
|
8951
|
E N D
|
|
8952
|
|
|
8953
|
D E C L A R E @ R E Q _ P A Y D T I D V A R C H A R ( 1 5 ) ;
|
|
8954
|
|
|
8955
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ A D V A N C E _ D T ' , @ R E Q _ P A Y D T I D O U T ;
|
|
8956
|
|
|
8957
|
I F @ R E Q _ P A Y D T I D = ' ' O R @ R E Q _ P A Y D T I D I S N U L L G O T O A B O R T ;
|
|
8958
|
|
|
8959
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ D T ( R E Q _ P A Y D T I D , R E Q _ P A Y _ I D , R E F _ I D , T Y P E , M A K E R _ I D , C R E A T E _ D T , I S _ C L O S E D , R E F _ T Y P E ) V A L U E S
|
|
8960
|
|
|
8961
|
( @ R E Q _ P A Y D T I D , @ p _ R E Q _ P A Y _ I D , @ R E F _ I D , ' P A Y ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ I S _ C L O S E D , @ R E F _ T Y P E )
|
|
8962
|
|
|
8963
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
8964
|
|
|
8965
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
8966
|
|
|
8967
|
E N D
|
|
8968
|
|
|
8969
|
C L O S E X m l D a t a P O ;
|
|
8970
|
|
|
8971
|
D E A L L O C A T E X m l D a t a P O ;
|
|
8972
|
|
|
8973
|
- - I N S E R T F R O M S c h e d u l e C u r s o r
|
|
8974
|
|
|
8975
|
D E L E T E F R O M T R _ R E Q _ P A Y _ S C H E D U L E W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
8976
|
|
|
8977
|
S E T @ I N D E X _ P O = 0
|
|
8978
|
|
|
8979
|
F E T C H N E X T F R O M X m l D a t a S c h e d u l e I N T O @ P O _ I D , @ T E R M _ P A Y , @ A M T _ P A Y _ S C H E D U L E , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ R E M A I N _ S C H E D U L E , @ R E Q _ A D _ D T ,
|
|
8980
|
|
|
8981
|
@ P R O C E S S , @ P A Y _ I D , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ D O , @ A M T _ P A Y _ R E A L
|
|
8982
|
|
|
8983
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
8984
|
|
|
8985
|
B E G I N
|
|
8986
|
|
|
8987
|
- - I F ( @ A M T _ R E M A I N _ S C H E D U L E = 0 )
|
|
8988
|
|
|
8989
|
- - B E G I N
|
|
8990
|
|
|
8991
|
- - S E T @ P R O C E S S = ' 3 '
|
|
8992
|
|
|
8993
|
- - E N D
|
|
8994
|
|
|
8995
|
- - I F ( @ P R O C E S S < > ' 2 ' )
|
|
8996
|
|
|
8997
|
- - B E G I N
|
|
8998
|
|
|
8999
|
- - S E T @ T O T A L _ S C H E D U L E _ A M T = @ T O T A L _ S C H E D U L E _ A M T + @ A M T _ R E M A I N _ S C H E D U L E
|
|
9000
|
|
|
9001
|
- - E N D
|
|
9002
|
|
|
9003
|
S E T @ T O T A L _ S C H E D U L E _ A M T = @ T O T A L _ S C H E D U L E _ A M T + ( @ A M T _ P A Y _ S C H E D U L E - @ A M T _ A D V A N C E _ S C H E D U L E - @ A M T _ P A Y _ D O )
|
|
9004
|
|
|
9005
|
- - - -
|
|
9006
|
|
|
9007
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
9008
|
|
|
9009
|
D E C L A R E @ p _ R E Q _ P A Y _ S C H E D U L E _ I D V A R C H A R ( 1 5 ) ;
|
|
9010
|
|
|
9011
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ S C H E D U L E ' , @ p _ R E Q _ P A Y _ S C H E D U L E _ I D O U T ;
|
|
9012
|
|
|
9013
|
I F @ p _ R E Q _ P A Y _ S C H E D U L E _ I D = ' ' O R @ p _ R E Q _ P A Y _ S C H E D U L E _ I D I S N U L L G O T O A B O R T ;
|
|
9014
|
|
|
9015
|
I N S E R T I N T O T R _ R E Q _ P A Y _ S C H E D U L E ( S C H E D U L E _ I D , R E Q _ P A Y _ I D , P A Y _ I D , A M T _ P A Y , P A Y _ P H A S E , R E Q _ A D V _ I D , A M T _ A D V A N C E , A M T _ P A Y _ D O , A M T _ R E M A I N , R E Q _ P A Y _ D T , R E Q _ A D _ D T , P R O C E S S , M A K E R _ I D ,
|
|
9016
|
|
|
9017
|
C R E A T E _ D T , A U T H _ S T A T U S _ K T , P A Y M E N T _ S T A T U S , T R N _ T Y P E , R E F _ I D , R E Q _ P A Y _ D E S C , R E Q _ P A Y _ E N T R I E S , C U R R E N C Y , R A T E , A M T _ P A Y _ R E A L )
|
|
9018
|
|
|
9019
|
V A L U E S ( @ p _ R E Q _ P A Y _ S C H E D U L E _ I D , @ p _ R E Q _ P A Y _ I D , @ P A Y _ I D , @ A M T _ P A Y _ S C H E D U L E , @ T E R M _ P A Y , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E ,
|
|
9020
|
|
|
9021
|
- - I I F ( @ P R O C E S S < > ' 2 ' , ( @ A M T _ P A Y _ S C H E D U L E - @ A M T _ A D V A N C E _ S C H E D U L E ) , 0 ) ,
|
|
9022
|
|
|
9023
|
@ A M T _ P A Y _ D O ,
|
|
9024
|
|
|
9025
|
@ A M T _ R E M A I N _ S C H E D U L E , G E T D A T E ( ) , C O N V E R T ( D A T E T I M E , @ R E Q _ A D _ D T , 1 0 3 ) , @ P R O C E S S , @ p _ M A K E R _ I D , G E T D A T E ( ) , ' U ' , ' ' , ' P A Y ' , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ R E A L )
|
|
9026
|
|
|
9027
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
9028
|
|
|
9029
|
F E T C H N E X T F R O M X m l D a t a S c h e d u l e I N T O @ P O _ I D , @ T E R M _ P A Y , @ A M T _ P A Y _ S C H E D U L E , @ R E Q _ A D V _ I D _ S C H E , @ A M T _ A D V A N C E _ S C H E D U L E , @ A M T _ R E M A I N _ S C H E D U L E , @ R E Q _ A D _ D T ,
|
|
9030
|
|
|
9031
|
@ P R O C E S S , @ P A Y _ I D , @ R E F _ I D , @ R E Q _ P A Y _ D E S C , @ R E Q _ P A Y _ E N T R I E S , @ C U R R E N C Y , @ R A T E , @ A M T _ P A Y _ D O , @ A M T _ P A Y _ R E A L
|
|
9032
|
|
|
9033
|
E N D
|
|
9034
|
|
|
9035
|
C L O S E X m l D a t a S c h e d u l e ;
|
|
9036
|
|
|
9037
|
D E A L L O C A T E X m l D a t a S c h e d u l e ;
|
|
9038
|
|
|
9039
|
- - - - V A L I D A T E S O T I E N
|
|
9040
|
|
|
9041
|
- - I F ( @ p _ R E Q _ A M T > I S N U L L ( @ T O T A L _ S C H E D U L E _ A M T , 0 ) )
|
|
9042
|
|
|
9043
|
- - B E G I N
|
|
9044
|
|
|
9045
|
- - R O L L B A C K T R A N S A C T I O N
|
|
9046
|
|
|
9047
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' S ? t i ? n t h a n h t o ? n p h ? i n h ? h ? n h o ? c b ? n g t ? n g s ? t i ? n c ? n l ? i c ? n t h a n h t o ? n : ' + F O R M A T ( S U M ( @ T O T A L _ S C H E D U L E _ A M T ) , ' # , # ' , ' v i - V N ' ) E r r o r D e s c
|
|
9048
|
|
|
9049
|
- - R E T U R N ' - 1 '
|
|
9050
|
|
|
9051
|
- - E N D
|
|
9052
|
|
|
9053
|
- - - - - -
|
|
9054
|
|
|
9055
|
E N D
|
|
9056
|
|
|
9057
|
- - N E U L A T H A N H T O A N C A C H O P D O N G D I N H K Y
|
|
9058
|
|
|
9059
|
E L S E I F ( ( @ p _ R E Q _ T Y P E = ' P ' A N D @ p _ I S _ P E R I O D = ' Y ' ) O R @ p _ R E Q _ T Y P E = ' I ' )
|
|
9060
|
|
|
9061
|
B E G I N
|
|
9062
|
|
|
9063
|
D E L E T E F R O M T R _ R E Q _ A D V A N C E _ D T W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
9064
|
|
|
9065
|
D E L E T E F R O M T R _ R E Q _ P A Y _ P E R I O D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
9066
|
|
|
9067
|
D E C L A R E X m l D a t a P O C U R S O R F O R
|
|
9068
|
|
|
9069
|
S E L E C T *
|
|
9070
|
|
|
9071
|
F R O M
|
|
9072
|
|
|
9073
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P O ' , 2 )
|
|
9074
|
|
|
9075
|
W I T H ( R E F _ I D v a r c h a r ( 1 5 ) , I S _ C L O S E D V A R C H A R ( 1 ) , R E F _ T Y P E V A R C H A R ( 1 5 ) )
|
|
9076
|
|
|
9077
|
O P E N X m l D a t a P O ;
|
|
9078
|
|
|
9079
|
S E T @ I N D E X _ P O = 0
|
|
9080
|
|
|
9081
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
9082
|
|
|
9083
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
9084
|
|
|
9085
|
B E G I N
|
|
9086
|
|
|
9087
|
S E T @ I N D E X _ P O = @ I N D E X _ P O + 1
|
|
9088
|
|
|
9089
|
D E C L A R E @ R E Q _ P A Y D T I D _ C V A R C H A R ( 1 5 ) ;
|
|
9090
|
|
|
9091
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ A D V A N C E _ D T ' , @ R E Q _ P A Y D T I D _ C O U T ;
|
|
9092
|
|
|
9093
|
I F @ R E Q _ P A Y D T I D _ C = ' ' O R @ R E Q _ P A Y D T I D _ C I S N U L L G O T O A B O R T ;
|
|
9094
|
|
|
9095
|
I N S E R T I N T O T R _ R E Q _ A D V A N C E _ D T ( R E Q _ P A Y D T I D , R E Q _ P A Y _ I D , R E F _ I D , T Y P E , M A K E R _ I D , C R E A T E _ D T , I S _ C L O S E D , R E F _ T Y P E ) V A L U E S
|
|
9096
|
|
|
9097
|
( @ R E Q _ P A Y D T I D _ C , @ p _ R E Q _ P A Y _ I D , @ R E F _ I D , ' P A Y ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , @ I S _ C L O S E D , @ R E F _ T Y P E )
|
|
9098
|
|
|
9099
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
9100
|
|
|
9101
|
F E T C H N E X T F R O M X m l D a t a P O I N T O @ R E F _ I D , @ I S _ C L O S E D , @ R E F _ T Y P E
|
|
9102
|
|
|
9103
|
E N D
|
|
9104
|
|
|
9105
|
C L O S E X m l D a t a P O ;
|
|
9106
|
|
|
9107
|
D E A L L O C A T E X m l D a t a P O ;
|
|
9108
|
|
|
9109
|
- - - C U S O R D A N H S A C H L I C H T H A N H T O A N P O - H D
|
|
9110
|
|
|
9111
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
9112
|
|
|
9113
|
- - I N S E R T F R O M P E R I O D
|
|
9114
|
|
|
9115
|
D E C L A R E X m l D a t a P e r i o d C U R S O R F O R
|
|
9116
|
|
|
9117
|
S E L E C T *
|
|
9118
|
|
|
9119
|
F R O M
|
|
9120
|
|
|
9121
|
O P E N X M L ( @ h d o c , ' / R o o t / X m l D a t a P e r i o d ' , 2 )
|
|
9122
|
|
|
9123
|
W I T H ( C O N T R A C T _ I D v a r c h a r ( 1 5 ) , P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
9124
|
|
|
9125
|
O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , A M T _ P A Y D E C I M A L ( 1 8 , 2 ) , C U R R E N C Y V A R C H A R ( 5 ) , R A T E D E C I M A L ( 1 8 , 0 ) , F R O M _ D A T E V A R C H A R ( 2 0 ) , T O _ D A T E V A R C H A R ( 2 0 ) , A D _ P A Y _ I D V A R C H A R ( 1 5 ) ,
|
|
9126
|
|
|
9127
|
P R O C E S S V A R C H A R ( 5 ) , P A R E N T _ I D V A R C H A R ( 1 5 ) , P A Y _ P H A S E N V A R C H A R ( 2 5 0 ) , R E A S O N N V A R C H A R ( 2 0 0 0 ) )
|
|
9128
|
|
|
9129
|
O P E N X m l D a t a P e r i o d ;
|
|
9130
|
|
|
9131
|
- - D E C L A R E @ C O N T R A C T _ I D v a r c h a r ( 1 5 ) , @ P A Y _ D T _ R E A L V A R C H A R ( 2 0 ) , @ P A Y _ T Y P E V A R C H A R ( 5 ) ,
|
|
9132
|
|
|
9133
|
- - @ O L D _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ N E W _ I N D E X D E C I M A L ( 1 8 , 0 ) , @ A M T _ P A Y _ P E R I O D D E C I M A L ( 1 8 , 2 ) , @ F R O M _ D A T E V A R C H A R ( 2 0 ) , @ T O _ D A T E V A R C H A R ( 2 0 ) , @ A D _ P A Y _ I D V A R C H A R ( 1 5 ) , @ _ P R O C E S S V A R C H A R ( 1 5 ) , @ P A R E N T _ I D V A R C H A R ( 1 5 ) , @ P A Y _ P H A S E N V A R C H A R ( 2 5 0 )
|
|
9134
|
|
|
9135
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
9136
|
|
|
9137
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ A D _ P A Y _ I D , @ _ P R O C E S S , @ P A R E N T _ I D , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
9138
|
|
|
9139
|
W H I L E @ @ f e t c h _ s t a t u s = 0
|
|
9140
|
|
|
9141
|
B E G I N
|
|
9142
|
|
|
9143
|
- - K H I N A O B A M G U I P H E D U Y E T H E T H O N G M O I C H E C K V A L I D A T E
|
|
9144
|
|
|
9145
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' )
|
|
9146
|
|
|
9147
|
B E G I N
|
|
9148
|
|
|
9149
|
I F ( E X I S T S ( S E L E C T C O N T R A C T _ I D
|
|
9150
|
|
|
9151
|
F R O M T R _ C O N T R A C T
|
|
9152
|
|
|
9153
|
W H E R E C O N T R A C T _ I D = @ R E F _ I D A N D C O N V E R T ( D A T E , E N D _ D T , 1 0 3 ) < C O N V E R T ( D A T E , G E T D A T E ( ) , 1 0 3 ) A N D E N D _ D T I S N O T N U L L A N D C O N T _ T Y P E = ' D K ' A N D C O N T _ T Y P E I S N O T N U L L A N D C O N T _ T Y P E < > ' ' ) )
|
|
9154
|
|
|
9155
|
B E G I N
|
|
9156
|
|
|
9157
|
R O L L B A C K T R A N S A C T I O N
|
|
9158
|
|
|
9159
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' T h a n h t o ? n h ? p ? n g ? n h k ? ? ? n g ' E r r o r D e s c
|
|
9160
|
|
|
9161
|
R E T U R N ' - 1 '
|
|
9162
|
|
|
9163
|
E N D
|
|
9164
|
|
|
9165
|
|
|
9166
|
|
|
9167
|
I F ( @ N E W _ I N D E X < = @ O L D _ I N D E X A N D ( @ N E W _ I N D E X > 0 A N D @ O L D _ I N D E X > 0 ) )
|
|
9168
|
|
|
9169
|
B E G I N
|
|
9170
|
|
|
9171
|
R O L L B A C K T R A N S A C T I O N
|
|
9172
|
|
|
9173
|
S E L E C T ' - 1 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , ' ' A S R E Q _ P A Y _ C O D E , N ' C h ? s ? m ? i p h ? i l ? n h ? n c h ? s ? c i ' E r r o r D e s c
|
|
9174
|
|
|
9175
|
R E T U R N ' - 1 '
|
|
9176
|
|
|
9177
|
E N D
|
|
9178
|
|
|
9179
|
E N D
|
|
9180
|
|
|
9181
|
- - D E C L A R E @ P E R I O D _ I D V A R C H A R ( 1 5 ) ;
|
|
9182
|
|
|
9183
|
E X E C S Y S _ C o d e M a s t e r s _ G e n ' T R _ R E Q _ P A Y _ P E R I O D ' , @ P E R I O D _ I D O U T ;
|
|
9184
|
|
|
9185
|
I F @ P E R I O D _ I D = ' ' O R @ P E R I O D _ I D I S N U L L G O T O A B O R T ;
|
|
9186
|
|
|
9187
|
I N S E R T I N T O T R _ R E Q _ P A Y _ P E R I O D ( P E R I O D _ I D , R E Q _ P A Y _ I D , P A Y _ T Y P E , C O N T R A C T _ I D , P A Y _ D T _ R E A L , O L D _ I N D E X , N E W _ I N D E X , A M T _ P A Y , A U T H _ S T A T U S _ K T , C U R R E N C Y , R A T E , F R O M _ D A T E , T O _ D A T E , A D _ P A Y _ I D , P R O C E S S , P A R E N T _ I D , P A Y _ P H A S E , R E A S O N )
|
|
9188
|
|
|
9189
|
V A L U E S ( @ P E R I O D _ I D , @ p _ R E Q _ P A Y _ I D , ' P A Y ' , @ C O N T R A C T _ I D , C O N V E R T ( D A T E , @ P A Y _ D T _ R E A L , 1 0 3 ) ,
|
|
9190
|
|
|
9191
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , ' U ' , @ C U R R E N C Y , @ R A T E , C O N V E R T ( D A T E , @ F R O M _ D A T E , 1 0 3 ) , C O N V E R T ( D A T E , @ T O _ D A T E , 1 0 3 ) , @ A D _ P A Y _ I D , @ _ P R O C E S S , @ P A R E N T _ I D , @ P A Y _ P H A S E , @ R E A S O N _ T T D K )
|
|
9192
|
|
|
9193
|
I F @ @ e r r o r < > 0 G O T O A B O R T ;
|
|
9194
|
|
|
9195
|
F E T C H N E X T F R O M X m l D a t a P e r i o d I N T O @ C O N T R A C T _ I D , @ P A Y _ D T _ R E A L , @ P A Y _ T Y P E ,
|
|
9196
|
|
|
9197
|
@ O L D _ I N D E X , @ N E W _ I N D E X , @ A M T _ P A Y _ P E R I O D , @ C U R R E N C Y , @ R A T E , @ F R O M _ D A T E , @ T O _ D A T E , @ A D _ P A Y _ I D , @ _ P R O C E S S , @ P A R E N T _ I D , @ P A Y _ P H A S E , @ R E A S O N _ T T D K
|
|
9198
|
|
|
9199
|
E N D
|
|
9200
|
|
|
9201
|
C L O S E X m l D a t a P e r i o d ;
|
|
9202
|
|
|
9203
|
D E A L L O C A T E X m l D a t a P e r i o d ;
|
|
9204
|
|
|
9205
|
- - - - V A L I D A T E S O T I E N
|
|
9206
|
|
|
9207
|
- - I F ( @ p _ R E Q _ A M T > = @ T O T A L _ S C H E D U L E _ A M T )
|
|
9208
|
|
|
9209
|
- - B E G I N
|
|
9210
|
|
|
9211
|
- - R O L L B A C K T R A N S A C T I O N
|
|
9212
|
|
|
9213
|
- - S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' S ? t i ? n t h a n h t o ? n p h ? i n h ? h ? n h o ? c b ? n g t ? n g s ? t i ? n c ? n l ? i c ? n t h a n h t o ? n : ' + F O R M A T ( S U M ( @ T O T A L _ S C H E D U L E _ A M T ) , ' # , # ' , ' v i - V N ' ) E r r o r D e s c
|
|
9214
|
|
|
9215
|
- - R E T U R N ' - 1 '
|
|
9216
|
|
|
9217
|
- - E N D
|
|
9218
|
|
|
9219
|
- -
|
|
9220
|
|
|
9221
|
E N D
|
|
9222
|
|
|
9223
|
C O M M I T T R A N S A C T I O N
|
|
9224
|
|
|
9225
|
I F ( @ p _ T Y P E _ F U N C T I O N = ' S E N D ' ) - - K I E M T R A N E U 2 B I E N X M L K H A C N U L L T U C L A D A N G T R O N G Q U A T R I N H L U U N H A P
|
|
9226
|
|
|
9227
|
B E G I N
|
|
9228
|
|
|
9229
|
D E C L A R E @ B R A N C H _ T Y P E _ C R V A R C H A R ( 1 5 )
|
|
9230
|
|
|
9231
|
S E T @ B R A N C H _ T Y P E _ C R = ( S E L E C T T O P 1 B R A N C H _ T Y P E F R O M C M _ B R A N C H W H E R E B R A N C H _ I D = @ p _ B R A N C H _ C R E A T E )
|
|
9232
|
|
|
9233
|
- - I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y M E N T W H E R E T R A S F E R _ U S E R _ R E C I V E = ' ' O R T R A S F E R _ U S E R _ R E C I V E I S N U L L ) A N D @ B R A N C H _ T Y P E _ C R = ' H S ' A N D @ p _ R E Q _ T Y P E = ' I ' )
|
|
9234
|
|
|
9235
|
- - B E G I N
|
|
9236
|
|
|
9237
|
- - D E C L A R E @ U S E R _ T P V A R C H A R ( 1 5 )
|
|
9238
|
|
|
9239
|
- - S E T @ U S E R _ T P = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R W H E R E S E C U R _ C O D E = @ p _ D E P _ I D A N D R o l e N a m e I N ( ' G D D V ' , ' T P T C ' , ' T C ' , ' K T T ' ) )
|
|
9240
|
|
|
9241
|
- - U P D A T E T R _ R E Q _ P A Y M E N T S E T T R A S F E R _ U S E R _ R E C I V E = @ U S E R _ T P W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
9242
|
|
|
9243
|
- - E N D
|
|
9244
|
|
|
9245
|
- - E L S E
|
|
9246
|
|
|
9247
|
I F ( E X I S T S ( S E L E C T * F R O M T R _ R E Q _ P A Y M E N T W H E R E T R A S F E R _ U S E R _ R E C I V E = ' ' O R T R A S F E R _ U S E R _ R E C I V E I S N U L L ) A N D @ B R A N C H _ T Y P E _ C R = ' P G D ' )
|
|
9248
|
|
|
9249
|
B E G I N
|
|
9250
|
|
|
9251
|
- - D E C L A R E @ U S E R _ T P G D V A R C H A R ( 1 5 )
|
|
9252
|
|
|
9253
|
- - S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R W H E R E S E C U R _ C O D E = @ p _ D E P _ I D A N D R o l e N a m e I N ( ' T P G D ' ) )
|
|
9254
|
|
|
9255
|
D E C L A R E @ U S E R _ T P G D V A R C H A R ( 1 5 )
|
|
9256
|
|
|
9257
|
S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R W H E R E S E C U R _ C O D E = @ p _ D E P _ I D A N D
|
|
9258
|
|
|
9259
|
( R o l e N a m e I N ( ' T P G D ' ) O R R o l e N a m e I N ( S E L E C T R O L E _ O L D F R O M T L _ S Y S _ R O L E _ M A P P I N G W H E R E R O L E _ N E W = ' G D D V ' ) ) )
|
|
9260
|
|
|
9261
|
I F ( @ U S E R _ T P G D I S N U L L O R @ U S E R _ T P G D = ' ' )
|
|
9262
|
|
|
9263
|
B E G I N
|
|
9264
|
|
|
9265
|
S E T @ U S E R _ T P G D = ( S E L E C T T O P 1 T L N A N M E F R O M T L _ U S E R _ V 2 W H E R E T L S U B B R I D = @ p _ B R A N C H _ C R E A T E
|
|
9266
|
|
|
9267
|
A N D R o l e N a m e = ' T P G D ' )
|
|
9268
|
|
|
9269
|
E N D
|
|
9270
|
|
|
9271
|
U P D A T E T R _ R E Q _ P A Y M E N T S E T T R A S F E R _ U S E R _ R E C I V E = @ U S E R _ T P G D W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
9272
|
|
|
9273
|
E N D
|
|
9274
|
|
|
9275
|
- - C A P N H A T T I N H T R A N G D U Y E T K E T O A N L A D A N G X U L Y
|
|
9276
|
|
|
9277
|
U P D A T E T R _ R E Q _ P A Y M E N T S E T A U T H _ S T A T U S = ' U ' , P R O C E S S = N U L L W H E R E R E Q _ P A Y _ I D = @ p _ R E Q _ P A Y _ I D
|
|
9278
|
|
|
9279
|
I N S E R T I N T O d b o . P L _ P R O C E S S ( R E Q _ I D , P R O C E S S _ I D , C H E C K E R _ I D , A P P R O V E _ D T , P R O C E S S _ D E S C , N O T E S )
|
|
9280
|
|
|
9281
|
V A L U E S ( @ p _ R E Q _ P A Y _ I D , ' S E N D ' , @ p _ M A K E R _ I D , G E T D A T E ( ) , N ' ? n v ? g ? i p h ? d u y ? t ' , N ' ? n v ? t ? o p h i ? u t h a n h t o ? n v ? g ? i p h ? d u y ? t ' )
|
|
9282
|
|
|
9283
|
S E L E C T ' 4 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , N ' G ? i p h ? d u y ? t t h ? n h c ? n g ' E r r o r D e s c
|
|
9284
|
|
|
9285
|
R E T U R N ' 4 '
|
|
9286
|
|
|
9287
|
E N D
|
|
9288
|
|
|
9289
|
S E L E C T ' 0 ' a s R e s u l t , @ p _ R E Q _ P A Y _ I D R E Q _ P A Y _ I D , ' ' E r r o r D e s c
|
|
9290
|
|
|
9291
|
R E T U R N ' 0 '
|
|
9292
|
|
|
9293
|
A B O R T :
|
|
9294
|
|
|
9295
|
B E G I N
|
|
9296
|
|
|
9297
|
C L O S E X m l D a t a ;
|
|
9298
|
|
|
9299
|
D E A L L O C A T E X m l D a t a ;
|
|
9300
|
|
|
9301
|
C L O S E X m l D a t a P a y ;
|
|
9302
|
|
|
9303
|
D E A L L O C A T E X m l D a t a P a y ;
|
|
9304
|
|
|
9305
|
C l o s e X m l D a t a M e t h o d ;
|
|
9306
|
|
|
9307
|
C l o s e X m l D a t a C a t ;
|
|
9308
|
|
|
9309
|
C L O S E X m l D a t a S e r v i c e ;
|
|
9310
|
|
|
9311
|
C L O S E X m l D a t a S c h e d u l e ;
|
|
9312
|
|
|
9313
|
D e a l l o c a t e X m l D a t a M e t h o d ;
|
|
9314
|
|
|
9315
|
D e a l l o c a t e X m l D a t a C a t ;
|
|
9316
|
|
|
9317
|
D E A L L O C A T E X m l D a t a S e r v i c e ;
|
|
9318
|
|
|
9319
|
D E A L L O C A T E X m l D a t a S c h e d u l e ;
|
|
9320
|
|
|
9321
|
R O L L B A C K T R A N S A C T I O N
|
|
9322
|
|
|
9323
|
S E L E C T ' - 1 ' a s R e s u l t , ' ' R E Q _ P A Y _ I D , ' ' E r r o r D e s c
|
|
9324
|
|
|
9325
|
R E T U R N ' - 1 '
|
|
9326
|
|
|
9327
|
E n d
|
|
9328
|
|
|
9329
|
G O
|
|
9330
|
|
|
9331
|
|