&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
	Если ПараметрКоманды = Неопределено Тогда
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Не выбран день";
		Сообщение.Сообщить();
	Иначе
		ЗаполнитьРасписаниеСОпределённогоДня(ПараметрКоманды);
		ОповеститьОбИзменении(ПараметрКоманды);
	КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьРасписаниеСОпределённогоДня(ВыбранныйДокумент)
	НачалоНеделиПоДокументу = НачалоНедели(ВыбранныйДокумент.Дата);

	НачалоСледующейНедели = НачалоНедели(ТекущаяДатаСеанса()) + 60 * 60 * 24 * 7;

	Для КоличествоДобавляемыхДней = 0 По 4 Цикл
		ДатаСтарого = НачалоНеделиПоДокументу + 60 * 60 * 24 * КоличествоДобавляемыхДней;
		НомерСтарого = Серверный.ПолучитьНомер(ДатаСтарого);

		СтарыйДокумент = Документы.УчебныйДень.НайтиПоНомеру(НомерСтарого);

		Если СтарыйДокумент.Пустая() Тогда
			Сообщение = Новый СообщениеПользователю;
			Сообщение.Текст = "На " + Формат(ДатаСтарого, "ДФ='д ММММ гггг, дддд'") + " нет учебного дня.";
			Сообщение.Сообщить();

			Продолжить;
		КонецЕсли;

		ДатаНового = НачалоСледующейНедели + 60 * 60 * 24 * КоличествоДобавляемыхДней;
		НомерНового = Серверный.ПолучитьНомер(ДатаНового);

		Если Документы.УчебныйДень.НайтиПоНомеру(НомерНового).Пустая() Тогда
			НовыйДокумент = Документы.УчебныйДень.СоздатьДокумент();
			НовыйДокумент.Дата = ДатаНового;
			Для Каждого СтрокаСтарого Из СтарыйДокумент.Уроки Цикл
				НоваяСтрока = НовыйДокумент.Уроки.Добавить();
				НоваяСтрока.Предмет = СтрокаСтарого.Предмет;
			КонецЦикла;

			НовыйДокумент.Записать();
		Иначе
			Сообщение = Новый СообщениеПользователю;
			Сообщение.Текст = "Уже есть учебный день " + Формат(ДатаСтарого, "ДФ='д ММММ гггг, дддд'");
			Сообщение.Сообщить();
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры