pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

MYS: add promotion Yuzu price 250

Browse source
This commit is contained in:
Pakin 2024-09-16 17:11:48 +07:00
parent ac05554539
commit d55ed66d6e
35 changed files with 15306 additions and 365 deletions
Download patch file Download diff file Expand all files Collapse all files

33
inter/mys/xml/event/event_profile.ev Normal file
View file

@ -0,0 +1,33 @@
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/xml/event/tricker.ev"
Var XMLProfilePreEvent = XMLProfile
DEBUGVAR XMLProfile
STRCONTAIN "PromoYuzu250" XMLProfile HasProYuzu250Concat
STRCONTAIN "PromoReduced" XMLProfile IsProfileReduce
DEBUGVAR HasProYuzu250Concat
DEBUGVAR ProReducedPriceEnable
DEBUGVAR ProYuzu250Enable
If ProReducedPriceEnable = 1 Then
Else
; case-pro-reduce-end
If ProYuzu250Enable = 1 Then
; concat-profile
If HasProYuzu250Concat = "true" Then
Else
If IsProfileReduce = "true" Then
Else
CacheVarStr "put" XMLProfilePreEvent
Var XMLProfile = XMLProfile + "-"
Var XMLProfile = XMLProfile + "PromoYuzu250"
EndIf
EndIf
EndIf
EndIf

2
inter/mys/xml/event/out_put_file1.txt
View file

@ -1 +1 @@
/event/promotion_pepsi_099.lxml
/event/promotion_yuzu_250.lxml

85
inter/mys/xml/event/promotion_onclick1.inc
View file

@ -1,84 +1 @@
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_iced_pepsi.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $-.Price
Var PriceD2 = 99
Var PriceD3 = $12-05-03-0007.Price
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "12-05-02-0007"
Var PD_CODE3 = "12-05-03-0007"
; begin lang
Var aliasName[0] = "PEPSI"
Var aliasDesc[0] = "Pepsi & Ice"
Var aliasName[1] = "เป๊ปซี่น้ำแข็ง"
Var aliasDesc[1] = "เป๊ปซี่"
Var aliasName[2] = "-"
Var aliasDesc[2] = "-"
Var aliasName[3] = "-"
Var aliasDesc[3] = "-"
Var aliasName[4] = "PEPSI"
Var aliasDesc[4] = "Pepsi, Ais"
Var NameLang[0][0] = ""
Var NameLang[0][1] = ""
Var NameLang[0][2] = ""
Var NameLang[0][3] = ""
Var NameLang[0][4] = ""
Var DescLang[0][0] = ""
Var DescLang[0][1] = ""
Var DescLang[0][2] = ""
Var DescLang[0][3] = ""
Var DescLang[0][4] = ""
Var NameLang[1][0] = "PEPSI"
Var NameLang[1][1] = "เป๊ปซี่น้ำแข็ง"
Var NameLang[1][2] = ""
Var NameLang[1][3] = ""
Var NameLang[1][4] = "PEPSI"
Var DescLang[1][0] = "Pepsi, Ice"
Var DescLang[1][1] = "เป๊ปซี่ และน้ำแข็ง"
Var DescLang[1][2] = ""
Var DescLang[1][3] = ""
Var DescLang[1][4] = "Pepsi, Ais"
Var NameLang[2][0] = "TAO SLUSHIE"
Var NameLang[2][1] = "เต่าสลัชชี่"
Var NameLang[2][2] = ""
Var NameLang[2][3] = ""
Var NameLang[2][4] = "TAO SLUSHIE"
Var DescLang[2][0] = "Pepsi, Ice"
Var DescLang[2][1] = "เป๊ปซี่ และน้ำแข็ง"
Var DescLang[2][2] = ""
Var DescLang[2][3] = ""
Var DescLang[2][4] = "Pepsi, Ais"
; end lang
Var PD_STAGE_1 = "Disable2"
Var PD_STAGE_2 = $12-05-02-0007.Button
Var PD_STAGE_3 = $12-05-03-0007.Button
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-0007"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "-"
Else
Topping "Load" "12-05-03-0007"
EndIf
EndIf
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select6.lxml"
Open "ROOT/taobin_project/inter/mys/xml/page_catalog_group_pro_yuzu_250.lxml"

12430
inter/mys/xml/event/promotion_yuzu_250.lxml Normal file
View file

File diff suppressed because it is too large Load diff

51
inter/mys/xml/event/script_common_for_open_promotion_xml.ev
View file

