order conti order
This commit is contained in:
miggaze
parent
256eb9e6d0
commit
b5e9418ba9
47 changed files with 4889 additions and 3864 deletions
|
|
@ -27,7 +27,7 @@
|
|||
Var FlagQROpened = 0
|
||||
Var PayInfoCFlag = 0
|
||||
Var ActionOKCase = 0
|
||||
Var VendingCampaign = IntVendingCampaign
|
||||
Var VendingCampaign = Seeker.IntVendingCampaign
|
||||
|
||||
Var PayAmount = PriceDrink
|
||||
|
||||
|
|
@ -49,9 +49,9 @@
|
|||
Var CancelNumber = 3
|
||||
|
||||
Var PayAmount = PriceDrink
|
||||
Var RemainAmount = PayAmount - IntVendingCampaign
|
||||
Var RemainAmount = PayAmount - Seeker.IntVendingCampaign
|
||||
Var RemainAmount = RemainAmount - CoinAmount
|
||||
Var RemainAmount = RemainAmount - IntVendingCredit
|
||||
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
|
||||
Var RemainAmountStr = "" + RemainAmount
|
||||
Var Timeout = 0
|
||||
Var PayOK = 0
|
||||
|
|
@ -69,12 +69,13 @@
|
|||
|
||||
Var ServiceCredit = SelectDrink
|
||||
Var ServiceAmount2 = PayAmount
|
||||
Var Seeker.ServiceAmount2 = PayAmount
|
||||
Var ServiceCharge = 0
|
||||
Var Donate = ""
|
||||
Var SuggestID = ""
|
||||
Var CancleState = "Enable"
|
||||
|
||||
Var VendingDiscount = DiscountDrink
|
||||
Var Seeker.VendingDiscount = DiscountDrink
|
||||
|
||||
|
||||
Var CashTextWarning = ""
|
||||
|
|
@ -89,12 +90,12 @@
|
|||
DEBUGVAR QRCODE99
|
||||
|
||||
SAVELOG VendingCampaign
|
||||
SAVELOG VendingCode
|
||||
SAVELOG CodeChannel
|
||||
SAVELOG Seeker.VendingCode
|
||||
SAVELOG Seeker.CodeChannel
|
||||
|
||||
|
||||
If VendingCode = "C00" Then
|
||||
Var CodeChannel = 0
|
||||
If Seeker.VendingCode = "C00" Then
|
||||
Var Seeker.CodeChannel = 0
|
||||
EndIf
|
||||
|
||||
DEBUGVAR QRCODE99KBANK
|
||||
|
|
@ -109,7 +110,7 @@
|
|||
|
||||
Else
|
||||
Var PayState1 = "Enable"
|
||||
If IntVendingCampaign = 0 Then
|
||||
If Seeker.IntVendingCampaign = 0 Then
|
||||
Var PayState2 = "Enable"
|
||||
Var PayState4 = "Enable"
|
||||
Var PayState5 = "Enable"
|
||||
|
|
@ -130,7 +131,7 @@
|
|||
Var CoinInFlag = 1
|
||||
EndIf
|
||||
|
||||
If IntVendingCredit > 0 Then
|
||||
If Seeker.IntVendingCredit > 0 Then
|
||||
Var PayState2 = "Disable"
|
||||
Var PayState4 = "Disable"
|
||||
Var PayState5 = "Disable"
|
||||
|
|
@ -186,9 +187,9 @@
|
|||
If CoinInOK = 0 Then
|
||||
|
||||
Var RemainAmount = PayAmount - CoinAmount
|
||||
Var RemainAmount = RemainAmount - IntVendingCampaign
|
||||
Var RemainAmount = RemainAmount - IntVendingCredit
|
||||
Var SumCoinAmount = CoinAmount + IntVendingCampaign
|
||||
Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
|
||||
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
|
||||
Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
|
||||
If SumCoinAmount >= PayAmount Then
|
||||
;Var VendingQRCode = "ERROR"
|
||||
CoinVending OFF
|
||||
|
|
@ -267,7 +268,7 @@
|
|||
Var pay_with_code_image = DirImage + "/bn_pay_with_codeSmall_error.png"
|
||||
Else
|
||||
|
||||
If IntVendingCredit > 0 Then
|
||||
If Seeker.IntVendingCredit > 0 Then
|
||||
|
||||
Var pay_with_code_image = DirImage + "/bp_pay_with_code.png"
|
||||
Var pay_with_credit_image = DirImage + "/bp_pay_with_credit.png"
|
||||
|
|
@ -328,20 +329,20 @@
|
|||
|
||||
|
||||
|
||||
If IntVendingCampaign > 0 Then
|
||||
Var ECommerceQR = ECommerceQR + VendingCode
|
||||
If Seeker.IntVendingCampaign > 0 Then
|
||||
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
|
||||
Var ECommerceQR = ECommerceQR + ":"
|
||||
Var ECommerceQR = ECommerceQR + CodeNumber
|
||||
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
|
||||
Var ECommerceQR = ECommerceQR + ":"
|
||||
Var ECommerceQR = ECommerceQR + VendingCampaignRI3
|
||||
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
|
||||
EndIf
|
||||
|
||||
If IntVendingCredit > 0 Then
|
||||
If Seeker.IntVendingCredit > 0 Then
|
||||
Var ECommerceQR = ECommerceQR + "CRD"
|
||||
Var ECommerceQR = ECommerceQR + ":"
|
||||
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
|
||||
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
|
||||
Var ECommerceQR = ECommerceQR + ":"
|
||||
Var ECommerceQR = ECommerceQR + IntVendingCredit
|
||||
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
|
||||
EndIf
|
||||
|
||||
|
||||
|
|
@ -496,7 +497,7 @@
|
|||
EndIf
|
||||
|
||||
If PayInfoCFlag = 1 Then
|
||||
If CodeChannel = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
|
|
@ -515,10 +516,10 @@
|
|||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + "C00"
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + CodeNumber
|
||||
Var ECommerce = ECommerce + Seeker.CodeNumber
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + "C:"
|
||||
Var ECommerce = ECommerce + IntVendingCampaign
|
||||
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
|
||||
Var ServiceParameter = "max"
|
||||
Var ServiceCharge = 0
|
||||
Var AccountType = "new"
|
||||
|
|
@ -533,7 +534,8 @@
|
|||
If Seeker = "curr" Then
|
||||
Open "ROOT/taobin_project/xml/page_catalog.xml"
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_brewing3.xml"
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
|
@ -549,7 +551,7 @@
|
|||
Var CoinInCounter = CoinInCounter + 1
|
||||
If CoinInCounter = 1 Then
|
||||
|
||||
Var ChangeOK = 1
|
||||
;Var ChangeOK = 1
|
||||
Var Timeout = 180
|
||||
Var PayOK = 1
|
||||
|
||||
|
|
@ -583,21 +585,22 @@
|
|||
Var CancelCounter = 0
|
||||
If CoinAmount = 0 Then
|
||||
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
If Seeker.IntVendingCredit > 0 Then
|
||||
Var BmiYear = Seeker.IntVendingCredit
|
||||
Var GetScore = "useCredit"
|
||||
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var IntVendingCredit = 0
|
||||
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var Seeker.IntVendingCredit = 0
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
If IntVendingCampaign = 0 Then
|
||||
If Seeker.IntVendingCampaign = 0 Then
|
||||
VendingQR OFF
|
||||
If Seeker = "curr" Then
|
||||
Open "ROOT/taobin_project/xml/page_catalog.xml"
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_brewing3.xml"
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
|
@ -609,18 +612,18 @@
|
|||
|
||||
If CancelFlag = 1 Then
|
||||
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
If Seeker.IntVendingCredit > 0 Then
|
||||
Var BmiYear = Seeker.IntVendingCredit
|
||||
Var GetScore = "useCredit"
|
||||
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var IntVendingCredit = 0
|
||||
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var Seeker.IntVendingCredit = 0
|
||||
EndIf
|
||||
|
||||
Var CancelCounter = CancelCounter + 1
|
||||
If CancelCounter = CancelNumber Then
|
||||
;Change CoinAmount
|
||||
If CoinAmount > 0 Then
|
||||
If StoreCreditFlag = 1 Then
|
||||
If Seeker.StoreCreditFlag = 1 Then
|
||||
Var ChangeOK = 1
|
||||
Else
|
||||
Change CoinAmount
|
||||
|
|
@ -645,12 +648,12 @@
|
|||
If ChangeOK = 1 Then
|
||||
If ActionOKCase = 0 Then
|
||||
|
||||
If TNumberTaobinCredit = "" Then
|
||||
If Seeker.TNumberTaobinCredit = "" Then
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var PayO2 = ""
|
||||
Else
|
||||
Var TelephoneNumber = TNumberTaobinCredit
|
||||
Var PayO2 = CoffeePinNumber
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinCredit
|
||||
Var PayO2 = Seeker.CoffeePinNumber
|
||||
EndIf
|
||||
|
||||
Var VendingDiscount = 0
|
||||
|
|
@ -664,11 +667,12 @@
|
|||
; Open "ROOT/taobin_project/xml/page_catalog.xml"
|
||||
;EndIf
|
||||
Var ActionOKCase = 1
|
||||
If IntVendingCampaign = 0 Then
|
||||
If Seeker.IntVendingCampaign = 0 Then
|
||||
If Seeker = "curr" Then
|
||||
Open "ROOT/taobin_project/xml/page_catalog.xml"
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_brewing3.xml"
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
|
@ -718,9 +722,7 @@
|
|||
Var alphaState = "Invisible"
|
||||
EndIf
|
||||
|
||||
;If StoreCreditFlag = 1 Then
|
||||
; Var ViewBill = 0
|
||||
;EndIf
|
||||
|
||||
|
||||
Var CoinInFlag = 1
|
||||
|
||||
|
|
@ -734,8 +736,8 @@
|
|||
|
||||
|
||||
Var RemainAmount = PayAmount - CoinAmount
|
||||
Var RemainAmount = RemainAmount - IntVendingCampaign
|
||||
Var RemainAmount = RemainAmount - IntVendingCredit
|
||||
Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
|
||||
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
|
||||
|
||||
If ViewBill > RemainAmount Then
|
||||
Var RemainAmountKeep = ViewBill - RemainAmount
|
||||
|
|
@ -762,11 +764,11 @@
|
|||
If CoinInOK = 0 Then
|
||||
|
||||
Var RemainAmount = PayAmount - CoinAmount
|
||||
Var RemainAmount = RemainAmount - IntVendingCampaign
|
||||
Var RemainAmount = RemainAmount - IntVendingCredit
|
||||
Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
|
||||
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
|
||||
|
||||
Var SumCoinAmount = CoinAmount + IntVendingCampaign
|
||||
Var SumCoinAmount = SumCoinAmount + IntVendingCredit
|
||||
Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
|
||||
Var SumCoinAmount = SumCoinAmount + Seeker.IntVendingCredit
|
||||
If SumCoinAmount >= PayAmount Then
|
||||
;Var VendingQRCode = "ERROR"
|
||||
CoinVending OFF
|
||||
|
|
@ -1020,20 +1022,20 @@
|
|||
|
||||
|
||||
|
||||
If IntVendingCampaign > 0 Then
|
||||
Var ECommerceQR = ECommerceQR + VendingCode
|
||||
If Seeker.IntVendingCampaign > 0 Then
|
||||
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
|
||||
Var ECommerceQR = ECommerceQR + ":"
|
||||
Var ECommerceQR = ECommerceQR + CodeNumber
|
||||
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
|
||||
Var ECommerceQR = ECommerceQR + ":"
|
||||
Var ECommerceQR = ECommerceQR + VendingCampaignRI3
|
||||
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
|
||||
EndIf
|
||||
|
||||
If IntVendingCredit > 0 Then
|
||||
If Seeker.IntVendingCredit > 0 Then
|
||||
Var ECommerceQR = ECommerceQR + "CRD"
|
||||
Var ECommerceQR = ECommerceQR + ":"
|
||||
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
|
||||
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
|
||||
Var ECommerceQR = ECommerceQR + ":"
|
||||
Var ECommerceQR = ECommerceQR + IntVendingCredit
|
||||
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
|
||||
Var ECommerceQR = ECommerceQR + ":"
|
||||
Var ECommerceQR = ECommerceQR + PointCrm
|
||||
EndIf
|
||||
|
|
@ -1155,11 +1157,11 @@
|
|||
Var ECommerceQR = ECommerceQR + "AIR:2/"
|
||||
|
||||
;If IntVendingCampaign > 0 Then
|
||||
; Var ECommerceQR = ECommerceQR + VendingCode
|
||||
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
|
||||
; Var ECommerceQR = ECommerceQR + ":"
|
||||
; Var ECommerceQR = ECommerceQR + CodeNumber
|
||||
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
|
||||
; Var ECommerceQR = ECommerceQR + ":"
|
||||
; Var ECommerceQR = ECommerceQR + VendingCampaignRI3
|
||||
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
|
||||
;EndIf
|
||||
|
||||
Var ServiceParameter = "max"
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue