Fix setpay

This commit is contained in:
wanlop run 2025-05-09 18:33:37 +07:00
parent d97531eee2
commit 1b50b9c6a4
4 changed files with 23 additions and 12 deletions

View file

@ -209,6 +209,8 @@
EndIf
Var Seeker.SmoothieToPayment = 0
Var menu_name_eng_hot = ""
Var menu_desc_eng_hot = ""

View file

@ -6,7 +6,7 @@
<Volume> SoundVolume </Volume>
<EventOpen>
SAVELOG "======================================= page_smoothie_suggest_and_process.xml == Version 1.00 =============================="
SAVELOG "======================================= page_smoothie_suggest_and_process.xml == Version 1.02 =============================="
; On open
TopView "show"
@ -186,6 +186,7 @@
DEBUGVAR AnyArmConfuse
DEBUGVAR SensorDoorCupStatus
DEBUGVAR ArmIDForMakeOrder
DEBUGVAR CountDownCertainConfuse
If ArmIDForMakeOrder = 2 Then
Var ChannelArmForProccessStatus = CH9992_Status
@ -238,6 +239,11 @@
If AnyArmConfuse = 1 Then
If CountDownCertainConfuse = 0 Then
SAVELOG " CountDownCertainConfuse CountDownCertainConfuse "
Var CountDownCertainConfuse = 10
EndIf
If CountDownCertainConfuse > 0 Then
Var CountDownCertainConfuse = CountDownCertainConfuse - 1
@ -295,7 +301,6 @@
; setvarint TimeOutSmoothiesProcess 2
;DEBUGVAR Var [ChannelArmForProccessStatus] = RUNNING
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
@ -527,7 +532,7 @@
<Width> 1080 </Width>
<Align> end </Align>
<Color> 0xFF0000 </Color>
<Value> "V01 "</Value>
<Value> "V102 "</Value>
</Text>

View file

@ -2163,7 +2163,7 @@ PRICE "Reset" "-"
; Original value is 40
If EnableMultiInstance = "true" Then
If CountUpReloadAll > 150 Then
If CountUpReloadAll > 120 Then
Var NeedReboot = "false"
Var StartUpExt = "-"
@ -2174,7 +2174,7 @@ PRICE "Reset" "-"
Else
If CountUpReloadAll > 100 Then
If CountUpReloadAll > 50 Then
Var NeedReboot = "false"
Var StartUpExt = "-"

View file

@ -147,8 +147,8 @@
Var buttonRemoveCup = "Invisible"
SAVELOG "Thank you conti version TCT7"
SAVELOG "Support NextSmoothie"
SAVELOG "Thank you conti version TCT8"
SAVELOG "Support NextSmoothie and fix bug next"
DEBUGVAR NextSmoothie
DEBUGVAR Seeker.SmoothieToPayment
@ -347,6 +347,13 @@
If MenuReadyForCup = "YES" Then
Var LastMakeDrinkResult = "-"
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
; smoothie next
If NextSmoothie = 1 Then
DEBUGVAR Seeker
@ -354,16 +361,13 @@
Var NextSmoothie = 0
If Seeker.SmoothieToPayment = 1 Then
Var TimeOutSmoothiesProcess = 120
Var Seeker.SmoothieToPayment = 0
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
EndIf
EndIf
Var LastMakeDrinkResult = "-"
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 Seeker.selected_a_drink SelectSugarID
If CountryName = "Thailand" Then