Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВАШДОКУМЕНТ.Ссылка) КАК Колво
|ИЗ
| Документ.ВАШДОКУМЕНТ КАК ВАШДОКУМЕНТ
|ГДЕ
| ВАШДОКУМЕНТ.Дата МЕЖДУ &НачалоДня И &КонецДня
|";
Запрос.УстановитьПараметр("НачалоДня", НачалоДня(Дата));
Запрос.УстановитьПараметр("КонецДня", КонецДня(Дата));
Результат = Запрос.Выполнить();
Если НЕ Результат.Пустой() Тогда // раз есть результат значит уже есть документ
Выборка = Результат.Выбрать();
Выборка.Следующий();
Сообщить("В этот день уже есть "+Строка(Выборка.Колво)+" документов.");
Отказ = Истина;
Возврат;
КонецЕсли;
КонецПроцедуры
Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| ВАШДОКУМЕНТ.Ссылка
Выборка = Результат.Выбрать();
Выборка.Следующий();
Если Результат.Пустой() Тогда
Если Результат.Пустой() Тогда
//ничего не происходит, можно
Сообщить("Документов нет");
Иначе
Выборка = Результат.Выбрать();
Выборка.Следующий();
Сообщить("В этот день уже есть "+Строка(Выборка.Колво)+" документов.");
КонецЕсли;