Открытие периода оперативных итогов
// Открытие периода
ДатаТА = ПолучитьДатуТА();
Если (РабочаяДата() > ДатаТА) И
((ДатаМесяц(ДатаТА) <> ДатаМесяц(РабочаяДата())) ИЛИ
(ДатаГод(ДатаТА) <> ДатаГод(РабочаяДата()))) Тогда
Если МонопольныйРежим() = 0 Тогда
Ответ=Вопрос(“Не открыт период!” + РазделительСтрок + “Для открытия периода запустите программу в монопольном режиме!” + РазделительСтрок + “Завершить работу программы?”,“Да+Нет”);
Если Ответ=“Да” Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
Иначе // монопольный режим
Ответ=Вопрос(“Не открыт период!”+ РазделительСтрок +“Выполнить открытие& ;периода?”,“Да+Нет”);
Если Ответ=“Да” Тогда
УстановитьТАНа(РабочаяДата());
КонецЕсли;
КонецЕсли;
КонецЕсли;
| 
опубликовано: 9 Июль 2007, 21:06