Пищу проверку на вероятное дублирование доков и выбивает ошибку неизвестная ошибка и указывает на строку Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
////////////////////////////////////////////////////////////
Процедура Выполнить()
ДокПриема=СоздатьОбъект("Документ.ПриказОПриеме");
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|ОбрабатыватьДокументы Все;
|Сотр = Документ.ПриказОПриеме.Сотрудник;
|ДатаПрик = Документ.ПриказОПриеме.ДатаДок;
|ДатаПриема = Документ.ПриказОПриеме.ДатаНачала;
|НомерПриказа = Документ.ПриказОПриеме.НомерПриказа;
|Док=Документ.ПриказОПриеме.ТекущийДокумент;
|НомерДок=Документ.ПриказОПриеме.НомерДок;
|Группировка Сотр;
|Группировка ДатаПрик;
|Группировка НомерПриказа;
|
|)"//}}ЗАПРОС
;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
флаг=0;м=0;р=0;
ДокПриема.ВыбратьДокументы();
Пока ДокПриема.ПолучитьДокумент()>0 Цикл
Пока (Запрос.Группировка("Сотр")=1) Цикл
Если Запрос.Сотр=ДокПриема.ТекущийДокумент().Сотрудник Тогда
флаг=флаг+1;
КонецЕсли;
КонецЦикла;
Пока (Запрос.Группировка("ДатаПрик")=1) Цикл
Если Запрос.ДатаПрик=ДокПриема.ТекущийДокумент().ДатаДок Тогда
м=м+1;
КонецЕсли;
КонецЦикла;
Пока (Запрос.Группировка("НомерПриказа")=1) Цикл
Если Запрос.НомерПриказа=ДокПриема.ТекущийДокумент().НомерПриказа Тогда
р=р+1;
КонецЕсли;
КонецЦикла;
// КонецЦикла;
Если (м>1) и (р>1) и (флаг>1) Тогда
сообщить("Возможен дубликат документа "+Запрос.НомерДок+" Дубликат по дате"+ Запрос.ДатаПрик+" Сотруднику,номеру приказа");
КонецЕсли;
КонецЦикла;
КонецПроцедуры
так вообще можно проверить на вероятное дублирование, а то что то мне кажется не так
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой