(приложение 4)
Процедура ЗаписатьМеропрятия(ДатаПериода) //КК 6.2.20
Если СпМеропр.КоличествоСтрок()=0 Тогда
Возврат;
КонецЕсли;
ИмяФайла=КаталогИБ()+"czv_td"+ДатаПериода+".dbf";
ЗначениеВФайл(ИмяФайла,СпМеропр,1);
КонецПроцедуры // ЗаписатьМеропрятия
//********************************************************************************************
Процедура ЗагрузитьМероприятия(ДатаПериода) //КК 6.2.20
ИмяФайла=КаталогИБ()+"czv_td"+ДатаПериода+".dbf";
Если ФС.СуществуетФайл(ИмяФайла)=1 Тогда
ВремТабл=ЗначениеИзФайла(ИмяФайла);
СпМеропр.Загрузить(ВремТабл);
Иначе
СпМеропр.УдалитьСтроки();
КонецЕсли;
КонецПроцедуры
//********************************************************************************************
Процедура ИзменитьМесяц(Направление)
...
ЗаписатьМеропрятия(БылМесяц); //КК 6.2.20
ЗагрузитьМероприятия(ДатаПериода); //КК 6.2.20
КонецПроцедуры // ИзменитьМесяц()
//********************************************************************************************
Процедура ПриЗакрытии()
...
ЗаписатьМеропрятия(ДатаПериода); //КК 6.2.20
КонецПроцедуры // ПриЗакрытии
//********************************************************************************************
Процедура ПриОткрытии(Настр)
...
ЗагрузитьМероприятия(ДатаПериода); //КК 6.2.20
КонецПроцедуры // ПриОткрытии