FIX Var ExtendData

This commit is contained in:
kong 2022-05-20 10:27:08 +07:00
parent ec06b3785a
commit 8873cebf00
8 changed files with 73 additions and 50 deletions

View file

@ -93,13 +93,18 @@
Topping "Select3-ID" Seeker.topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" ExtendDataCurr
;Var Seeker.ExtendData = ExtendData ; because save in Seeker.
Var MachineStage = "NextOrder"
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
;Var SessionID2 = SelectSlot + ":"
;Var SessionID2 = SessionID2 + ExtendData
;DEBUGVAR SessionID2
Topping "ClearNextOrder" "-"
EndIf
@ -184,6 +189,25 @@
Var buttonRemoveCup = "Invisible"
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 Timeout = 2 Then