diff --git a/image/pos_midnight/pos_close_midnight_en.png b/image/pos_midnight/pos_close_midnight_en.png new file mode 100644 index 00000000..d84b80db Binary files /dev/null and b/image/pos_midnight/pos_close_midnight_en.png differ diff --git a/image/pos_midnight/pos_close_midnight_th.png b/image/pos_midnight/pos_close_midnight_th.png new file mode 100644 index 00000000..e1592c1d Binary files /dev/null and b/image/pos_midnight/pos_close_midnight_th.png differ diff --git a/inter/hkg/xml/multi/control_and_lang_swith.ev b/inter/hkg/xml/multi/control_and_lang_swith.ev index 9498d0ea..7de4373f 100644 --- a/inter/hkg/xml/multi/control_and_lang_swith.ev +++ b/inter/hkg/xml/multi/control_and_lang_swith.ev @@ -35,19 +35,10 @@ Else Var InstanceTabOpenFile6 = "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_health.lxml" EndIf -Var InstanceTabOpenFile8 = "ROOT/taobin_project/inter/tha/xml/multi/start_up_inst_dummy.lxml" - -Var InstanceTabOpenFile9 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml" - -Var InstanceTabOpenFile10 = "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml" - -Var InstanceTabOpenFile11 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml" -Var InstanceTabOpenFile12 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml" -Var InstanceTabOpenFile13 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml" +Var InstanceTabOpenFile15 = "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml" TabMenuVisibleInst 99 -TabMenuLock 13 DEBUGVAR Not#CountDownForMulti DEBUGVAR InstanceTabOpenFile2 diff --git a/inter/hkg/xml/multi/menu_catalog_new.lxml b/inter/hkg/xml/multi/menu_catalog_new.lxml index 05266bdc..ca2fa2c6 100644 --- a/inter/hkg/xml/multi/menu_catalog_new.lxml +++ b/inter/hkg/xml/multi/menu_catalog_new.lxml @@ -162,7 +162,7 @@ SAVELOG " Back multi inst" TabMenuVisibleInst 99 - RootLayoutVisible 13 "hide" + ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_hide.lxml" Var OpenFromMulti = 1 OpenInst 2 "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog.lxml" diff --git a/inter/hkg/xml/multi/page_catalog.lxml b/inter/hkg/xml/multi/page_catalog.lxml index e1035376..f7c6e75c 100644 --- a/inter/hkg/xml/multi/page_catalog.lxml +++ b/inter/hkg/xml/multi/page_catalog.lxml @@ -561,7 +561,7 @@ Var OpenFromMulti = 1 TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/event/script_common_for_open_promotion_xml.ev" RootLayoutVisible 3 "hide" - RootLayoutVisible 13 "hide" + ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_hide.lxml" diff --git a/inter/hkg/xml/multi/page_catalog_group_recommend.lxml b/inter/hkg/xml/multi/page_catalog_group_recommend.lxml index be40a7e3..dadf0aeb 100644 --- a/inter/hkg/xml/multi/page_catalog_group_recommend.lxml +++ b/inter/hkg/xml/multi/page_catalog_group_recommend.lxml @@ -1,236 +1,236 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" - - Var Menu1Selected = "PressForever" - - Var OreoBigButtonEnable = "Enable" - - If $12-01-01-0001.Button = "Invisible" Then - Var esp102101001Enable = "Invisible" - Var esp122101001Enable = "Enable" - - Else - Var esp102101001Enable = "Enable" - Var esp122101001Enable = "Invisible" - - EndIf - - SAVELOG PreviseXMLFileName2 - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" - - Var Timeout = 0 - - If show_eng = "true" Then - - Var text_unavailable = "UNAVAILABLE###size=16" - Else - Var text_unavailable = "หมด###size=32" - - EndIf - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" - RootLayoutVisible 13 "show" - RootLayoutVisible 3 "show" - - - SetInstanceIgnoreTouch - - - - - DEBUGVAR LanguageShow - If LanguageShow = "ENG" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - EndIf - If LanguageShow = "THAI" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "true" - DEBUGVAR show_eng - Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" - EndIf - If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_mtc/" - Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_mtc/" - Var ice_tab_text = "冰塊及時準備好了。 " - EndIf - - If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/" - Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/" - Var ice_tab_text = "冰块及时准备好了。 " - EndIf - ;inter-image - If CountryName = "Malaysia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - ;inter-image - If CountryName = "australia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - - ;SAVELOG "EventLanguageOnChange menu -list" - - - - Var LanguageButtonEnable = "Invisible" - Var BtnLangToggleIndex = "Enable" - - OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" - RefreshAll - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show - ;DEBUGVAR inst_show - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If LanguageShow = "ENG" Then - InstanceSetString "ShowEng" - EndIf - - If LanguageShow = "MTC" Then - InstanceSetString "ShowMTC" - EndIf - - If LanguageShow = "MSC" Then - InstanceSetString "ShowMSC" - EndIf - - EndIf - EndIf - - Var Timeout = Timeout + 1 - - ;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev" - - TimerReset - - -;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" - - - DEBUGVAR LanguageShow - If LanguageShow = "ENG" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - EndIf - If LanguageShow = "THAI" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "true" - DEBUGVAR show_eng - Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" - EndIf - If LanguageShow = "MTC" Then - Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_mtc/" - Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_mtc/" - Var ice_tab_text = "冰塊及時準備好了。 " - EndIf - If LanguageShow = "MSC" Then - Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/" - Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/" - Var ice_tab_text = "冰块及时准备好了。 " - EndIf - ;inter-image - If CountryName = "Malaysia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - ;inter-image - If CountryName = "australia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - - ;SAVELOG "EventLanguageOnChange menu -list" - - - - Var LanguageButtonEnable = "Invisible" - Var BtnLangToggleIndex = "Enable" - - - - OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" + + Var Menu1Selected = "PressForever" + + Var OreoBigButtonEnable = "Enable" + + If $12-01-01-0001.Button = "Invisible" Then + Var esp102101001Enable = "Invisible" + Var esp122101001Enable = "Enable" + + Else + Var esp102101001Enable = "Enable" + Var esp122101001Enable = "Invisible" + + EndIf + + SAVELOG PreviseXMLFileName2 + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" + + Var Timeout = 0 + + If show_eng = "true" Then + + Var text_unavailable = "UNAVAILABLE###size=16" + Else + Var text_unavailable = "หมด###size=32" + + EndIf + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" + RootLayoutVisible 15 "show" + RootLayoutVisible 3 "show" + + + SetInstanceIgnoreTouch + + + + + DEBUGVAR LanguageShow + If LanguageShow = "ENG" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + EndIf + If LanguageShow = "THAI" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "true" + DEBUGVAR show_eng + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" + EndIf + If LanguageShow = "MTC" Then + Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_mtc/" + Var ice_tab_text = "冰塊及時準備好了。 " + EndIf + + If LanguageShow = "MSC" Then + Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/" + Var ice_tab_text = "冰块及时准备好了。 " + EndIf + ;inter-image + If CountryName = "Malaysia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + ;inter-image + If CountryName = "australia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + + ;SAVELOG "EventLanguageOnChange menu -list" + + + + Var LanguageButtonEnable = "Invisible" + Var BtnLangToggleIndex = "Enable" + + OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" + RefreshAll + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show + ;DEBUGVAR inst_show + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If LanguageShow = "ENG" Then + InstanceSetString "ShowEng" + EndIf + + If LanguageShow = "MTC" Then + InstanceSetString "ShowMTC" + EndIf + + If LanguageShow = "MSC" Then + InstanceSetString "ShowMSC" + EndIf + + EndIf + EndIf + + Var Timeout = Timeout + 1 + + ;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev" + + TimerReset + + +;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" + + + DEBUGVAR LanguageShow + If LanguageShow = "ENG" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + EndIf + If LanguageShow = "THAI" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "true" + DEBUGVAR show_eng + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" + EndIf + If LanguageShow = "MTC" Then + Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_mtc/" + Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_mtc/" + Var ice_tab_text = "冰塊及時準備好了。 " + EndIf + If LanguageShow = "MSC" Then + Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/" + Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/" + Var ice_tab_text = "冰块及时准备好了。 " + EndIf + ;inter-image + If CountryName = "Malaysia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + ;inter-image + If CountryName = "australia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + + ;SAVELOG "EventLanguageOnChange menu -list" + + + + Var LanguageButtonEnable = "Invisible" + Var BtnLangToggleIndex = "Enable" + + + + OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" + + + 16 10 @@ -12948,29 +12948,29 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - -;BigLogoLayout - - - - - + + + + + + + +;BigLogoLayout + + + + + diff --git a/inter/hkg/xml/multi/page_catalog_group_recommend.skt b/inter/hkg/xml/multi/page_catalog_group_recommend.skt index 04b88b92..49612d4b 100644 --- a/inter/hkg/xml/multi/page_catalog_group_recommend.skt +++ b/inter/hkg/xml/multi/page_catalog_group_recommend.skt @@ -41,7 +41,7 @@ EndIf ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" - RootLayoutVisible 13 "show" + RootLayoutVisible 15 "show" RootLayoutVisible 3 "show" diff --git a/inter/hkg/xml/multi/page_instance2.xml b/inter/hkg/xml/multi/page_instance2.xml index b09288ce..03ce6512 100644 --- a/inter/hkg/xml/multi/page_instance2.xml +++ b/inter/hkg/xml/multi/page_instance2.xml @@ -7,7 +7,7 @@ RootLayoutVisible 3 "show" - RootLayoutVisible 13 "show" + RootLayoutVisible 15 "show" OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" diff --git a/inter/hkg/xml/multi/start_up_inst_11.xml b/inter/hkg/xml/multi/start_up_inst_11.xml index 81c8dac8..4248899a 100644 --- a/inter/hkg/xml/multi/start_up_inst_11.xml +++ b/inter/hkg/xml/multi/start_up_inst_11.xml @@ -3,7 +3,6 @@ 1920 - Var InstanceTabOpenFile11 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.xml" 10000 diff --git a/inter/hkg/xml/multi/start_up_inst_12.xml b/inter/hkg/xml/multi/start_up_inst_12.xml index d5c1e84f..09c8ae34 100644 --- a/inter/hkg/xml/multi/start_up_inst_12.xml +++ b/inter/hkg/xml/multi/start_up_inst_12.xml @@ -3,7 +3,6 @@ 1920 - Var InstanceTabOpenFile12 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.xml" 10000 diff --git a/inter/hkg/xml/multi/start_up_inst_13.xml b/inter/hkg/xml/multi/start_up_inst_13.xml index d6ee2dd6..6152ae1c 100644 --- a/inter/hkg/xml/multi/start_up_inst_13.xml +++ b/inter/hkg/xml/multi/start_up_inst_13.xml @@ -3,7 +3,6 @@ 1920 - Var InstanceTabOpenFile13 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.xml" 10000 diff --git a/inter/hkg/xml/multi/start_up_inst_14.xml b/inter/hkg/xml/multi/start_up_inst_14.xml new file mode 100644 index 00000000..190effe1 --- /dev/null +++ b/inter/hkg/xml/multi/start_up_inst_14.xml @@ -0,0 +1,23 @@ + + 1080 + 1920 + + + + + 10000 + + + If InstanceTabOpenFile14 = "" Then + + Else + Open InstanceTabOpenFile14 + EndIf + + TimerReset + + + + + + diff --git a/inter/hkg/xml/multi/tab_menu.lxml b/inter/hkg/xml/multi/tab_menu.lxml index c648a5b3..475ec8f0 100644 --- a/inter/hkg/xml/multi/tab_menu.lxml +++ b/inter/hkg/xml/multi/tab_menu.lxml @@ -82,7 +82,7 @@ ;TRY OpenFileXML RootLayoutVisible 3 "hide" - RootLayoutVisible 13 "hide" + RootLayoutVisible 15 "hide" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/event/script_common_for_open_promotion_xml.ev" @@ -252,7 +252,7 @@ RootLayoutVisible 3 "hide" - RootLayoutVisible 13 "hide" + RootLayoutVisible 15 "hide" TabMenuVisibleInst 99 OpenInst 2 "ROOT/taobin_project/spiral/xml/page_catalog_vending_machine.xml" diff --git a/inter/hkg/xml/multi/tab_menu_hide.lxml b/inter/hkg/xml/multi/tab_menu_hide.lxml index d0056ac8..11496258 100644 --- a/inter/hkg/xml/multi/tab_menu_hide.lxml +++ b/inter/hkg/xml/multi/tab_menu_hide.lxml @@ -1 +1 @@ -RootLayoutVisible 13 "hide" +RootLayoutVisible 15 "hide" diff --git a/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml b/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml index d47b8edc..5b092cb6 100644 --- a/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml +++ b/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml @@ -1,2 +1,3 @@ - OpenInst 13 "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml" \ No newline at end of file + OpenInst 15 "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml" + RootLayoutVisible 15 "show" \ No newline at end of file diff --git a/inter/hkg/xml/page_topping_select6.lxml b/inter/hkg/xml/page_topping_select6.lxml index 28c1a82d..83a1f6a6 100644 --- a/inter/hkg/xml/page_topping_select6.lxml +++ b/inter/hkg/xml/page_topping_select6.lxml @@ -7,7 +7,7 @@ OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - RootLayoutVisible 13 "hide" + ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_hide.lxml" Var UserSeletedSugar = 0 diff --git a/xml/page_NewBrewing3.xml b/xml/page_NewBrewing3.xml index 574569e3..7fd2ab73 100644 --- a/xml/page_NewBrewing3.xml +++ b/xml/page_NewBrewing3.xml @@ -7,7 +7,7 @@ RootLayoutVisible 3 "hide" - + TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payext_setup.ev" Var SendNotiPaySuccess = 2 @@ -288,6 +288,15 @@ Var EnableTopupCreditBetweenBrew = "Enable" EndIf + + If ConnectWithPOSMachine = 1 Then + If POS_SELL_MODE = "NORMAL" Then + + Else + Var SelectMenuBetweenBrewEnable1 = "Invisible" + EndIf + EndIf + If GetFreeFromError = 1 Then Var SelectMenuBetweenBrewEnable1 = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" @@ -426,7 +435,7 @@ DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameOverrideDisable DEBUGVAR game_mode_enable - + DEBUGVAR Seeker @@ -618,11 +627,11 @@ Var IgnoreLidStrawAll = 0 Var bg_lidProblem_ST = "Invisible" Var GetLidButtonState = "Invisible" - + Var bg_strawProblem_ST = "Invisible" Var EnableGetMoreStrawFileName = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" - + EndIf __CMD "SetErrorCodeHandleByXML" 1028 "-" "-" @@ -670,7 +679,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -723,7 +732,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -885,7 +894,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -930,7 +939,7 @@ Var PayDetail2 = "" Var VendingOrderID = Seeker.ORDER_ID Var ServiceRefund = 0 - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Var waitAckPay = 2 @@ -969,7 +978,7 @@ Var PayDetail2 = "" Var VendingOrderID = Seeker.ORDER_ID Var ServiceRefund = 0 - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Var waitAckPay = 2 @@ -1411,6 +1420,14 @@ EndIf + If SelectMenuBetweenBrewEnable1 = "Enable" Then + If ConnectWithPOSMachine = 1 Then + If POS_SELL_MODE = "NORMAL" Then + Else + Var SelectMenuBetweenBrewEnable1 = "Invisible" + EndIf + EndIf + EndIf Refresh TimerReset diff --git a/xml/page_NewBrewing3Conti.xml b/xml/page_NewBrewing3Conti.xml index ccb49325..1ae931ea 100644 --- a/xml/page_NewBrewing3Conti.xml +++ b/xml/page_NewBrewing3Conti.xml @@ -55,6 +55,14 @@ Var EnableSelectMenuBetweenBrew = "Enable" EndIf + If ConnectWithPOSMachine = 1 Then + If POS_SELL_MODE = "NORMAL" Then + + Else + Var EnableSelectMenuBetweenBrew = "Invisible" + EndIf + EndIf + If GetFreeFromError = 1 Then Var EnableSelectMenuBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" @@ -186,7 +194,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -243,7 +251,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -342,7 +350,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -388,7 +396,7 @@ Var PayDetail2 = "" Var VendingOrderID = Seeker.ORDER_ID Var ServiceRefund = 0 - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Var waitAckPay = 2 @@ -427,7 +435,7 @@ Var PayDetail2 = "" Var VendingOrderID = Seeker.ORDER_ID Var ServiceRefund = 0 - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Var waitAckPay = 2 @@ -584,6 +592,16 @@ Var EnableTopupCreditBetweenBrew = "Invisible" EndIf + If EnableSelectMenuBetweenBrew = "Enable" Then + If ConnectWithPOSMachine = 1 Then + If POS_SELL_MODE = "NORMAL" Then + + Else + Var EnableSelectMenuBetweenBrew = "Invisible" + EndIf + EndIf + EndIf + If EnableSelectMenuBetweenBrew = "Enable" Then If EnableSelectMenuBetweenBrewBlink = "Enable" Then Var EnableSelectMenuBetweenBrewBlink = "Invisible" diff --git a/xml/page_NewCannotConti.xml b/xml/page_NewCannotConti.xml index e143910f..e1574c4f 100644 --- a/xml/page_NewCannotConti.xml +++ b/xml/page_NewCannotConti.xml @@ -188,7 +188,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -245,7 +245,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -322,7 +322,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -397,7 +397,7 @@ Var PayDetail2 = "" Var VendingOrderID = Seeker.ORDER_ID Var ServiceRefund = 0 - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Var waitAckPay = 2 @@ -438,7 +438,7 @@ Var PayDetail2 = "" Var VendingOrderID = Seeker.ORDER_ID Var ServiceRefund = 0 - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Var waitAckPay = 2 diff --git a/xml/page_board.xml b/xml/page_board.xml index c269f89d..15949281 100644 --- a/xml/page_board.xml +++ b/xml/page_board.xml @@ -599,10 +599,24 @@ EndIf If ConnectWithPOSMachine = 1 Then - OpenInst 0 "ROOT/taobin_project/xml/page_network_down_pos_machine.xml" + OpenInst 0 "ROOT/taobin_project/xml/page_pos_machine_network_down.xml" EndIf EndIf + + If ConnectWithPOSMachine = 1 Then + DEBUGVAR POS_SELL_MODE + Var POSSellCountdown = 5 + If POS_SELL_MODE = "NORMAL" Then + + Else + Var BackgroundColor = "0x2C2F4E" + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" + Open "ROOT/taobin_project/xml/page_pos_machine_midnight_close.xml" + EndIf + EndIf + + DEBUGVAR ButtontoTopupMenu STRCONTAIN "taobin_notopup" XMLProfile taobin_notopup STRCONTAIN "taobin_notopping" XMLProfile taobin_notopping @@ -1127,7 +1141,7 @@ EnableLanguage "MTC" EnableLanguage "MSC" EnableLanguage "ENG" - + Var LanguageShow = "MTC" SetLanguage "MTC" LanguageControl "UpdateList" "-" @@ -1323,7 +1337,7 @@ ; enable helper Var EnableHelperShow = 0 - Var FromDrinkOk = 1 + ;Var FromDrinkOk = 1 If EnableHelperShow = 1 Then ; enable btn_change_langs Var EnableBtnLangWithHelper = 1 @@ -1361,10 +1375,10 @@ Var CatalogLayoutV3 = 1 - + If BoxID = 123456 Then Var SpiralOnline = "true" - + Var InternationalShow = 0 EndIf @@ -1711,7 +1725,7 @@ Machine NewPaymentOpenBrewingXMLEnable - + If EnablePepsiFullscreen = 1 Then DEBUGVAR EnablePepsiFullscreen @@ -1893,7 +1907,7 @@ PRICE "Reset" "-" 1000 - + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_hide.lxml" If CNTDOWN_PROTECT_SCREEN_BLANK > 0 Then @@ -2118,7 +2132,7 @@ PRICE "Reset" "-" DEBUGVAR InternationalEnable DEBUGVAR CountryName - + If CurrHelpCenter = 1 Then OpenInst 0 "ROOT/taobin_project/xml/page_board.xml" Else @@ -2298,6 +2312,22 @@ PRICE "Reset" "-" Open "ROOT/taobin_project/xml/page_sleepmode.xml" EndIf + If ConnectWithPOSMachine = 1 Then + If POSSellCountdown > 0 Then + Var POSSellCountdown = POSSellCountdown - 1 + Else + DEBUGVAR POS_SELL_MODE + Var POSSellCountdown = 5 + If POS_SELL_MODE = "NORMAL" Then + + Else + Var BackgroundColor = "0x2C2F4E" + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" + Open "ROOT/taobin_project/xml/page_pos_machine_midnight_close.xml" + EndIf + EndIf + EndIf + ; for count helper show If EnableHelperShow = 1 Then If FromDrinkOk = 1 Then diff --git a/xml/page_lid_straw.xml b/xml/page_lid_straw.xml index 67206da1..fca7a02e 100644 --- a/xml/page_lid_straw.xml +++ b/xml/page_lid_straw.xml @@ -209,6 +209,7 @@ If Seeker.PayWithQR = 0 Then DEBUGVAR TxRef1 Var PayDetail2 = ToppingDetail + Var ServiceCharge = Seeker.ServiceCharge DEBUGVAR PayDetail DEBUGVAR PayDetail2 @@ -257,6 +258,7 @@ If Seeker.PayWithQR = 0 Then DEBUGVAR TxRef1 Var PayDetail2 = ToppingDetail + Var ServiceCharge = Seeker.ServiceCharge DEBUGVAR PayDetail DEBUGVAR PayDetail2 diff --git a/xml/page_payment.xml b/xml/page_payment.xml index 91aada9e..a1f70572 100644 --- a/xml/page_payment.xml +++ b/xml/page_payment.xml @@ -10,7 +10,7 @@ OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" - + If Seeker = "curr" Then If MachineStage = "remove-cup" Then SAVELOG "MachineStage = remove-cup" @@ -37,7 +37,7 @@ EndIf - + Var IndoQR = 0 Var PaymentEnableAll = "true" @@ -79,7 +79,7 @@ SAVELOG BoxID - Var ServiceCharge = 0 + Var Seeker.ServiceCharge = 0 Var AdultFlag = 0 @@ -247,6 +247,23 @@ Var ReadyForBrew = "false" EndIf + READ_FILE "/mnt/sdcard/coffeevending/app_manager/app_list/king_power_service/enable" POSMachineFlag + DEBUGVAR POSMachineFlag + If POSMachineFlag = 1 Then + Var ConnectWithPOSMachine = 1 + EndIf + + If ConnectWithPOSMachine = 1 Then + If POS_SELL_MODE = "NORMAL" Then + + Else + If Seeker = "next" Then + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + Else + Open "ROOT/taobin_project/xml/page_back_to_main.xml" + EndIf + EndIf + EndIf ; Test @@ -343,7 +360,7 @@ Var RoadShowMarketCode = "" Var Seeker.VendingCode = RoadShowMarketCode - + DEBUGVAR PriceDrink Var Seeker.IntVendingCampaign = PriceDrink @@ -398,6 +415,7 @@ Var param2 = PureName EndIf + DEBUGVAR ConnectWithPOSMachine If ConnectWithPOSMachine = 1 Then Var WaitPOSStatus = 1 Var TimeWaitPOSStatus = 0 @@ -503,6 +521,8 @@ If WaitPOSStatus = 1 Then + DEBUGVAR TimeWaitPOSStatus + DEBUGVAR POS_SELL_STATUS If TimeWaitPOSStatus < 10 Then Var TimeWaitPOSStatus = TimeWaitPOSStatus + 1 @@ -632,7 +652,7 @@ 938 1080 Center - 66 + 66 Auto 1 KanitMediumTTF diff --git a/xml/page_payment_cash.xml b/xml/page_payment_cash.xml index 0ebe01e2..746726b9 100644 --- a/xml/page_payment_cash.xml +++ b/xml/page_payment_cash.xml @@ -202,7 +202,7 @@ Var ServiceCredit = SelectDrink Var ServiceAmount2 = PayAmount Var Seeker.ServiceAmount2 = PayAmount - Var ServiceCharge = 0 + Var Seeker.ServiceCharge = 0 Var Donate = "" Var SuggestID = "" Var CancleState = "Enable" @@ -707,7 +707,7 @@ Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -762,7 +762,7 @@ EndIf Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -816,7 +816,7 @@ Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -869,7 +869,7 @@ EndIf Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -922,7 +922,7 @@ EndIf Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -975,7 +975,7 @@ EndIf Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -1029,7 +1029,7 @@ EndIf Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -1083,7 +1083,7 @@ EndIf Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -1136,7 +1136,7 @@ EndIf Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -1190,7 +1190,7 @@ Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -1244,7 +1244,7 @@ Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -1975,7 +1975,7 @@ Var LOADING_STATE = "Invisible" Var CreditCardLoading = 0 - Var ServiceCharge = 0 + Var Seeker.ServiceCharge = 0 CoinVending XBILL Else @@ -2017,9 +2017,9 @@ Var QRErrorState = "Invisible" Var VendingCashless = "-" - Var ServiceCharge = 3 + Var Seeker.ServiceCharge = 3 Var RemainAmountX = RemainAmount - Var RemainAmountX = RemainAmountX + ServiceCharge + Var RemainAmountX = RemainAmountX + Seeker.ServiceCharge CashlessPay RemainAmountX CreditCardRef Var CashlessPayFlag = 1 EndIf @@ -2146,7 +2146,7 @@ Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -2335,6 +2335,7 @@ Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" + Var ServiceCharge = Seeker.ServiceCharge Var PayDetail2 = Seeker.PayDetail2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate @@ -3051,7 +3052,7 @@ Var ServiceParameter = "max" - Var ServiceCharge = 0 + Var ServiceCharge = Seeker.ServiceCharge Var AccountType = "new" Var testservice = "kbank" Var tc = "" @@ -3364,9 +3365,7 @@ eval( If KBankCashlessMachine = "1" Then If ReqPayInfoFromCashOther = 2 Then - If ServiceCharge > 0 Then - Var ServiceCharge = 0 - EndIf + Var Seeker.ServiceCharge = 0 CoinVending XBILL EndIf EndIf diff --git a/xml/page_pos_machine_midnight_close.xml b/xml/page_pos_machine_midnight_close.xml new file mode 100644 index 00000000..09e81b61 --- /dev/null +++ b/xml/page_pos_machine_midnight_close.xml @@ -0,0 +1,80 @@ + + 0 + 380 + 1080 + 1540 + SoundVolume + "Enable" + "0x2C2F4E" + + + + Var Timeout = 0 + + Var title_image = "ROOT/taobin_project/image/pos_midnight/pos_close_midnight_th.png" + If show_eng = "true" Then + Var title_image = "ROOT/taobin_project/image/pos_midnight/pos_close_midnight_en.png" + EndIf + + + + 1000 + + + If Timeout > 5 Then + DEBUGVAR POS_SELL_MODE + If POS_SELL_MODE = "NORMAL" Then + RootLayoutVisible 3 "show" + Open "ROOT/taobin_project/xml/page_board.xml" + EndIf + + Var Timeout = 0 + Else + Var Timeout = Timeout + 1 + EndIf + + TimerReset + + + + + + + + + 156 + 380 + title_image + + + \ No newline at end of file diff --git a/xml/page_network_down_pos_machine.xml b/xml/page_pos_machine_network_down.xml similarity index 97% rename from xml/page_network_down_pos_machine.xml rename to xml/page_pos_machine_network_down.xml index 39d16de6..52a9c558 100644 --- a/xml/page_network_down_pos_machine.xml +++ b/xml/page_pos_machine_network_down.xml @@ -67,7 +67,7 @@ EndIf - Open "ROOT/taobin_project/xml/page_network_down_pos_machine.xml" + Open "ROOT/taobin_project/xml/page_pos_machine_network_down.xml" diff --git a/xml/page_thankyou.xml b/xml/page_thankyou.xml index 4ba25dc0..f5b29821 100644 --- a/xml/page_thankyou.xml +++ b/xml/page_thankyou.xml @@ -360,6 +360,9 @@ Var VendingDiscount = Seeker.VendingDiscount Var VendingCampaign = Seeker.VendingCampaign + DEBUGVAR Seeker.ServiceCharge + Var ServiceCharge = Seeker.ServiceCharge + DEBUGVAR ServiceCharge Var PayDetail = "2/F:1311/0//XML|" + Seeker.OrderChanel Var PayType = "" @@ -381,6 +384,7 @@ Var SessionID2 = SessionID2 + "/" Var PayDetail2 = ToppingDetail + DEBUGVAR PayDetail DEBUGVAR PayDetail2 diff --git a/xml/process/payment.ev b/xml/process/payment.ev index f9ee1e91..bb680b0f 100644 --- a/xml/process/payment.ev +++ b/xml/process/payment.ev @@ -8,6 +8,7 @@ If Seeker.PayWithQR = 1 Then Var VendingCampaign = 0 Var SelectDrink = Seeker.selected_a_drink Var SuggestID = "" + Var ServiceCharge = Seeker.ServiceCharge If ChangeFlag2 = 1 Then Var TelephoneNumber = "0899999999" @@ -54,6 +55,8 @@ If Seeker.PayWithQR = 1 Then Var ServiceCredit = SelectDrink Var SuggestID = "" + Var ServiceCharge = Seeker.ServiceCharge + Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel If GetFreeFromError = 1 Then @@ -90,6 +93,8 @@ If Seeker.PayWithQR = 1 Then Var ServiceCredit = SelectDrink Var SuggestID = "" + Var ServiceCharge = Seeker.ServiceCharge + Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel If GetFreeFromError = 1 Then