- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
Функция ПроверкаОснДаты(Конт,Текст) Экспорт
Попытка Дат=Конт.ДатаОперации;
Исключение
Попытка Дат=Конт.ДатаДок;
Исключение Дат=''; КонецПопытки;
КонецПопытки;
Если Дат<Константа.ОснДатаГл Тогда
ДействиеНеВыполнено(Шаблон("[Текст]. Период закрыт"));
КонецЕсли;
Возврат СтатусВозврата();
КонецФункции
// 500 строк
Исключение
Сообщение("Данная услуга для Вас недоступна!")
* несколько попыток вместо проверки типов/наличия реквизитов
* имя ОснДатаГл - не соответствует стандарту
* комментарии где?
2) Да. Но в 7.7 и в типовых много что стандарту не соответствует. Мелочь.
3) Тут и так все понятно.