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

165
xml/page_brewing3.xml
View file

@ -6,6 +6,9 @@
<Volume> SoundVolume </Volume>
<EventOpen>
DEBUGVAR MachineStage
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_brewing3Multi.xml"
@ -14,7 +17,8 @@
Var PayType = ""
EndIf
Var SelectDrink = Seeker.selected_a_drink
Var ServiceAmount2 = Seeker.ServiceAmount2
; On open move from page_brewing3.xml
Var countClick2 = 0
@ -37,15 +41,15 @@
Var VendingTSIDProblem = ""
Var CreditReference = ""
If PayWithQR = 1 Then
If Seeker.PayWithQR = 1 Then
Var VendingTSIDTmp = VendingTSID
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
@ -60,7 +64,7 @@
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If StoreCreditFlag = 1 Then
If Seeker.StoreCreditFlag = 1 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
@ -72,16 +76,16 @@
EndIf
EndIf
If TNumberTaobinCredit = "" Then
If Seeker.TNumberTaobinCredit = "" Then
If TNumberTaobinMember = "" Then
If Seeker.TNumberTaobinMember = "" Then
Var TelephoneNumberProblem = ""
Else
Var TelephoneNumberProblem = TNumberTaobinMember
Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumberProblem = TNumberTaobinCredit
Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit
EndIf
If TelephoneNumberProblem = "" Then
@ -93,31 +97,35 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var AddData = 0
If TNumberTaobinMember = "" Then
If Seeker.TNumberTaobinMember = "" Then
Else
If PayWithQR = 1 Then
If Seeker.PayWithQR = 1 Then
Var VendingTSID = VendingTSIDTmp
Else
Var VendingTSID = ""
EndIf
Var BmiYear = PointTaobinStr
Var BmiYear = Seeker.PointTaobinStr
Var PointCrm = ""
If FromConsent = 1 Then
If Seeker.FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSID
If TaobinErrorNetwork = 0 Then
AddData 11 TNumberTaobinMember BmiYear PointCrm GetScore
Var Cid = 11
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
Else
Var PointCrm = ""
AddData 14 TNumberTaobinMember BmiYear PointCrm GetScore
Var Cid = 14
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
;Var TNumberTaobinMember = ""
Var VendingTSID = ""
EndIf
@ -135,11 +143,18 @@
EndIf
Var CreditReference = CreditReferenceTmp
Var CreditReference = Seeker.CreditReferenceTmp
Var VendingDiscount = Seeker.VendingDiscount
Var VendingCampaign = Seeker.VendingCampaign
Var DirImage = "ROOT/taobin_project/image/complete/"
Var next_pic_bg = DirImage + "/Preparing.png"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
EndIf
Var next_pic_bg = DirImage + "/bn_add_order.png"
</EventOpen>
@ -149,7 +164,7 @@
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
@ -168,10 +183,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"
@ -209,7 +224,7 @@
<EventActionError>
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
@ -228,10 +243,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"
@ -325,7 +340,7 @@
If waitAckPay = 2 Then
If Timeout > 10 Then
If CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
@ -344,10 +359,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"
@ -370,18 +385,18 @@
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
If TNumberTaobinCredit = "" Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If TNumberTaobinMember = "" Then
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = TNumberTaobinMember
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
@ -403,7 +418,7 @@
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;If CodeChannel = 0 Then
;If Seeker.CodeChannel = 0 Then
; SAVELOG "back_to_main from line > 315."
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
;EndIf
@ -417,18 +432,18 @@
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
If TNumberTaobinCredit = "" Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If TNumberTaobinMember = "" Then
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = TNumberTaobinMember
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var PayDetail = "1/" + HURR_FOREVER
@ -447,7 +462,7 @@
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;If CodeChannel = 0 Then
;If Seeker.CodeChannel = 0 Then
; SAVELOG "back_to_main from line > 357."
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
;EndIf
@ -465,9 +480,9 @@
Var SVT = "coffee"
Var ACC = "0899999999"
If TNumberTaobinMember = "" Then
If Seeker.TNumberTaobinMember = "" Then
Else
Var ACC = TNumberTaobinMember
Var ACC = Seeker.TNumberTaobinMember
EndIf
Var PayDetail = "1/" + HURR_FOREVER
@ -484,7 +499,7 @@
PAYEXT SVT ACC VendingTSIDTmp DEE
Var ActionOKCase = 1
If CodeChannel = 0 Then
If Seeker.CodeChannel = 0 Then
SAVELOG "back_to_main from line > 391."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
@ -506,22 +521,25 @@
Var ProcessText = ""
If TNumberTaobinCredit = "" Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If TNumberTaobinMember = "" Then
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = TNumberTaobinMember
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
If AddData = 1 Then
AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
@ -534,21 +552,21 @@
Var PayDetail = PayDetail + NOBONUS
;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
If GetFreeFromError = 1 Then
Var CodeChannel = 1
Var VendingCode = "C48"
Var CodeNumber = "0000000000"
Var Seeker.CodeChannel = 1
Var Seeker.VendingCode = "C48"
Var Seeker.CodeNumber = "0000000000"
Var VendingCampaign = ServiceAmount2
EndIf
If PayWithQR = 0 Then
If CodeChannel = 1 Then
If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + Seeker.CodeNumber
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + VendingCode
Var SessionID2 = SessionID2 + Seeker.VendingCode
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
@ -556,16 +574,16 @@
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + Seeker.CodeNumber
Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If CodeChannel = 2 Then
If Seeker.CodeChannel = 2 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + ""
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + VendingCode
Var SessionID2 = SessionID2 + Seeker.VendingCode
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
@ -573,7 +591,7 @@
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + Seeker.CodeNumber
Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
@ -594,9 +612,9 @@
Var ACC = "0899999999"
Var DEE = PayDetail
If TNumberTaobinMember = "" Then
If Seeker.TNumberTaobinMember = "" Then
Else
Var ACC = TNumberTaobinMember
Var ACC = Seeker.TNumberTaobinMember
EndIf
PAYEXT SVT ACC VendingTSIDTmp DEE
@ -619,13 +637,17 @@
If ErrTimeout = 0 Then
Var ErrTimeout = 1
If AddData = 1 Then
AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
If PayWithQR = 0 Then
If CodeChannel = 0 Then
If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
If StoreCreditFlag = 1 Then
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
If GetFreeFromError = 1 Then
@ -644,9 +666,9 @@
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - IntVendingCampaign
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
If StoreCreditFlag = 1 Then
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount3
@ -684,7 +706,6 @@
EndIf
EndIf
If MachineStage = "show-menu" Then
If MachineState_Result = 0 Then
SAVELOG "back_to_main from line > 655."
@ -970,8 +991,10 @@
<Y> 424 </Y>
<Filename> next_pic_bg </Filename>
<EventClick>
Var PauseOrder = "true"
Var Seeker = "next"
Var MultiPayEnable = "false"
CoinPause
Open "ROOT/taobin_project/xml/page_catalog_choose_drink1.xml"
</EventClick>