pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

order conti order

Browse source
This commit is contained in:
miggaze 2021-12-17 12:48:38 +07:00
parent 256eb9e6d0
commit b5e9418ba9
47 changed files with 4889 additions and 3864 deletions
Download patch file Download diff file Expand all files Collapse all files

86
xml/page_payment_code.xml
View file

@ -10,12 +10,12 @@
<EventOpen>
; On open
Var ECommerce = ""
Var FreeVendingCampaign = 0
Var Seeker.FreeVendingCampaign = 0
Var Timeout = 0
Var GetPayInfoFlag = 0
Var CodeChannel = 0
Var Seeker.CodeChannel = 0
;Var VendingQRCode = "ERROR"
;VendingQR ON
@ -49,7 +49,7 @@
Var TelephoneNumber = web_code
Var CodeNumber = TelephoneNumber
Var Seeker.CodeNumber = TelephoneNumber
Var RemainAmount = 0
;PrepareDrink SelectDrink SelectSugarID
@ -71,7 +71,7 @@
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
@ -85,8 +85,8 @@
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = CodeNumber
Var CodeChannel = 1
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
EndIf
EndIf
@ -104,7 +104,7 @@
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Var Seeker.CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
@ -148,48 +148,48 @@
<EventActionOk>
If CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
SAVELOG "CodeChannel 1 > ActOK."
SAVELOG "Seeker.CodeChannel 1 > ActOK."
SAVELOG ECommerce
SPLIT ECommerce "/" 5 VendingCode
SPLIT ECommerce "/" 7 VendingCampaignRI3
SPLIT ECommerce "/" 5 Seeker.VendingCode
SPLIT ECommerce "/" 7 Seeker.VendingCampaignRI3
SPLIT ECommerce "/" 8 VendingCampaign1
If VendingCode = "" Then
Var VendingCode = "C00"
If Seeker.VendingCode = "" Then
Var Seeker.VendingCode = "C00"
EndIf
If VendingCode = "KBA:2" Then
Var VendingCode = "C00"
If Seeker.VendingCode = "KBA:2" Then
Var Seeker.VendingCode = "C00"
EndIf
If VendingCode = "AIR" Then
Var VendingCode = "C00"
If Seeker.VendingCode = "AIR" Then
Var Seeker.VendingCode = "C00"
EndIf
SAVELOG VendingCode
SAVELOG VendingCampaignRI3
SAVELOG Seeker.VendingCode
SAVELOG Seeker.VendingCampaignRI3
If VendingCode = "C00" Then
If Seeker.VendingCode = "C00" Then
Else
Var IntVendingCampaign = VendingCampaignRI3
INT IntVendingCampaign
Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3
INT Seeker.IntVendingCampaign
Var VendingREFID = SessionID
If IntVendingCampaign > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var QRChannel = 0
If IntVendingCampaign >= PayAmount Then
If Seeker.IntVendingCampaign >= PayAmount Then
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var VendingCampaign = PayAmount
Var FreeVendingCampaign = 1
Var Seeker.VendingCampaign = PayAmount
Var Seeker.FreeVendingCampaign = 1
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
If CART_COUNT >= 1 Then
@ -228,11 +228,11 @@
;Var ECommerce = ECommerce + SelectDrink
;Var ECommerce = ECommerce + "/"
;Var ECommerce = ECommerce + "KBA:2/"
;Var ECommerce = ECommerce + VendingCode
;Var ECommerce = ECommerce + Seeker.VendingCode
;Var ECommerce = ECommerce + ":"
;Var ECommerce = ECommerce + CodeNumber
;Var ECommerce = ECommerce + Seeker.CodeNumber
;Var ECommerce = ECommerce + ":"
;Var ECommerce = ECommerce + VendingCampaignRI3
;Var ECommerce = ECommerce + Seeker.VendingCampaignRI3
;Var ServiceParameter = "max"
;Var ServiceCharge = 0
;Var AccountType = "new"
@ -245,9 +245,9 @@
;GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
;Var CodeChannel = 2
;Var Seeker.CodeChannel = 2
Var CodeChannel = 1
Var Seeker.CodeChannel = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
@ -262,21 +262,21 @@
Var ShowErrorText = "Enable"
Var text_show_error = DirImage + "/text_show_error.png"
Var GetPayInfoFlag = 0
Var CodeChannel = 0
Var Seeker.CodeChannel = 0
EndIf
EndIf
Else
;SAVELOG "CodeChannel 2 > ActOK."
;SAVELOG "Seeker.CodeChannel 2 > ActOK."
;
;Var CreditAmount = 0
;Var QRCODE99 = SessionID
;Var QRCODE99 = QRCODE99 + Ext1a
;Var QRCODE99 = QRCODE99 + Ext21
;Var QRCODETMP = QRCODE99
;Var CodeChannel = 1
;Var Seeker.CodeChannel = 1
;
;If CART_COUNT >= 1 Then
; Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
@ -290,7 +290,7 @@
</EventActionOk>
<EventActionError>
If CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var TelephoneNumber = ""
Var ShowErrorText = "Enable"
@ -304,13 +304,13 @@
EndIf
Var GetPayInfoFlag = 0
Var CodeChannel = 0
Var Seeker.CodeChannel = 0
Var Tel_Confirm_State = "Disable"
Refresh
EndIf
If CodeChannel = 2 Then
Var CodeChannel = 1
If Seeker.CodeChannel = 2 Then
Var Seeker.CodeChannel = 1
Var QRCODE99 = ""
Var QRCODETMP = ""
If CART_COUNT >= 1 Then
@ -598,7 +598,7 @@
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Var Seeker.CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
@ -642,7 +642,7 @@
VendingQR OFF
Var CodeNumber = TelephoneNumber
Var Seeker.CodeNumber = TelephoneNumber
Var RemainAmount = 0
;PrepareDrink SelectDrink SelectSugarID
@ -664,7 +664,7 @@
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
@ -678,8 +678,8 @@
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = CodeNumber
Var CodeChannel = 1
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
EndIf