книга Решение расчетных задач не хватает памяти

////СамаКнопка
Процедура КоманднаяПанельКалендаряЗаполнитьНажатие(Элемент)

Если ЭтоНовый() Тогда
Предупреждение("Перед заполнением график необходимо записать!");
Возврат
КонецЕсли;
ИнтервалПоказа = Новый НастройкаПериода();
ИнтервалПоказа.ДатаНачала = Календарь.Отбор.Дата.ЗначениеС;
ИнтервалПоказа.ДатаОкончания = Календарь.Отбор.Дата.ЗначениеПо;
ИнтервалПоказа.ВариантНачала = ВариантГраницыИнтервала.КонкретнаяДата;
ИнтервалПоказа.ВариантОкончания = ВариантГраницыИнтервала.КонкретнаяДата;
//Вызываем диалог длч выбора интервала
Если ИнтервалПоказа.Редактировать() Тогда
ЗаполнитьКалендарьЗаИнтервал(ИнтервалПоказа);
Иначе
Возврат;
КонецЕсли;
КонецПроцедуры

/////ОстальныеПроцедуры в этой же форме

Процедура ЗаполнитьКалендарьЗаИнтервал(Интервал) Экспорт
сДлинаСуток =86400; //в секундах
ДатаНачалаИнтервала = Интервал.ПолучитьДатуНачала();
ДатаОкончанияИнтервала = Интервал.ПолучитьДатуОкончания();
ТекущийДень = датаНачалаИнтервала;
НаборЗаписейКалендарь = РегистрыСведений.ГрафикРаботы.СоздатьНаборЗаписей();
НаборзаписейКалендарь.Отбор.ГрафикРаботы.Установить(Ссылка);
НаборЗаписейКалендарь.Прочитать();
ЗаписейВНаборе = НаборЗаписейКалендарь.Количество()-1;
Для инд = 0 по ЗаписейВНаборе Цикл
ДеньКалендаря = НаборзаписейКалендарь[инд];
Если ДеньКалендаря.Дата < ДатаНачалаИнтервала Тогда
Продолжить
ИначеЕсли ДеньКалендаря.Дата = Текущийдень Тогда
Если ДеньЯвляетсяРабочим(ТекущийДень) Тогда
ДеньКалендаря.значение = 1;

Иначе ДеньКалендаря.Значение = 0;
КонецЕсли;
текущийДень = ТекущийДень+сДлинаСуток;
Иначе
Пока ТекущийДень < Мин(ДеньКалендаря.Дата,ДатаОкончанияИнтервала) Цикл
НовыйДень = НаборЗаписейКалендарь.Добавить();
НовыйДень.ГрафикРаботы = Ссылка;
НовыйДень.Дата =ТекущийДень;
Если ДеньЯвляетсяРабочим(ТекущийДень) Тогда
НовыйДень.Значение = 1;
Иначе
НовыйДень.Значение = 0;
КонецЕсли;
ТекущийДень = текущийдень+сДлинаСуток;
КонецЦикла;
Если ДеньКалендаря.Дата > ДатаОкончанияИнтервала Тогда
Прервать
ИначеЕсли ДеньЯвляетсярабочим(ТекущийДень) Тогда
ДеньКалендаря.Значение = 1;
Иначе
ДеньКалендаря.Значение = 0;
КонецЕсли;
ТекущийДень = ТекущийДень+сДлинаСуток;
КонецЕсли;
КонецЦикла;// по записям набора
Пока ТекущийДень < ДатаОкончанияИнтервала Цикл
НовыйДень = НаборЗаписейКалендарь.Добавить();
НовыйДень.ГрафикРаботы = Ссылка;
Если деньЯвляетсярабочим(ТекущийДень) Тогда
НовыйДень.Значение = 1;
Иначе
НовыйДень.Значение = 0;
КонецЕсли;
НовыйДень = ТекущийДень+сДлинаСуток;
КонецЦикла;
КонецПроцедуры

///////////////////
Процедура ИзменитьИнтервалПоказаКалендаря(Кнопка)

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

Функция ДеньЯвляетсяРабочим(ПроверяемаяДата)
Возврат ?(Найти(ВыходныеДни,Строка(деньнедели(ПроверяемаяДата))) >0,Ложь,Истина);
КонецФункции

///////////////////
Процедура ДниНеделиПриИзмененииПометки(Элемент)
ЭлементСписка = Элемент.ТекущаяСтрока;
Если ЭлементСписка.Пометка Тогда
Если Найти(ВыходныеДни,ЭлементСписка.Значение) = 0 Тогда
ВыходныеДни = ВыходныеДни + ЭлементСписка.Значение;
КонецЕсли;
Иначе
ВыходныеДни = СтрЗаменить(ВыходныеДни,ЭлементСписка.Значение,"");
КонецЕсли;
КонецПроцедуры

//////////////////////
ПРоцедура УстановитьОтборВКалендаре(ДатаНачалаИнтервалаКалендаря,ДатаОкончанияКалендаря)

Календарь.Отбор.Дата.ЗначениеС = ДатаНачалаИнтервалаКалендаря;
Календарь.Отбор.Дата.ЗначениеПо = ДатаОкончанияКалендаря;
Если НЕ ЗначениеЗаполнено(ДатаНачалаИнтервалаКалендаря) и НЕ ЗначениеЗаполнено(ДатаОкончанияКалендаря) Тогда
Календарь.Отбор.Дата.Использование = Ложь;
Иначе
Если НЕ ЗначениеЗаполнено(ДатаНачалаИнтервалаКалендаря) Тогда
Календарь.Отбор.Дата.ВидСравнения = ВидСравнения.МеньшеИЛИРавно;
ИначеЕсли Не ЗначениеЗаполнено(ДатаОкончанияКалендаря) Тогда
Календарь.Отбор.Дата.ВидСравнения = ВидСравнения.БольшеИлиРавно;
Иначе
Календарь.Отбор.Дата.ВидСравнения = ВидСравнения.ИнтервалВключаяГраницы;
КонецЕсли;
Календарь.Отбор.Дата.Использование = Истина;
КонецЕсли;

КонецПроцедуры
/////////////////////////

Процедура ПриОткрытии()
ТекущийДень = НачалоНедели(ТекущаяДата());// начнем с понедельника
сДлинаСуток = 86400; //в секундах
Для Сч = 1 по 7 Цикл
НазваниеДняНедели = Формат(ТекущийДень,"ДФ=дддд");
ДниНедели.Добавить(Строка(ДеньНедели(ТекущийДень)),Врег(Лев(НазваниеДняНедели,1))+Сред(НазваниеДняНедели,2));
ТекущийДень = ТекущийДень + сДлинаСуток;
КонецЦикла;

// расставляем пометки для выходных дней графика

Для Сч=1 ПО СтрДлина(ВыходныеДни) Цикл
ДниНедели.НайтиПоЗначению(Сред(ВыходныеДни,Сч,1)).Пометка = Истина;
КонецЦикла;

//Выставляем отбор в списке дней календаря(регистр сведений)
//отбираем дни нашего графика

Календарь.Отбор.ГрафикРаботы.Установить(Ссылка);

//отбираем дни текущего месяца
УстановитьОтборВКалендаре(НачалоМесяца(ТекущаяДата()),КонецМесяца(ТекущаяДата()));
КонецПроцедуры