55 lines
878 B
Text
55 lines
878 B
Text
; malaysia
|
|
|
|
|
|
;DEBUGVAR SystemDateMonthInt
|
|
;DEBUGVAR SystemDateDayInt
|
|
|
|
; Reset flag away.
|
|
|
|
Var Propepsi99Enable = 0
|
|
|
|
; FruityRaya Promo
|
|
Var FruityRayaEnable = 0
|
|
Var FromFruityRaya = 0
|
|
|
|
; ThaiTea Promo
|
|
Var ProThaiTeaEnable = 0
|
|
Var FromProThaiTea = 0
|
|
|
|
; Yuzu Promo
|
|
Var ProYuzuEnable = 0
|
|
Var FromProYuzu = 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
|
|
EndIf
|
|
EndIf
|
|
|
|
If BoxID = 177746 Then
|
|
Var ProThaiTeaEnable = 1
|
|
Var ProYuzuEnable = 1
|
|
EndIf
|