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

fix failed multi

Browse source
This commit is contained in:
miggaze 2021-11-15 18:10:49 +07:00
parent fce158265e
commit 170974b5e0
1 changed files with 78 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

122
xml/page_drinkfail2Multi.xml
View file

@ -101,6 +101,9 @@
SAVELOG next_ready SAVELOG next_ready
Var MultiGo = 1
If next_ready = "false" Then If next_ready = "false" Then
Var next_pic = "" Var next_pic = ""
@ -130,7 +133,21 @@
Var ServiceAmount2 = CART2_PRICE Var ServiceAmount2 = CART2_PRICE
Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
If PayWithQR = 0 Then
If CodeChannel = 0 Then
If StoreCreditFlag = 1 Then
Else
Change ServiceAmount2
Var MultiGo = 0
EndIf
EndIf
EndIf
EndIf EndIf
If cart_next < CART_COUNT Then If cart_next < CART_COUNT Then
@ -158,58 +175,28 @@
Var ServiceAmount2 = CART3_PRICE Var ServiceAmount2 = CART3_PRICE
Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
If PayWithQR = 0 Then
If CodeChannel = 0 Then
If StoreCreditFlag = 1 Then
Else
Change ServiceAmount2
Var MultiGo = 0
EndIf
EndIf
EndIf
EndIf EndIf
Var CART_INDEX = CART_COUNT Var CART_INDEX = CART_COUNT
EndIf EndIf
If CART_INDEX = CART_COUNT Then
;Pay Multi
If sendPayMultiFlag = 0 Then
If PayWithQR = 0 Then
Var ServiceType = "coffee-multi"
Else
Var ServiceType = "coffee-multiQR"
EndIf
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var ServiceCredit = "00-00-00-0000"
Var SuggestID = ""
Var PayDetail="1/S:0/0/"
Var SessionID3 = "" + CART_COUNT
Var SessionID3 = SessionID3 + ":00000"
SAVELOG PayO2
Var PayType = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate
Var sendPayMultiFlag = 1
EndIf
EndIf
</EventOpen> </EventOpen>
@ -220,6 +207,53 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 5 Then
Var MultiGo = 1
EndIf
If MultiGo = 1 Then
If CART_INDEX = CART_COUNT Then
;Pay Multi
If sendPayMultiFlag = 0 Then
If PayWithQR = 0 Then
Var ServiceType = "coffee-multi"
Else
Var ServiceType = "coffee-multiQR"
EndIf
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var ServiceCredit = "00-00-00-0000"
Var SuggestID = ""
Var PayDetail="1/S:0/0/"
Var SessionID3 = "" + CART_COUNT
Var SessionID3 = SessionID3 + ":00000"
SAVELOG PayO2
Var PayType = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate
Var sendPayMultiFlag = 1
EndIf
EndIf
EndIf
If MachineStage = "show-menu" Then If MachineStage = "show-menu" Then
If CART_INDEX < CART_COUNT Then If CART_INDEX < CART_COUNT Then