THAI INTER: thai inter new-layout with 3 langs

This commit is contained in:
Ittipat Lusuk 2024-11-27 17:56:12 +07:00
commit c4135c748f
1324 changed files with 182160 additions and 281147 deletions

View file

@ -0,0 +1,153 @@
<Popup>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
Var ImageDir = "ROOT/taobin_project/image/event/happy_trios/"
If show_eng = "true" Then
Var Image = ImageDir + "send_code_pending_en.png"
Else
Var Image = ImageDir + "send_code_pending_th.png"
EndIf
Var CodeIsSended = 0
DEBUGVAR Image
DEBUGVAR TelephoneNumber
Var Param1 = "152"
Var Param2 = ""
Var Param3 = ""
AddData 43 TelephoneNumber Param1 Param2 Param3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 5 Then
If CodeIsSended = 1 Then
If CoffeePoint >= 28 Then
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If show_eng = "true" Then
Var Image = ImageDir + "send_code_fail_en.png"
Else
Var Image = ImageDir + "send_code_fail_th.png"
EndIf
Var Timeout = 0
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If Ext1a = "ok" Then
If show_eng = "true" Then
Var Image = ImageDir + "send_code_complate_en.png"
Else
Var Image = ImageDir + "send_code_complate_th.png"
EndIf
Var CodeIsSended = 1
Else
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
If show_eng = "true" Then
Var Image = ImageDir + "send_code_fail_en.png"
Else
Var Image = ImageDir + "send_code_fail_th.png"
EndIf
EndIf
Var Timeout = 0
Refresh
</EventActionOk>
<EventActionError>
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
If show_eng = "true" Then
Var Image = ImageDir + "send_code_fail_en.png"
Else
Var Image = ImageDir + "send_code_fail_th.png"
EndIf
Var Timeout = 0
Refresh
</EventActionError>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 607 </Y>
<Filename> Image </Filename>
</Image>
</Popup>

View file

@ -0,0 +1,41 @@
[
{
"name": "happy_trios",
"template": "/event/promotion_template.inc",
"config": {
"normal_eng": "ROOT/taobin_project/image/event/happy_trios/happy_trios_en.png",
"normal_thai": "ROOT/taobin_project/image/event/happy_trios/happy_trios_th.png",
"press_eng": "ROOT/taobin_project/image/event/happy_trios/happy_trios_en.png",
"press_thai": "ROOT/taobin_project/image/event/happy_trios/happy_trios_th.png",
"disable_eng": "ROOT/taobin_project/image/event/happy_trios/happy_trios_en.png",
"disable_thai": "ROOT/taobin_project/image/event/happy_trios/happy_trios_th.png",
"event_on_click": "ROOT/taobin_project/xml/event/happy_trios/page_catalog_group_pro_happy_trios.xml"
}
},
{
"name": "weekday_discount",
"template": "/event/promotion_template.inc",
"config": {
"normal_eng": "ROOT/taobin_project/image/event/weekday_discount/weekday_discount_en.png",
"normal_thai": "ROOT/taobin_project/image/event/weekday_discount/weekday_discount_th.png",
"press_eng": "ROOT/taobin_project/image/event/weekday_discount/weekday_discount_en.png",
"press_thai": "ROOT/taobin_project/image/event/weekday_discount/weekday_discount_th.png",
"disable_eng": "ROOT/taobin_project/image/event/weekday_discount/weekday_discount_en.png",
"disable_thai": "ROOT/taobin_project/image/event/weekday_discount/weekday_discount_th.png",
"event_on_click": "ROOT/taobin_project/xml/page_catalog_group_pro_weekday_discount_event_on.xml"
}
},
{
"name": "oreo_11",
"template": "/event/promotion_template.inc",
"config": {
"normal_eng": "ROOT/taobin_project/image/event/oreo_11/oreo_11_th.png",
"normal_thai": "ROOT/taobin_project/image/event/oreo_11/oreo_11_th.png",
"press_eng": "ROOT/taobin_project/image/event/oreo_11/oreo_11_th.png",
"press_thai": "ROOT/taobin_project/image/event/oreo_11/oreo_11_th.png",
"disable_eng": "ROOT/taobin_project/image/event/oreo_11/oreo_11_th.png",
"disable_thai": "ROOT/taobin_project/image/event/oreo_11/oreo_11_th.png",
"event_on_click": "ROOT/taobin_project/xml/page_catalog_group_pro_oreo_11_fixed.xml"
}
}
]

View file

@ -1 +1 @@
/event/promotion_jemila.xml
/event/promotion_12_day_12_menu.xml

View file

@ -1 +1 @@
/event/promotion_robinson_beauty.xml
/event/promotion_happy_trios.xml

File diff suppressed because it is too large Load diff

View file

