fix failed multi

This commit is contained in:
miggaze 2021-11-15 18:10:49 +07:00
parent fce158265e
commit 170974b5e0

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,10 +175,22 @@
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
@ -170,6 +199,20 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
SAVELOG MachineStage
Var Timeout = Timeout + 1
If Timeout > 5 Then
Var MultiGo = 1
EndIf
If MultiGo = 1 Then
If CART_INDEX = CART_COUNT Then If CART_INDEX = CART_COUNT Then
;Pay Multi ;Pay Multi
@ -209,16 +252,7 @@
Var sendPayMultiFlag = 1 Var sendPayMultiFlag = 1
EndIf EndIf
EndIf EndIf
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
SAVELOG MachineStage
Var Timeout = Timeout + 1
If MachineStage = "show-menu" Then If MachineStage = "show-menu" Then