[mari]

ЯК контролювати(запобігти) два рази введення одного і того запису книги придбання ?
контроль номера документа(номер податкової накладної поставщика), або попередження про повторний ввід документа,
щоб запобігти два рази введенню одного і того ж документа

[alex1c]

Я вот так это решил...

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

[mari]

Дякую ALEX1C.
Я використала вашу підказку, лише прийшлось мені поміняти один фрагмент , показую нижче де саме , я думаю напевно із-за різниці в конфігурації.

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

[Batchir]

При вставке кода используйте соответсвующие теги