THAI: PaymentCode move actionOk to EventTimeout
This commit is contained in:
parent
d9da7fee97
commit
8dbb50cd0f
1 changed files with 262 additions and 275 deletions
|
|
@ -10,6 +10,7 @@
|
||||||
<EventOpen>
|
<EventOpen>
|
||||||
; On open
|
; On open
|
||||||
Var ECommerce = ""
|
Var ECommerce = ""
|
||||||
|
Var CodeActionOK = 0
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
Var Seeker.FreeVendingCampaign = 0
|
||||||
|
|
||||||
Var Timeout = 0
|
Var Timeout = 0
|
||||||
|
|
@ -159,49 +160,16 @@
|
||||||
Refresh
|
Refresh
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
|
||||||
</EventTimeout>
|
|
||||||
|
|
||||||
<EventIDCard>
|
|
||||||
|
|
||||||
|
|
||||||
If IDCardStatus = "OK" Then
|
|
||||||
If IDCardReady = "OK" Then
|
|
||||||
If IDCardData = "START" Then
|
|
||||||
CoinVending OFF
|
|
||||||
Open "ROOT/taobin_project/xml/page_show_consent2.xml"
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</EventIDCard>
|
|
||||||
|
|
||||||
<EventCoin>
|
|
||||||
|
|
||||||
If ViewBill > 0 Then
|
|
||||||
CoinVending BILLREJECT
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
</EventCoin>
|
|
||||||
|
|
||||||
|
|
||||||
<EventActionOk>
|
|
||||||
|
|
||||||
|
|
||||||
If Seeker.CodeChannel = 1 Then
|
If Seeker.CodeChannel = 1 Then
|
||||||
|
If CodeActionOK = 1 Then
|
||||||
|
|
||||||
Var ShowLoadingText = "Invisible"
|
DEBUGVAR CodeActionOK
|
||||||
|
|
||||||
SAVELOG "Seeker.CodeChannel 1 > ActOK."
|
|
||||||
|
|
||||||
|
|
||||||
DEBUGVAR ECommerce
|
DEBUGVAR ECommerce
|
||||||
SAVELOG ECommerce
|
|
||||||
|
If ECommerce = "" Then
|
||||||
|
|
||||||
|
Else
|
||||||
|
Var ShowLoadingText = "Invisible"
|
||||||
|
|
||||||
SPLIT ECommerce "/" 5 Seeker.VendingCode
|
SPLIT ECommerce "/" 5 Seeker.VendingCode
|
||||||
SPLIT ECommerce "/" 7 Seeker.VendingCampaignRI3
|
SPLIT ECommerce "/" 7 Seeker.VendingCampaignRI3
|
||||||
|
|
@ -435,38 +403,56 @@
|
||||||
Else
|
Else
|
||||||
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
|
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
|
|
||||||
Var ShowErrorText = "Enable"
|
Var ShowErrorText = "Enable"
|
||||||
Var text_show_error = DirImage + "/text_show_error.png"
|
Var text_show_error = DirImage + "/text_show_error.png"
|
||||||
Var GetPayInfoFlag = 0
|
Var GetPayInfoFlag = 0
|
||||||
Var Seeker.CodeChannel = 0
|
Var Seeker.CodeChannel = 0
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
Else
|
TimerReset
|
||||||
|
</EventTimeout>
|
||||||
|
|
||||||
;SAVELOG "Seeker.CodeChannel 2 > ActOK."
|
<EventIDCard>
|
||||||
;
|
|
||||||
;Var CreditAmount = 0
|
|
||||||
;Var QRCODE99 = SessionID
|
|
||||||
;Var QRCODE99 = QRCODE99 + Ext1a
|
|
||||||
;Var QRCODE99 = QRCODE99 + Ext21
|
|
||||||
;Var QRCODETMP = QRCODE99
|
|
||||||
;Var Seeker.CodeChannel = 1
|
|
||||||
;
|
|
||||||
;If CART_COUNT >= 1 Then
|
|
||||||
; Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
|
|
||||||
;Else
|
|
||||||
; Open "ROOT/taobin_project/xml/page_payment_cash.xml"
|
|
||||||
;EndIf
|
|
||||||
|
|
||||||
|
|
||||||
|
If IDCardStatus = "OK" Then
|
||||||
|
If IDCardReady = "OK" Then
|
||||||
|
If IDCardData = "START" Then
|
||||||
|
CoinVending OFF
|
||||||
|
Open "ROOT/taobin_project/xml/page_show_consent2.xml"
|
||||||
EndIf
|
EndIf
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</EventIDCard>
|
||||||
|
|
||||||
|
<EventCoin>
|
||||||
|
|
||||||
|
If ViewBill > 0 Then
|
||||||
|
CoinVending BILLREJECT
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
</EventCoin>
|
||||||
|
|
||||||
|
|
||||||
|
<EventActionOk>
|
||||||
|
|
||||||
|
If Seeker.CodeChannel = 1 Then
|
||||||
|
SAVELOG "Seeker.CodeChannel 1 > ActOK."
|
||||||
|
Var CodeActionOK = 1
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
</EventActionOk>
|
</EventActionOk>
|
||||||
|
|
||||||
|
|
@ -1081,6 +1067,7 @@
|
||||||
|
|
||||||
Var TelephoneNumber = Seeker.CodeNumber
|
Var TelephoneNumber = Seeker.CodeNumber
|
||||||
Var Seeker.CodeChannel = 1
|
Var Seeker.CodeChannel = 1
|
||||||
|
Var CodeActionOK = 0
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue