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

108
xml/page_brewing3Multi.xml
View file

@ -59,15 +59,15 @@
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
Var PayType = ""
@ -86,7 +86,7 @@
Var PayReference = PayReferenceTmp
Else
If StoreCreditFlag = 1 Then
If Seeker.StoreCreditFlag = 1 Then
If CoinAmount > 0 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
@ -103,16 +103,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
@ -126,19 +126,19 @@
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
@ -146,10 +146,10 @@
If AddPointFlag = 0 Then
Var AddPointFlag = 1
If TaobinErrorNetwork = 0 Then
AddData 11 TNumberTaobinMember BmiYear PointCrm GetScore
AddData 11 Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
Else
Var PointCrm = ""
AddData 14 TNumberTaobinMember BmiYear PointCrm GetScore
AddData 14 Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
EndIf
@ -180,7 +180,7 @@
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
@ -199,7 +199,7 @@
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 ServiceParameter = "max"
@ -239,7 +239,7 @@
<EventActionError>
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
@ -258,7 +258,7 @@
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 ServiceParameter = "max"
@ -350,7 +350,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
@ -369,7 +369,7 @@
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 ServiceParameter = "max"
@ -394,18 +394,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
@ -427,7 +427,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_drinkfail2Multi.xml"
;EndIf
@ -441,18 +441,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
@ -471,7 +471,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_drinkfail2Multi.xml"
;EndIf
@ -495,18 +495,18 @@
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
@ -526,18 +526,18 @@
;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 + "/"
@ -545,16 +545,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 + "/"
@ -562,7 +562,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
@ -596,12 +596,12 @@
Var ErrTimeout = 1
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
;Change ServiceAmount2
@ -616,9 +616,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