@ -1350,7 +1350,7 @@
<EventOnClick>
Var NameDrink = "PREMIUM ESPRESSO CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมเอสเพรสโซ่ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และ Oreo"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และโอรีโอ"
Var DrinkDescription = "Coffee, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
@ -1433,7 +1433,7 @@
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ นม คาลาเมล และ Oreo" </Value>
<Value> "กาแฟ นม คาลาเมล และโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
@ -1601,7 +1601,7 @@ CARAMEL OREO" </Value>
<EventOnClick>
Var NameDrink = "PREMIUM ESPRESSO CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมเอสเพรสโซ่ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และ Oreo"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และโอรีโอ"
Var DrinkDescription = "Coffee, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
@ -1684,7 +1684,7 @@ CARAMEL OREO" </Value>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ นม คาลาเมล และ Oreo" </Value>
<Value> "กาแฟ นม คาลาเมล และโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
@ -1853,7 +1853,7 @@ CARAMEL OREO" </Value>
<EventOnClick>
Var NameDrink = "PREMIUM GREEN TEA CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมมัทฉะ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "มัทฉะ นม คาลาเมล และ Oreo"
Var DrinkDescriptionTH = "มัทฉะ นม คาลาเมล และโอรีโอ"
Var DrinkDescription = "Matcha, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_GreenTea_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
@ -1936,7 +1936,7 @@ CARAMEL OREO" </Value>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "มัทฉะ นม คาลาเมล และ Oreo" </Value>
<Value> "มัทฉะ นม คาลาเมล และโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
@ -2106,7 +2106,7 @@ CARAMEL OREO" </Value>
<EventOnClick>
Var NameDrink = "PREMIUM THAI TEA CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมชาไทย คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "ชาไทย นม คาลาเมล และ Oreo"
Var DrinkDescriptionTH = "ชาไทย นม คาลาเมล และโอรีโอ"
Var DrinkDescription = "Thai Tea, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_ThaiTea_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
@ -2189,7 +2189,7 @@ CARAMEL OREO" </Value>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "ชาไทย นม คาลาเมล และ Oreo" </Value>
<Value> "ชาไทย นม คาลาเมล และโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
@ -2340,6 +2340,505 @@ CARAMEL OREO" </Value>
</Text>
</Block>
; - - -
; ==================> Len = 12
; - 12-01-02-0041 -
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-01-02-0041.Button,Disable=Invisible,$Sum1201020041) </State>
<Button>
<State> $Sum1201020041 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_iced_americano_soda_weekday_discount.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_iced_americano_soda_weekday_discount.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_iced_americano_soda_weekday_discount.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-01-02-0041, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "AMERICANO SODA"
Var NameDrinkTH = "อเมริกาโน่โซดา"
Var DrinkDescriptionTH = "กาแฟ และ โซดา"
Var DrinkDescription = "Coffee, Soda"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_iced_americano_soda_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = $12-01-02-0041.Price
Var PriceD3 = $-.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "12-01-02-0041"
Var PD_CODE3 = "##-##-##-####"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = $12-01-02-0041.Button
Var PD_STAGE_3 = "Disable2"
Var OverlayMenuFilter !assigned xmlpro( 12-01-02-0041, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-01-02-0041"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "-"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $12-01-02-0041.NameE
Var menu_desc_eng_cold = $12-01-02-0041.descriptionE
Var menu_name_thai_cold = $12-01-02-0041.Name
Var menu_desc_thai_cold = $12-01-02-0041.description
Var menu_name_eng_blender = $##-##-##-####.NameE
Var menu_desc_eng_blender = $##-##-##-####.descriptionE
Var menu_name_thai_blender = $##-##-##-####.Name
Var menu_desc_thai_blender = $##-##-##-####.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Var OpenFromInstMenuTab = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "อเมริกาโน่โซดา" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ และ โซดา" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "AMERICANO SODA" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Coffee, Soda" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> $12-01-02-0041.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-01-02-0041.Button </State>
<Value> StringFmt( $12-01-02-0041.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 180 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitRegularTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum1201020041 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $12-01-02-0041.TAG tag2_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1201020041 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - 12-99-03-0079 -
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-99-03-0079.Button,Disable=Invisible,$Sum1299030079) </State>
<Button>
<State> $Sum1299030079 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_iced_americano_soda_weekday_discount.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_iced_americano_soda_weekday_discount.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_iced_americano_soda_weekday_discount.png" </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<OverlayImage> xmlpro( 12-99-03-0079, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<EventOnClick>
Var NameDrink = "AMERICANO SODA"
Var NameDrinkTH = "อเมริกาโน่โซดา"
Var DrinkDescriptionTH = "กาแฟ และ โซดา"
Var DrinkDescription = "Coffee, Soda"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_iced_americano_soda_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = $12-99-03-0079.Price
Var PriceD3 = $-.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "12-99-03-0079"
Var PD_CODE3 = "##-##-##-####"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = $12-99-03-0079.Button
Var PD_STAGE_3 = "Disable2"
Var OverlayMenuFilter !assigned xmlpro( 12-99-03-0079, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-99-03-0079"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "-"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $12-99-03-0079.NameE
Var menu_desc_eng_cold = $12-99-03-0079.descriptionE
Var menu_name_thai_cold = $12-99-03-0079.Name
Var menu_desc_thai_cold = $12-99-03-0079.description
Var menu_name_eng_blender = $##-##-##-####.NameE
Var menu_desc_eng_blender = $##-##-##-####.descriptionE
Var menu_name_thai_blender = $##-##-##-####.Name
Var menu_desc_thai_blender = $##-##-##-####.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "อเมริกาโน่โซดา" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ และ โซดา" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "AMERICANO SODA" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Coffee, Soda" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> $12-99-03-0079.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-99-03-0079.Button </State>
<Value> StringFmt( $12-99-03-0079.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 183 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum1299030079 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $12-99-03-0079.TAG tag2_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1299030079 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; ==================> Len = 12
; - - 12-05-03-0092
<Block>

File diff suppressed because it is too large Load diff

View file

@ -1 +1 @@
Open "ROOT/taobin_project/xml/page_catalog_group_pro_jemila.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_pro_12_day_12_menu.xml"

View file

@ -1 +1 @@
Open "ROOT/taobin_project/xml/page_catalog_group_pro_robinson_beauty.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_pro_happy_trios.xml"

File diff suppressed because it is too large Load diff

View file

@ -6,46 +6,28 @@
<State> BigButtonEnable </State>
<Filename>
eval(
If JemilaRewardOutOfStock = 1 Then
Var return = "ROOT/taobin_project/image/event/jemila/jemila_prize_out_of_stock"
Else
Var return = "ROOT/taobin_project/image/event/jemila/jemila"
EndIf
If show_eng = "true" Then
Var return = return + "_en.png"
Var return = ###normal_eng
Else
Var return = return + "_th.png"
Var return = ###normal_thai
EndIf
)
</Filename>
<FilenamePress>
eval(
If JemilaRewardOutOfStock = 1 Then
Var return = "ROOT/taobin_project/image/event/jemila/jemila_prize_out_of_stock"
Else
Var return = "ROOT/taobin_project/image/event/jemila/jemila"
EndIf
If show_eng = "true" Then
Var return = return + "_en.png"
Var return = ###normal_eng
Else
Var return = return + "_th.png"
Var return = ###normal_thai
EndIf
)
</FilenamePress>
<FilenameDisable>
eval(
If JemilaRewardOutOfStock = 1 Then
Var return = "ROOT/taobin_project/image/event/jemila/jemila_prize_out_of_stock"
Else
Var return = "ROOT/taobin_project/image/event/jemila/jemila"
EndIf
If show_eng = "true" Then
Var return = return + "_en.png"
Var return = ###normal_eng
Else
Var return = return + "_th.png"
Var return = ###normal_thai
EndIf
)
</FilenameDisable>

View file

@ -7,6 +7,9 @@ DEBUGVAR OpenFromPageBoard
DEBUGVAR WeekdayDiscountPro
DEBUGVAR WeekdayDiscountProEventOn
DEBUGVAR OreoDiscount11Pro
DEBUGVAR HappyTriosPro
DEBUGVAR 12Day12MenuPro
Var PromotionState1 = "Invisible"
Var PromotionState2 = "Invisible"
@ -28,49 +31,79 @@ Else
; zone promote
If HalloweenPro = 1 Then
If HappyTriosPro = 1 Then
Var PromotionState1 = "Enable"
Var ProEnableCount = 1
If JemilaPro = 1 Then
Var CountEnablePromotion = 1
If WeekdayDiscountProEventOn = 1 Then
Var PromotionState2 = "Enable"
Var ProEnableCount = ProEnableCount + 1
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
If ProEnableCount > 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/double_promotion_halloween_and_jemila.xml"
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_halloween.xml"
EndIf
EndIf
If WeekdayDiscountPro = 1 Then
Var ProEnableCount = 1
Var PromotionState1 = "Enable"
If OreoDiscount11Pro = 1 Then
Var PromotionState2 = "Enable"
Var ProEnableCount = ProEnableCount + 1
Var PromotionState3 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/promotion_weekday_discount.xml"
If ProEnableCount > 1 Then
If CountEnablePromotion > 1 Then
If WeekdayDiscountProEventOn = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/multi_promotion_weekday_discount_event_on.xml"
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/triple_promotion_happy_trios_and_weekday_discount_and_oreo_11_event_on.xml"
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/promotion_oreo_discount_11.xml"
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/triple_promotion_happy_trios_and_weekday_discount_and_oreo_11.xml"
EndIf
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_happy_trios.xml"
EndIf
Else
If WeekdayDiscountPro = 1 Then
Var ProEnableCount = 1
Var PromotionState1 = "Enable"
If OreoDiscount11Pro = 1 Then
Var PromotionState2 = "Enable"
Var ProEnableCount = ProEnableCount + 1
EndIf
Else
If WeekdayDiscountProEventOn = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/promotion_weekday_discount_event_on.xml"
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/promotion_weekday_discount.xml"
If ProEnableCount > 1 Then
If WeekdayDiscountProEventOn = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/multi_promotion_weekday_discount_event_on.xml"
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/promotion_oreo_discount_11_event_on.xml"
EndIf
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/promotion_weekday_discount.xml"
If WeekdayDiscountProEventOn = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/promotion_weekday_discount_event_on.xml"
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/weekday_discount/promotion_weekday_discount.xml"
EndIf
EndIf
Else
If OreoDiscount11Pro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_oreo_discount_11.xml"
EndIf
EndIf
EndIf
If ThickTeaByBrewerPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/page_catalog_group_recommend_thick_tea.xml"
EndIf
If WinterWonderPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/page_catalog_group_recommend_winter_wonder.xml"
EndIf
If 12Day12MenuPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_12_day_12_menu.xml"
EndIf
If OpenFromPageBoard = 1 Then
DEBUGVAR FreeEnergyDrink
DEBUGVAR BigButtonEnable

View file

@ -149,6 +149,27 @@ Var FromOreoDiscount11Pro = 0
Var Seeker.BuyOreo11ProFlag = 0
Var FromBeforeGoToOreo = 0
; Happy trios, 21 - 30 Nov
Var HappyTriosPro = 0
Var FromHappyTriosPro = 0
; Jemila Topping Free every Wednesday, start 20 Nov
Var JemilaToppingFlag = 0
Var JemilaToppingFreeFlag = 0
; Sugar Zero Cal Free every day, start 20 Nov
Var SugarZeroCalFreeFlag = 0
; 12 Day 12 Menu, 1 - 12 Dec
Var 12Day12MenuPro = 0
Var From12Day12MenuPro = 0
; Winter Wonder, 1 - 31 Dec
Var WinterWonderPro = 0
; ThickTeaByBrewer, start 1 Dec
Var ThickTeaByBrewerPro = 0
Var NewCollectPoint = 1
Var PayMentCodeShouldCollectPromotionPoint = 0
Var NotCollectPointPromotion = 0
@ -258,6 +279,20 @@ If SystemDateMonthInt = 11 Then
EndIf
EndIf
If SystemDateDayInt >= 20 Then
Var JemilaToppingFlag = 1
Var SugarZeroCalFreeFlag = 1
If SystemDateDayOfWeek = "Wednesday" Then
Var JemilaToppingFreeFlag = 1
EndIf
EndIf
If SystemDateDayInt >= 21 Then
Var HappyTriosPro = 1
EndIf
If WeekdayDiscountPro = 1 Then
If SystemTimeHourInt >= 16 Then
@ -272,15 +307,46 @@ If SystemDateMonthInt = 11 Then
EndIf
EndIf
If SystemDateMonthInt > 11 Then
Var JemilaToppingFlag = 1
Var SugarZeroCalFreeFlag = 1
If SystemDateDayOfWeek = "Wednesday" Then
Var JemilaToppingFreeFlag = 1
EndIf
EndIf
If SystemDateMonthInt = 12 Then
Var WinterWonderPro = 1
If SystemDateDayInt <= 12 Then
Var 12Day12MenuPro = 1
EndIf
EndIf
If SystemDateMonthInt >= 12 Then
Var ThickTeaByBrewerPro = 1
EndIf
If BoxID = 105005 Then
Var NewFlowPaymentCode = 1
Var New_Payment = 1
Var JemilaPro = 0
Var HalloweenPro = 0
Var WeekdayDiscountPro = 1
Var WeekdayDiscountProEventOn = 1
Var OreoDiscount11Pro = 1
Var WeekdayDiscountPro = 0
Var WeekdayDiscountProEventOn = 0
Var OreoDiscount11Pro = 0
Var HappyTriosPro = 0
Var 12Day12MenuPro = 0
Var WinterWonderPro = 1
Var ThickTeaByBrewerPro = 1
Var JemilaToppingFlag = 1
Var JemilaToppingFreeFlag = 1
Var SugarZeroCalFreeFlag = 1
EndIf
If BoxID = 172331 Then
@ -300,6 +366,8 @@ EndIf
If BoxID = 172053 Then
Var WeekdayDiscountPro = 1
Var WeekdayDiscountProEventOn = 1
Var JemilaToppingFlag = 1
Var HappyTriosPro = 1
EndIf
If BoxID = 176757 Then
@ -315,8 +383,24 @@ If BoxID = 201729 Then
Var MomCocoaPro = 0
Var MomCocoaProDiscountEnable = 0
Var RobinsonBeautyPro = 0
Var JemilaPro = 0
Var JemilaToppingFlag = 0
Var 12Day12MenuPro = 1
Var WinterWonderPro = 1
Var ThickTeaByBrewerPro = 1
EndIf
If BoxID = 201193 Then
Var JemilaPro = 1
Var HalloweenPro = 1
Var JemilaToppingFlag = 1
EndIf
If BoxID = 173249 Then
Var JemilaPro = 1
Var JemilaToppingFlag = 1
EndIf
If BoxID = 201714 Then
@ -324,7 +408,8 @@ If BoxID = 201714 Then
Var MomCocoaProDiscountEnable = 0
Var RobinsonBeautyPro = 0
Var JemilaPro = 1
Var HalloweenPro = 1
Var JemilaToppingFlag = 1
EndIf
If BoxID = 173149 Then
@ -332,25 +417,32 @@ If BoxID = 173149 Then
Var MomCocoaProDiscountEnable = 0
Var RobinsonBeautyPro = 0
Var JemilaPro = 1
Var HalloweenPro = 1
Var JemilaToppingFlag = 1
EndIf
If BoxID = 172644 Then
Var MomCocoaPro = 0
Var MomCocoaProDiscountEnable = 0
Var RobinsonBeautyPro = 0
Var WeekdayDiscountPro = 1
Var WeekdayDiscountProEventOn = 1
Var OreoDiscount11Pro = 1
Var WeekdayDiscountPro = 0
Var WeekdayDiscountProEventOn = 0
Var OreoDiscount11Pro = 0
Var New_Payment = 1
Var NewFlowPaymentCode = 1
Var 12Day12MenuPro = 1
Var WinterWonderPro = 1
Var ThickTeaByBrewerPro = 1
EndIf
Var XMLLiveInfoEnable = 1
; Exclusive Box
; Override
Var JemilaToppingFlag = 0
Var JemilaToppingFreeFlag = 0
Var GameEnableFromTrickerEv = 1
@ -380,6 +472,9 @@ If InternationalEnable = 1 Then
Var FreeEnergyDrink = 0
Var WednesdayMelonPro = 0
Var NamHomCoconutPro = 0
Var HalloweenPro = 0
Var WeekdayDiscountPro = 0
Var OreoDiscount11Pro = 0
EndIf
STRCONTAIN "taobin_nopro" XMLProfile taobin_nopro
@ -424,6 +519,10 @@ If taobin_nopro = "true" Then
Var HalloweenPro = 0
Var WeekdayDiscountPro = 0
Var OreoDiscount11Pro = 0
Var HappyTriosPro = 0
Var 12Day12MenuPro = 0
Var HappyTriosPro = 0
Var AdvertiseProfile = "00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00"
@ -481,6 +580,7 @@ If OreoEnable = "true" Then
Else
Var OreoDiscount11Pro = 0
Var HappyTriosPro = 0
EndIf
@ -572,3 +672,5 @@ READ_FILE "/mnt/sdcard/coffeevending/app_manager/app_list/king_power_service/ena
If POSMachineFlag = 1 Then
Var ConnectWithPOSMachine = 1
EndIf
DEBUGVAR SystemDateDayOfWeek

File diff suppressed because it is too large Load diff

View file

@ -24,7 +24,7 @@
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
TRY "ROOT/taobin_project/inc/return_condition_cancel.ev"
EndIf
Refresh
@ -46,7 +46,7 @@
<Filename> ButtonImg </Filename>
<FilenamePress> ButtonPressedImg </FilenamePress>
<EventOnClick>
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
TRY "ROOT/taobin_project/inc/return_condition_cancel.ev"
</EventOnClick>
</Button>

View file

@ -109,3 +109,14 @@
;
RootLayoutVisible 3 "hide"
RootLayoutVisible 13 "hide"

View file

@ -75,8 +75,7 @@
; zone cup on arm
; zone cup on arm
If Seeker = "curr" Then
If Seeker = "curr" Then
If CupOnArm = "true" Then
If CheckCupStateDoorCupClose = "" Then
@ -196,8 +195,7 @@
SAVELOG "Click rec"
Var NextPage = "-"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>
@ -211,8 +209,18 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
Open "ROOT/taobin_project/xml/page_catalog_group_coffee.xml"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 2
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_group_coffee.xml"
EndIf
</EventClick>
</Button>
@ -225,10 +233,14 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
If new_layout = "true" Then
Open "ROOT/taobin_project/xml/page_catalog_group_tea.xml"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 3
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_choose_drink3.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_tea.xml"
EndIf
</EventClick>
</Button>
@ -243,11 +255,14 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
If new_layout = "true" Then
Open "ROOT/taobin_project/xml/page_catalog_group_milk.xml"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 4
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_choose_drink4.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_milk.xml"
EndIf
</EventClick>
</Button>
@ -262,10 +277,13 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
If new_layout = "true" Then
Open "ROOT/taobin_project/xml/page_catalog_group_whey.xml"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 5
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_choose_drink7.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_whey.xml"
EndIf
</EventClick>
</Button>
@ -279,11 +297,14 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
If new_layout = "true" Then
Open "ROOT/taobin_project/xml/page_catalog_group_appfast.xml"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 5
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_choose_drink11.xml"
EndIf
Open "ROOT/taobin_project/xml/page_catalog_group_appfast.xml"
EndIf
</EventClick>
</Button>
@ -298,7 +319,14 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
Open "ROOT/taobin_project/xml/page_catalog_group_forkid.xml"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 5
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_group_forkid.xml"
EndIf
</EventClick>
</Button>
@ -312,7 +340,14 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
Open "ROOT/taobin_project/xml/page_catalog_group_health.xml"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 5
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_group_health.xml"
EndIf
</EventClick>
</Button>
@ -325,54 +360,58 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
Open "ROOT/taobin_project/xml/page_catalog_group_cocktail.xml"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 5
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_group_cocktail.xml"
EndIf
</EventClick>
</Button>
<Button>
<Layout> "linear" </Layout>
<State> Menu6Selected </State>
<State> Menu61Selected </State>
<Filename> Var( DirImageAlter + "/bn_Pepsi_7up.png") </Filename>
<FilenamePress> Var( DirImageAlter + "/bp_Pepsi_7up.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 8
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_group_pepsi_7up.xml"
EndIf
</EventClick>
</Button>
<Button>
<Layout> "linear" </Layout>
<State> Menu62Selected </State>
<Filename> Var( DirImageAlter + "/bn_sodada2.png") </Filename>
<FilenamePress> Var( DirImageAlter + "/bp_sodada2.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
If new_layout = "true" Then
Open "ROOT/taobin_project/xml/page_catalog_group_other.xml"
If EnableMultiInstance = "true" Then
TabMenuVisibleInst 7
Var OpenFileXML = CountryRootPath + "/xml/multi/page_instance2.xml"
OpenInst 2 OpenFileXML
Else
Open "ROOT/taobin_project/xml/page_catalog_choose_drink6.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_other_other.xml"
EndIf
</EventClick>
</Button>
<Button>
<Layout> "linear" </Layout>
<State> Menu61Selected </State>
<Filename> Var( DirImageAlter + "/bn_Pepsi_7up.png") </Filename>
<FilenamePress> Var( DirImageAlter + "/bp_Pepsi_7up.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
Open "ROOT/taobin_project/xml/page_catalog_group_pepsi_7up.xml"
</EventClick>
</Button>
<Button>
<Layout> "linear" </Layout>
<State> Menu62Selected </State>
<Filename> Var( DirImageAlter + "/bn_sodada2.png") </Filename>
<FilenamePress> Var( DirImageAlter + "/bp_sodada2.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var NextPage = "-"
Open "ROOT/taobin_project/xml/page_catalog_group_other_other.xml"
</EventClick>
</Button>
<Button>
<Layout> "linear" </Layout>
<State> MenuVSelected2 </State>

View file

@ -287,6 +287,48 @@
from_oreo_11 = True
else:
from_oreo_11 = False
if current_file_name == "page_catalog_group_pro_happy_trios.skt":
from_happy_trios = True
else:
from_happy_trios = False
if current_file_name == "page_catalog_group_pro_12_day_12_menu.skt":
from_12_day_12_menu = True
price_12_day_12_menu = {
"12-03-03-0067": 40,
"12-02-03-0058": 40,
"12-03-03-0058": 30,
"12-03-03-0006": 30,
"12-01-02-0001": 25,
"12-21-02-0001": 25,
"12-03-03-0011": 30,
"12-03-03-0010": 30,
"12-31-02-0001": 30,
"12-11-02-0001": 30,
"12-02-02-0064": 30,
"12-02-02-0039": 30,
"12-02-02-0042": 25,
"12-05-02-0025": 15,
}
original_price_12_day_12_menu = {
"12-03-03-0067": 55,
"12-02-03-0058": 60,
"12-03-03-0058": 40,
"12-03-03-0006": 40,
"12-01-02-0001": 35,
"12-21-02-0001": 35,
"12-03-03-0011": 45,
"12-03-03-0010": 45,
"12-31-02-0001": 45,
"12-11-02-0001": 45,
"12-02-02-0064": 45,
"12-02-02-0039": 45,
"12-02-02-0042": 35,
"12-05-02-0025": 25,
}
else:
from_12_day_12_menu = False
price_12_day_12_menu = {}
original_price_12_day_12_menu = {}
#print ("######################################################################################################")
idx_of_eng = 2
@ -511,6 +553,13 @@
out_xml( '\t\tVar OriginalPriceD1 = $' + spl[4] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD2 = $' + spl[5] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD3 = $' + spl[6] + '.Price\r\n')
elif from_12_day_12_menu:
out_xml( '\t\tVar PriceD1 = ' + str(GetPrice(price_12_day_12_menu, pd_code_1)) + '\r\n')
out_xml( '\t\tVar PriceD2 = ' + str(GetPrice(price_12_day_12_menu, pd_code_2)) + '\r\n')
out_xml( '\t\tVar PriceD3 = ' + str(GetPrice(price_12_day_12_menu, pd_code_3)) + '\r\n')
out_xml( '\t\tVar OriginalPriceD1 = ' + str(GetOriginalPrice(original_price_12_day_12_menu, pd_code_1)) + '\r\n')
out_xml( '\t\tVar OriginalPriceD2 = ' + str(GetOriginalPrice(original_price_12_day_12_menu, pd_code_2)) + '\r\n')
out_xml( '\t\tVar OriginalPriceD3 = ' + str(GetOriginalPrice(original_price_12_day_12_menu, pd_code_3)) + '\r\n')
else:
out_xml( '\t\tVar PriceD1 = $' + spl[4] + '.Price\r\n')
out_xml( '\t\tVar PriceD2 = $' + spl[5] + '.Price\r\n')
@ -641,6 +690,12 @@
if from_oreo_11:
out_xml( '\t\tVar FromOreoDiscount11Pro = 1 \r\n')
if from_happy_trios:
out_xml( '\t\tVar FromHappyTriosPro = 1 \r\n')
if from_12_day_12_menu:
out_xml( '\t\tVar From12Day12MenuPro = 1 \r\n')
out_xml( '\t\t\r\n')
out_xml( '\t\t'+ button_add_string +'\r\n')
out_xml( '\t\tOpen "ROOT/taobin_project/xml/page_topping_select5.xml"\r\n')
@ -855,6 +910,8 @@
out_xml( '\t<Value> StringFmt( $' + spl[5] + '.Price - 7, DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif passion_mint:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(passion_mint_fix_price, spl[5])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif from_12_day_12_menu:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(price_12_day_12_menu, spl[5])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
out_xml( '\t<Value> StringFmt( $' + spl[5] + '.Price , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
@ -870,6 +927,8 @@
out_xml( '\t<Value> Var( "฿" + $' + spl[5] + '.Price - 7 ) </Value>\r\n')
elif passion_mint:
out_xml( '\t<Value> "฿' + str(GetPrice(passion_mint_fix_price, spl[5])) + '" </Value>\r\n')
elif from_12_day_12_menu:
out_xml( '\t<Value> "฿' + str(GetPrice(price_12_day_12_menu, spl[5])) + '" </Value>\r\n')
else:
out_xml( '\t<Value> Var( "฿" + $' + spl[5] + '.Price ) </Value>\r\n')
out_xml( '\t</Text>\r\n')
@ -946,6 +1005,8 @@
out_xml( '\t<Value> StringFmt( $' + spl[6] + '.Price - 7, DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif passion_mint:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(passion_mint_fix_price, spl[6])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif from_12_day_12_menu:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(price_12_day_12_menu, spl[6])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
out_xml( '\t<Value> StringFmt( $' + spl[6] + '.Price , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
@ -961,6 +1022,8 @@
out_xml( '\t<Value> Var( "฿" + $' + spl[6] + '.Price - 7 ) </Value>\r\n')
elif passion_mint:
out_xml( '\t<Value> "฿' + str(GetPrice(passion_mint_fix_price, spl[6])) + '" </Value>\r\n')
elif from_12_day_12_menu:
out_xml( '\t<Value> "฿' + str(GetPrice(price_12_day_12_menu, spl[6])) + '" </Value>\r\n')
else:
out_xml( '\t<Value> Var( "฿" + $' + spl[6] + '.Price ) </Value>\r\n')
out_xml( '\t</Text>\r\n')
@ -1171,6 +1234,13 @@
out_xml( '\t\tVar OriginalPriceD1 = $' + spl[8] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD2 = $' + spl[9] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD3 = $' + spl[10] + '.Price\r\n')
elif from_12_day_12_menu:
out_xml( '\t\tVar PriceD1 = ' + str(GetPrice(price_12_day_12_menu, pd_code_1)) + '\r\n')
out_xml( '\t\tVar PriceD2 = ' + str(GetPrice(price_12_day_12_menu, pd_code_2)) + '\r\n')
out_xml( '\t\tVar PriceD3 = ' + str(GetPrice(price_12_day_12_menu, pd_code_3)) + '\r\n')
out_xml( '\t\tVar OriginalPriceD1 = ' + str(GetOriginalPrice(original_price_12_day_12_menu, pd_code_1)) + '\r\n')
out_xml( '\t\tVar OriginalPriceD2 = ' + str(GetOriginalPrice(original_price_12_day_12_menu, pd_code_2)) + '\r\n')
out_xml( '\t\tVar OriginalPriceD3 = ' + str(GetOriginalPrice(original_price_12_day_12_menu, pd_code_3)) + '\r\n')
else:
out_xml( '\t\tVar PriceD1 = $' + spl[8] + '.Price\r\n')
out_xml( '\t\tVar PriceD2 = $' + spl[9] + '.Price\r\n')
@ -1291,6 +1361,12 @@
if from_oreo_11:
out_xml( '\t\tVar FromOreoDiscount11Pro = 1 \r\n')
if from_happy_trios:
out_xml( '\t\tVar FromHappyTriosPro = 1 \r\n')
if from_12_day_12_menu:
out_xml( '\t\tVar From12Day12MenuPro = 1 \r\n')
out_xml( '\t\t\r\n')
out_xml( '\t\t\r\n')

File diff suppressed because it is too large Load diff

View file

@ -112,15 +112,6 @@

View file

@ -181,59 +181,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -173,59 +173,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -48,7 +48,7 @@
EndIf
GetVisible inst_show2
GetVisible inst_show2
;DEBUGVAR inst_show2

View file

@ -158,31 +158,15 @@
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3
EndIf
DEBUGVAR EnabledBlocks5
</EventOpen>
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
@ -194,7 +178,7 @@
EndIf
GetVisible inst_show2
GetVisible inst_show2
;DEBUGVAR inst_show2
@ -247,6 +231,19 @@
TimerReset
</EventTimeout>
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll
@ -645,7 +642,7 @@
Var block_index_override = 0
Var block_index_move = 0
</Script>
; menu_new_list 67
; menu_new_list 68
; ==================> Len = 17
; 12-01-01-0001 - -
<Block>
@ -6839,6 +6836,513 @@ Pink Rose & Berry" </Value>
</Text>
</Block>
; - - -
; ==================> Len = 12
; - - 12-01-03-0078
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-01-03-0078.Button,$Sum1201030078) </State>
<Button>
<State> $Sum1201030078 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-01-03-0078, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "PREMIUM ESPRESSO CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมเอสเพรสโซ่ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และ Oreo"
Var DrinkDescription = "Coffee, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
GetInstanceIDMenuTab OpenFromInstMenuTab
Var PriceD1 = $-.Price
Var PriceD2 = $-.Price
Var PriceD3 = $12-01-03-0078.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "##-##-##-####"
Var PD_CODE3 = "12-01-03-0078"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = "Disable2"
Var PD_STAGE_3 = $12-01-03-0078.Button
Var OverlayMenuFilter !assigned xmlpro( 12-01-03-0078, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "-"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "12-01-03-0078"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $##-##-##-####.NameE
Var menu_desc_eng_cold = $##-##-##-####.descriptionE
Var menu_name_thai_cold = $##-##-##-####.Name
Var menu_desc_thai_cold = $##-##-##-####.description
Var menu_name_eng_blender = $12-01-03-0078.NameE
Var menu_desc_eng_blender = $12-01-03-0078.descriptionE
Var menu_name_thai_blender = $12-01-03-0078.Name
Var menu_desc_thai_blender = $12-01-03-0078.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
TabMenuVisibleInst 99
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "พรีเมียมเอสเพรสโซ่
คาราเมลโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ นม คาลาเมล และ Oreo" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "PREMIUM ESPRESSO
CARAMEL OREO" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Coffee, Milk, Caramel Syrup, Oreo" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImageDrinkOption + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> Var( "฿" + $-.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "cold_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 115 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> Var( "฿" + $-.Price ) </Value>
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "blend_db.png" ) </FilenameDisable>
<State> $12-01-03-0078.Button </State>
</Image>
<Text>
<X> 183 </X>
<Y> 264 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-01-03-0078.Button </State>
<Value> Var( "฿" + $12-01-03-0078.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum1201030078 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag2_is_disable
STRCONTAIN "ERR" $12-01-03-0078.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1201030078 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - 12-21-03-0078
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-21-03-0078.Button,$Sum1221030078) </State>
<Button>
<State> $Sum1221030078 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<OverlayImage> xmlpro( 12-21-03-0078, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<EventOnClick>
Var NameDrink = "PREMIUM ESPRESSO CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมเอสเพรสโซ่ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และ Oreo"
Var DrinkDescription = "Coffee, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
GetInstanceIDMenuTab OpenFromInstMenuTab
Var PriceD1 = $-.Price
Var PriceD2 = $-.Price
Var PriceD3 = $12-21-03-0078.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "##-##-##-####"
Var PD_CODE3 = "12-21-03-0078"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = "Disable2"
Var PD_STAGE_3 = $12-21-03-0078.Button
Var OverlayMenuFilter !assigned xmlpro( 12-21-03-0078, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "-"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "12-21-03-0078"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $##-##-##-####.NameE
Var menu_desc_eng_cold = $##-##-##-####.descriptionE
Var menu_name_thai_cold = $##-##-##-####.Name
Var menu_desc_thai_cold = $##-##-##-####.description
Var menu_name_eng_blender = $12-21-03-0078.NameE
Var menu_desc_eng_blender = $12-21-03-0078.descriptionE
Var menu_name_thai_blender = $12-21-03-0078.Name
Var menu_desc_thai_blender = $12-21-03-0078.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
TabMenuVisibleInst 99
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "พรีเมียมเอสเพรสโซ่
คาราเมลโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ นม คาลาเมล และ Oreo" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "PREMIUM ESPRESSO
CARAMEL OREO" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Coffee, Milk, Caramel Syrup, Oreo" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImageDrinkOption + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> Var( "฿" + $-.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "cold_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 115 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> Var( "฿" + $-.Price ) </Value>
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "blend_db.png" ) </FilenameDisable>
<State> $12-21-03-0078.Button </State>
</Image>
<Text>
<X> 183 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-21-03-0078.Button </State>
<Value> Var( "฿" + $12-21-03-0078.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum1221030078 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag2_is_disable
STRCONTAIN "ERR" $12-21-03-0078.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1221030078 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; ==================> Len = 17
; - 12-01-02-0041 -
<Block>

View file

@ -165,7 +165,7 @@
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6
@ -173,21 +173,6 @@
</EventOpen>
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
@ -250,6 +235,20 @@
TimerReset
</EventTimeout>
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -156,7 +156,7 @@
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 6 Then
Var SlientRefreshIndex = 7
@ -166,19 +166,6 @@
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
@ -242,6 +229,19 @@
TimerReset
</EventTimeout>
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

File diff suppressed because it is too large Load diff

View file

@ -169,59 +169,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -156,29 +156,15 @@
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 7 Then
Var SlientRefreshIndex = 8
EndIf
</EventOpen>
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
@ -241,7 +227,21 @@
TimerReset
</EventTimeout>
</EventTimeout>
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "

View file

@ -156,13 +156,6 @@
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 7 Then
Var SlientRefreshIndex = 8
EndIf
</EventOpen>
@ -179,59 +172,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll
@ -302,25 +242,9 @@
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst10
DEBUGVAR EnabledBlocksDrawInst10
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then

View file

@ -176,70 +176,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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_show8
;DEBUGVAR inst_show8
If inst_show8 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 8 Then
If inst_show8 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile7
Open CurrentOpenFile7
Else
Var SlientRefreshIndex = 9
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -169,59 +169,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -0,0 +1,54 @@
<?hurr
#include=menu_head.py
?>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
Var Timeout = 0
Var From12Day12MenuPro = 0
;include="ROOT/taobin_project/xml/menu_catalog_new_menu.xml"
</EventOpen>
;include="ROOT/taobin_project/xml/menu_catalog_new.xml"
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
#include=menu_new_layout_gen.py
?>
;BigLogoLayout
<Button>
<X> 780 </X>
<Y> 500 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page/bp_remove_cup.png" </Filename>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
</EventClick>
</Button>
</Popup>

File diff suppressed because it is too large Load diff

View file

@ -191,59 +191,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -170,59 +170,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -168,59 +168,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -170,59 +170,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -0,0 +1,45 @@
<?hurr
#include=menu_head.py
?>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
<?hurr
#include=menu_catalog_default_init.py
?>
Var Timeout = 0
<?hurr
#include=menu_catalog_new_menu.py
?>
</EventOpen>
<?hurr
#include=menu_catalog_new.py
?>
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
#include=menu_new_layout_gen.py
?>
</Popup>

File diff suppressed because it is too large Load diff

View file

@ -169,59 +169,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -170,59 +170,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -167,59 +167,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -170,59 +170,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -170,59 +170,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -168,59 +168,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -169,59 +169,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -170,59 +170,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -198,59 +198,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -171,59 +171,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -169,59 +169,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -170,59 +170,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -170,59 +170,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

File diff suppressed because it is too large Load diff

View file

@ -169,59 +169,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -169,59 +169,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -156,31 +156,15 @@
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 3 Then
Var SlientRefreshIndex = 4
EndIf
</EventOpen>
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
@ -234,6 +218,19 @@
TimerReset
</EventTimeout>
; notice enable heathy menu
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll
@ -628,7 +625,7 @@
Var block_index_override = 0
Var block_index_move = 0
</Script>
; menu_new_list 43
; menu_new_list 46
; ==================> Len = 12
; 12-02-01-0001 12-02-02-0001 12-02-03-0001
<Block>
@ -7054,6 +7051,779 @@ LIMENADE" </Value>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - -
; ==================> Len = 12
; 12-02-01-0083 12-02-02-0083 12-02-03-0083
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-02-01-0083.Button,12-02-02-0083.Button,12-02-03-0083.Button,$Sum120201008312020200831202030083) </State>
<Button>
<State> $Sum120201008312020200831202030083 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_southern_fusion_tea.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_southern_fusion_tea.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_southern_fusion_tea.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-02-01-0083, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "SOUTHERN FUSION TEA"
Var NameDrinkTH = "ชาผสานปักษ์ใต้"
Var DrinkDescriptionTH = "มัทฉะ ชาไทย นม และน้ำเชื่อมคาราเมล"
Var DrinkDescription = "MATCHA , THAI TEA, MILK CARAMEL SYRUP"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_southern_fusion_tea.png"
Var OpenFromXML = CurrentXMLFileName2
GetInstanceIDMenuTab OpenFromInstMenuTab
Var PriceD1 = $12-02-01-0083.Price
Var PriceD2 = $12-02-02-0083.Price
Var PriceD3 = $12-02-03-0083.Price
Var PD_CODE1 = "12-02-01-0083"
Var PD_CODE2 = "12-02-02-0083"
Var PD_CODE3 = "12-02-03-0083"
Var PD_STAGE_1 = $12-02-01-0083.Button
Var PD_STAGE_2 = $12-02-02-0083.Button
Var PD_STAGE_3 = $12-02-03-0083.Button
Var OverlayMenuFilter !assigned xmlpro( 12-02-01-0083, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-02-02-0083"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "12-02-01-0083"
Else
Topping "Load" "12-02-03-0083"
EndIf
EndIf
Var menu_name_eng_hot = $12-02-01-0083.NameE
Var menu_desc_eng_hot = $12-02-01-0083.descriptionE
Var menu_name_thai_hot = $12-02-01-0083.Name
Var menu_desc_thai_hot = $12-02-01-0083.description
Var menu_name_eng_cold = $12-02-02-0083.NameE
Var menu_desc_eng_cold = $12-02-02-0083.descriptionE
Var menu_name_thai_cold = $12-02-02-0083.Name
Var menu_desc_thai_cold = $12-02-02-0083.description
Var menu_name_eng_blender = $12-02-03-0083.NameE
Var menu_desc_eng_blender = $12-02-03-0083.descriptionE
Var menu_name_thai_blender = $12-02-03-0083.Name
Var menu_desc_thai_blender = $12-02-03-0083.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
TabMenuVisibleInst 99
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "ชาผสานปักษ์ใต้" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "มัทฉะ ชาไทย นม และน้ำเชื่อมคาราเมล" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "SOUTHERN FUSION
TEA" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "MATCHA , THAI TEA, MILK CARAMEL SYRUP" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> $12-02-01-0083.Button </State>
<Filename> Var( DirImageDrinkOption + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-02-01-0083.Button </State>
<Value> Var( "฿" + $12-02-01-0083.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "cold_db.png" ) </FilenameDisable>
<State> $12-02-02-0083.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-02-02-0083.Button </State>
<Value> Var( "฿" + $12-02-02-0083.Price ) </Value>
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "blend_db.png" ) </FilenameDisable>
<State> $12-02-03-0083.Button </State>
</Image>
<Text>
<X> 183 </X>
<Y> 264 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-02-03-0083.Button </State>
<Value> Var( "฿" + $12-02-03-0083.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
If $Sum120201008312020200831202030083 = "Disable" Then
Var ice_tab_process_show = "Disable"
Else
Var ice_tab_process_show = "Enable"
EndIf
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum120201008312020200831202030083 = "Disable" Then
STRCONTAIN "ERR" $12-02-01-0083.TAG tag1_is_disable
STRCONTAIN "ERR" $12-02-02-0083.TAG tag2_is_disable
STRCONTAIN "ERR" $12-02-03-0083.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum120201008312020200831202030083 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - -
; ==================> Len = 12
; 12-02-01-0084 12-02-02-0084 12-02-03-0084
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-02-01-0084.Button,12-02-02-0084.Button,12-02-03-0084.Button,$Sum120201008412020200841202030084) </State>
<Button>
<State> $Sum120201008412020200841202030084 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_traditional_green_tea.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_traditional_green_tea.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_traditional_green_tea.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-02-01-0084, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "TRADITIONAL GREEN TEA"
Var NameDrinkTH = "ชาเขียวโบราณ"
Var DrinkDescriptionTH = "ชามะลิ มัทฉะ นม และน้ำเชื่อมคาราเมล"
Var DrinkDescription = "JASMINE TEA, MATCHA, MILK, CARAMEL SYRUP"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_traditional_green_tea.png"
Var OpenFromXML = CurrentXMLFileName2
GetInstanceIDMenuTab OpenFromInstMenuTab
Var PriceD1 = $12-02-01-0084.Price
Var PriceD2 = $12-02-02-0084.Price
Var PriceD3 = $12-02-03-0084.Price
Var PD_CODE1 = "12-02-01-0084"
Var PD_CODE2 = "12-02-02-0084"
Var PD_CODE3 = "12-02-03-0084"
Var PD_STAGE_1 = $12-02-01-0084.Button
Var PD_STAGE_2 = $12-02-02-0084.Button
Var PD_STAGE_3 = $12-02-03-0084.Button
Var OverlayMenuFilter !assigned xmlpro( 12-02-01-0084, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-02-02-0084"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "12-02-01-0084"
Else
Topping "Load" "12-02-03-0084"
EndIf
EndIf
Var menu_name_eng_hot = $12-02-01-0084.NameE
Var menu_desc_eng_hot = $12-02-01-0084.descriptionE
Var menu_name_thai_hot = $12-02-01-0084.Name
Var menu_desc_thai_hot = $12-02-01-0084.description
Var menu_name_eng_cold = $12-02-02-0084.NameE
Var menu_desc_eng_cold = $12-02-02-0084.descriptionE
Var menu_name_thai_cold = $12-02-02-0084.Name
Var menu_desc_thai_cold = $12-02-02-0084.description
Var menu_name_eng_blender = $12-02-03-0084.NameE
Var menu_desc_eng_blender = $12-02-03-0084.descriptionE
Var menu_name_thai_blender = $12-02-03-0084.Name
Var menu_desc_thai_blender = $12-02-03-0084.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
TabMenuVisibleInst 99
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "ชาเขียวโบราณ" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "ชามะลิ มัทฉะ นม และน้ำเชื่อมคาราเมล" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "TRADITIONAL GREEN
TEA" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "JASMINE TEA, MATCHA, MILK, CARAMEL SYRUP" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> $12-02-01-0084.Button </State>
<Filename> Var( DirImageDrinkOption + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-02-01-0084.Button </State>
<Value> Var( "฿" + $12-02-01-0084.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "cold_db.png" ) </FilenameDisable>
<State> $12-02-02-0084.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-02-02-0084.Button </State>
<Value> Var( "฿" + $12-02-02-0084.Price ) </Value>
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "blend_db.png" ) </FilenameDisable>
<State> $12-02-03-0084.Button </State>
</Image>
<Text>
<X> 183 </X>
<Y> 264 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-02-03-0084.Button </State>
<Value> Var( "฿" + $12-02-03-0084.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
If $Sum120201008412020200841202030084 = "Disable" Then
Var ice_tab_process_show = "Disable"
Else
Var ice_tab_process_show = "Enable"
EndIf
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum120201008412020200841202030084 = "Disable" Then
STRCONTAIN "ERR" $12-02-01-0084.TAG tag1_is_disable
STRCONTAIN "ERR" $12-02-02-0084.TAG tag2_is_disable
STRCONTAIN "ERR" $12-02-03-0084.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum120201008412020200841202030084 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - -
; ==================> Len = 12
; 12-02-01-0085 12-02-02-0085 12-02-03-0085
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-02-01-0085.Button,12-02-02-0085.Button,12-02-03-0085.Button,$Sum120201008512020200851202030085) </State>
<Button>
<State> $Sum120201008512020200851202030085 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_royal_milk_tea.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_royal_milk_tea.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_royal_milk_tea.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-02-01-0085, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "ROYAL MILK TEA"
Var NameDrinkTH = "ชานมชาววัง"
Var DrinkDescriptionTH = "ชาไทย ชามะลิ นม และน้ำเชื่อมคาราเมล"
Var DrinkDescription = "THAI TEA, JASMINE TEA, MILK, CARAMEL SYRUP"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_royal_milk_tea.png"
Var OpenFromXML = CurrentXMLFileName2
GetInstanceIDMenuTab OpenFromInstMenuTab
Var PriceD1 = $12-02-01-0085.Price
Var PriceD2 = $12-02-02-0085.Price
Var PriceD3 = $12-02-03-0085.Price
Var PD_CODE1 = "12-02-01-0085"
Var PD_CODE2 = "12-02-02-0085"
Var PD_CODE3 = "12-02-03-0085"
Var PD_STAGE_1 = $12-02-01-0085.Button
Var PD_STAGE_2 = $12-02-02-0085.Button
Var PD_STAGE_3 = $12-02-03-0085.Button
Var OverlayMenuFilter !assigned xmlpro( 12-02-01-0085, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-02-02-0085"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "12-02-01-0085"
Else
Topping "Load" "12-02-03-0085"
EndIf
EndIf
Var menu_name_eng_hot = $12-02-01-0085.NameE
Var menu_desc_eng_hot = $12-02-01-0085.descriptionE
Var menu_name_thai_hot = $12-02-01-0085.Name
Var menu_desc_thai_hot = $12-02-01-0085.description
Var menu_name_eng_cold = $12-02-02-0085.NameE
Var menu_desc_eng_cold = $12-02-02-0085.descriptionE
Var menu_name_thai_cold = $12-02-02-0085.Name
Var menu_desc_thai_cold = $12-02-02-0085.description
Var menu_name_eng_blender = $12-02-03-0085.NameE
Var menu_desc_eng_blender = $12-02-03-0085.descriptionE
Var menu_name_thai_blender = $12-02-03-0085.Name
Var menu_desc_thai_blender = $12-02-03-0085.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
TabMenuVisibleInst 99
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "ชานมชาววัง" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "ชาไทย ชามะลิ นม และน้ำเชื่อมคาราเมล" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "ROYAL MILK TEA" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "THAI TEA, JASMINE TEA, MILK, CARAMEL SYRUP" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> $12-02-01-0085.Button </State>
<Filename> Var( DirImageDrinkOption + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-02-01-0085.Button </State>
<Value> Var( "฿" + $12-02-01-0085.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "cold_db.png" ) </FilenameDisable>
<State> $12-02-02-0085.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> 265 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-02-02-0085.Button </State>
<Value> Var( "฿" + $12-02-02-0085.Price ) </Value>
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImageDrinkOption + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImageDrinkOption + "blend_db.png" ) </FilenameDisable>
<State> $12-02-03-0085.Button </State>
</Image>
<Text>
<X> 183 </X>
<Y> 264 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-02-03-0085.Button </State>
<Value> Var( "฿" + $12-02-03-0085.Price ) </Value>
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
If $Sum120201008512020200851202030085 = "Disable" Then
Var ice_tab_process_show = "Disable"
Else
Var ice_tab_process_show = "Enable"
EndIf
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum120201008512020200851202030085 = "Disable" Then
STRCONTAIN "ERR" $12-02-01-0085.TAG tag1_is_disable
STRCONTAIN "ERR" $12-02-02-0085.TAG tag2_is_disable
STRCONTAIN "ERR" $12-02-03-0085.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum120201008512020200851202030085 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - -
; ==================> Len = 12

File diff suppressed because it is too large Load diff

View file

@ -169,59 +169,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
;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 show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventUnitTest1>
SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 "
RefreshAll

View file

@ -11,6 +11,7 @@
If InstanceTabOpenFile10 = "" Then
Else
DEBUGVAR InstanceTabOpenFile10
Open InstanceTabOpenFile10
EndIf

View file

@ -40,7 +40,7 @@ EndIf
Var CurrentTotalCupInt = CurrentTotalCup
INT CurrentTotalCupInt
DEBUGVAR CurrentTotalCupInt
;DEBUGVAR CurrentTotalCupInt
Var XMLLiveInfoEnable = 1
; xml verson 8.72
@ -191,7 +191,21 @@ Else
Var showMultiAds = "true"
; I-f set zero. All slot display ./adv/taobin_adv_00.mp4
Var AdvertiseProfileEnable = 0
If InternationalEnable = 1 Then
Var AdvertiseProfileEnable = 1
EndIf
DEBUGVAR CountryName
If CountryName = "Thailand" Then
Var AdvertiseProfileEnable = 0
EndIf
If AdvertiseProfileEnable = 1 Then
Var video_menu_0 = "00"
Var video_menu2_1 = "00"
Var a_video_menu[0] = video_menu_0
@ -257,12 +271,12 @@ Else
SPLIT AdvertiseProfile "/" 30 a_video_menu[29]
EndIf
;DEBUGVAR XMLLiveInfoEnable
;DEBUGVAR AdvertiseProfile
;DEBUGVAR a_video_menu[12]
;DEBUGVAR a_video_menu[18]
DEBUGVAR a_video_menu[12]
DEBUGVAR a_video_menu[18]
DEBUGVAR a_video_menu[0]
;DEBUGVAR a_video_menu[0]
SPLIT XMLLiveInfo "/" 1 AdvDisplayMode
SPLIT XMLLiveInfo "/" 2 CurrentTotalCup

View file

@ -4,8 +4,9 @@ Var PageCollectPoint1 = "ROOT/taobin_project/xml/page_collect_point_1.xml"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
; Use this between testing.
Var PageCollectPoint1 = "ROOT/taobin_project/xml/page_collect_point_1.xml"
Else
Else
Var PageCollectPoint1 = CountryRootPath + "/xml/page_collect_point_1.lxml"
EndIf
EndIf
@ -20,4 +21,4 @@ If CountryName = "Singapore" Then
EndIf
EndIf
Open PageCollectPoint1
Open PageCollectPoint1

View file

@ -3,7 +3,7 @@
<Height> 1920 </Height>
<EventOpen>
Var SetSpiralOnline = 0
; Reset here
Var CheckCupStateDoorCupClose = ""

View file

@ -12,6 +12,8 @@
Var ToggleAfterEventProfileOff = 0
Var SetSpiralOnline = 0
;TopView "hide"
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/topview_blank_main.xml"
Var FileNumber = 1
@ -93,6 +95,7 @@
Var KanitRegularTTF = "ROOT/taobin_project/font/Kanit/Kanit-Regular.ttf"
Var KanitThinTTF = "ROOT/taobin_project/font/Kanit/Kanit-Thin.ttf"
Var KanitLightTTF = "ROOT/taobin_project/font/Kanit/Kanit-Light.ttf"
Var KanitSemiBold = "ROOT/taobin_project/font/Kanit/Kanit-SemiBold.ttf"
Var OpunMediumTTF = "ROOT/taobin_project/font/Opun/Opun-Medium.ttf"
Var OpunThinTTF = "ROOT/taobin_project/font/Opun/Opun-Thin.ttf"
@ -112,6 +115,8 @@
Var ChivoMonoBold = "ROOT/taobin_project/font/ChivoMono/ChivoMono-Bold.ttf"
Var ChivoMonoSemiBold = "ROOT/taobin_project/font/ChivoMono/ChivoMono-SemiBold.ttf"
Var MontserratBold = "ROOT/taobin_project/font/Montserrat/Montserrat-Bold.ttf"
Var InterRegular = "ROOT/taobin_project/font/Inter/Inter-Regular.ttf"
@ -1313,79 +1318,86 @@
Var RoadShow = "false"
TRY "ROOT/taobin_project/xml/sometime/RoadShow.ev"
;MyanmarLangEnable
;
;
If BoxID = 210699 Then
If CountryName = "Thailand" Then
Var InternationalEnable = 1
DEBUGVAR InternationalEnable
; New mode
; Inter + Multi-Instance available ./inter/tha/multi
; Below. Pendding from XMLProfile
DEBUGVAR MyanmarLangEnable
DEBUGVAR EnableMultiInstance
;Var MyanmarLangEnable = "true"
Var MyanmarLangEnable = "false"
;Var MyanmarLangEnable = ""
If MyanmarLangEnable = "" Then
Else
If EnableMultiInstance = "true" Then
If CountryName = "Thailand" Then
Var InternationalEnable = 1
DEBUGVAR InternationalEnable
;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev"
;specified to unittest4
Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev"
DEBUGVAR OpenFileXML
TRY OpenFileXML
Var WebAppShow = "Invisible"
EnableLanguage "ENG"
EnableLanguage "THAI"
;EnableLanguage "MYANMAR"
If MyanmarLangEnable = "true" Then
EnableLanguage "MYANMAR"
EndIf
SetLanguage "THAI"
LanguageControl "UpdateList" "-"
Var show_eng = "false"
;Var ShowNetworkProblemText = "Network error. Payment Cash only."
Var CountryRootPath = "ROOT/taobin_project/inter/tha/"
Var CountryShortName = "tha"
Var TextPriceMenuSize = 12
Var TextPriceMenuY = 266
Var TextPriceMenuBlendX = 180
Var TextPriceMenuHotX = 48
Var ShowButtonClick2 = "Invisible"
Var ButtontoTopupMenu = "Enable"
Var PriceUnitText = ""
Var show_eng_button_stage = "Invisible"
Var XButtonMember = 384
Var YButtonMember = 1695
If Not#LanguageLoaded = "" Then
LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/tha/menu/lang.tsv"
EndIf
Var cups_sold_text = "Cups Sold Worldwide"
Var MinPhoneNumber = 10
Var MaxPhoneNumber = 10
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev"
;specified to unittest4
Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev"
DEBUGVAR OpenFileXML
TRY OpenFileXML
Var WebAppShow = "Invisible"
EnableLanguage "ENG"
EnableLanguage "THAI"
EnableLanguage "MYANMAR"
Var ENABLE_UAE_DUBAI = "Invisible"
SetLanguage "THAI"
LanguageControl "UpdateList" "-"
Var show_eng = "false"
;Var img_press_main_page = "ROOT/taobin_project/image/main_page/bp_main_page_start.png"
;Var img_rest_main_page = ""
;Var img_reset_topup = ""
;ROOT/taobin_project/image/main_page/bn_main_page_topup.png
;Var ShowNetworkProblemText = "Network error. Payment Cash only."
Var CountryRootPath = "ROOT/taobin_project/inter/tha/"
Var CountryShortName = "tha"
Var TextPriceMenuSize = 12
Var TextPriceMenuY = 266
Var TextPriceMenuBlendX = 180
Var TextPriceMenuHotX = 48
Var ShowButtonClick = "Enable"
Var ShowButtonClick2 = "Invisible"
Var ButtontoTopupMenu = "Enable"
Var LanguageObjectShow = "Enable"
Var NoLangObjectShow = "Invisible"
Var PriceUnitText = ""
;Var MemberButtonFileName = "ROOT/taobin_project/image/TermTempage2/bp_main_page_member.png"
;Var MemberButtonFileNameRest = "ROOT/taobin_project/image/TermTempage2/bn_main_page_member.png"
Var show_eng_button_stage = "Invisible"
Var CountDownShowButton = 35
Var XButtonMember = 384
Var YButtonMember = 1695
If Not#LanguageLoaded = "" Then
LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/tha/menu/lang.tsv"
EndIf
Var cups_sold_text = "Cups Sold Worldwide"
Var MinPhoneNumber = 10
Var MaxPhoneNumber = 10
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
EndIf
EndIf
If UsePepsiTheme = 1 Then
If InternationalEnable = 1 Then
; enable-color
@ -1435,9 +1447,11 @@
Machine DoorClose
Machine NewPaymentOpenBrewingXMLEnable
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_hide.lxml"
</EventOpen>
<EventActionOk>
@ -1553,10 +1567,10 @@ PRICE "Reset" "-"
</EventUnitTest3>
<EventUnitTest4>
If CountryName = "Thailand" Then
If CountryName = "-Thailand-" Then
Var InternationalEnable = 1
DEBUGVAR InternationalEnable
;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev"
@ -1591,13 +1605,13 @@ PRICE "Reset" "-"
Var ShowButtonClick2 = "Invisible"
Var ButtontoTopupMenu = "Enable"
Var PriceUnitText = ""
;Var MemberButtonFileName = "ROOT/taobin_project/image/TermTempage2/bp_main_page_member.png"
;Var MemberButtonFileNameRest = "ROOT/taobin_project/image/TermTempage2/bn_main_page_member.png"
Var show_eng_button_stage = "Invisible"
Var CountDownShowButton = 35
@ -1798,6 +1812,7 @@ PRICE "Reset" "-"
;DEBUGVAR MachineStage
;DEBUGVAR CountDownShowButton
;DEBUGVAR ShowButtonClick
;DEBUGVAR ShowButtonClickFull
;DEBUGVAR CountDownPauseVideo
@ -1828,12 +1843,7 @@ PRICE "Reset" "-"
If UsePepsiTheme = 1 Then
Var ShowButtonClickFull = "Enable"
EndIf
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var ShowButtonClick = "Enable"
Var ShowButtonClickFull = "Enable"
EndIf
EndIf
Refresh
EndIf
@ -1847,6 +1857,7 @@ PRICE "Reset" "-"
DEBUGVAR CountDownPauseVideo2
If CountDownPauseVideo = 2 Then
TapScreen 30 638
EndIf
@ -1869,17 +1880,21 @@ PRICE "Reset" "-"
Var OpenFromPageBoard = 1
DEBUGVAR InternationalEnable
DEBUGVAR CountryName
If InternationalEnable = 1 Then
; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"
If CountryName = "Thailand" Then
SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
Else
; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"
Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev"
TRY OpenFileXML
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_group_recommend.lxml"
Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev"
TRY OpenFileXML
EndIf
Else
If BeerTrapEnable = "true" Then
@ -1906,7 +1921,7 @@ PRICE "Reset" "-"
Var CountUpReloadAll = CountUpReloadAll + 1
DEBUGVAR CountUpReloadAll
; setvarint CountUpReloadAll 49
; Original value is 40
If EnableMultiInstance = "true" Then
@ -1919,6 +1934,19 @@ PRICE "Reset" "-"
ReloadAll
EndIf
If CountUpReloadAll = 50 Then
Var SlientRefreshIndex = 2
EndIf
If CountUpReloadAll = 150 Then
Var SlientRefreshIndex = 2
EndIf
If CountUpReloadAll = 200 Then
Var SlientRefreshIndex = 2
EndIf
If CountUpReloadAll = 250 Then
Var SlientRefreshIndex = 2
EndIf
Else
If CountUpReloadAll > 100 Then
Var NeedReboot = "false"
@ -2025,17 +2053,18 @@ PRICE "Reset" "-"
If TaobinOnlineX = "true" Then
Var CountDownShowButton = 35
EndIf
If TermTemOnline = "true" Then
Var CountDownShowButton = 28
If EventTurnOn = 1 Then
Var CountDownShowButton = 30
EndIf
Var CountDownPauseVideo = 6
If TaobinOnlineX = "true" Then
;TouchTapClose
If EventTurnOn = 1 Then
Var CountDownPauseVideo = 12
EndIf
;Open CurrentXMLFileName0
Refresh
</EventEnd>
@ -2303,14 +2332,16 @@ PRICE "Reset" "-"
If InternationalEnable = 1 Then
; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"
Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev"
TRY OpenFileXML
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_group_recommend.lxml"
If CountryName = "Thailand" Then
SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
Else ; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"
Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev"
TRY OpenFileXML
EndIf
Else
If CocktailShow = "true" Then

View file

@ -6,7 +6,8 @@
<Volume> SoundVolume </Volume>
<EventOpen>
Var waitAckPay = 0
Var ChangeFlag = 0
If New_Payment = 1 Then
Open "ROOT/taobin_project/xml/page_NewBrewing3Conti.xml"

View file

@ -5,6 +5,7 @@
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; This file for redirect to folder of country / brand.
If CountryName = "Australia" Then
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/aus/xml/open_page_catalog.ev"
@ -12,8 +13,10 @@
If CountryName = "Thailand" Then
If InternationalEnable = 1 Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/page_catalog.lxml"
If EnableMultiInstance = "true" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_catalog.lxml"
EndIf
Else
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml"
EndIf

View file

@ -5,12 +5,17 @@
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
If SetSpiralOnline = 1 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If InternationalEnable = 1 Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml"
EndIf
If SpiralOnline = "true" Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_with_vending.xml"
If Seeker = "next" Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog3.xml"
Else

View file

@ -245,6 +245,8 @@
Var buttonRemoveCup = "Invisible"
EndIf
EndIf
Else
Var buttonRemoveCup = "Invisible"
EndIf
@ -257,7 +259,7 @@
EndIf
If EnableMultiInstance = "true" Then
Open "ROOT/taobin_project/xml/menutab/page_catalog.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_catalog.lxml"
EndIf
Var Price5Active = 0

View file

@ -39,7 +39,7 @@
Var block_index_override = 0
Var block_index_move = 0
</Script>
; menu_new_list 67
; menu_new_list 68
; ==================> Len = 17
; 12-01-01-0001 - -
<Block>
@ -6185,6 +6185,509 @@ Pink Rose & Berry" </Value>
</Text>
</Block>
; - - -
; ==================> Len = 12
; - - 12-01-03-0078
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-01-03-0078.Button,$Sum1201030078) </State>
<Button>
<State> $Sum1201030078 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-01-03-0078, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "PREMIUM ESPRESSO CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมเอสเพรสโซ่ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และ Oreo"
Var DrinkDescription = "Coffee, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = $-.Price
Var PriceD3 = $12-01-03-0078.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "##-##-##-####"
Var PD_CODE3 = "12-01-03-0078"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = "Disable2"
Var PD_STAGE_3 = $12-01-03-0078.Button
Var OverlayMenuFilter !assigned xmlpro( 12-01-03-0078, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "-"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "12-01-03-0078"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $##-##-##-####.NameE
Var menu_desc_eng_cold = $##-##-##-####.descriptionE
Var menu_name_thai_cold = $##-##-##-####.Name
Var menu_desc_thai_cold = $##-##-##-####.description
Var menu_name_eng_blender = $12-01-03-0078.NameE
Var menu_desc_eng_blender = $12-01-03-0078.descriptionE
Var menu_name_thai_blender = $12-01-03-0078.Name
Var menu_desc_thai_blender = $12-01-03-0078.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "พรีเมียมเอสเพรสโซ่
คาราเมลโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ นม คาลาเมล และ Oreo" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "PREMIUM ESPRESSO
CARAMEL OREO" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Coffee, Milk, Caramel Syrup, Oreo" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> $12-01-03-0078.Button </State>
</Image>
<Text>
<X> 180 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitRegularTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-01-03-0078.Button </State>
<Value> StringFmt( $12-01-03-0078.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum1201030078 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag2_is_disable
STRCONTAIN "ERR" $12-01-03-0078.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1201030078 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - 12-21-03-0078
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-21-03-0078.Button,$Sum1221030078) </State>
<Button>
<State> $Sum1221030078 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png" </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<OverlayImage> xmlpro( 12-21-03-0078, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<EventOnClick>
Var NameDrink = "PREMIUM ESPRESSO CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมเอสเพรสโซ่ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และ Oreo"
Var DrinkDescription = "Coffee, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = $-.Price
Var PriceD3 = $12-21-03-0078.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "##-##-##-####"
Var PD_CODE3 = "12-21-03-0078"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = "Disable2"
Var PD_STAGE_3 = $12-21-03-0078.Button
Var OverlayMenuFilter !assigned xmlpro( 12-21-03-0078, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "-"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "12-21-03-0078"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $##-##-##-####.NameE
Var menu_desc_eng_cold = $##-##-##-####.descriptionE
Var menu_name_thai_cold = $##-##-##-####.Name
Var menu_desc_thai_cold = $##-##-##-####.description
Var menu_name_eng_blender = $12-21-03-0078.NameE
Var menu_desc_eng_blender = $12-21-03-0078.descriptionE
Var menu_name_thai_blender = $12-21-03-0078.Name
Var menu_desc_thai_blender = $12-21-03-0078.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "พรีเมียมเอสเพรสโซ่
คาราเมลโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ นม คาลาเมล และ Oreo" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "PREMIUM ESPRESSO
CARAMEL OREO" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Coffee, Milk, Caramel Syrup, Oreo" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> $12-21-03-0078.Button </State>
</Image>
<Text>
<X> 183 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-21-03-0078.Button </State>
<Value> StringFmt( $12-21-03-0078.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum1221030078 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag2_is_disable
STRCONTAIN "ERR" $12-21-03-0078.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1221030078 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; ==================> Len = 17
; - 12-01-02-0041 -
<Block>

View file

@ -1,5 +1,5 @@
<?hurr
#include=menu_head.py
<?hurr
#include=menu_head.py
?>
<Popup>
@ -10,7 +10,12 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
If WinterWonderPro = 1 Then
Open "ROOT/taobin_project/xml/page_catalog_group_milk_winter_wonder.xml"
EndIf
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
Var Menu4Selected = "PressForever"
SAVELOG PreviseXMLFileName2
@ -26,15 +31,15 @@
<?hurr
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
<?hurr
#include=menu_new_layout_gen.py
?>
<?hurr
<?hurr
#include=./event/dummy_layout_promotion.py
?>

File diff suppressed because it is too large Load diff

File diff suppressed because it is too large Load diff

View file

@ -38,7 +38,509 @@
Var block_index_override = 0
Var block_index_move = 0
</Script>
; menu_new_list 48
; menu_new_list 50
; ==================> Len = 17
; - 12-05-02-0094 12-05-03-0094
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-05-02-0094.Button,12-05-03-0094.Button,$Sum12050200941205030094) </State>
<Button>
<State> $Sum12050200941205030094 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_iced_pepsi.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_iced_pepsi.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_iced_pepsi.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-05-03-0094, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "PEPSI"
Var NameDrinkTH = "เป๊ปซี่น้ำแข็ง"
Var DrinkDescriptionTH = "เป๊ปซี่ "
Var DrinkDescription = "Pepsi & Ice"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_iced_pepsi.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = $12-05-02-0094.Price
Var PriceD3 = $12-05-03-0094.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "12-05-02-0094"
Var PD_CODE3 = "12-05-03-0094"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = $12-05-02-0094.Button
Var PD_STAGE_3 = $12-05-03-0094.Button
Var OverlayMenuFilter !assigned xmlpro( 12-05-03-0094, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-05-02-0094"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "12-05-03-0094"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $12-05-02-0094.NameE
Var menu_desc_eng_cold = $12-05-02-0094.descriptionE
Var menu_name_thai_cold = $12-05-02-0094.Name
Var menu_desc_thai_cold = $12-05-02-0094.description
Var menu_name_eng_blender = $12-05-03-0094.NameE
Var menu_desc_eng_blender = $12-05-03-0094.descriptionE
Var menu_name_thai_blender = $12-05-03-0094.Name
Var menu_desc_thai_blender = $12-05-03-0094.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "เป๊ปซี่น้ำแข็ง" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "เป๊ปซี่ " </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "PEPSI" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Pepsi & Ice" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> $12-05-02-0094.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-05-02-0094.Button </State>
<Value> StringFmt( $12-05-02-0094.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> $12-05-03-0094.Button </State>
</Image>
<Text>
<X> 180 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitRegularTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-05-03-0094.Button </State>
<Value> StringFmt( $12-05-03-0094.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum12050200941205030094 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $12-05-02-0094.TAG tag2_is_disable
STRCONTAIN "ERR" $12-05-03-0094.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum12050200941205030094 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - -
; ==================> Len = 17
; - 12-05-02-0095 -
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-05-02-0095.Button,$Sum1205020095) </State>
<Button>
<State> $Sum1205020095 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_iced_7up.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_iced_7up.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_iced_7up.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-05-02-0095, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi2.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "7UP"
Var NameDrinkTH = "เซเว่นอัพ"
Var DrinkDescriptionTH = "เซเว่นอัพ "
Var DrinkDescription = "7UP & Ice"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_iced_7up.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = $12-05-02-0095.Price
Var PriceD3 = $-.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "12-05-02-0095"
Var PD_CODE3 = "##-##-##-####"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = $12-05-02-0095.Button
Var PD_STAGE_3 = "Disable2"
Var OverlayMenuFilter !assigned xmlpro( 12-05-02-0095, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi2.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-05-02-0095"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "-"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $12-05-02-0095.NameE
Var menu_desc_eng_cold = $12-05-02-0095.descriptionE
Var menu_name_thai_cold = $12-05-02-0095.Name
Var menu_desc_thai_cold = $12-05-02-0095.description
Var menu_name_eng_blender = $##-##-##-####.NameE
Var menu_desc_eng_blender = $##-##-##-####.descriptionE
Var menu_name_thai_blender = $##-##-##-####.Name
Var menu_desc_thai_blender = $##-##-##-####.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "เซเว่นอัพ" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "เซเว่นอัพ " </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "7UP" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "7UP & Ice" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> $12-05-02-0095.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-05-02-0095.Button </State>
<Value> StringFmt( $12-05-02-0095.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 180 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitRegularTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum1205020095 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $12-05-02-0095.TAG tag2_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1205020095 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - - -
; ==================> Len = 17
; - 12-05-02-0035 12-05-03-0035
<Block>

View file

@ -0,0 +1,54 @@
<?hurr
#include=menu_head.py
?>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
Var Timeout = 0
Var From12Day12MenuPro = 0
;include="ROOT/taobin_project/xml/menu_catalog_new_menu.xml"
</EventOpen>
;include="ROOT/taobin_project/xml/menu_catalog_new.xml"
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
#include=menu_new_layout_gen.py
?>
;BigLogoLayout
<Button>
<X> 780 </X>
<Y> 500 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page/bp_remove_cup.png" </Filename>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
</EventClick>
</Button>
</Popup>

File diff suppressed because it is too large Load diff

View file

@ -120,6 +120,17 @@
RootLayoutVisible 3 "hide"
RootLayoutVisible 13 "hide"
Var Menu1Selected = "PressForever"

View file

@ -0,0 +1,37 @@
<?hurr
#include=menu_head.py
?>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
Var Timeout = 0
Var FromHappyTriosPro = 0
;include="ROOT/taobin_project/xml/menu_catalog_new_menu.xml"
</EventOpen>
;include="ROOT/taobin_project/xml/menu_catalog_new.xml"
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
#include=menu_new_layout_gen.py
?>
</Popup>

File diff suppressed because it is too large Load diff

View file

@ -94,7 +94,7 @@
</QRCode>
</Block>
;dummy_layout.inc
; menu_new_list 54
; menu_new_list 62
;TAGESP
; ==================> Len = 17
; 12-02-01-0039 12-02-02-0039 12-02-03-0039
@ -371,7 +371,7 @@
<EventOnClick>
Var NameDrink = "PREMIUM ESPRESSO CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมเอสเพรสโซ่ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และ Oreo"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และโอรีโอ"
Var DrinkDescription = "Coffee, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
@ -454,7 +454,7 @@
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ นม คาลาเมล และ Oreo" </Value>
<Value> "กาแฟ นม คาลาเมล และโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
@ -622,7 +622,7 @@ CARAMEL OREO" </Value>
<EventOnClick>
Var NameDrink = "PREMIUM ESPRESSO CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมเอสเพรสโซ่ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และ Oreo"
Var DrinkDescriptionTH = "กาแฟ นม คาลาเมล และโอรีโอ"
Var DrinkDescription = "Coffee, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_Espresso_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
@ -705,7 +705,7 @@ CARAMEL OREO" </Value>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ นม คาลาเมล และ Oreo" </Value>
<Value> "กาแฟ นม คาลาเมล และโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
@ -874,7 +874,7 @@ CARAMEL OREO" </Value>
<EventOnClick>
Var NameDrink = "PREMIUM GREEN TEA CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมมัทฉะ คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "มัทฉะ นม คาลาเมล และ Oreo"
Var DrinkDescriptionTH = "มัทฉะ นม คาลาเมล และโอรีโอ"
Var DrinkDescription = "Matcha, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_GreenTea_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
@ -957,7 +957,7 @@ CARAMEL OREO" </Value>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "มัทฉะ นม คาลาเมล และ Oreo" </Value>
<Value> "มัทฉะ นม คาลาเมล และโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
@ -1127,7 +1127,7 @@ CARAMEL OREO" </Value>
<EventOnClick>
Var NameDrink = "PREMIUM THAI TEA CARAMEL OREO"
Var NameDrinkTH = "พรีเมียมชาไทย คาราเมลโอรีโอ"
Var DrinkDescriptionTH = "ชาไทย นม คาลาเมล และ Oreo"
Var DrinkDescriptionTH = "ชาไทย นม คาลาเมล และโอรีโอ"
Var DrinkDescription = "Thai Tea, Milk, Caramel Syrup, Oreo"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_Caramel_ThaiTea_Oreo_smoothie_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
@ -1210,7 +1210,7 @@ CARAMEL OREO" </Value>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "ชาไทย นม คาลาเมล และ Oreo" </Value>
<Value> "ชาไทย นม คาลาเมล และโอรีโอ" </Value>
</Text>
<Text>
<X> 16 </X>
@ -1361,6 +1361,505 @@ CARAMEL OREO" </Value>
</Text>
</Block>
; - - -
; ==================> Len = 12
; - 12-01-02-0041 -
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-01-02-0041.Button,Disable=Invisible,$Sum1201020041) </State>
<Button>
<State> $Sum1201020041 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_iced_americano_soda_weekday_discount.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_iced_americano_soda_weekday_discount.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_iced_americano_soda_weekday_discount.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-01-02-0041, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "AMERICANO SODA"
Var NameDrinkTH = "อเมริกาโน่โซดา"
Var DrinkDescriptionTH = "กาแฟ และ โซดา"
Var DrinkDescription = "Coffee, Soda"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_iced_americano_soda_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = $12-01-02-0041.Price
Var PriceD3 = $-.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "12-01-02-0041"
Var PD_CODE3 = "##-##-##-####"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = $12-01-02-0041.Button
Var PD_STAGE_3 = "Disable2"
Var OverlayMenuFilter !assigned xmlpro( 12-01-02-0041, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-01-02-0041"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "-"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $12-01-02-0041.NameE
Var menu_desc_eng_cold = $12-01-02-0041.descriptionE
Var menu_name_thai_cold = $12-01-02-0041.Name
Var menu_desc_thai_cold = $12-01-02-0041.description
Var menu_name_eng_blender = $##-##-##-####.NameE
Var menu_desc_eng_blender = $##-##-##-####.descriptionE
Var menu_name_thai_blender = $##-##-##-####.Name
Var menu_desc_thai_blender = $##-##-##-####.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Var OpenFromInstMenuTab = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "อเมริกาโน่โซดา" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ และ โซดา" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "AMERICANO SODA" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Coffee, Soda" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> $12-01-02-0041.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-01-02-0041.Button </State>
<Value> StringFmt( $12-01-02-0041.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 180 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitRegularTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum1201020041 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $12-01-02-0041.TAG tag2_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1201020041 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; - 12-99-03-0079 -
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-99-03-0079.Button,Disable=Invisible,$Sum1299030079) </State>
<Button>
<State> $Sum1299030079 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_iced_americano_soda_weekday_discount.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_iced_americano_soda_weekday_discount.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_iced_americano_soda_weekday_discount.png" </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<OverlayImage> xmlpro( 12-99-03-0079, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<EventOnClick>
Var NameDrink = "AMERICANO SODA"
Var NameDrinkTH = "อเมริกาโน่โซดา"
Var DrinkDescriptionTH = "กาแฟ และ โซดา"
Var DrinkDescription = "Coffee, Soda"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_iced_americano_soda_weekday_discount.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = $12-99-03-0079.Price
Var PriceD3 = $-.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "12-99-03-0079"
Var PD_CODE3 = "##-##-##-####"
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = $12-99-03-0079.Button
Var PD_STAGE_3 = "Disable2"
Var OverlayMenuFilter !assigned xmlpro( 12-99-03-0079, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi1.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-99-03-0079"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "-"
EndIf
EndIf
Var menu_name_eng_hot = $##-##-##-####.NameE
Var menu_desc_eng_hot = $##-##-##-####.descriptionE
Var menu_name_thai_hot = $##-##-##-####.Name
Var menu_desc_thai_hot = $##-##-##-####.description
Var menu_name_eng_cold = $12-99-03-0079.NameE
Var menu_desc_eng_cold = $12-99-03-0079.descriptionE
Var menu_name_thai_cold = $12-99-03-0079.Name
Var menu_desc_thai_cold = $12-99-03-0079.description
Var menu_name_eng_blender = $##-##-##-####.NameE
Var menu_desc_eng_blender = $##-##-##-####.descriptionE
Var menu_name_thai_blender = $##-##-##-####.Name
Var menu_desc_thai_blender = $##-##-##-####.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "อเมริกาโน่โซดา" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ และ โซดา" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "AMERICANO SODA" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Coffee, Soda" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> $12-99-03-0079.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-99-03-0079.Button </State>
<Value> StringFmt( $12-99-03-0079.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 183 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Invisible"
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum1299030079 = "Disable" Then
STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable
STRCONTAIN "ERR" $12-99-03-0079.TAG tag2_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum1299030079 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; ==================> Len = 12
; - - 12-05-03-0092
<Block>

File diff suppressed because it is too large Load diff

File diff suppressed because it is too large Load diff

View file

@ -120,6 +120,17 @@
RootLayoutVisible 3 "hide"
RootLayoutVisible 13 "hide"

View file

@ -1,5 +1,5 @@
<?hurr
#include=menu_head.py
<?hurr
#include=menu_head.py
touch_less_gen = False
?>
@ -11,10 +11,15 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
If ThickTeaByBrewerPro = 1 Then
Open "ROOT/taobin_project/xml/page_catalog_group_tea_thick_tea.xml"
EndIf
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
Var Menu3Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
@ -32,10 +37,10 @@
<?hurr
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
<?hurr
#include=menu_new_layout_gen.py
?>

View file

@ -8,10 +8,15 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
If ThickTeaByBrewerPro = 1 Then
Open "ROOT/taobin_project/xml/page_catalog_group_tea_thick_tea.xml"
EndIf
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
Var Menu3Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
@ -41,7 +46,7 @@
Var block_index_override = 0
Var block_index_move = 0
</Script>
; menu_new_list 43
; menu_new_list 46
; ==================> Len = 12
; 12-02-01-0001 12-02-02-0001 12-02-03-0001
<Block>

File diff suppressed because it is too large Load diff

View file

@ -15,7 +15,7 @@
EndIf
If Seeker = "next" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
Var NextPage = "-"

View file

@ -26,7 +26,7 @@
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
@ -38,7 +38,7 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var CoffeePointTmp = CoffeePoint
If CoffeePoint > 29 Then
@ -46,8 +46,8 @@
Var CoffeePointTmp = 30
EndIf
Var pImage = CoffeePointTmp * 20
Var pImage = pImage / 30
@ -66,14 +66,14 @@
Var TaobinExpireMonthX = ""
Var TaobinExpireYear = ""
SPLIT TaobinExpire "/" 1 TaobinExpireDay
SPLIT TaobinExpire "/" 2 TaobinExpireMonth
SPLIT TaobinExpire "/" 3 TaobinExpireYear
If show_eng = "true" Then
If show_eng = "true" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
@ -140,7 +140,7 @@
Var TaobinExpireYear = TaobinExpireYear + 0
Else
Else
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
@ -217,17 +217,17 @@
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
If TaobinLevel = "1" Then
Var PointMaskState = "Enable"
EndIf
If show_eng = "true" Then
If show_eng = "true" Then
Var TaobinLevelDesc3 = TaobinCoupons
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " coupons are available for you"
@ -261,7 +261,7 @@
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
@ -282,7 +282,7 @@
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
@ -346,7 +346,7 @@
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า จนถึง " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
@ -357,7 +357,7 @@
Var CheckCoupons = 0
Var MakeDrinkState = 0
@ -609,7 +609,7 @@
Var PreviousSeeker.UseGet15Discount = 0
Var PreviousSeeker.UseGetDrink5Bath = 0
Else
If PreviousSeeker.TNumberTaobinCredit = Seeker.TNumberTaobinCredit Then
If PreviousSeeker.UseGet15Discount = 1 Then
Var Get15DiscountState = "Disable2"
@ -655,74 +655,48 @@
Var xPointEndDate = 490
Var yPointEndDate = 1570
If show_eng = "true" Then
If show_eng = "true" Then
Var xPointEndDate = 575
Var yPointEndDate = 1563
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
; goto lid straw
If CoffeePoint >= 28 Then
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
; process next page
Function 2
EndIf
TimerReset
Refresh
</EventTimeout>
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If CheckCoupons = 1 Then
Var MakeDrinkState = 1
Var CouponPage = 1
Var CouponPage = 1
Var CouponInfo1 = Ext1a
Var CouponInfo2 = Ext1b
Var CouponInfo3 = Ext1c
@ -733,23 +707,23 @@
Var CouponInfo8 = Ext1h
Var CouponInfo9 = Ext1i
Var CouponInfo10 = Ext1j
Var TelephoneNumber = TelephoneNumberX
GETACCEXT TelephoneNumber 13
Var CheckCoupons = 2
Var CheckCoupons = 2
Else
If CheckCoupons = 2 Then
If CheckCoupons = 2 Then
Var TaobinCredit = Ext1b
Open "ROOT/taobin_project/xml/page_check_member2.xml"
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
EndIf
</EventActionOk>
@ -763,6 +737,46 @@
EndIf
</EventMachine>
<Function2>
If FromHappyTriosPro = 1 Then
If Seeker.VendingCode = "PX6" Then
Else
Open "ROOT/taobin_project/xml/event/happy_trios/page_sending_discount_code.xml"
EndIf
EndIf
If CoffeePoint >= 28 Then
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
</Function2>
;include="ROOT/taobin_project/inc/video.inc"
@ -835,34 +849,12 @@
<FilenamePress> Var( DirImage + KeepBpBtnImage ) </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
; goto lid straw
;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
If CoffeePoint >= 28 Then
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
; process next page
Function 2
</EventClick>
</Button>
@ -878,7 +870,7 @@
<FilenameDisable2> Var( DirImage + "/disable2_get15discount.png" )</FilenameDisable2>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Open "ROOT/taobin_project/xml/page_display_get_15_discount.xml"
@ -1223,7 +1215,7 @@
</EventUnitTest1>
<EventUnitTest2>
If show_eng = "true" Then
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
@ -1242,4 +1234,3 @@
</Popup>

View file

@ -28,7 +28,7 @@
Var DirImageLuckeyDraw = "ROOT/taobin_project/image/event/lucky_draw_collect_point/"
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
@ -40,7 +40,7 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var CoffeePointTmp = CoffeePoint
If CoffeePoint > 29 Then
@ -48,8 +48,8 @@
Var CoffeePointTmp = 30
EndIf
Var pImage = CoffeePointTmp * 20
Var pImage = pImage / 30
@ -68,14 +68,14 @@
Var TaobinExpireMonthX = ""
Var TaobinExpireYear = ""
SPLIT TaobinExpire "/" 1 TaobinExpireDay
SPLIT TaobinExpire "/" 2 TaobinExpireMonth
SPLIT TaobinExpire "/" 3 TaobinExpireYear
If show_eng = "true" Then
If show_eng = "true" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
@ -142,7 +142,7 @@
Var TaobinExpireYear = TaobinExpireYear + 0
Else
Else
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
@ -219,14 +219,14 @@
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
Var CurrentLevel = ""
If TaobinLevel = "1" Then
Var PointMaskState = "Enable"
EndIf
If show_eng = "true" Then
If show_eng = "true" Then
Var TaobinLevelDesc3 = TaobinCoupons
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " coupons are available for you"
@ -260,7 +260,7 @@
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
@ -360,7 +360,7 @@
Var MakeDrinkState = 0
@ -611,7 +611,7 @@
Var PreviousSeeker.UseGet15Discount = 0
Var PreviousSeeker.UseGetDrink5Bath = 0
Else
If PreviousSeeker.TNumberTaobinCredit = Seeker.TNumberTaobinCredit Then
If PreviousSeeker.UseGet15Discount = 1 Then
Var Get15DiscountState = "Disable2"
@ -657,11 +657,11 @@
Var xPointEndDate = 490
Var yPointEndDate = 1570
If show_eng = "true" Then
If show_eng = "true" Then
Var xPointEndDate = 575
Var yPointEndDate = 1563
EndIf
Var LuckyDrawTicketFormat = "%03.0f"
Var ShowLuckyDrawTicketState = "Enable"
Var ShowLuckyDrawAds = "Invisible"
@ -704,7 +704,7 @@
Var LuckyDrawGoalImg = "/goal_regular.png"
Var targetDate = "31-12-2024"
EndIf
If SystemDateYearInt = 2025 Then
If SystemDateMonthInt = 1 Then
Var LuckyDrawGoalImg = "/goal_Tesla.png"
@ -748,70 +748,47 @@
EndIf
Else
Var ShowLuckyDrawTicketState = "Invisible"
Var ShowLuckyDrawAds = "Enable"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
; goto lid straw
If CoffeePoint >= 28 Then
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
; process next page
Function 2
EndIf
TimerReset
Refresh
</EventTimeout>
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
@ -825,6 +802,44 @@
EndIf
</EventMachine>
<Function2>
If FromHappyTriosPro = 1 Then
If Seeker.VendingCode = "PX6" Then
Else
Open "ROOT/taobin_project/xml/event/happy_trios/page_sending_discount_code.xml"
EndIf
EndIf
If CoffeePoint >= 28 Then
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
</Function2>
;include="ROOT/taobin_project/inc/video.inc"
@ -1020,34 +1035,12 @@
<FilenamePress> Var( DirImage + KeepBpBtnImage ) </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
; goto lid straw
;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
If CoffeePoint >= 28 Then
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
; process next page
Function 2
</EventClick>
</Button>
@ -1063,7 +1056,7 @@
<FilenameDisable2> Var( DirImage + "/disable2_get15discount.png" )</FilenameDisable2>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Open "ROOT/taobin_project/xml/page_display_get_15_discount.xml"
@ -1373,7 +1366,7 @@
</EventUnitTest1>
<EventUnitTest2>
If show_eng = "true" Then
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
@ -1392,4 +1385,3 @@
</Popup>

View file

@ -244,7 +244,7 @@
AddData 50 dummyPhone param1 param2 param3
EndIf
SAVELOG "drinkok.xml version 3"
SAVELOG "drinkok.xml version 4"
Var DrinkNameOnArm[DrinkArmCupID] = Seeker.showname
Var DrinkImageOnArm[DrinkArmCupID] = Seeker.PictureDrink
@ -284,7 +284,8 @@
Var Timeout = Timeout + 1
If Timeout = 2 Then
Var SlientRefreshEnable = 1
;Var SlientRefreshEnable = 1
;Var SlientRefreshIndex = 2
EndIf
If BrewTimeoutExtend = 1 Then

View file

@ -71,39 +71,15 @@
DEBUGVAR CustomerFilterType
EndIf
If NightTime = 1 Then
If SelectDrink = "12-99-03-0066" Then
Var PriceDrink = 60
EndIf
EndIf
If From15THBPro = 1 Then
Var PriceDrink = OriginalPrice
EndIf
If FromRerunPro = 1 Then
Var PromoPriceDrink = PriceDrink
Var PriceDrink = OldPrice
EndIf
If FromMondayBananaPro = 1 Then
Var PriceDrink = OriginalPrice
EndIf
If FromWednesdayMelonPro = 1 Then
Var PriceDrink = OriginalPrice + TOPPING_PRICE
EndIf
If FromOreoDiscount11Pro = 1 Then
Var PriceDrink = OriginalPrice + TOPPING_PRICE
EndIf
If FromPowerUpPro = 1 Then
Var PriceDrink = OriginalPrice
If From12Day12MenuPro = 1 Then
Var PriceDrink = OriginalPrice + TOPPING_PRICE
EndIf
DEBUGVAR PriceDrink
DEBUGVAR PromotionPriceDrink

View file

@ -88,6 +88,8 @@
Var cancelState = "Invisible"
Var CameraState = "Invisible"
Var alphaState = "Invisible"
Var alphaState2 = "Invisible"
@ -402,14 +404,6 @@
Machine DoorClose
If ShoppyPayEnable = "true" Then
Else
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
If web_readyOK = "true" Then
Var web_readyOK = "false"
@ -432,7 +426,6 @@
Var PayState4 = "Invisible"
Var PayState5 = "Invisible"
Var PayState6 = "Invisible"
EndIf
</EventOpen>
@ -678,6 +671,28 @@
EndIf
EndIf
;If ReqPayInfoFlag = 6 Then
; If VendingQRTypeResult = "FZB:2" Then
; Var CashTextWarning = ""
; Var QRErrorState = "Invisible"
; Var QRCODE99Shoppy = SessionID
; Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
; SAVELOG Ext1a
; SAVELOG QRCODE99Shoppy
; Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
; Var ReqPayInfoFlag = 0
; Var ReqPayInfoFlag2 = 5
; SAVELOG QRCODE99Shoppy
; SAVELOG Ext21
; Var employeeName = "Jhon"
; Var
; ;Var QRCODE99 = QRCODE99Shoppy
; Var LOADING_STATE = "Invisible"
; EndIf
;EndIf
Else
Var PayInfoCFlag = 1
EndIf
@ -718,6 +733,7 @@
If ReqPayInfoFlag = 1 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
@ -725,6 +741,7 @@
If ReqPayInfoFlag = 2 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
@ -732,6 +749,7 @@
If ReqPayInfoFlag = 3 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
@ -739,10 +757,19 @@
If ReqPayInfoFlag = 4 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 6 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
@ -827,11 +854,16 @@
If Timeout >= 120 Then
Var alphaState = "Invisible"
If CameraState = "Enable" Then
Var CameraState = "Invisible"
EndIf
If RoadShow = "true" Then
Else
Var PayState3 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
Var LOADING_STATE = "Invisible"
@ -1351,6 +1383,96 @@
EndIf
</EventVDCancle>
<EventScanQRResult>
DEBUGVAR scanresult
DEBUGVAR scanmsg
;If scanresult = "true" Then
; Var employeeCode = scanmsg
; Open "ROOT/taobin_project/inter/aus/xml/page_payment_employee_ping
;Else
;EndIf
If scanresult = "true" Then
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_AUS_QR.png"
Var QRCODE99 = ""
Var LOADING_STATE = "Enable"
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "FZB:2/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 6
Refresh
EndIf
EndIf
EndIf
Else
Var scanmsg = "Please try agin"
EndIf
Var CameraState = "Invisible"
CLOSESCANQR
Refresh
</EventScanQRResult>
;include="ROOT/taobin_project/inc/video.inc"
@ -1441,7 +1563,7 @@
If alphaState = "Invisible" Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png"
Var QR_POPUP = "/img_popup8-AUS.png"
Var alphaState = "Enable"
Coin CARD
EndIf
@ -1604,7 +1726,7 @@ EndIf
<Button>
<X> 552 </X>
<Y> 1499 </Y>
<State> "Enable" </State>
<State> "Invisible" </State>
<Filename> Var( DirImage + "/bn_pay_with_comingSoon.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenameDisable>
@ -1618,10 +1740,11 @@ EndIf
<Button>
<X> 552 </X>
<Y> 1499 </Y>
<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_with_codeOther.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_with_codeOther.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_with_codeOther.png" </FilenameDisable>
<State> PayState6 </State>
;<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_with_ema.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_with_ema.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_with_ema.png" </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1631,68 +1754,18 @@ EndIf
If CancelFlag = 0 Then
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup1.png"
Var QR_POPUP = "/img_popup_ema.png"
Var QRCODE99 = ""
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
VendingQR ON
Var scanresult = ""
Var scanmsg = ""
INITSCANQR
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CameraState = "Enable"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "FZB:2/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 1
Refresh
EndIf
EndIf
@ -1804,8 +1877,14 @@ EndIf
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>
<CameraX>
<X> 50 </X>
<Y> 900 </Y>
<Name>"usbfront"</Name>
<Width> 1000 </Width>
<Height> 1000 </Height>
<State> CameraState </State>
</CameraX>
<Button>
@ -1822,6 +1901,7 @@ EndIf
Var QRErrorState = "Invisible"
Var CreditCardErrorState = "Invisible"
Var alphaState = "Invisible"
Var CameraState = "Invisible"
Var QRCODE99 = ""
If CashlessPayFlag = 1 Then
@ -2138,7 +2218,7 @@ EndIf
<X> 267 </X>
<Y> 960 </Y>
<State>QRErrorState</State>
<Filename> Var( DirImage + "/QRError.png" ) </Filename>
<Filename> Var( DirImage + QRErrorImg ) </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

View file

@ -190,6 +190,10 @@ EndIf
Var alphaState3 = "Invisible"
Var alphaState3_offline = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
Var CoinInFlag = 0
;Var CoinAmount = 0
@ -656,6 +660,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -722,6 +728,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -775,6 +783,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -798,6 +808,14 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "TWN:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -819,6 +837,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -842,6 +862,13 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "DOL:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -863,6 +890,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -886,6 +915,13 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "LPY:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -907,6 +943,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -930,6 +968,13 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "LZP:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -951,6 +996,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -975,6 +1022,14 @@ EndIf
Var ECommerceQR = ECommerceQR + "MAX:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
@ -995,6 +1050,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1019,6 +1076,14 @@ EndIf
Var ECommerceQR = ECommerceQR + "WEC:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
@ -1039,6 +1104,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1062,6 +1129,13 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "ALP:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -1083,6 +1157,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1106,6 +1182,14 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "UNP:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -1120,6 +1204,60 @@ EndIf
Var ReqPayInfoFlag = 10
EndIf
If web_payment = "ACU" Then
Var QR_POPUP = "/img_popup22.png"
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "ACU:2/"
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 11
EndIf
@ -1132,6 +1270,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1216,6 +1356,9 @@ EndIf
If ReqPayInfoFlag2 = 10 Then
Var Seeker.CampaignPayChanel = "unionpay"
EndIf
If ReqPayInfoFlag2 = 11 Then
Var Seeker.CampaignPayChanel = "acupay"
EndIf
@ -1715,7 +1858,7 @@ EndIf
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 10
Var ReqPayInfoFlag2 = 11
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
@ -1894,6 +2037,8 @@ EndIf
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
If RoadShow = "true" Then
@ -2158,29 +2303,18 @@ EndIf
; EndIf
;EndIf
If CancelingPopupFlag = "Enable" Then
If CancelingPopupFlag = "Enable" Then
SAVELOG "Canceled Popup"
Var CancelingPopupCountDown = CancelingPopupCountDown + 1
If CancelingPopupCountDown > 3 Then
Var CancelingPopupFlag = "Invisible"
Var alphaState = "Invisible"
If QRPopupOpenFlag = 1 Then
VendingQR OFF
EndIf
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF by user"
CashlessReq OFF
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
EndIf
EndIf
EndIf
Refresh
TimerReset
@ -2324,6 +2458,8 @@ EndIf
If CoinInFlag = 0 Then
;VendingQR OFF
Var alphaState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
EndIf
@ -2684,6 +2820,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -2824,6 +2962,7 @@ EndIf
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Coin CARD
Var ReqPayInfoFromCashOther = 2
EndIf
@ -3015,7 +3154,7 @@ eval(
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState </State>
<State> cancelButtonQRPopupState </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -3023,14 +3162,33 @@ eval(
<EventClick>
If CancelingPopupFlag = "Invisible" Then
SAVELOG "Press Cancel, Canceling popup..."
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
Var QRCODE99 = ""
;CoinVending ON
Var CancelingPopupFlag = "Enable"
Var CancelingPopupCountDown = 0
If QRPopupOpenFlag = 1 Then
VendingQR OFF
EndIf
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF by user"
CashlessReq OFF
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
Refresh
EndIf
</EventClick>
@ -3318,7 +3476,7 @@ eval(
<Y> 958 </Y>
<Width> 200 </Width>
<Height> 200 </Height>
<State> alphaState </State>
<State> QRCodeImageState </State>
<Service> testservice </Service>
</QRCode>

View file

@ -67,6 +67,13 @@
Var WalletEnable = "Disable"
EndIf
Var SendDiscountCampaign = 0
;If Seeker.IntVendingCampaign > 0 Then
; SAVELOG "Have discount enable send discount campaign"
; Var SendDiscountCampaign = 1
;EndIf
If From15THBPro = 1 Then
DEBUGVAR "Discount Disable Wallet"
Var WalletEnable = "Disable"
@ -188,6 +195,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -211,13 +220,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "TWN:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -255,6 +264,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -278,13 +289,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -321,6 +332,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -344,13 +357,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "LPY:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -390,6 +403,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -413,13 +428,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "AIR:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -456,6 +471,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -479,13 +496,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "MAX:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -522,6 +539,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -545,13 +564,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "WEC:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -589,6 +608,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -612,13 +633,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -657,6 +678,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -680,13 +703,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "ALP:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -724,6 +747,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -747,13 +772,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "UNP:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -776,6 +801,7 @@
<Button>
<X> 208 </X>
<Y> 1413 </Y>
;<State> WalletEnable </State>
<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_cashACU.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_pay_with_cashACU.png" </FilenamePress>
@ -792,6 +818,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -815,13 +843,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "ACU:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
If SendDiscountCampaign = 1 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -901,6 +929,8 @@
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
Coin CARD
Var ReqPayInfoFromCashOther = 2
Open "ROOT/taobin_project/xml/page_payment_cash.xml"

View file

@ -13,7 +13,7 @@
Var Seeker.FreeVendingCampaign = 0
Var Timeout = 0
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
Var Seeker.CollectPointMain = 0
@ -22,17 +22,17 @@
;Var VendingQRCode = "ERROR"
;VendingQR ON
;Var QRCODE99 = ""
;CoinVending OFF
VendingQR OFF
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var ErrorCause = ""
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
@ -44,7 +44,7 @@
If web_readyOK = "true" Then
Var web_readyOK = "false"
If web_code = "" Then
Else
Var ShowTextNumber = "Invisible"
@ -74,11 +74,11 @@
Var ECommerce = ECommerce + TOPPING_PRICE
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
@ -95,7 +95,7 @@
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
EndIf
@ -105,49 +105,49 @@
Var Mode# = 0
Var Str# = ""
Var TelephoneNumber# = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
;VendingQR OFF
;Open menu_back_to_main
;Open menu_back_to_main
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
Refresh
EndIf
TimerReset
</EventTimeout>
</EventTimeout>
<EventIDCard>
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "START" Then
CoinVending OFF
Open "ROOT/taobin_project/xml/page_show_consent2.xml"
Open "ROOT/taobin_project/xml/page_show_consent2.xml"
EndIf
EndIf
EndIf
@ -163,7 +163,7 @@
<EventActionOk>
If Seeker.CodeChannel = 1 Then
@ -178,24 +178,24 @@
SPLIT ECommerce "/" 9 ShouldCollectPoint
If Seeker.VendingCode = "" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "KBA:2" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "AIR:2" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "TWN:2" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
SAVELOG Seeker.VendingCode
SAVELOG Seeker.VendingCampaignRI3
SAVELOG ShouldCollectPoint
INT ShouldCollectPoint
@ -212,7 +212,7 @@
If IntVendingCampaign1 > 0 Then
Var VendingCreditRemain = VendingCampaign1
EndIf
EndIf
EndIf
@ -220,7 +220,7 @@
Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3
INT Seeker.IntVendingCampaign
Var VendingREFID = SessionID
@ -231,11 +231,11 @@
If Seeker.IntVendingCampaign > 0 Then
Var QRChannel = 0
If Seeker.IntVendingCampaign >= PayAmount Then
If Seeker.IntVendingCampaign >= PayAmount Then
If ShouldCollectPoint = 1 Then
Var Seeker.CollectPointMain = 1
If PayMentCodeShouldCollectPromotionPoint = 1 Then
Var Seeker.CollectPointPromotion = 1
EndIf
@ -244,24 +244,24 @@
TRY "ROOT/taobin_project/xml/event/collect_promotion_point_condition.ev"
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var Seeker.VendingCampaign = PayAmount
Var Seeker.FreeVendingCampaign = 1
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
If CART_COUNT >= 1 Then
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
If CART_COUNT >= 1 Then
Cart "PreparID" 1
Var CART_INDEX = 1
Var PayReference = ""
GenHashWithTimeStamp PayReference
Cart "MakeID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
@ -275,7 +275,7 @@
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
Else
If ShouldCollectPoint = 1 Then
@ -288,8 +288,8 @@
EndIf
;Var SessionID2 = SelectSlot + ":"
;Var SessionID2 = SessionID2 + Seeker.ExtendData
@ -301,11 +301,11 @@
;Var ECommerce = ""
;Var ECommerce = ECommerce + PriceDrink
;Var ECommerce = ECommerce + "/"
;Var ECommerce = ECommerce + DiscountDrink
;Var ECommerce = ECommerce + DiscountDrink
;Var ECommerce = ECommerce + "/"
;Var ECommerce = ECommerce + SessionID2
;Var ECommerce = ECommerce + SessionID2
;Var ECommerce = ECommerce + "/"
;Var ECommerce = ECommerce + SelectDrink
;Var ECommerce = ECommerce + SelectDrink
;Var ECommerce = ECommerce + "/"
;Var ECommerce = ECommerce + "KBA:2/"
;Var ECommerce = ECommerce + Seeker.VendingCode
@ -328,11 +328,11 @@
;Var Seeker.CodeChannel = 2
Var Seeker.CodeChannel = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
@ -347,7 +347,7 @@
EndIf
EndIf
Else
Else
;SAVELOG "Seeker.CodeChannel 2 > ActOK."
;
@ -358,12 +358,12 @@
;Var QRCODETMP = QRCODE99
;Var Seeker.CodeChannel = 1
;
;If CART_COUNT >= 1 Then
; Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
;If CART_COUNT >= 1 Then
; Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
;Else
; Open "ROOT/taobin_project/xml/page_payment_cash.xml"
; Open "ROOT/taobin_project/xml/page_payment_cash.xml"
;EndIf
EndIf
@ -372,7 +372,7 @@
<EventActionError>
If Seeker.CodeChannel = 1 Then
Var TelephoneNumber = ""
Var ShowErrorText = "Enable"
SAVELOG ShowErrorText
@ -390,7 +390,7 @@
If ErrorCause = "failed_fromoper_0006" Then
Var text_show_error = DirImage + "/text_show_error4.png"
EndIf
If ErrorCause = "failed_fromoper_0007" Then
Var text_show_error = DirImage + "/text_show_error7.png"
EndIf
@ -409,10 +409,10 @@
Var Seeker.CodeChannel = 1
Var QRCODE99 = ""
Var QRCODETMP = ""
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
@ -442,7 +442,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
@ -453,7 +453,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -467,7 +467,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
@ -478,7 +478,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -492,7 +492,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
@ -503,7 +503,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -517,7 +517,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_A.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "A"
Var ShowTextNumber = "Invisible"
@ -528,7 +528,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -542,7 +542,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
@ -553,7 +553,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -567,7 +567,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
@ -578,7 +578,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -592,7 +592,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
@ -603,7 +603,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -617,7 +617,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_B.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "B"
Var ShowTextNumber = "Invisible"
@ -628,7 +628,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -642,7 +642,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
@ -653,7 +653,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -667,7 +667,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
@ -678,7 +678,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -692,7 +692,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
@ -703,7 +703,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -717,7 +717,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_C.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "C"
Var ShowTextNumber = "Invisible"
@ -728,7 +728,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -742,7 +742,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 8
@ -750,7 +750,7 @@
Var TelephoneNumber# = Str# + TelephoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
@ -768,19 +768,19 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_sh.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
;Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 8
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If TelNumLen = 0 Then
Var ShowTextNumber = "Invisible"
Var Mode# = 1
Var Str# = "#"
Var TelephoneNumber# = Str# + TelephoneNumber
EndIf
TimerReset
Refresh
Var ShowErrorText = "Invisible"
@ -795,21 +795,21 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var Clear# = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If TelNumLen = 0 Then
Var Clear# = 1
EndIf
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If TelNumLen = 0 Then
If Clear# = 1 Then
Var ShowTextNumber = "Enable"
Var Mode# = 0
@ -822,7 +822,7 @@
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
@ -834,15 +834,15 @@
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
</EventClick>
</Button>
@ -858,9 +858,9 @@
<FilenameDisable> Var( DirImage + "/bp_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
If UnitTestType = "2" Then
If TelephoneNumber = "00000001" Then
@ -874,14 +874,14 @@
Var ShowErrorText = "Enable"
EndIf
If GetPayInfoFlag = 0 Then
Var GetPayInfoFlag = 1
VendingQR OFF
Var Seeker.CodeNumber = TelephoneNumber
Var RemainAmount = 0
;PrepareDrink SelectDrink SelectSugarID
@ -900,11 +900,24 @@
Var ECommerce = ECommerce + TOPPING_PRICE
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + SessionID2
If Seeker.UseFreeSugarZeroCalTopping = 1 Then
Var ECommerce = ECommerce + ":1"
Else
Var ECommerce = ECommerce + ":0"
EndIf
If Seeker.UseFreeCollagenTopping = 1 Then
Var ECommerce = ECommerce + "1"
Else
Var ECommerce = ECommerce + "0"
EndIf
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
@ -914,7 +927,7 @@
Var ECommerce = ECommerce + "C00"
EndIf
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
@ -933,17 +946,17 @@
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
EndIf
EndIf
SAVELOG ShowTextNumber
Refresh
</EventClick>
</Button>
@ -975,7 +988,7 @@
</Text>
<Image>
<X> 188 </X>
@ -1008,9 +1021,9 @@
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>

View file

@ -37,6 +37,14 @@
; EndIf
;EndIf
If SpiralOnline = "true"
If show_eng = "true" Then
Var DirImageSpiral = "ROOT/taobin_project/image/page2_en/page2"
Else
Var DirImageSpiral = "ROOT/taobin_project/image/page2"
EndIf
EndIf
If MachineStage = "mcu-upgrade" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
@ -155,6 +163,10 @@
DEBUGVAR MachineStage
DEBUGVAR NETCORE_EVENT_CNT_TMP
If SpiralOnline = "true" Then
Open "ROOT/taobin_project/xml/page_show_error_spiral.xml"
EndIf
Var EmergencyStop = "-"
If DoorCupPosition = "bottom" Then

View file

@ -0,0 +1,438 @@
<Page>
<X> 0 </X>
<Y> 608 </Y>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "0xEAE6E1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var countClick = 0
Var countClick2 = 0
Var SetSpiralOnline = 0
DEBUGVAR MachineStage
DEBUGVAR stop_now
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
Var DirImage = "ROOT/taobin_project/image/vending_error"
Var show_error_normal = "Invisible"
Var show_error_sp1 = "Enable"
;If EmergencyStop = "true" Then
; Var stop_now = "true"
; If show_eng = "true" Then
; Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
; Else
; Var DirImage = "ROOT/taobin_project/image/vending_error"
; EndIf
;EndIf
If SpiralOnline = "true"
If show_eng = "true" Then
Var DirImageSpiral = "ROOT/taobin_project/image/page2_en/page2"
Else
Var DirImageSpiral = "ROOT/taobin_project/image/page2"
EndIf
EndIf
If MachineStage = "mcu-upgrade" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
Else
Var DirImage = "ROOT/taobin_project/image/vending_error"
EndIf
EndIf
If NeedUpgrade = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
Else
Var DirImage = "ROOT/taobin_project/image/vending_error"
EndIf
EndIf
DEBUGVAR stop_now
DEBUGVAR MachineStage
If MachineStage = "close-maintenance" Then
If stop_now = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
Else
Var DirImage = "ROOT/taobin_project/image/vending_error"
EndIf
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/close_en/"
Else
Var DirImage = "ROOT/taobin_project/image/close_th"
EndIf
EndIf
EndIf
DEBUGVAR DirImage
If MachineStage = "drink-failed" Then
If stop_now = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
Else
Var DirImage = "ROOT/taobin_project/image/vending_error"
EndIf
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/close_en/"
Else
Var DirImage = "ROOT/taobin_project/image/close_th"
EndIf
EndIf
EndIf
If NETCORE_LOST_CNT > 0 Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
Else
Var DirImage = "ROOT/taobin_project/image/vending_error"
EndIf
EndIf
If NETCORE_EVENT_CNT_X >= 30 Then
Var NETCORE_EVENT_CNT_X = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
Else
Var DirImage = "ROOT/taobin_project/image/vending_error"
EndIf
EndIf
StopLongPlay
If LEDSet = "true" Then
Else
LED LedDoorCup On 255 0 0 255
LED LedDoorLid Off 255 255 255 255
EndIf
Var MaintenanceCard = 20
Random MaintenanceCard
Var index = 1 + MaintenanceCard
If show_eng = "true" Then
Var RandomImage = "ROOT/taobin_project/image/close_en/Frame" + index
Var RandomImage = RandomImage + ".png"
Else
Var RandomImage = "ROOT/taobin_project/image/close_en/Frame" + index
Var RandomImage = RandomImage + ".png"
EndIf
DEBUGVAR Seeker
DEBUGVAR DoorCupPosition
DEBUGVAR DoorLidPosition
DEBUGVAR EmergencyStop
Var TimeOut = 0
Var textStep = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR NETCORE_LOST_CNT
DEBUGVAR MachineStage
DEBUGVAR NETCORE_EVENT_CNT_TMP
Var EmergencyStop = "-"
If DoorCupPosition = "bottom" Then
If stop_now_from_door_cup = 1 Then
Var stop_now = "false"
Var EmergencyStop = "false"
SAVELOG "stop_now_from_door_cup is set"
Var stop_now_from_door_cup = 0
Var MachineErrorDetailAll = " --- "
EndIf
Else
Var EmergencyStop = "true"
EndIf
If EmergencyStop = "true" Then
If DoorCupPosition = "bottom" Then
; It normal
Var EmergencyStop = "false"
Else
Var MachineErrorDetailAll = "Emergency stop!"
EndIf
Else
Var MachineErrorDetailAll = MachineErrorDetail + " / "
Var MachineErrorDetailAll = MachineErrorDetailAll + MachineErrorDetailEng
If textStep > 3 Then
Var textStep = 0
Var MachineErrorDetailAll = MachineErrorDetailAll + " [ \ ]"
EndIf
If textStep = 3 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " [ - ]"
EndIf
If textStep = 2 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " [ / ]"
EndIf
If textStep = 1 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " [ | ]"
EndIf
Var textStep = textStep + 1
;DEBUGVAR MachineErrorDetailAll
;DEBUGVAR textStep
If NETCORE_LOST_CNT > 0 Then
Else
DEBUGVAR NCIC07_EVENT_CNT
DEBUGVAR NETCORE_EVENT_CNT_TMP
If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then
Var NETCORE_LOST_COUNT_UP = NETCORE_LOST_COUNT_UP + 1
DEBUGVAR NETCORE_LOST_COUNT_UP
If NETCORE_LOST_COUNT_UP > 300 Then
SAVELOG " NETCORE_LOST_COUNT_UP out !"
Reboot
EndIf
Var NETCORE_LOST_COUNT_UP_STR = " Net " + NETCORE_LOST_COUNT_UP
If textStep = 4 Then
Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " ###"
EndIf
If textStep = 3 Then
Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " ###"
EndIf
If textStep = 2 Then
Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " ##"
EndIf
If textStep = 1 Then
Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " #"
EndIf
Else
; zone all ok
If stop_now_from_netcore_event = 1 Then
Var stop_now = "false"
SAVELOG "stop_now_from_netcore_event is set"
Var stop_now_from_netcore_event = 0
EndIf
If MachineStage = "" Then
Var LEDSet = "false"
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
If MachineStage = "show-menu" Then
Var LEDSet = "false"
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
If MachineStage = "remove-cup" Then
Var LEDSet = "false"
Open "ROOT/taobin_project/xml/page_remove_cup.xml"
EndIf
If MachineStage = "drink-failed" Then
Var FirstOpen = 1
Var LEDSet = "true"
;Open "ROOT/taobin_project/xml/page_show_error.xml"
Refresh
EndIf
If FirstOpen = 1 Then
Var FirstOpen = 0
If MachineStage = "close-maintenance" Then
Var LEDSet = "true"
;Open "ROOT/taobin_project/xml/page_show_error.xml"
Refresh
EndIf
EndIf
EndIf
EndIf
EndIf
Var TimeOut = TimeOut + 1
If TimeOut > 60 Then
Var TimeOut = 0
Open "ROOT/taobin_project/xml/page_show_error.xml"
EndIf
Refresh
TimerReset
Var LEDSet = "true"
;Open "ROOT/taobin_project/xml/page_show_error.xml"
</EventTimeout>
<Image>
<State> show_error_normal </State>
<X> 127 </X>
<Y> 688 </Y>
<Filename> Var(DirImage + "/img1.png") </Filename>
</Image>
<Image>
<State> show_error_normal </State>
<X> 0 </X>
<Y> 924 </Y>
<Filename> RandomImage </Filename>
</Image>
;<Image>
;<State> show_error_sp1 </State>
;<X> 0 </X>
;<Y> 897 </Y>
;<Filename> Var(DirImage + "/img1.png") </Filename>
;</Image>
<Image>
<State> show_error_sp1 </State>
<X> 160 </X>
<Y> 724 </Y>
<Filename> Var(DirImage + "/textspiral.png") </Filename>
</Image>
<Image>
<State> show_error_sp1 </State>
<X> 0 </X>
<Y> 1685 </Y>
<Filename> Var(DirImage + "/text2.png") </Filename>
</Image>
<Button>
<X> 990 </X>
<Y> 640 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Var ClickCountMainTe = 0
Open "ROOT/taobin_project/xml/page_show_error.xml"
</EventClick>
</Button>
<Button>
<X> 0 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var countClick = countClick + 1
If countClick = 3 Then
EndIf
If countClick = 10 Then
Var countClick = 0
MainMenu
EndIf
Refresh
</EventClick>
</Button>
<Button>
<X> 250 </X>
<Y> 944 </Y>
<Width> 100 </Width>
<Height> 100 </Height>
<State>SpiralOnlineStage</State>
<Filename> Var(DirImageSpiral + "/bn_vending_machine2.png") </Filename>
<FilenamePress> Var(DirImageSpiral + "/bp_vending_machine2.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If SpiralOnline = "true" Then
Var SetSpiralOnline = 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/spiral/xml/page_catalog_vending_machine.xml"
EndIf
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
</EventClick>
</Button>
<Button>
<X> 870 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Text>
<X> 5 </X>
<Y> 1868 </Y>
<Size> 24 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xDE794E </Color>
<Value> MachineErrorDetailAll </Value>
</Text>
<EventUnitTest6>
PushFile "/sdcard/" "RootManPicture" "scn_240703193755.png"
</EventUnitTest6>
</Page>

View file

@ -80,6 +80,7 @@
Var showShotEnable = "Invisible"
Var ShotCoffeePremium = "Invisible"
Var showOreoAddEnable = "Invisible"
Var CollagenState = "Invisible"
Var showCustomCoffee = "Invisible"
@ -519,6 +520,8 @@
EndIf
EndIf
Var MenuReasonStage = "Invisible"
</EventOpen>
<Timeout> 1000 </Timeout>
@ -783,6 +786,13 @@
EndIf
If MenuReason = "-" Then
Else
Var MenuReasonString = MenuReason
Var MenuReasonStage = "Enable"
EndIf
Refresh
TimerReset
</EventTimeout>
@ -911,7 +921,7 @@
CRLFToSpace showname
CRLFToSpace showdesc
If SugarSoundFlag = 1 Then
If SelectDrinkType = 1 Then
@ -948,7 +958,7 @@
Function 2
</EventClick>
</Button>
@ -1035,6 +1045,9 @@
DEBUGVAR toppingID2index4
DEBUGVAR toppingID2index5
DEBUGVAR toppingID3index1
DEBUGVAR toppingID3index2
DEBUGVAR toppingID6index1
DEBUGVAR toppingID6index2
DEBUGVAR toppingID6index3
@ -1133,6 +1146,49 @@
DEBUGVAR SubMenuGroupIDSlot6_1
DEBUGVAR TOPPING3
If TOPPING3 = "Collagen(mix)" Then
If JemilaToppingFlag = 1 Then
If hot_button_state = "PressForever" Then
Var CollagenState = "Disable"
EndIf
If cold_button_state = "PressForever" Then
If CollagenState = "Invisible" Then
Var CollagenState = "Enable"
EndIf
If CollagenState = "Disable" Then
Var CollagenState = "Enable"
EndIf
EndIf
If blend_button_state = "PressForever" Then
If CollagenState = "Invisible" Then
Var CollagenState = "Enable"
EndIf
If CollagenState = "Disable" Then
Var CollagenState = "Enable"
EndIf
EndIf
If JemilaToppingFreeFlag = 1 Then
Var CollagenToppingBg = "/bg_top_jemila_free.png"
Var CollagenToppingPrice = 0
Else
Var CollagenToppingBg = "/bg_top_jemila.png"
Var CollagenToppingPrice = 5
EndIf
Else
Var CollagenState = "Invisible"
EndIf
Else
Var CollagenState = "Invisible"
Var ShowCollagenOnly = "Invisible"
EndIf
DEBUGVAR CollagenState
Var PriceCustomCoffeeFormat = "%.0f฿"
@ -1354,7 +1410,7 @@
If TOPPING8 = "tampping-espv2" Then
SAVELOG " tampping-espv2 enable"
SAVELOG "tampping-espv2 enable"
Var CustomCoffeeEnable = "True"
Var showCustomCoffee = "Enable"
var showCoffeeTamping = "Enable"
@ -2005,7 +2061,18 @@
Var SugarZeroCalPrice = 10
Var priceFormat = "(+฿%.0f)"
Var SugarZeroCalPriceStr !assigned StringFmt( SugarZeroCalPrice , priceFormat, PreScaleConvertShow)
Var SugarZeroCalState = "Invisible"
Var SugarZeroCalFreeState = "Invisible"
If SugarZeroCalFreeFlag = 1 Then
Var SugarZeroCalFreeState = "Enable"
Var SugarZeroCalPrice = 0
Else
Var SugarZeroCalState = "Enable"
Var SugarZeroCalPriceStr !assigned StringFmt( SugarZeroCalPrice , priceFormat, PreScaleConvertShow)
EndIf
Var SugarNormalCheck = "PressForever"
Else
@ -2068,6 +2135,8 @@
EndIf
; End of UserSeletedSugar = 0
Refresh
Var collagenShow = "true"
@ -2339,12 +2408,7 @@
EndIf
;-END
If TOPPING3 = "Collagen" Then
Var CollagenState = "Enable"
Else
Var CollagenState = "Invisible"
Var ShowCollagenOnly = "Invisible"
EndIf
EndIf
;topping_price_refresh = 0
@ -3811,12 +3875,18 @@
<X> SugarZeroCalPrice_X </X>
<Y> 67 </Y>
<Font> KanitRegularTTF </Font>
<State> "Enable" </State>
<State> SugarZeroCalState </State>
<Size> 28 </Size>
<Color> 0x84776F </Color>
<Value> SugarZeroCalPriceStr </Value>
</Text>
<Image>
<X> SugarZeroCalPrice_X </X>
<Y> 75 </Y>
<State> SugarZeroCalFreeState </State>
<Filename> Var( DirImage + "/free.png" ) </Filename>
</Image>
; sugar1
<Button>
@ -4425,12 +4495,19 @@
<X> SugarZeroCalPrice_X </X>
<Y> 67 </Y>
<Font> KanitRegularTTF </Font>
<State> "Enable" </State>
<State> SugarZeroCalState </State>
<Size> 28 </Size>
<Color> 0x84776F </Color>
<Value> SugarZeroCalPriceStr </Value>
</Text>
<Image>
<X> SugarZeroCalPrice_X </X>
<Y> 75 </Y>
<State> SugarZeroCalFreeState </State>
<Filename> Var( DirImage + "/free.png" ) </Filename>
</Image>
; sugar1
<Button>
@ -4741,12 +4818,19 @@
<X> SugarZeroCalPrice_X </X>
<Y> 67 </Y>
<Font> KanitRegularTTF </Font>
<State> "Enable" </State>
<State> SugarZeroCalState </State>
<Size> 28 </Size>
<Color> 0x84776F </Color>
<Value> SugarZeroCalPriceStr </Value>
</Text>
<Image>
<X> SugarZeroCalPrice_X </X>
<Y> 75 </Y>
<State> SugarZeroCalFreeState </State>
<Filename> Var( DirImage + "/free.png" ) </Filename>
</Image>
; sugar1
<Button>
@ -5535,6 +5619,84 @@
</Row1>
<Row1>
<Width> 986 </Width>
<Height> "auto" </Height>
<State> CollagenState </State>
;
<Image>
<X> 0 </X>
<Y> 0 </Y>
<Filename> Var( DirImage + CollagenToppingBg ) </Filename>
</Image>
;
<Button>
<X> 40 </X>
<Y> 5 </Y>
<State> CollagenState </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_add_jemila.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_add_jemila.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_add_jemila.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press add jemila"
If CollagenState = "Press" Then
Var CollagenState = "Enable"
Else
Var CollagenState = "Press"
EndIf
Function 2
Refresh
</EventClick>
<Animation>
<Style> "shake-text" </Style>
<OnEvent> "OnValueChange" </OnEvent>
</Animation>
</Button>
;
<Button>
<X> 896 </X>
<Y> 14 </Y>
<State> CollagenState </State>
<Mode> "No" </Mode>
<Filename> Var( DirImage + "/cb_notcheck.png" ) </Filename>
<FilenamePress> Var( DirImage + "/cb_checked.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press add jemila"
DEBUGVAR CollagenState
If CollagenState = "Press" Then
Var CollagenState = "Enable"
Else
Var CollagenState = "Press"
EndIf
Function 2
Refresh
</EventClick>
<Animation>
<Style> "shake-text" </Style>
<OnEvent> "OnValueChange" </OnEvent>
</Animation>
</Button>
</Row1>
;
;
@ -7607,11 +7769,23 @@
EndIf
If CollagenState = "Press" Then
Var TOPPING_PRICE = TOPPING_PRICE + CollagenToppingPrice
Var topping3 = toppingID3index2
Var Seeker.UseFreeCollagenTopping = 1
Else
Var topping3 = toppingID3index1
Var Seeker.UseFreeCollagenTopping = 0
EndIf
If SugarZeroCalEnable = "true" Then
If SugarZeroCalOption = "Enable" Then
If SugarZeroCalCheck = "PressForever" Then
Var TOPPING_PRICE = TOPPING_PRICE + SugarZeroCalPrice
Var Seeker.UseFreeSugarZeroCalTopping = 1
Else
Var Seeker.UseFreeSugarZeroCalTopping = 0
EndIf
EndIf
EndIf
@ -7977,6 +8151,16 @@
<Value> "#7"</Value>
</Text>
<Text>
<X> 1 </X>
<Y> 1900 </Y>
<State> MenuReasonStage </State>
<Font> KanitTTF </Font>
<Size> 18 </Size>
<Color> 0xFF0000 </Color>
<Value> MenuReasonString</Value>
</Text>
;

View file

@ -1,237 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
TopView "show"
; On open
If CocktailShow = "true" Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"
EndIf
Var GetPayInfoFlag = 0
Var countDownRetrun = 30
CoinVending OFF
; Clear value
Topping "clear" "-"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/tt_eng/TermTempage2"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3"
Play PlaySoundLag
Else
Var DirImage = "ROOT/taobin_project/image/TermTempage2"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
Play PlaySoundLag
EndIf
Var StrawAutoRelease1 = "false"
Var StrawAutoRelease2 = "false"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;SAVELOG SoundPlaying
If countDownRetrun > 0 Then
Var countDownRetrun = countDownRetrun - 1
EndIf
If countDownRetrun = 0 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Refresh
TimerReset
</EventTimeout>
<EventChangeStatus>
;If ChangeStatus = "payout-end" Then
; Var ChangeOK = 1
;EndIf
</EventChangeStatus>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> "ROOT/termtem_project/video/taobin_adv2.mp4" </Filename>
</Video>
; 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 "ROOT/taobin_project/xml/page_back_to_main.xml"
</EventClick>
</Button>
<Button>
<X> 990 </X>
<Y> 438 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Open CurrentXMLFileName2
</EventClick>
</Button>
<Image>
<X> 70 </X>
<Y> 583 </Y>
<Filename> Var(DirImage + "/text1.png") </Filename>
</Image>
; menu row 1
<Button>
<X> 205 </X>
<Y> 849 </Y>
<Filename> Var(DirImage + "/bn_diy.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_diy.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/termtem_project/xml/page_tt__catalog_choose_drink1.xml"
</EventClick>
</Button>
<Button>
<X> 579 </X>
<Y> 849 </Y>
<Filename> Var(DirImage + "/bn_coffee.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_coffee.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/termtem_project/xml/page_tt__catalog_choose_drink2.xml"
</EventClick>
</Button>
; menu row 2
<Button>
<X> 205 </X>
<Y> 1191 </Y>
<Filename> Var(DirImage + "/bn_tea.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_tea.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/termtem_project/xml/page_tt__catalog_choose_drink3.xml"
</EventClick>
</Button>
<Button>
<X> 579 </X>
<Y> 1191 </Y>
<Filename> Var(DirImage + "/bn_cho_caramel.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_cho_caramel.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/termtem_project/xml/page_tt__catalog_choose_drink4.xml"
</EventClick>
</Button>
<Button>
<X> 205 </X>
<Y> 1533 </Y>
<Filename> Var(DirImage + "/bn_sugar_energy.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_sugar_energy.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/termtem_project/xml/page_tt__catalog_choose_drink7.xml"
</EventClick>
</Button>
<Button>
<X> 579 </X>
<Y> 1533 </Y>
<Filename> Var(DirImage + "/bn_soda.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_soda.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/termtem_project/xml/page_tt__catalog_choose_drink6.xml"
</EventClick>
</Button>
<Button>
<X> 392 </X>
<Y> 424 </Y>
<Filename> Var(DirImage + "/bn_main_page_member.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_main_page_member.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/termtem_project/xml/page_before_check_member.xml"
</EventClick>
</Button>
<Button>
<X> 696 </X>
<Y> 424 </Y>
<Filename> Var(DirImage + "/bn_main_page_topup.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_main_page_topup.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/termtem_project/xml/page_back_to_topup.xml"
</EventClick>
</Button>
</Popup>

Some files were not shown because too many files have changed in this diff Show more