taobin_project/inc/button_topping_select_confirm_order.inc
2025-05-02 17:13:05 +07:00

464 lines
12 KiB
HTML

;Var Seeker = "curr"
Var Timeout = 0
If showOvaltineEnable = "Press" Then
;Var CustomOvaltineCheckState = "Press"
Var SelectToppingType = 1
EndIf
If showOreoAddEnable = "Press" Then
;Var CustomOreoCheckState = "Press"
Var SelectToppingType = 1
EndIf
If showCocoaEnable = "Press" Then
;Var CustomCocoaCheckState = "Press"
Var SelectToppingType = 1
EndIf
Var StatementCheckMenu = "ProductCodeCheck=" + UserSelectProductCode
__CMD "statement" 0 StatementCheckMenu "-"
DEBUGVAR PriceDrinkTmp
;Var Seeker.PriceDrink = PriceDrinkTmp
Var PriceDrink = PriceDrinkTmp
If OverridePrice = 100 Then
Else
Var PriceDrink = OverridePrice
EndIf
SAVELOG "USER press next ( topping ) - newwwwww"
If CustomSweetState[0] = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If CustomSweetState[1] = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If CustomSweetState[2] = "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 CustomSweetState[2] = "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 CustomMilkState[0] = "PressForever" Then
Var topping11 = toppingID11index1
EndIf
If CustomMilkState[1] = "PressForever" Then
Var topping11 = toppingID11index2
EndIf
If CustomMilkState[2] = "PressForever" Then
Var topping11 = toppingID11index3
EndIf
If showShotSodaEnable = "Enable" Then
If showShotNormalSoda = "Press" Then
Var topping13 = toppingID13index1
EndIf
If showShotEnableSoda = "Press" Then
Var topping13 = toppingID13index2
Else
Var topping13 = toppingID13index1
EndIf
Else
Var topping13 = 0
EndIf
If showEnergyEnable = "Enable" Then
If CustomEnergyState[0] = "Press" Then
Var topping12 = toppingID12index2
Else
If CustomEnergyState[1] = "Press" Then
Else
Var topping12 = toppingID12index1
EndIf
EndIf
If CustomEnergyState[1] = "Press" Then
Var topping12 = toppingID12index3
Else
If CustomEnergyState[0] = "Press" Then
Else
Var topping12 = toppingID12index1
EndIf
EndIf
Else
Var topping12 = 0
EndIf
DEBUGVAR topping12
DEBUGVAR toppingID12index1
DEBUGVAR toppingID12index2
If CustomSweetState[3] = "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 CustomSweetState[4] = "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
If showCustomCoffee = "Enable" Then
If showCoffeeWater = "Enable" Then
If CustomCoffeeWaterState[0] = "PressForever" Then
Var topping7 = toppingID7index1
EndIf
If CustomCoffeeWaterState[1] = "PressForever" Then
Var topping7 = toppingID7index2
EndIf
If CustomCoffeeWaterState[2] = "PressForever" Then
Var topping7 = toppingID7index3
EndIf
If CustomCoffeeWaterState[3] = "PressForever" Then
Var topping7 = toppingID7index4
EndIf
If CustomCoffeeWaterState[4] = "PressForever" Then
Var topping7 = toppingID7index5
EndIf
Else
Var topping7 = 0
EndIf
If showCoffeeQuantity = "Enable" Then
If CustomCoffeeQuantityState[0] = "PressForever" Then
Var topping2 = toppingID2index1
EndIf
If CustomCoffeeQuantityState[1] = "PressForever" Then
Var topping2 = toppingID2index2
EndIf
If CustomCoffeeQuantityState[2] = "PressForever" Then
Var topping2 = toppingID2index3
EndIf
Else
If toppingID2index3 = "" Then
Else
Var topping2 = 0
EndIf
EndIf
If showCoffeeLevel = "Enable" Then
If CustomCoffeeLevelState[0] = "PressForever" Then
Var topping9 = toppingID9index1
EndIf
If CustomCoffeeLevelState[1] = "PressForever" Then
Var topping9 = toppingID9index2
EndIf
If CustomCoffeeLevelState[2] = "PressForever" Then
Var topping9 = toppingID9index3
EndIf
If CustomCoffeeLevelState[3] = "PressForever" Then
Var topping9 = toppingID9index4
EndIf
Else
Var topping9 = 0
EndIf
If showCoffeeTamping = "Enable" Then
If CustomCoffeeTampingState[0] = "PressForever" Then
Var topping8 = toppingID8index1
EndIf
If CustomCoffeeTampingState[1] = "PressForever" Then
Var topping8 = toppingID8index2
EndIf
If CustomCoffeeTampingState[2] = "PressForever" Then
Var topping8 = toppingID8index3
EndIf
Else
Var topping8 = 0
EndIf
Else
If toppingID2index3 = "" Then
Else
Var topping2 = 0
EndIf
Var topping7 = 0
Var topping8 = 0
Var topping9 = 0
Var topping10 = 0
EndIf
; Post Topping
DEBUGVAR SugarZeroCalEnable
DEBUGVAR SugarZeroCalCheck
If SugarZeroCalEnable = "true" Then
Var sugarToppingID = 1000
If SugarZeroCalCheck = "PressForever" Then
Var sugarToppingID = 1001
Else
Var sugarToppingID = 1000
EndIf
EndIf
DEBUGVAR sugarToppingID
If Seeker = "next" Then
SAVELOG "NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT "
EndIf
Var Seeker.topping1 = topping1
Var Seeker.topping2 = topping2
Var Seeker.topping3 = topping3
Var Seeker.topping6 = topping6
Var Seeker.topping7 = topping7
Var Seeker.topping8 = topping8
Var Seeker.topping9 = topping9
Var Seeker.topping10 = topping10
Var Seeker.topping11 = topping11
Var Seeker.topping12 = topping12
Var Seeker.topping13 = topping13
Var Seeker.PostTopping1 = sugarToppingID
Var Seeker.get_a_straw = StrawState
Var Seeker.get_a_lid = LidState
Var Seeker.strMulti6_1 = strMulti6_1
Var Seeker.strMulti6_2 = strMulti6_2
Var Seeker.strMulti6_3 = strMulti6_3
Var Seeker.strMulti6_4 = strMulti6_4
Var Seeker.strMulti6_5 = strMulti6_5
Var Seeker.strMulti6_6 = strMulti6_6
DEBUGVAR Seeker.topping1
DEBUGVAR Seeker.topping2
DEBUGVAR Seeker.topping3
DEBUGVAR Seeker.topping6
DEBUGVAR Seeker.topping7
DEBUGVAR Seeker.topping8
DEBUGVAR Seeker.topping9
DEBUGVAR Seeker.topping10
DEBUGVAR Seeker.topping11
DEBUGVAR Seeker.topping12
DEBUGVAR Seeker.topping13
DEBUGVAR Seeker.get_a_straw
DEBUGVAR Seeker.get_a_lid
DEBUGVAR Seeker.strMulti6_1
DEBUGVAR Seeker.strMulti6_2
DEBUGVAR Seeker.strMulti6_3
DEBUGVAR Seeker.strMulti6_4
DEBUGVAR Seeker.strMulti6_5
DEBUGVAR LidState
DEBUGVAR StrawState
DEBUGVAR UserSelectProductCode
If StrawState = "Press" Then
Machine StrawOrder
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
;
DEBUGVAR PromotionIDCurrentOrder
Var SelectDrink = UserSelectProductCode
Var Seeker.selected_a_drink = UserSelectProductCode
DEBUGVAR Seeker.selected_a_drink
; Set drink
If Seeker = "curr" Then
;include="ROOT/taobin_project/inc/select_drink_current_multi_topping.inc"
Else
; next ignore
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
; Move to MenuReady
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
;Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
EndIf
DEBUGVAR SelectToppingType
If SelectDrinkType = 0 Then
Var high_light_drink_type = "Enable"
Else
If SelectToppingType = 0 Then
If blend_button_state = "PressForever" Then
Var toppingSelectState = "Enable"
If toppingSelectState = "Enable" Then
Var PopupToppingSelect = "Enable"
If toppingID6index2 = 321 Then
If toppingID6index2Status = "Enable" Then
Var CustomOreoCheckState = "Enable"
Var CustomOreoState = "Enable"
Else
Var CustomOreoCheckState = "Disable"
Var CustomOreoState = "Enable"
EndIf
Else
Var CustomOreoCheckState = "Invisible"
EndIf
If toppingID6index3 = 322 Then
If toppingID6index3Status = "Enable" Then
Var CustomCocoaCheckState = "Enable"
Var CustomCocoaState = "Enable"
Else
Var CustomCocoaCheckState = "Disable"
Var CustomCocoaState = "Enable"
EndIf
Else
Var CustomCocoaCheckState = "Invisible"
EndIf
If toppingID6index4 = 323 Then
If toppingID6index4Status = "Enable" Then
Var CustomOvaltineCheckState = "Enable"
Var CustomOvaltineState = "Enable"
Else
Var CustomOvaltineCheckState = "Disable"
Var CustomOvaltineState = "Enable"
EndIf
Else
Var CustomOvaltineCheckState = "Invisible"
EndIf
EndIf
EndIf
EndIf
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