add vddieo and adv

This commit is contained in:
wanlop run 2025-03-18 13:27:07 +07:00
parent 4ec0a2876a
commit 1e0ea8fc4b
66 changed files with 42827 additions and 18689 deletions

View file

@ -1669,12 +1669,24 @@
Var SpecialMix = "Enable"
Var CustomSyrup = "Enable"
Var showOreoAddEnable = "Enable"
Var showOvaltineEnable = "Enable"
Var showCocoaEnable = "Enable"
If toppingID6index2 = 321 Then
Var showOreoAddEnable = "Enable"
EndIf
If toppingID6index3 = 322 Then
Var showCocoaEnable = "Enable"
EndIf
Var showStrawberryEnable = "Enable"
Var showYuzuEnable = "Enable"
If toppingID6index4 = 323 Then
Var showOvaltineEnable = "Enable"
EndIf
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Enable"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Enable"
EndIf
Var showText8 = "Invisible"
@ -2047,8 +2059,15 @@
EndIf
If cold_button_state = "PressForever" Then
Var showStrawberryEnable = "Enable"
Var showYuzuEnable = "Enable"
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Enable"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Enable"
EndIf
EndIf
@ -9092,11 +9111,24 @@
If showStrawberryEnable = "Press" Then
Var showStrawberryEnable = "Enable"
Var showYuzuEnable = "Enable"
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Enable"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Enable"
EndIf
Else
Var showStrawberryEnable = "Press"
Var showYuzuEnable = "Disable"
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Press"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Disable"
EndIf
EndIf
@ -9123,12 +9155,26 @@
<EventClick>
SAVELOG " Press add Strawberry "
If showStrawberryEnable = "Press" Then
Var showStrawberryEnable = "Enable"
Var showYuzuEnable = "Enable"
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Enable"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Enable"
EndIf
Else
Var showStrawberryEnable = "Press"
Var showYuzuEnable = "Disable"
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Press"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Disable"
EndIf
EndIf
@ -9191,14 +9237,27 @@
SAVELOG "Press add Yuzu"
If showYuzuEnable = "Press" Then
Var showYuzuEnable = "Enable"
Var showStrawberryEnable = "Enable"
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Enable"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Enable"
EndIf
Else
Var showYuzuEnable = "Press"
Var showStrawberryEnable = "Disable"
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Disable"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Press"
EndIf
EndIf
Var SelectSyrupType = 1
Function 2
@ -9227,12 +9286,24 @@
SAVELOG "Press add Yuzu"
If showYuzuEnable = "Press" Then
Var showYuzuEnable = "Enable"
Var showStrawberryEnable = "Enable"
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Enable"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Enable"
EndIf
Else
Var showYuzuEnable = "Press"
Var showStrawberryEnable = "Disable"
If toppingID6index5 = 324 Then
Var showStrawberryEnable = "Disable"
EndIf
If toppingID6index6 = 325 Then
Var showYuzuEnable = "Press"
EndIf
EndIf
@ -9338,76 +9409,6 @@
; add cart
<Button>
<State> btnAddCart </State>
<X> 285 </X>
<Y> 1785 </Y>
<Filename> Var( DirImage + "/bn_add.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_add.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PriceDrink = PriceDrinkTmp
SAVELOG "USER press next ( topping ) - new"
DEBUGVAR topping1
DEBUGVAR topping2
DEBUGVAR topping3
DEBUGVAR LidState
DEBUGVAR StrawState
DEBUGVAR UserSelectProductCode
DEBUGVAR HAVE_UV_DOOR_LID
If StrawState = "Press" Then
Machine StrawOrder
Var LedLidBlink = "true"
EndIf
If LidState = "Press" Then
Machine LidOrder
Var LedLidBlink = "true"
EndIf
Var StrawState = "Enable"
Var LidState = "Enable"
;
Var SelectDrink = UserSelectProductCode
; Set drink
Topping "Select" UserSelectProductCode
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Var Seeker.ExtendData = ExtendData
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
Else
If CART2_STATUS = "EMPTY" Then
Cart "AddMenuID" 2
Else
If CART3_STATUS = "EMPTY" Then
Cart "AddMenuID" 3
EndIf
EndIf
EndIf
Var CartUpdate = "true"
</EventClick>
</Button>
<Button>
<X> 277 </X>
<Y> 1772 </Y>
@ -9420,238 +9421,6 @@
</Button>
; liveness + camera + IDcard
<Button>
<State> DiscountWithIdentifyState </State>
<X> 285 </X>
<Y> 1785 </Y>
<Filename> Var( DirImage + "/bn_price5baht.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_price5baht.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
;Var Seeker = "curr"
DEBUGVAR PriceDrinkTmp
;Var Seeker.PriceDrink = PriceDrinkTmp
Var PriceDrink = PriceDrinkTmp
SAVELOG "USER press next ( topping ) - new"
If SugarState1 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState2 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState4 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index2
EndIf
EndIf
If SugarState5 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index5
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index3
EndIf
EndIf
Var Seeker.topping1 = topping1
Var Seeker.topping2 = topping2
Var Seeker.topping3 = topping3
Var Seeker.topping6 = topping6
Var Seeker.get_a_straw = StrawState
Var Seeker.get_a_lid = LidState
DEBUGVAR Seeker.topping1
DEBUGVAR Seeker.topping2
DEBUGVAR Seeker.topping3
DEBUGVAR Seeker.topping6
DEBUGVAR Seeker.get_a_straw
DEBUGVAR Seeker.get_a_lid
DEBUGVAR LidState
DEBUGVAR StrawState
DEBUGVAR UserSelectProductCode
If StrawState = "Press" Then
Machine StrawOrder
Var LedLidBlink = "true"
EndIf
If LidState = "Press" Then
Machine LidOrder
Var LedLidBlink = "true"
Var bg_lidProblem_ST = "Enable"
Else
If LidState = "Disable" Then
Var bg_lidProblem_ST = "Disable"
Else
Var bg_lidProblem_ST = "Invisible"
EndIf
EndIf
If SelectDrinkType = 0 Then
Else
Var StrawState = "Enable"
Var LidState = "Enable"
EndIf
;
Var PromotionIDCurrentOrder = 0
Var SelectDrink = UserSelectProductCode
Var Seeker.selected_a_drink = UserSelectProductCode
DEBUGVAR Seeker.selected_a_drink
; Set drink
If Seeker = "curr" Then
Topping "Select" UserSelectProductCode
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
Topping "Select6-ID" topping6
; Pack
Topping "Pack" ExtendDataCurr
Else
Topping "SetNextOrder" UserSelectProductCode
Topping "__select" UserSelectProductCode
; Set option toppinng and pack
Topping "__select1-id" topping1
Topping "__select2-id" topping2
Topping "__select3-id" topping3
Topping "__select6-id" topping6
; Pack
Topping "__pack" ExtendDataNext
Var NextUserSelectDrinkFromPaid = UserSelectProductCode
Var NextUserSelecttopping1Paid = topping1
Var NextUserSelecttopping2Paid = topping2
Var NextUserSelecttopping3Paid = topping3
Var NextUserSelecttopping6Paid = topping6
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
Var Seeker.PictureDrink = PictureDrink
Var Seeker.showname = showname
DEBUGVAR MenuCautionImageStage0
DEBUGVAR CustomerFilterEnable
DEBUGVAR CustomerFilterType
GetLongTimeInMinute LastTimeClickOrder
If CART_COUNT = 0 Then
If UserSelectProductCode = "-" Then
Else
If SelectDrinkType = 1 Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_identity_verification.xml"
EndIf
EndIf
If SelectDrinkType = 0 Then
Var high_light_drink_type = "Enable"
EndIf
Else
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
Else
If CART2_STATUS = "EMPTY" Then
Cart "AddMenuID" 2
Else
If CART3_STATUS = "EMPTY" Then
Cart "AddMenuID" 3
EndIf
EndIf
EndIf
Var CartUpdate = "true"
Var ButtonNext = "true"
EndIf
Var LastTimeClickOrder = 0
</EventClick>
</Button>
; next