;Var Seeker = "curr"
    	Var Timeout = 0

		Var StatementCheckMenu = "ProductCodeCheck=" + UserSelectProductCode
		
		__CMD "statement" 0 StatementCheckMenu "-"

		
		DEBUGVAR PriceDrinkTmp
		
		;Var Seeker.PriceDrink = PriceDrinkTmp
		
		Var PriceDrink = PriceDrinkTmp
		
		SAVELOG "USER press next ( topping ) - new"

		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 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
		If SugarZeroCalEnable = "true" Then
			Var sugarToppingID = 1000
			If SugarZeroCalCheck = "PressForever" Then
				Var sugarToppingID = 1001
			Else
				Var sugarToppingID = 1000
			EndIf
		EndIf

        

		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


		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 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
		; 

        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
		

		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.inc"

			If SelectToppingType = 0 Then
				
			Else
				Topping "Select" UserSelectProductCode

				Topping "ClearMultiTopping" "Test 4"

				Topping "Multiply6-ID" strMulti6_1
				Topping "Multiply6-ID" strMulti6_2
				Topping "Multiply6-ID" strMulti6_3
				Topping "Multiply6-ID" strMulti6_5
				Topping "Multiply6-ID" strMulti6_6

				Topping "Pack" ExtendDataCurr
			EndIf

		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
			Topping "__select7-id" topping7
			Topping "__select8-id" topping8
			Topping "__select9-id" topping9
			Topping "__select10-id" topping10
			Topping "__select11-id" topping11
			Topping "__select12-id" topping12
			Topping "__select13-id" topping13

			Topping "__posttopping1-ID" sugarToppingID
			; Pack
			Topping "__pack" ExtendDataNext

			Var NextUserSelectDrinkFromPaid = UserSelectProductCode
			Var NextUserSelecttopping1Paid = topping1
			Var NextUserSelecttopping2Paid = topping2
			Var NextUserSelecttopping3Paid = topping3
			Var NextUserSelecttopping6Paid = topping6
			Var NextUserSelecttopping7Paid = topping7
			Var NextUserSelecttopping8Paid = topping8
			Var NextUserSelecttopping9Paid = topping9
			Var NextUserSelecttopping10Paid = topping10
			Var NextUserSelecttopping11Paid = topping11
			Var NextUserSelecttopping12Paid = topping12
			Var NextUserSelecttopping13Paid = topping13


		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 CustomOreoState = "Enable"
						Var CustomOvaltineState = "Enable"
						Var CustomCocoaState = "Enable"
						
						Var PopupToppingSelect = "Enable"


						Var CustomOreoCheckState = "Enable"
						Var CustomOvaltineCheckState = "Enable"
						Var CustomCocoaCheckState = "Enable"
					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