Проверка уникальности наименования

@Милагрес · Регистрация: 19.10.2012

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

Здравствуйте, я новичок в программировании 1С. Напишите, пожалуйста, как выполнить пункт 1.1.3.

Разработать учебную настройку сладского учета. Разработка должна вестись "с нуля", т.е. создать новую конфигурацию.

1.Справочники
1.1.1. Основное представление в виде наименования(длина 100)
1.1.2. Реквизиты
Цена(15.2) - тут я не понял что значить 15.2?
1.1.3. Перед записью элемента справочника проверять уникальность наименования, если наименование не уникально, запись производится на должна с выдачей соответствующего сообщения

@Dethmontt · 19.10.2012, 22:07

тип числа длинна 15 точность 2
В процедуре ПередЗаписью проверять Запросом есть ли элемент справочника с таким же наименованием если есть передавать параметру ОТКАЗ значение ИСТИНА.

@duk337 · 20.10.2012, 00:56

Запросом - надо приводить строки. Лучше

1C
1
Отказ=НЕ (Неопределено=Справочник.Наименования.НайтиПоНаименованию(Нименование));

@Dethmontt · 20.10.2012, 03:11

Тогда уж хотя бы так...

1C
1
Отказ=НЕ (Справочники.Наименования.ПустаяСсылка()=Справочники.Наименования.НайтиПоНаименованию(СокрЛП(Нименование),Истина));

@Милагрес · 21.10.2012, 18:09 **[ТС]**

Спасибо большое. Вы мне очень помогли. Код работает)

12.12.2012, 16:15

Всем привет, а если к этому коду еще добавить проверку по реквизиту как это реализовать?

@Милагрес · 12.12.2012, 21:20 **[ТС]**

я сделала это задание так:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Процедура ПередЗаписью(Отказ)
Запрос= Новый Запрос;
Запрос.УстановитьПараметр("Наименование",Наименование);
Запрос.Текст= "ВЫБРАТЬ 
| Товары.Наименование 
|ИЗ 
| Справочник.Товары КАК Товары 
|ГДЕ 
| Товары.Наименование = &Наименование"; 
Поиск = Запрос.Выполнить().Выбрать(); 
Пока Поиск.Следующий() Цикл 
Предупреждение("Данная наименование уже присутствует в базе!"); 
Отказ = ИСТИНА; 
Прервать; 
КонецЦикла; 
КонецПроцедуры

@Dethmontt · 13.12.2012, 00:21

Сообщение от Милагрес

я сделала это задание так:
Процедура ПередЗаписью(Отказ)
Запрос= Новый Запрос;
Запрос.УстановитьПараметр("Наименование" ,Наименование);
Запрос.Текст= "ВЫБРАТЬ
| Товары.Наименование
|ИЗ
| Справочник.Товары КАК Товары
|ГДЕ
| Товары.Наименование = &Наименование";
Поиск = Запрос.Выполнить().Выбрать();
Пока Поиск.Следующий() Цикл
Предупреждение("Данная наименование уже присутствует в базе!");
Отказ = ИСТИНА;
Прервать;
КонецЦикла;
КонецПроцедуры

А если потребуется что то изменить в номенклатуре (кроме наименования) то как ее потом записать? она же найдет сама себя в базе =))

Добавлено через 1 минуту
Но ваш код намного лучше

Чем этот:

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

Тогда уж хотя бы так...
Код 1C
Отказ=НЕ (Справочники.Наименования.ПустаяСсылка() =Справочники.Наименования.НайтиПоНаимено ванию(СокрЛП(Нименование),Истина));

@duk337 · 14.12.2012, 12:51

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

|ГДЕ
| Товары.Наименование = &Наименование";

Может не сравниться. В запросе критична длина строки.

@Dethmontt · 14.12.2012, 13:07

Это побеждается СОКРЛП()

@ArturiosBoss · 06.12.2016, 15:27

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

А если потребуется что то изменить в номенклатуре (кроме наименования) то как ее потом записать? она же найдет сама себя в базе =))

Тут на самом деле всё просто если использовать запрос от уважаемой Милагрес будет и проверять уникальность и изменять запись

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Процедура ПередЗаписью(Отказ)
    // Вставить содержимое обработчика.
Если ЭтоНовый() Тогда
 
Запрос= Новый Запрос;
Запрос.УстановитьПараметр("Наименование",Наименование);
Запрос.Текст= "ВЫБРАТЬ
|   Сотрудники.Наименование
|ИЗ
|   Справочник.Сотрудники КАК Сотрудники
|ГДЕ
|   Сотрудники.Наименование = &Наименование" ;
Поиск = Запрос.Выполнить().Выбрать(); 
Пока Поиск.Следующий() Цикл 
Предупреждение("Данная наименование уже присутствует в базе!"); 
Отказ = ИСТИНА; 
Прервать; 
КонецЦикла; 
КонецЕсли;
    // если объект не новый, то сохраним изменения для потомков
    ВыборкаДоЗаписи=Неопределено;
    
    Если НЕ ЭтоНовый() Тогда
        Запрос=Новый Запрос("ВЫБРАТЬ * ИЗ Справочник.Сотрудники ГДЕ Ссылка=&Ссылка");
        Запрос.УстановитьПараметр("Ссылка",Ссылка);
        ВыборкаДоЗаписи=Запрос.Выполнить().Выбрать(); ВыборкаДоЗаписи.Следующий();
    КонецЕсли;
 