@ -5,36 +5,13 @@
DEBUGVAR FruityRayaEnable
DEBUGVAR ProThaiTeaEnable
DEBUGVAR ProYuzuEnable
Var CountEnablePromotion = 0
Var PromotionState1 = "Invisible"
Var PromotionState2 = "Invisible"
If ProThaiTeaEnable = 1 Then
Var PromotionState1 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
If ProYuzuEnable = 1 Then
Var PromotionState2 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
DEBUGVAR CountEnablePromotion
DEBUGVAR ProYuzu250Enable
If OpenFromPageBoard = 1 Then
; has-ongoing-pro
If CountEnablePromotion >= 1 Then
Var BigButtonEnable = "Enable"
If CountEnablePromotion = 1 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_thai_tea.lxml"
EndIf
If CountEnablePromotion = 2 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/double_promotion_thai_tea_and_yuzu.lxml"
EndIf
If ProYuzu250Enable = 1 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_yuzu_250.lxml"
Var OpenFromPageBoard = 0
Else
@ -42,21 +19,13 @@ If OpenFromPageBoard = 1 Then
EndIf
Else
; has-ongoing-pro
If CountEnablePromotion >= 1 Then
Var BigButtonEnable = "Enable"
; has-ongoing-pro
If ProYuzu250Enable = 1 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_yuzu_250.lxml"
If CountEnablePromotion = 1 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_thai_tea.lxml"
EndIf
If CountEnablePromotion = 2 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/double_promotion_thai_tea_and_yuzu.lxml"
EndIf
Var OpenFromPageBoard = 0
Else
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/page_catalog_group_recommend.lxml"
EndIf
Var OpenFromPageBoard = 0
Else
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/page_catalog_group_recommend.lxml"
EndIf
EndIf
Var OpenFromPageBoard = 0

55
inter/mys/xml/event/tricker.ev
View file

@ -20,6 +20,10 @@ Var FromProThaiTea = 0
Var ProYuzuEnable = 0
Var FromProYuzu = 0
; Yuzu Promo
Var ProYuzu250Enable = 0
Var FromProYuzu250 = 0
; Pro free oreo topping
Var PromotionOreoToppingFreeEnable = 0
@ -40,37 +44,6 @@ Var EnablePayLaterMode = 0
; Slide show Video
Var UseSlideShowVideo = 0
If SystemDateMonthInt = 6 Then
If SystemDateDayInt >= 15 Then
Var ProThaiTeaEnable = 1
Else
Var ProThaiTeaEnable = 0
EndIf
EndIf
If SystemDateMonthInt = 7 Then
Var ProThaiTeaEnable = 1
If SystemDateDayInt >= 15 Then
Var ProYuzuEnable = 1
Else
Var ProYuzuEnable = 0
EndIf
EndIf
If SystemDateMonthInt = 8 Then
If SystemDateDayInt < 31 Then
Var ProThaiTeaEnable = 1
Var ProYuzuEnable = 1
Else
Var ProThaiTeaEnable = 0
Var ProYuzuEnable = 0
Var PromotionOreoToppingFreeEnable = 1
EndIf
EndIf
If SystemDateMonthInt = 9 Then
If SystemDateDayInt < 17 Then
Var PromotionOreoToppingFreeEnable = 1
@ -86,16 +59,29 @@ If SystemDateMonthInt = 10 Then
If SetProReduceByBO = 1 Then
Var ProReducedPriceEnable = 1
EndIf
Var ProYuzu250Enable = 1
EndIf
If SystemDateMonthInt = 11 Then
If SetProReduceByBO = 1 Then
Var ProReducedPriceEnable = 1
EndIf
Var ProYuzu250Enable = 1
EndIf
If SystemDateMonthInt = 12 Then
Var ProYuzu250Enable = 1
EndIf
If SystemDateMonthInt = 1 Then
If SystemDateDayInt < 16 Then
Var ProYuzu250Enable = 1
Else
Var ProYuzu250Enable = 0
EndIf
EndIf
If BoxID = 177746 Then
Var ProThaiTeaEnable = 1
@ -107,6 +93,9 @@ If BoxID = 177746 Then
;Var AdvertiseProfile = "00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00"
Var UseSlideShowVideo = 0
Var ProReducedPriceEnable = 0
Var ProYuzu250Enable = 1
EndIf
If BoxID = 210037 Then
@ -124,4 +113,4 @@ EndIf
;If BoxID = Something Then
; Var EnablePayLaterMode = 1
;
;EndIf
;EndIf