<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
	OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
			
	Machine WakeUp
	
		
	CRLFToSpace showname
	CRLFToSpace showdesc
	
	;- Begin
	Var PriceDrinkNoTop = PriceDrink
	Var PriceDrinkTmp = PriceDrink
	Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp
	Var Timeout = 0
	
	;SAVELOG PriceDrinkTmp
	;- End

	If RoadShow = "true" Then
		Var PriceDrinkTmp = "Free"
		Var SaveSelectDrinkRoadShow = SelectDrink
	EndIf

	DEBUGVAR SaveSelectDrinkRoadShow

	If ShowPrice = "Invisible" Then
		Var PriceDrinkTmpShow = "Free"
	EndIf

	Var StateImgKeto = "Invisible"


	Var ToppingGotoPayment = "true"

	DEBUGVAR backGroundAddExtra
	DEBUGVAR backGroundAddShotPremium
	
	DEBUGVAR MultiPayEnable
	DEBUGVAR CART_COUNT
	Var btnAddCart = "Invisible"
	If MultiPayEnable = "true" Then 
		Var btnAddCart = "Enable"
		If CART_COUNT = 3 Then
			Var btnAddCart = "Invisible" 
		EndIf
	EndIf

	Var LidDeactiveButton = "Invisible" 
	Var StrawDeactiveButton = "Invisible" 

	Machine DoorClose
	Machine DoorLidClose

	Var ButtonNext = "false"

	Var NEW_MULTI = "Invisible"

	Var high_light_drink_type = "Invisible"
	
	Var text_hot_color = "0x84776F"
	Var text_cold_color = "0x84776F"
	Var text_blender_color = "0x84776F"

	Var PriceDrinkTmpShow = "---"

	Var show_select_type = "Enable"

	Var hot_button_state = PD_STAGE_1
	Var cold_button_state = PD_STAGE_2
	Var blend_button_state = PD_STAGE_3
	Var normal_button_state = "Invisible"

	; Protect have product-code but menu disable or invalid.
	If hot_button_state = "Invisible" Then

		Var hot_button_state = "Disable2"
	EndIf
	If cold_button_state = "Invisible" Then

		Var cold_button_state = "Disable2"
	EndIf
	If blend_button_state = "Invisible" Then

		Var blend_button_state = "Disable2"
	EndIf


	Function 2


	DEBUGVAR show_select_type
	DEBUGVAR PriceD1
	DEBUGVAR PriceD2
	DEBUGVAR PriceD3
	DEBUGVAR DisplayFormatFull

	If hot_button_state = "Disable2" Then
		Var text_price_d1 = ""
	Else
		Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormatFull, PreScaleConvertShow) 
	EndIf

	If cold_button_state = "Disable2" Then
		Var text_price_d2 = ""
	Else
		Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormatFull, PreScaleConvertShow) 
	EndIf

	
	If blend_button_state = "Disable2" Then
		Var text_price_d3 = ""
	Else
		Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormatFull, PreScaleConvertShow) 
	EndIf

	DEBUGVAR LanguageShowByIndex
	DEBUGVAR NameLang[0][LanguageShowByIndex]
	DEBUGVAR NameLang[1][LanguageShowByIndex]
	DEBUGVAR NameLang[2][LanguageShowByIndex]

	Var showname = aliasName[LanguageShowByIndex]
	Var showdesc = aliasName[LanguageShowByIndex]

	BackslashNToEnter showname
	BackslashNToEnter showdesc

	CRLFToSpace showname
	CRLFToSpace showdesc

</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout> 
	DEBUGVAR Timeout


	Var Timeout = Timeout + 1
	
	If Timeout > 40 Then
		Var Timeout = 0
		If  Seeker = "next" Then 
			OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
			Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"  
		Else
			OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
			Open "ROOT/taobin_project/xml/page_catalog.xml" 
		EndIf
  
	EndIf

	If MultiPayEnable = "true" Then 
		If NEW_MULTI = "Invisible" Then
			Var NEW_MULTI = "Enable"
		Else
			Var NEW_MULTI = "Invisible"
		EndIf
	EndIf

	If Seeker = "curr" Then
		If DoorCupPosition = "bottom" Then
			; It normal 
			Var EmergencyStop = "false"
		Else
			Var EmergencyStop = "true"
			

		EndIf
	EndIf

	Refresh
	TimerReset
</EventTimeout> 

<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>


<LangSwitch>
<X> 1000 </X>
<Y> 381 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
    ;
