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

13.04.2008, 17:39. **Показов** 18468. **Ответов** 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

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

UDF
		1
	Помогите с кодом! 13.04.2008, 17:39. Показов 18468. Ответов 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