This commit is contained in:
wanlop run 2024-04-19 15:46:14 +07:00
parent cec8e4e427
commit 8844cfcae3
11 changed files with 55 additions and 36 deletions

View file

@ -139,6 +139,8 @@
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
@ -149,6 +151,8 @@
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
@ -700,6 +704,7 @@
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
@ -764,6 +769,7 @@
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
@ -813,20 +819,8 @@
Var MOVE_CUP_TO_DOOR = "false"
EndIf
If BREW_COUNT_DOWN_FROM_APP = "on" Then
Var CountDownBrewing = BREW_CNT
Else
If CountDownBrewing > 0 Then
Var CountDownBrewing = CountDownBrewing - 1
EndIf
Endif
;If Simulation = "true" Then
; If CountDownBrewing = 0 Then
; ;Open "ROOT/taobin_project/xml/page_drinkok.xml"
; EndIf
;EndIf
Var CountDownBrewing = BREW_CNT
If SelectMenuBetweenBrewEnable1 = "Enable" Then
@ -973,6 +967,7 @@
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
EndIf

View file

@ -74,9 +74,8 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = CountDownBrewing - 1
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing

View file

@ -240,6 +240,9 @@
Var CountDownBrewing = CountDownBrewing - 1
EndIf
Var ShowCountDownBrewing = BREW_CNT
Var Timeout = Timeout + 1
If Timeout > 10 Then

View file

@ -495,12 +495,14 @@
;DEBUGVAR CountStepPackPayment
;DEBUGVAR CountStepForCupFlagDelay
DEBUGVAR ToppingDetailCurr
DEBUGVAR ToppingDetailNext
If CountStepPackPayment = CountStepForCupFlagDelay Then
If Seeker = "curr" Then
Var Seeker.ExtendData = ExtendDataCurr
Var Seeker.PayDetail2 = ToppingDetailCurr;
Var Seeker.PayDetail2 = ToppingDetailCurr
Else
Var Seeker.ExtendData = ExtendDataNext
Var Seeker.PayDetail2 = ToppingDetailNext

View file

@ -32,10 +32,9 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = CountDownBrewing - 1
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing

View file

@ -189,8 +189,8 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = CountDownBrewing - 1
;Var CountDownThankyou = CountDownThankyou - 1
Var CountDownBrewing = BREW_CNT
Var Timeout = Timeout + 1
If Timeout = TimeoutToNext Then