</EventClick>
</LangSwitch>

<EventLanguageOnChange>
	DEBUGVAR LanguageShowByIndex
	DEBUGVAR LanguageShow

	
	If SelectDrinkType = 1 Then
		Var showname = NameLang[IndexDrinktType][LanguageShowByIndex]
		Var showdesc = DescLang[IndexDrinktType][LanguageShowByIndex]
		
	Else
		Var showname = aliasName[LanguageShowByIndex]
		Var showdesc = aliasName[LanguageShowByIndex]
		
	EndIf
	
	BackslashNToEnter showname
	BackslashNToEnter showdesc
	CRLFToSpace showname
	CRLFToSpace showdesc
	Var Timeout = 0
</EventLanguageOnChange>


; back
<Button>
<X> 19 </X>
<Y> 420 </Y>
<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	;Open PreviseXMLFileName2
	DEBUGVAR OpenFromXML
	
	OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml"
	
	Open OpenFromXML

	
</EventClick>
</Button>

<EventMachine>
	If BugFlag = 1 Then

	Else

        DEBUGVAR LinkProductCodeAnotherMachine[0]
        DEBUGVAR LinkProductCodeAnotherMachine[1]
        DEBUGVAR LinkProductCodeAnotherMachine[2]
        
		Function 2
	EndIf


</EventMachine>


; same
<Image>
<X> 374 </X>
<Y> 382 </Y>
<Width> 331 </Width>
<Height> 436 </Height>
<Filename> PictureDrink </Filename>
</Image>


<Image>
<X> 374 </X>
<Y> 399 </Y>
<State> eval(  
 If IsSmoRet = "true" Then
 	Var return = "Enable"
 Else
 	Var return = "Invisible"
 EndIf
)  
</State> 
<Filename> "ROOT/taobin_project/image/topping2/blender_icon.png" </Filename>
</Image>

; same
; Text head
<Text>
<X> 0 </X>
<Y> 752 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 68 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> showname </Value>
</Text>
; same
<Text>
<X> 0 </X>
<Y> 836 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 24 </Size>
<Font> KanitLightTTF </Font>
<Color> 0x6F5F51 </Color>
<Value> showdesc </Value>
</Text>


<EventSecurity> 
	Open "/media/bt/xml/security_alarm.xml" 
</EventSecurity>


; back
<Button>
<X> 44 </X>
<Y> 1785 </Y>
<Filename> "ROOT/taobin_project/image/topping_inter/bn_cancel.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping_inter/bp_cancel.png"</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

	If  Seeker = "next" Then 
		OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
		Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"  
	Else
		OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
		Open "ROOT/taobin_project/xml/page_catalog.xml" 
	EndIf
	
</EventClick>
<Language>
	<X> 53 </X>
	<Y> 16 </Y>
	<Width> 120 </Width>
	<Height> 42 </Height>
	<ID> 000074 </ID>
</Language>
</Button>


; 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>
<State> NEW_MULTI </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> Var( DirImage + "/new_multi.png" ) </Filename>
<EventClick> 
</EventClick>
</Button>

; next
<Button>
<X> 673 </X>
<Y> 1785 </Y>
<Filename> "ROOT/taobin_project/image/topping_inter/bn_next.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping_inter/bp_next.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
		Var bg_lidProblem_ST = "Invisible"
	EndIf
	
	If SelectDrinkType = 0 Then
		
	Else
		Var StrawState = "Enable"
		Var LidState = "Enable"
	EndIf
	; 
	

	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


	If LanguageShow = "ENG" Then
		Var show_eng = "true"
	EndIf
	If LanguageShow = "THAI" Then
		Var show_eng = "false"
	EndIf


	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_payment.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>
<Language>
	<X> 64 </X>
	<Y> 19 </Y>
	<ID> 000073 </ID>
</Language>
</Button>


