55 lines
1 KiB
Text
55 lines
1 KiB
Text
|
|
|
|
;DEBUGVAR SystemDateMonthInt
|
|
;DEBUGVAR SystemDateDayInt
|
|
|
|
Var OreoDueEnable = 0
|
|
If SystemDateMonthInt = 5 Then
|
|
If SystemDateDayInt = 6 Then
|
|
Var OreoDueEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 7 Then
|
|
Var OreoDueEnable = 1
|
|
EndIf
|
|
|
|
If SystemDateDayInt = 13 Then
|
|
Var OreoDueEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 14 Then
|
|
Var OreoDueEnable = 1
|
|
EndIf
|
|
|
|
|
|
If SystemDateDayInt = 20 Then
|
|
Var OreoDueEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 21 Then
|
|
Var OreoDueEnable = 1
|
|
EndIf
|
|
|
|
|
|
If SystemDateDayInt = 27 Then
|
|
Var OreoDueEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 28 Then
|
|
Var OreoDueEnable = 1
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
DEBUGVAR OreoDueEnable
|
|
If OreoDueEnable = 0 Then
|
|
Var $12-03-03-0009-alter.Button = "Invisible"
|
|
Else
|
|
Var $12-03-03-0009-alter.Button = "Enable"
|
|
|
|
EndIf
|
|
|
|
|
|
Var $12-03-03-0009-alter.Price = 70
|
|
|
|
Var $12-03-03-0009-alter.NameE = $12-03-03-0009.NameE
|
|
Var $12-03-03-0009-alter.descriptionE = $12-03-03-0009.descriptionE
|
|
Var $12-03-03-0009-alter.Name = $12-03-03-0009.Name
|
|
Var $12-03-03-0009-alter.description = $12-03-03-0009.description
|
|
|