;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