<Function2>

	Var img_cold_no_flag = 0
	Var img_smth_no_flag = 0

	If hot_button_state = "Disable2" Then
		If blend_button_state = "Disable2" Then
			Var img_cold_no_flag = 1
		Else
		Var img_cold_no_flag = 1
		Var img_smth_no_flag = 2
		EndIf
	EndIf

	If PriceD1 = PriceD2 Then
		Var img_cold_no_flag = 1
	EndIf

	If hot_button_state = "Disable2" Then
		If cold_button_state = "Disable2" Then
			Var img_smth_no_flag = 1
		EndIf
	EndIf


	If img_cold_no_flag = 1 Then
		SAVELOG "Cold Image change."
		Var img_cold = "/bt_cold_no.png"
		Var img_cold_sel = "/bt_cold_selected_no.png"
		Var img_cold_dis = "/bt_cold_disable_no.png"
		Var img_cold_dis2 = "/bt_cold_disable2_no.png"
	Else
		Var img_cold = "/bt_cold.png"
		Var img_cold_sel = "/bt_cold_selected.png"
		Var img_cold_dis = "/bt_cold_disable.png"
		Var img_cold_dis2 = "/bt_cold_disable2.png"
	EndIf
	
	If img_smth_no_flag = 1 Then
		SAVELOG "Smoothies change img. 1"
		Var img_smth = "/bt_smoothie_no.png"
		Var img_smth_sel = "/bt_smoothie_selected_no.png"
		Var img_smth_dis = "/bt_smoothie_disable_no.png"
		Var img_smth_dis2 = "/bt_smoothie_disable2_no.png"
	Else
		If img_smth_no_flag = 2 Then
			SAVELOG "Smoothies change img. 2"
			Var img_smth = "/bt_smoothie_sub2.png"
			Var img_smth_sel = "/bt_smoothie_selected_sub2.png"
			Var img_smth_dis = "/bt_smoothie_disable_sub2.png"
			Var img_smth_dis2 = "/bt_smoothie_disable2_sub2.png"
		Else

			Var img_smth = "/bt_smoothie.png"
			Var img_smth_sel = "/bt_smoothie_selected.png"
			Var img_smth_dis = "/bt_smoothie_disable.png"
			Var img_smth_dis2 = "/bt_smoothie_disable2.png"
		EndIf
	EndIf

	Var img_cold = "/bt_cold_no.png"
	Var img_cold_sel = "/bt_cold_selected_no.png"
	Var img_cold_dis = "/bt_cold_disable_no.png"
	Var img_cold_dis2 = "/bt_cold_disable2_no.png"

	Var img_smth = "/bt_smoothie_no.png"
	Var img_smth_sel = "/bt_smoothie_selected_no.png"
	Var img_smth_dis = "/bt_smoothie_disable_no.png"
	Var img_smth_dis2 = "/bt_smoothie_disable2_no.png"

	DEBUGVAR menu_name_thai_cold
	SAVELOG "FUNCTION2"
	

	Var TOPPING_PRICE = 0

	Var SelectDrinkType = 0
 
 	; Set default
	If SelectCountDrinkType = 1 Then
		If DefaultDrinkType = 1 Then
			Var hot_button_state = "PressForever"
			Var IndexDrinktType = 0
		EndIf
		If DefaultDrinkType = 2 Then
			Var cold_button_state = "PressForever"

			If PD_CODE2 = "12-05-02-0016" Then
				Var cold_button_state = "Invisible"
				Var normal_button_state = "PressForever"
				Var SelectDrinkType = 1
			EndIf

			If PD_CODE2 = "51-05-02-0016" Then
				Var cold_button_state = "Invisible"
				Var normal_button_state = "PressForever"
				Var SelectDrinkType = 1
			EndIf
			
			Var IndexDrinktType = 1
		EndIf
		If DefaultDrinkType = 3 Then
			Var blend_button_state = "PressForever"
			Var IndexDrinktType = 2
		EndIf

	EndIf

	If hot_button_state = "PressForever" Then
		Var PriceDrinkNoTop = PriceD1
		Var UserSelectProductCode = PD_CODE1

		If showShotEnable = "Disable" Then
			Var showShotEnable = "Enable"
		EndIf

		Var showText4 = "Invisible"

		Var showname = NameLang[0][LanguageShowByIndex]
		Var showdesc = DescLang[0][LanguageShowByIndex]

		Var text_hot_color = "0xFFFFFF"
		Var text_cold_color = "0x84776F"
		Var text_blender_color = "0x84776F"

		Var SelectDrinkType = 1

		Machine PreparCup
	EndIf
	
	If cold_button_state = "PressForever" Then
		Var PriceDrinkNoTop = PriceD2
		Var UserSelectProductCode = PD_CODE2

		If showShotEnable = "Disable" Then
			Var showShotEnable = "Enable"
		EndIf
		Var showText4 = "Invisible"

		Var showname = NameLang[1][LanguageShowByIndex]
		Var showdesc = DescLang[1][LanguageShowByIndex]

		Var text_hot_color = "0x84776F"
		Var text_cold_color = "0xFFFFFF"
		Var text_blender_color = "0x84776F"

		Var SelectDrinkType = 1

		Machine PreparCup
	EndIf
	
	If blend_button_state = "PressForever" Then
		Var PriceDrinkNoTop = PriceD3
		Var UserSelectProductCode = PD_CODE3

		If showShotEnable = "Invisible" Then

		Else
			Var showShotEnable = "Disable"
		EndIf
		Var showText4 = "Enable"

		Var showname = NameLang[2][LanguageShowByIndex]
		Var showdesc = DescLang[2][LanguageShowByIndex]

		Var text_hot_color = "0x84776F"
		Var text_cold_color = "0x84776F"
		Var text_blender_color = "0xFFFFFF"

		Var SelectDrinkType = 1

		Machine PreparCup
	EndIf

	BackslashNToEnter showname
	BackslashNToEnter showdesc
	CRLFToSpace showname
	CRLFToSpace showdesc
	

	DEBUGVAR PriceDrinkNoTop
	DEBUGVAR PriceDiff
	DEBUGVAR showShotEnable
	Var TOPPING_PRICE = 0

	If ShotCoffeePremium = "Press" Then
		If blendedState = "Press" Then
			Var PriceDrinkTmp = PriceDrinkNoTop
		EndIf

		Var blendedState = "Disable"
		Var TOPPING_PRICE = 0

		Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2
		
		Var topping2 = toppingID2index2
		
		Var DisableUsingCode = "true"
		
		Var showText7 = "Enable"

		SAVELOG "Select premi normal shot"

	Else

		If showShotEnable = "Press" Then	
			If blendedState = "Press" Then
				Var PriceDrinkTmp = PriceDrinkNoTop
			EndIf

			Var blendedState = "Disable"

			Var TOPPING_PRICE = 0

			;Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2
			Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2
			
			Var topping2 = toppingID2index2
			
			Var DisableUsingCode = "true"
			
			Var showText7 = "Enable"

			SAVELOG "Select add normal shot"
		Else
			If blendedState = "Disable" Then
				Var blendedState = "Enable"
			EndIf
			

			Var PriceDrinkTmp = PriceDrinkNoTop
			Var topping2 = toppingID2index1
			Var DisableUsingCode = "false"
			SAVELOG "Deselect add normal shot"

			Var showText7 = "Invisible"

		EndIf

	EndIf


	DEBUGVAR showOreoAddEnable
	DEBUGVAR TOPPING_PRICE

	If showOreoAddEnable = "Press" Then
		Var TOPPING_PRICE = TOPPING_PRICE + toppingID6price2
		Var topping6 = toppingID6index2
		Var DisableUsingCode = "true"
	Else

		;Var PriceDrinkTmp = PriceDrinkNoTop

		Var topping6 = toppingID6index1

		Var DisableUsingCode = "false"
		
	EndIf
	
	DEBUGVAR OatMilkEnable
	DEBUGVAR MenuCodeName1
	DEBUGVAR MenuCodeName1_State

	If OatMilkEnable = "Press" Then
		If MenuCodeName1 = "OatMilk" Then
			If MenuCodeName1_State = "Enable" Then
				Var TOPPING_PRICE = TOPPING_PRICE + OatMilkAddAmount
				Var UserSelectProductCode = SubMenuProductCode1
			EndIf
		EndIf
	EndIf
	

	DEBUGVAR SelectDrinkType

	DEBUGVAR showShotEnable
	DEBUGVAR PriceDrinkTmpShow

	Var PriceDrinkTmp = PriceDrinkNoTop + TOPPING_PRICE
	Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp

	If SelectDrinkType = 0 Then
		Var PriceDrinkTmpShow = "---"
	Else
		Var PriceDrinkTmpShow !assigned StringFmt( PriceDrinkTmp , DisplayFormatFull, PreScaleConvertShow)
	EndIf
	SAVELOG PriceDrinkTmp

	If RoadShow = "true" Then
		
		Var PriceDrinkTmpShow = "Free"

		DEBUGVAR SelectDrink2
		DEBUGVAR PriceDrinkTmpShow
	EndIf

	CRLFToSpace showname
	CRLFToSpace showdesc
	DEBUGVAR showname
	DEBUGVAR showdesc


	Var Timeout = 0
	
	RefreshAll

</Function2>


;

</Page>