Ошибки в расписании

	ЭлементыПланировщика = ДокументРасписание.Элементы;
	ЭлементыПланировщика.Очистить();
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ЗаписьНаЗанятия.Оборудование,
		|	ЗаписьНаЗанятия.ДатаНачала КАК Начало,
		|	ЗаписьНаЗанятия.ДатаОкончания КАК Конец,
		|	ЗаписьНаЗанятия.Клиент КАК Наименование,
		|	ЗаписьНаЗанятия.Регистратор
		|ИЗ
		|	РегистрСведений.ЗаписьНаЗанятия КАК ЗаписьНаЗанятия
		|ГДЕ
		|	ЗаписьНаЗанятия.ДатаНачала >= &ДатаНачала
		|	И ЗаписьНаЗанятия.ДатаОкончания <= &ДатаОкончания";
	
	
	Запрос.УстановитьПараметр("ДатаНачала", НачалоДня(ВыборДаты));
	Запрос.УстановитьПараметр("ДатаОкончания", КонецДня(ВыборДаты));
	Результат = Запрос.Выполнить().Выбрать();
		
	Пока Результат.Следующий() Цикл
		СоответствиеЗначений = Новый Соответствие;
		СоответствиеЗначений.Вставить("Оборудование",   Результат.Оборудование.Наименование);
		
		НовыйЭлемент = ЭлементыПланировщика.Добавить(Результат.Начало, Результат.Конец);
		НовыйЭлемент.ЗначенияИзмерений	= Новый ФиксированноеСоответствие(СоответствиеЗначений);
		НовыйЭлемент.Текст	= Результат.Наименование;
	КонецЦикла;

&НаСервере
Функция ПолучитьМассивЭлементовПланировщика1(ДатаНач, ДатаКон)
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	               |	Заметки.Ссылка,
	               |	Заметки.Наименование  КАК Текст,
	               |	Заметки.ДатаНачала КАК Начало,
	               |	Заметки.ДатаОкончания КАК Конец
	               |ИЗ
	               |	Справочник.Заметки КАК Заметки
	               |ГДЕ
	               |	Заметки.ДатаНачала >= &ДатаНачала
	               |	И Заметки.ДатаОкончания <= &ДатаОкончания";
	Запрос.УстановитьПараметр("ДатаНачала", ДатаНач);
	Запрос.УстановитьПараметр("ДатаОкончания", ДатаКон);
	Выборка = Запрос.Выполнить().Выбрать();
	
	Возврат Выборка;
КонецФункции

&НаСервере
Функция УстановитьЭлементыПланировщика1()
	
	ДатаНач = НачалоДня(ТекущаяДата());
	ДатаКон = КонецДня(ТекущаяДата());
	Если Заметки.ТекущиеПериодыОтображения.Количество() > 0 Тогда
		Начало = Заметки.ТекущиеПериодыОтображения[0].Начало;
		Конец = Заметки.ТекущиеПериодыОтображения[0].Конец;
	КонецЕсли; 
	ВыборкаЭлементов = ПолучитьМассивЭлементовПланировщика1(Начало, Конец);
	Пока ВыборкаЭлементов.Следующий() Цикл
		Если Заметки.Элементы.Найти(ВыборкаЭлементов.Ссылка) = Неопределено Тогда
			Элемент = Заметки.Элементы.Добавить(ВыборкаЭлементов.Начало, ВыборкаЭлементов.Конец);
			Элемент.Текст = ВыборкаЭлементов.Текст;
			Элемент.Значение = ВыборкаЭлементов.Ссылка;
		КонецЕсли; 
	КонецЦикла; 
КонецФункции

&НаКлиенте
Процедура ДокументРасписаниеПередСозданием(Элемент, Начало, Конец, Значения, Текст, СтандартнаяОбработка)
	СтандартнаяОбработка =Ложь;
	Форма = ПолучитьФорму("Документ.ЗаписьНаЗанятия.Форма.ФормаДокумента");
	ДанныеФормы = Форма.Объект; // Получаем объект формы в переменную
	ДокументРасписаниеПередСозданиемНаСервере(ДанныеФормы); // Заполняем документ на сервере
	КопироватьДанныеФормы(ДанныеФормы, Форма.Объект); // копируем наш объект в объект формы и далее открываем ее
	Форма.Открыть();
КонецПроцедуры

&НаСервере
Процедура ДокументРасписаниеПередСозданиемНаСервере(ДанныеФормы)
	Док = ДанныеФормыВЗначение(ДанныеФормы, Тип("ДокументОбъект.ЗаписьНаЗанятия")); // Получаем объект из данных формы ИЛИ
	Док = Документы.ЗаписьНаЗанятия.СоздатьДокумент();


	ЗначениеВДанныеФормы(Док,ДанныеФормы); // 
КонецПроцедуры

&НаКлиенте
Процедура ВыборДатыПриИзменении(Элемент)
	УстановитьЭлементыПланировщика();
КонецПроцедуры

//////////////СОБЫТИЯ ФОРМЫ////////////////
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	УстановитьЭлементыПланировщика();
	ВыборДаты=ТекущаяДата();
	
	/////////////////ЗАДАЧИ///////////////
	
	ОбновитьЗадачиСервер();
	
	Дата=ТекущаяДата();
	УстановитьЭлементыПланировщика1();
		
	////////////////////////////////////////////////
КонецПроцедуры

&НаКлиенте
Процедура ВыборДатыПриИзменении(Элемент)
	УстановитьЭлементыПланировщика();
КонецПроцедуры

 ПроверитьДоступностьВрача(Начало, Неопределено, Врач, ОтменаРедактирования);