Дякую ALEX1C.
Я використала вашу підказку, лише прийшлось мені поміняти один фрагмент , показую нижче де саме , я думаю напевно із-за різниці в конфігурації.
Если ПустоеЗначение(ДатаДокумента) = 1 Тогда
ДатаДокумента = ДатаДок;
КонецЕсли;
ДокЗКП = СоздатьОбъект("Документ.ЗаписьКнигиПриобретения");
ДокЗКП.ВыбратьДокументы(ДатаДокумента, РабочаяДата());
Пока ДокЗКП.ПолучитьДокумент() = 1 Цикл
Если Контрагент <> ДокЗКП.Контрагент Тогда Продолжить; КонецЕсли;
Если ТекущийДокумент().Выбран()=1 Тогда
Если ТекущийДокумент() = ДокЗКП.ТекущийДокумент() Тогда Продолжить; КонецЕсли;
КонецЕсли;
Если (НомерДокумента = ДокЗКП.НомерДокумента) и (ДатаДокумента = ДокЗКП.ДатаДокумента) и (СуммаБезНДС = ДокЗКП.СуммаБезНДС) Тогда
// глКомментарий("По документу "+глДокументВОтчете(Контекст,1,1,"Р")+
//", уже существует документ "+глДокументВОтчете(ДокЗКП.ТекущийДокумент(),1,1,"Р")+" с такой датой и номером!", 0,,"!");
// моя версія
глНеПроводить(Контекст);
Сообщить("уже существует документ с такой датой и номером!");
Возврат;
КонецЕсли;
КонецЦикла;
ДокЗКП = 0;