ctrl= @window:'.SCHEDULE' 
	
	Qualifier = 1
	Qualifier<4> = 1 ; * synch
	Qualifier<7> = 0 ; * single params
	call Send_Message(ctrl, 'QUALIFY_EVENT', 'ALL_OLES', Qualifier)


	set_property(ctrl,'View', 'SingelDay')
	set_property(ctrl,'Autosize', 1)
	set_property(ctrl,'Interval', 15)
	set_property(ctrl,'Intervalsize', 16)

	x = 0
	data = ''
	afds = ''
	for i = 1 to 4
		x+=1
		data<x,1> = 'GRP'
		data<x,2> = 1
		data<x,3> = i
		data<x,4> = 'Afd ':i
		for j = 1 to 2
			x+=1
			id =i:j
			data<x,1> = 'ENT'
			data<x,2> = 2
			data<x,3> = id
			data<x,4> = 'Afd ':i:' Collega ':j:'(id=': id:')'
		next
		
	next

	set_property(ctrl, 'OLE.EntityList',data)
	set_property(ctrl, "EntityChecked[All]", 1)
	set_property(ctrl, "EntityChecked[All]", 1)
	set_property(ctrl, "ItemExpanded[All]", 1)