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

Fix setpay

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
inter/tha/xml/multi/page_catalog.lxml
View file

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

11
inter/tha/xml/page_smoothie_suggest_and_process.xml
View file

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

4
xml/page_board.xml
View file

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

18
xml/page_thankyouConti.xml
View file

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