КонецПроцедуры

@Dethmontt · 06.12.2016, 17:19

Не по теме:

ArturiosBoss, с 2012 года

@ArturiosBoss · 06.12.2016, 21:02

Не по теме:

ничего страшного кому-то пригодиться, тем более ответа адекватного не было на ваш вопрос

@Joker_vad · 09.12.2016, 14:25

ArturiosBoss, ваш ответ более чем не адекватный. Если я поменяю наименование уже созданного элемента на то, которое уже есть в базе, то ваш код отработает не так как нужно.

1C
1
2
3
4
5
Если НЕ ЭтоНовый() Тогда Запрос=Новый Запрос("ВЫБРАТЬ * ИЗ Справочник.Сотрудники ГДЕ Ссылка=&Ссылка");
 Запрос.УстановитьПараметр("Ссылка",Ссылка);
 ВыборкаДоЗаписи=Запрос.Выполнить().Выбрать(); 
ВыборкаДоЗаписи.Следующий(); 
КонецЕсли;

А вот этот участок кода призван нагрузить систему и все!

@Dethmontt · 09.12.2016, 23:48

Joker_vad,

ArturiosBoss,

@DIPopov · 22.11.2017, 09:59

Объясните други то как лучше всего сделать.

@Joker_vad · 22.11.2017, 11:44

Не по теме:

Некропостер)

Знакомое ТЗ, у нас такое же на приеме на работу, один из первых пунктов.

Перед записью, проверять есть ли такое же наименование в базе. Причем нужно проверить так чтобы, он самого себя не находил, если элемент уже записан и его нужно будет подредактировать. Никаких условий на новый объект не нужно, т.к элемент может быть перезаписан.

@юхимчик · 19.02.2024, 15:57

это все прекрасно .. А если есть еще табличная часть и там 2 реквизита? один на основаниии другого справочника и один реквизит строка???

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Old Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

@Милагрес 0 / 0 / 0 Регистрация: 19.10.2012 Сообщений: 8

	1C 8.x Проверка уникальности наименования 19.10.2012, 20:58. Показов 46015. Ответов 17 Метки нет (Все метки) Здравствуйте, я новичок в программировании 1С. Напишите, пожалуйста, как выполнить пункт 1.1.3. Разработать учебную настройку сладского учета. Разработка должна вестись "с нуля", т.е. создать новую конфигурацию. 1.Справочники 1.1.1. Основное представление в виде наименования(длина 100) 1.1.2. Реквизиты Цена(15.2) - тут я не понял что значить 15.2? 1.1.3. Перед записью элемента справочника проверять уникальность наименования, если наименование не уникально, запись производится на должна с выдачей соответствующего сообщения 0

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,703 Записей в блоге: 1
	19.10.2012, 22:07
	тип числа длинна 15 точность 2 В процедуре ПередЗаписью проверять Запросом есть ли элемент справочника с таким же наименованием если есть передавать параметру ОТКАЗ значение ИСТИНА. 1

@Милагрес 0 / 0 / 0 Регистрация: 19.10.2012 Сообщений: 8
	21.10.2012, 18:09 [ТС]
	Спасибо большое. Вы мне очень помогли. Код работает) 0

semen9
	12.12.2012, 16:15
	Всем привет, а если к этому коду еще добавить проверку по реквизиту как это реализовать?

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,703 Записей в блоге: 1
	14.12.2012, 13:07
	Это побеждается СОКРЛП() 0

@Dethmontt
	06.12.2016, 17:19
	Не по теме: ArturiosBoss, с 2012 года 0

@ArturiosBoss
	06.12.2016, 21:02
	Не по теме: ничего страшного кому-то пригодиться, тем более ответа адекватного не было на ваш вопрос 0

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,703 Записей в блоге: 1
	09.12.2016, 23:48
	Joker_vad, ArturiosBoss, 0

@DIPopov 0 / 0 / 0 Регистрация: 21.11.2017 Сообщений: 1
	22.11.2017, 09:59
	Объясните други то как лучше всего сделать. 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,922
	22.11.2017, 11:44
	Не по теме: Некропостер) Знакомое ТЗ, у нас такое же на приеме на работу, один из первых пунктов. Перед записью, проверять есть ли такое же наименование в базе. Причем нужно проверить так чтобы, он самого себя не находил, если элемент уже записан и его нужно будет подредактировать. Никаких условий на новый объект не нужно, т.к элемент может быть перезаписан. 0

@юхимчик 0 / 0 / 0 Регистрация: 18.06.2017 Сообщений: 5
	19.02.2024, 15:57
	это все прекрасно .. А если есть еще табличная часть и там 2 реквизита? один на основаниии другого справочника и один реквизит строка??? 0