After Seeker

This commit is contained in:
kong 2022-05-19 15:52:16 +07:00
parent ec06b3785a
commit be2d7faddb
25 changed files with 68 additions and 68 deletions

View file

@ -21,7 +21,7 @@
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -71,7 +71,7 @@
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -185,7 +185,7 @@
If ChangeOK = 4 Then
If ActionOKCase = 0 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"

View file

@ -232,7 +232,7 @@
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -293,7 +293,7 @@
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -422,7 +422,7 @@
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -143,7 +143,7 @@
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -204,7 +204,7 @@
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -322,7 +322,7 @@
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -12,7 +12,7 @@
Var ServiceAmount2 = CART1_PRICE
Var SelectDrink = CART1_PDCODE
Var ExtendData = CART1_ONTOP
Var Seeker.ExtendData = CART1_ONTOP
EndIf
@ -20,7 +20,7 @@
Var ServiceAmount2 = CART2_PRICE
Var SelectDrink = CART2_PDCODE
Var ExtendData = CART2_ONTOP
Var Seeker.ExtendData = CART2_ONTOP
EndIf
@ -28,13 +28,13 @@
Var ServiceAmount2 = CART3_PRICE
Var SelectDrink = CART3_PDCODE
Var ExtendData = CART3_ONTOP
Var Seeker.ExtendData = CART3_ONTOP
EndIf
Var SessionID2 = "" + CART_INDEX
Var SessionID2 = SessionID2 + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
@ -211,7 +211,7 @@
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -270,7 +270,7 @@
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -381,7 +381,7 @@
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -66,12 +66,12 @@
Topping "Select3-ID" Seeker.topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Topping "ClearNextOrder" "-"
@ -241,7 +241,7 @@
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -302,7 +302,7 @@
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -386,7 +386,7 @@
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -187,7 +187,7 @@
If CountStepPackPayment >= CountStepForCupFlagDelay Then
SAVELOG ExtendData
SAVELOG Seeker.ExtendData
If GetPayInfoFlag = 0 Then
SaveLog "RoadShow test"
@ -204,7 +204,7 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
;Var CreditAmount1 = ""
;Var ServiceAmountFlow = ""
@ -241,7 +241,7 @@
Var MachineState_Result = 0
DEBUGVAR ExtendData
DEBUGVAR Seeker.ExtendData
;If web_readyOK = "true" Then

View file

@ -336,7 +336,7 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -397,7 +397,7 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -613,7 +613,7 @@
If PayInfoCFlag = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -1125,7 +1125,7 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -1261,7 +1261,7 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -1341,7 +1341,7 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -528,7 +528,7 @@
If PayInfoCFlag = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -1113,7 +1113,7 @@
EndIf
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -1372,7 +1372,7 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -1440,7 +1440,7 @@
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -2003,7 +2003,7 @@ EndIf
;Var MachineStage = "make-drink"
; make drink
MakeDrinkV1 SelectDrink ExtendData
MakeDrinkV1 SelectDrink Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_thankyou.xml"
;Var UnitTestType = "1"

View file

@ -54,7 +54,7 @@
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
@ -237,7 +237,7 @@
;Var SessionID2 = SelectSlot + ":"
;Var SessionID2 = SessionID2 + ExtendData
;Var SessionID2 = SessionID2 + Seeker.ExtendData
;Var CreditAmount1 = ""
;Var ServiceAmountFlow = ""
@ -741,7 +741,7 @@
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -553,7 +553,7 @@
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -553,7 +553,7 @@
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -553,7 +553,7 @@
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -553,7 +553,7 @@
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""

View file

@ -250,7 +250,7 @@
SAVELOG ExtendData
SAVELOG Seeker.ExtendData
If GetPayInfoFlag = 0 Then
If RoadShow = "false" Then

View file

@ -93,12 +93,12 @@
Topping "Select3-ID" Seeker.topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Var MachineStage = "NextOrder"
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var SessionID2 = SessionID2 + Seeker.ExtendData
Topping "ClearNextOrder" "-"

View file

@ -280,7 +280,7 @@
If ToppingGotoPayment = "true" Then
Topping "Select" SelectDrink
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
@ -372,7 +372,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"

View file

@ -282,7 +282,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"

View file

@ -319,7 +319,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"

View file

@ -252,7 +252,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"

View file

@ -587,7 +587,7 @@
If ToppingGotoPayment = "true" Then
Topping "Select" SelectDrink
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
@ -1487,7 +1487,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
@ -1553,7 +1553,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
If CART_COUNT = 0 Then
Open "ROOT/taobin_project/xml/page_payment.xml"

View file

@ -682,7 +682,7 @@
If ToppingGotoPayment = "true" Then
Topping "Select" SelectDrink
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
@ -1511,7 +1511,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
@ -1591,7 +1591,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
If CART_COUNT = 0 Then
Open "ROOT/taobin_project/xml/page_payment.xml"

View file

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

View file

@ -717,7 +717,7 @@
If ToppingGotoPayment = "true" Then
Topping "Select" SelectDrink
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
@ -1599,7 +1599,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
@ -1701,7 +1701,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Else
Topping "SetNextOrder" UserSelectProductCode
EndIf

View file

@ -244,7 +244,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"

View file

@ -384,7 +384,7 @@
DEBUGVAR topping2
DEBUGVAR topping3
; Below this. Process get ExtendData 1:_____ len 5
; Below this. Process get Seeker.ExtendData 1:_____ len 5
; Set drink
Topping "Select" SelectDrink
@ -395,7 +395,7 @@
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Topping "Pack" Seeker.ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"