This commit is contained in:
kong 2022-05-19 18:10:37 +07:00
parent be2d7faddb
commit 5e5a371953
5 changed files with 37 additions and 13 deletions

View file

@ -233,6 +233,7 @@
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
DEBUGVAR SessionID2
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -294,6 +295,7 @@
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
DEBUGVAR SessionID2
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -423,7 +425,7 @@
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
DEBUGVAR SessionID2
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"

View file

@ -66,13 +66,16 @@
Topping "Select3-ID" Seeker.topping3
; Pack
Topping "Pack" Seeker.ExtendData
Topping "Pack" ExtendDataCurr
DEBUGVAR ExtendDataCurr
Var Seeker.ExtendData = ExtendDataCurr
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
DEBUGVAR SessionID2
Topping "ClearNextOrder" "-"
EndIf

View file

@ -187,7 +187,7 @@
If CountStepPackPayment >= CountStepForCupFlagDelay Then
SAVELOG Seeker.ExtendData
SAVELOG ExtendData
If GetPayInfoFlag = 0 Then
SaveLog "RoadShow test"
@ -240,7 +240,7 @@
; Reset
Var MachineState_Result = 0
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData

View file

@ -93,13 +93,16 @@
Topping "Select3-ID" Seeker.topping3
; Pack
Topping "Pack" Seeker.ExtendData
Topping "Pack" ExtendDataCurr
Var Seeker.ExtendData = ExtendDataCurr
Var MachineStage = "NextOrder"
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
DEBUGVAR SessionID2
Topping "ClearNextOrder" "-"
EndIf
@ -127,6 +130,7 @@
;Var CountDownThankyou = CountDownThankyou - 1
DEBUGVAR MachineStage
DEBUGVAR stop_now
DEBUGVAR CupOnArm
DEBUGVAR buttonRemoveCup
DEBUGVAR CART_COUNT
@ -139,6 +143,13 @@
DEBUGVAR NextOrder
DEBUGVAR DoorCupPosition
If MachineStage = "close-maintenance" Then
If stop_now = "true" Then
Open "ROOT/taobin_project/xml/page_cannotConti.xml"
EndIf
EndIf
If HaveCup = "true" Then
Var Timeout = 0
Else

View file

@ -947,7 +947,10 @@
If ToppingGotoPayment = "true" Then
Topping "Select" SelectDrink
; Pack
Topping "Pack" Seeker.ExtendData
Topping "Pack" ExtendDataCurr
Var Seeker.ExtendDataCurr = ExtendDataCurr
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
@ -2088,7 +2091,9 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" Seeker.ExtendData
Topping "Pack" ExtendData
Var Seeker.ExtendData = ExtendData
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
@ -2267,9 +2272,10 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" Seeker.ExtendDataCurr
Topping "Pack" ExtendDataCurr
Var Seeker.ExtendData = ExtendDataCurr
Var Seeker.ExtendData = Seeker.ExtendDataCurr
Else
Topping "SetNextOrder" UserSelectProductCode
@ -2280,12 +2286,14 @@
Topping "__select2-id" topping2
Topping "__select3-id" topping3
; Pack
Topping "__pack" Seeker.ExtendDataNext
Topping "__pack" ExtendDataNext
Var Seeker.ExtendData = Seeker.ExtendDataNext
Var Seeker.ExtendData = ExtendDataNext
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
Var Seeker.PictureDrink = PictureDrink
Var Seeker.showname = showname