Помогите с кодом!

13.04.2008, 17:39. **Показов** 18479. **Ответов** 7

Author24 — интернет-сервис помощи студентам

Вот есть такой кусок кода. Надо дописать чтоб программа не давала записывать данные если ИНН повторяется! Как это сделать???

// Список найденных элементов с таким же ИНН.
Список = СоздатьОбъект("СписокЗначений");

Объект = СоздатьОбъект("Справочник.ЮрЛица");
Объект.ВыбратьЭлементыПоРеквизиту("ИНН", ИНН, 0, 1);

// Поиск элементов с таким же ИНН.
Пока Объект.ПолучитьЭлемент(1) = 1 Цикл
Если Объект.ТекущийЭлемент() = ТекущийЭлемент() Тогда
Возврат; // элемент уже был записан
Иначе
Список.ДобавитьЗначение(Объект.ТекущийЭлемент());
КонецЕсли;
КонецЦикла;

// Найдены элементы с таким же ИНН.
Если 0 < Список.РазмерСписка() Тогда
Стр = "В справочнике """+Объект.ПредставлениеВида()+""" уже есть элементы с таким же ИНН1111!";

КонецЕсли;

КонецПроцедуры // ПриИзмененииИНН()

@Zob · 13.04.2008, 19:10

Реально работающий кусок кода:

Код

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

КонецПроцедуры //ПриЗаписи

@Typhoom · 14.04.2008, 09:15

Народ может вам и нравиться работать с циклами и переборами, мне например больше по душе поставить признак отбор по реквизиту и написать такой вот код

Код

спр = создатьобъект("Справочник.Контрагенты");
если спр.найтипореквизиту("ИНН",ИНН) = 1 тогда
..... ругнуться по неуникальности!!!
статусвозврата(0);
конецЕсли;

14.04.2008, 10:59

Надо чтоб он после того как ругнулся на неуникальность ИНН===> очистил это поле или не дал сохранить результат!!!

@Zob · 14.04.2008, 13:20

Сообщение от Typhoon

Народ может вам и нравиться работать с циклами и переборами, мне например больше по душе поставить признак отбор по реквизиту и написать такой вот код

Честно скажу, код не мой, знаю только, что работает, сам таким вопросом задался, пока постил... но разбираться времени небыло. (первое правило программиста: работает, не трогай )

Сообщение от UDF

Надо чтоб он после того как ругнулся на неуникальность ИНН===> очистил это поле или не дал сохранить результат!!!

он так и делает, при попытке записать элемент

PS: а, ну да, не очищает только

PPS: но это, думаю, не будет проблемой самому реализовать? )))

PPPS: Typhoon переборка для того, чтобы себя (текущий элемент) была возможность пропустить, вот

14.04.2008, 13:25

По поводу не будет проблеммой самому реализовать===> Покопался в книжках не могу найти с помощь какого оператора это сделать, ВОТ!!!!
Если Кто знает подскажите!!!!

14.04.2008, 13:58

Сообщение от UDF

По поводу не будет проблеммой самому реализовать===> Покопался в книжках не могу найти с помощь какого оператора это сделать, ВОТ!!!!
Если Кто знает подскажите!!!!

Свой код проверки ставишь в процедуре ПриЗаписи
А для отмены действия (записи) пиши
СтатусВозврата (0)
Для очищения ИНН напиши
ИНН=""; (иль как у тебя реквизит там называется.... )
пример тебе уже приводили

14.04.2008, 16:26

Спасибо помогло!!! ))))

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

UDF
		1
	Помогите с кодом! 13.04.2008, 17:39. Показов 18479. Ответов 7 Метки нет (Все метки) Вот есть такой кусок кода. Надо дописать чтоб программа не давала записывать данные если ИНН повторяется! Как это сделать??? // Список найденных элементов с таким же ИНН. Список = СоздатьОбъект("СписокЗначений"); Объект = СоздатьОбъект("Справочник.ЮрЛица"); Объект.ВыбратьЭлементыПоРеквизиту("ИНН", ИНН, 0, 1); // Поиск элементов с таким же ИНН. Пока Объект.ПолучитьЭлемент(1) = 1 Цикл Если Объект.ТекущийЭлемент() = ТекущийЭлемент() Тогда Возврат; // элемент уже был записан Иначе Список.ДобавитьЗначение(Объект.ТекущийЭлемент()); КонецЕсли; КонецЦикла; // Найдены элементы с таким же ИНН. Если 0 < Список.РазмерСписка() Тогда Стр = "В справочнике """+Объект.ПредставлениеВида()+""" уже есть элементы с таким же ИНН1111!"; КонецЕсли; КонецПроцедуры // ПриИзмененииИНН()

@Typhoom 0 / 0 / 0 Регистрация: 10.05.2004 Сообщений: 209
	14.04.2008, 09:15	3
	Народ может вам и нравиться работать с циклами и переборами, мне например больше по душе поставить признак отбор по реквизиту и написать такой вот код Код спр = создатьобъект("Справочник.Контрагенты"); если спр.найтипореквизиту("ИНН",ИНН) = 1 тогда ..... ругнуться по неуникальности!!! статусвозврата(0); конецЕсли; 0

UDF
	14.04.2008, 10:59	4
	Надо чтоб он после того как ругнулся на неуникальность ИНН===> очистил это поле или не дал сохранить результат!!!

@Zob 0 / 0 / 0 Регистрация: 11.11.2005 Сообщений: 584
	14.04.2008, 13:20	5
	Сообщение от Typhoon Народ может вам и нравиться работать с циклами и переборами, мне например больше по душе поставить признак отбор по реквизиту и написать такой вот код Честно скажу, код не мой, знаю только, что работает, сам таким вопросом задался, пока постил... но разбираться времени небыло. (первое правило программиста: работает, не трогай ) Сообщение от UDF Надо чтоб он после того как ругнулся на неуникальность ИНН===> очистил это поле или не дал сохранить результат!!! он так и делает, при попытке записать элемент PS: а, ну да, не очищает только PPS: но это, думаю, не будет проблемой самому реализовать? ))) PPPS: Typhoon переборка для того, чтобы себя (текущий элемент) была возможность пропустить, вот 0

UDF
	14.04.2008, 13:25	6
	По поводу не будет проблеммой самому реализовать===> Покопался в книжках не могу найти с помощь какого оператора это сделать, ВОТ!!!! Если Кто знает подскажите!!!!

myhoyt922
	14.04.2008, 13:58	7
	Сообщение от UDF По поводу не будет проблеммой самому реализовать===> Покопался в книжках не могу найти с помощь какого оператора это сделать, ВОТ!!!! Если Кто знает подскажите!!!! Свой код проверки ставишь в процедуре ПриЗаписи А для отмены действия (записи) пиши СтатусВозврата (0) Для очищения ИНН напиши ИНН=""; (иль как у тебя реквизит там называется.... ) пример тебе уже приводили

	14.04.2008, 16:26