Doing take cup between order

This commit is contained in:
wanlop run 2024-12-30 20:44:38 +07:00
parent c57f182579
commit 8991619abd
65 changed files with 7429 additions and 5867 deletions

View file

@ -293,6 +293,7 @@
DEBUGVAR MaybeHaveCup
DEBUGVAR NextOrder
DEBUGVAR DoorCupPosition
DEBUGVAR DOOR_CUP_OPEN_ERROR
Var Timeout = Timeout + 1
@ -333,55 +334,77 @@
EndIf
EndIf
If DOOR_CUP_OPEN_ERROR = "true" Then
; Do not change
;
If MachineStage = "show-menu" Then
Else
Var Seeker.TNumberTaobinMember = ""
If NextOrder = "true" Then
; Do not change
;
If MachineStage = "show-menu" Then
; next order set. Havecup and checkup value must false. Certain cup not on any arm.
Var Seeker.TNumberTaobinMember = ""
If NextOrder = "true" Then
If DoorCupPosition = "bottom" Then
; BEGIN
Var NextOrder = "false"
; next order set. Havecup and checkup value must false. Certain cup not on any arm.
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
; END
If DoorCupPosition = "bottom" Then
; BEGIN
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
; END
Else
Machine DoorClose
EndIf
Else
Machine DoorClose
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
;
; this stage for remove cup
If MachineStage = "remove-cup" Then
If NextOrder = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
Else
If DoorCupPosition = "bottom" Then
; BEGIN
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by remove to take-cup"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
; END
;
; this stage for remove cup
If MachineStage = "remove-cup" Then
If NextOrder = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
Else
Machine DoorClose
EndIf
If DoorCupPosition = "bottom" Then
; BEGIN
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by remove to take-cup"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
; END
Else
Machine DoorClose
EndIf
EndIf
EndIf
If MachineStage = "close-maintenance" Then
If stop_now = "true" Then
If NextOrder = "true" Then
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup with close-maintenance"
Open "ROOT/taobin_project/xml/page_cannotConti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
EndIf
If Timeout = 5 Then
@ -421,22 +444,6 @@
EndIf
If MachineStage = "close-maintenance" Then
If stop_now = "true" Then
If NextOrder = "true" Then
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup with close-maintenance"
Open "ROOT/taobin_project/xml/page_cannotConti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
If txtDrinkOKState = "Enable" Then