Не дает удалять созданный комплект, и постоянно пишет полное совпадение.

Процедура ПередЗаписью(Отказ)
    ПроверкаЗаписи=Проверка();    
    Если ПроверкаЗаписи=1 тогда
        Отказ = Истина;
        Сообщить("Нельзя сформировать комплект нельзя");
    КонецЕсли;
КонецПроцедуры

Функция Проверка()
    Выборка = Справочники.Партии.Выбрать();
    Пока Выборка.Следующий() цикл
        Флаг=0;
        Флаг1=0;
        Для каждого стр из Выборка.ЭлементыПартии цикл
            флаг1=флаг1+1;
            колстрокВТЧ=0;
            Для каждого ТекующаяСТРТЧ из ЭтотОбъект.ЭлементыПартии цикл
                колстрокВТЧ=колстрокВТЧ+1;
                Если СокрЛП(стр.Номенклатура) = СокрЛП(ТекующаяСТРТЧ.Номенклатура) тогда
                    флаг=флаг+1;
                    Если стр.Количество = ТекующаяСТРТЧ.Количество тогда
                        флаг = флаг + 1;
                    Иначе
                        флаг= флаг-1;
                    КонецЕсли;
                Иначе
                    флаг= флаг-1;
                КонецЕсли;
                Если флаг1=флаг и  флаг1=колстрокВТЧ тогда
                    Сообщить("Полное совпадение комплектов "+Выборка.Ссылка);
                    Возврат 1;
                КонецЕсли;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;
КонецФункции;

Для начала дайте переменным флаг и флаг1 более осмысленные названия

Сколько платят?

Философский код...
Сообщить("Нельзя сформировать комплект нельзя");

А вообще, почему не сделать это запросом?

(3) ты стелепатил что ему нужно?

(4)Запрет сохранения при полном совпадении с уже существующим элементом)) Очевидно же))

(0) Кто так пишет функции?

(3) Текующая это тоже слово с двойным смыслом.

(5) там про удаление написано

(8)При разговоре с девушкой нужно читать между строк.

(9) чорд. думал это парень

(3) >>Сообщить("Нельзя сформировать комплект нельзя");

Интересно, что куда во фразу ни вставь запятую, смысл не меняется

Будет что-нибудь адекватное?

(12) не даёт удалять или не даёт создавать?

не дает удалять

(12) ну может там действительно есть полное совпадение. Вы ведь проверяете весь справочник партии, там может миллионы партий. Хотя бы одна да совпадет.

Так я и создала специально справочник, в котором будет полное совпадение

Ну наверное сначало надо фото.
А затем исключить операцию удаления из проверки?

(16) ну вот, оно и происходит. Оно и должно писать "Полное совпадение комплектов", у вас и пишет.

На самом деле надо исключить сравнение с самим собой

Я не знаю как сделать исключение

Если Выборка.Ссылка = ЭтотОбъект.Ссылка Тогда
    Продолжить;
КонецЕсли;

Если у тебя ЭтотОбъект партия, конечно

(20) начни с фото)

(11) Тебе же сказали - логика женская. а ты опять. Тупой упертый мужик.

(0) Нужно при записи элемента справочника Партии проверить, что уже есть элемент справочника партия с таким же составом в табличной части ЭлементыПартии, так ?

(24) ТС вообще мужик. Написано - пол мужской.

(26) Читай между строк :)