order conti order
This commit is contained in:
miggaze
parent
256eb9e6d0
commit
b5e9418ba9
47 changed files with 4889 additions and 3864 deletions
|
|
@ -22,7 +22,7 @@
|
|||
Var FlagQROpened = 0
|
||||
Var PayInfoCFlag = 0
|
||||
Var ActionOKCase = 0
|
||||
Var VendingCampaign = IntVendingCampaign
|
||||
Var VendingCampaign = Seeker.IntVendingCampaign
|
||||
|
||||
Var PayAmount = PriceDrink
|
||||
|
||||
|
|
@ -43,9 +43,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
|
||||
|
|
@ -70,7 +70,7 @@
|
|||
Var SuggestID = ""
|
||||
Var CancleState = "Enable"
|
||||
|
||||
Var VendingDiscount = DiscountDrink
|
||||
Var Seeker.VendingDiscount = DiscountDrink
|
||||
|
||||
|
||||
Var CashTextWarning = ""
|
||||
|
|
@ -84,12 +84,12 @@
|
|||
SAVELOG 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
|
||||
|
||||
|
||||
|
|
@ -140,7 +140,7 @@
|
|||
|
||||
Else
|
||||
Var PayState1 = "Enable"
|
||||
If IntVendingCampaign = 0 Then
|
||||
If Seeker.IntVendingCampaign = 0 Then
|
||||
Var PayState2 = "Enable"
|
||||
Var PayState4 = "Enable"
|
||||
Var PayState5 = "Enable"
|
||||
|
|
@ -161,7 +161,7 @@
|
|||
Var CoinInFlag = 1
|
||||
EndIf
|
||||
|
||||
If IntVendingCredit > 0 Then
|
||||
If Seeker.IntVendingCredit > 0 Then
|
||||
Var PayState2 = "Disable"
|
||||
Var PayState4 = "Disable"
|
||||
Var PayState5 = "Disable"
|
||||
|
|
@ -181,7 +181,7 @@
|
|||
|
||||
|
||||
|
||||
Var PayWithQR = 0
|
||||
Var Seeker.PayWithQR = 0
|
||||
Var NoGotoMenupage = "false"
|
||||
If show_eng = "true" Then
|
||||
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
|
||||
|
|
@ -203,14 +203,14 @@
|
|||
EndIf
|
||||
|
||||
If GetFreeFromError = 1 Then
|
||||
Var FreeVendingCampaign = 1
|
||||
Var Seeker.FreeVendingCampaign = 1
|
||||
CoinVending OFF
|
||||
MakeDrinkV1 SelectDrink SelectSugarID
|
||||
Open "ROOT/taobin_project/xml/page_thankyou.xml"
|
||||
|
||||
EndIf
|
||||
|
||||
;If IntVendingCampaign >= PayAmount Then
|
||||
;If Seeker.IntVendingCampaign >= PayAmount Then
|
||||
; Var RemainAmount = 0
|
||||
; Var RemainAmountStr = "" + RemainAmount
|
||||
; CoinVending OFF
|
||||
|
|
@ -222,9 +222,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
|
||||
|
|
@ -303,7 +303,7 @@
|
|||
Var pay_with_code_image = DirImage + "/bp_pay_with_code_error.png"
|
||||
Else
|
||||
|
||||
If IntVendingCredit > 0 Then
|
||||
If Seeker.IntVendingCredit > 0 Then
|
||||
|
||||
Var pay_with_code_image = DirImage + "/bp_pay_with_code_error2.png"
|
||||
Var pay_with_credit_image = DirImage + "/bp_pay_with_credit_error2.png"
|
||||
|
|
@ -374,7 +374,7 @@
|
|||
Var CART_INDEX = 1
|
||||
Var PayReference = MultiTSID
|
||||
;GenHashWithTimeStamp PayReference
|
||||
Var PayWithQR = 1
|
||||
Var Seeker.PayWithQR = 1
|
||||
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
|
||||
Var BrewingTextThai = "เตรียมแก้ว"
|
||||
Open "ROOT/taobin_project/xml/page_thankyou.xml"
|
||||
|
|
@ -479,7 +479,7 @@
|
|||
EndIf
|
||||
|
||||
If PayInfoCFlag = 1 Then
|
||||
If CodeChannel = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
|
|
@ -498,10 +498,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"
|
||||
|
|
@ -528,7 +528,7 @@
|
|||
Var CoinInCounter = CoinInCounter + 1
|
||||
If CoinInCounter = 1 Then
|
||||
|
||||
Var ChangeOK = 1
|
||||
;Var ChangeOK = 1
|
||||
Var Timeout = 180
|
||||
Var PayOK = 1
|
||||
|
||||
|
|
@ -568,14 +568,14 @@
|
|||
Var CancelFlag = 1
|
||||
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
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
||||
|
|
@ -589,18 +589,20 @@
|
|||
|
||||
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
|
||||
|
||||
DEBUGVAR CoinAmount
|
||||
If CoinAmount > 0 Then
|
||||
If StoreCreditFlag = 1 Then
|
||||
If Seeker.StoreCreditFlag = 1 Then
|
||||
Var ChangeOK = 1
|
||||
Else
|
||||
Change CoinAmount
|
||||
|
|
@ -625,13 +627,15 @@
|
|||
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
|
||||
|
||||
DEBUGVAR "TUBEKUNG"
|
||||
|
||||
Var VendingDiscount = 0
|
||||
Var VendingCampaign = 0
|
||||
|
|
@ -641,7 +645,7 @@
|
|||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
|
||||
Var ActionOKCase = 1
|
||||
If IntVendingCampaign = 0 Then
|
||||
If Seeker.IntVendingCampaign = 0 Then
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_catalog.xml"
|
||||
EndIf
|
||||
|
|
@ -693,7 +697,7 @@
|
|||
Var alphaState = "Invisible"
|
||||
EndIf
|
||||
|
||||
;If StoreCreditFlag = 1 Then
|
||||
;If Seeker.StoreCreditFlag = 1 Then
|
||||
; Var ViewBill = 0
|
||||
;EndIf
|
||||
|
||||
|
|
@ -709,8 +713,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
|
||||
|
|
@ -737,11 +741,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
|
||||
|
|
@ -782,9 +786,10 @@
|
|||
</EventCoin>
|
||||
<EventVDCancle>
|
||||
If CoinInFlag = 1 Then
|
||||
Cart "DeleteMenuID" "ALL"
|
||||
|
||||
If CoinInOK = 0 Then
|
||||
If CancelFlag = 0 Then
|
||||
Cart "DeleteMenuID" "ALL"
|
||||
SAVELOG "VDCancle > Cancle Order."
|
||||
CoinVending OFF
|
||||
Var CancelFlag = 1
|
||||
|
|
@ -1044,11 +1049,11 @@
|
|||
|
||||
If CoinInFlag = 0 Then
|
||||
VendingQR OFF
|
||||
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
|
||||
Open "ROOT/taobin_project/xml/page_catalog.xml"
|
||||
EndIf
|
||||
|
|
@ -1163,12 +1168,12 @@
|
|||
Var ECommerceQR = ECommerceQR + "/"
|
||||
Var ECommerceQR = ECommerceQR + "KBA:2/"
|
||||
|
||||
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
|
||||
|
||||
Var ServiceParameter = "max"
|
||||
|
|
@ -1317,9 +1322,10 @@
|
|||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
|
||||
Cart "DeleteMenuID" "ALL"
|
||||
|
||||
If CoinInOK = 0 Then
|
||||
If CancelFlag = 0 Then
|
||||
Cart "DeleteMenuID" "ALL"
|
||||
SAVELOG "ButtonCancleMain > Cancle All Order."
|
||||
CoinVending OFF
|
||||
Var CancelFlag = 1
|
||||
|
|
@ -1373,13 +1379,15 @@
|
|||
<State> cart1_en </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
|
||||
<EventClick>
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
Var GetScore = "useCredit"
|
||||
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var IntVendingCredit = 0
|
||||
If CoinInFlag = 0 Then
|
||||
If Seeker.IntVendingCredit > 0 Then
|
||||
Var BmiYear = Seeker.IntVendingCredit
|
||||
Var GetScore = "useCredit"
|
||||
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var Seeker.IntVendingCredit = 0
|
||||
EndIf
|
||||
Cart "DeleteMenuID" 1
|
||||
EndIf
|
||||
Cart "DeleteMenuID" 1
|
||||
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
|
@ -1418,13 +1426,15 @@
|
|||
<State> cart2_en </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
|
||||
<EventClick>
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
If CoinInFlag = 0 Then
|
||||
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
|
||||
Cart "DeleteMenuID" 2
|
||||
EndIf
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
|
@ -1463,13 +1473,15 @@
|
|||
<State> cart3_en </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
|
||||
<EventClick>
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
If CoinInFlag = 0 Then
|
||||
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
|
||||
Cart "DeleteMenuID" 3
|
||||
EndIf
|
||||
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
|
@ -1572,12 +1584,13 @@
|
|||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
|
||||
|
||||
|
||||
Cart "DeleteMenuID" "ALL"
|
||||
|
||||
|
||||
|
||||
If CoinInOK = 0 Then
|
||||
If CancelFlag = 0 Then
|
||||
Cart "DeleteMenuID" "ALL"
|
||||
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
|
||||
CoinVending OFF
|
||||
Var CancelFlag = 1
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue