powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Уникальность кодов справочника Контрагенты
12 сообщений из 12, страница 1 из 1
Уникальность кодов справочника Контрагенты
    #37790229
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем, здравствуйте! Перегружаю контрагентов в 1С 8.2. Создал группу "Тест", код "02". При загрузке некоторого количества контрагентов, генерируется исключение "Неуникальный код...". Контроль уникальности включен, тип кода - строка. При автоматическом создании элемента справочника, генерируется код вида "хххх1" и т.д., хотя в других группах код имеет числовой вид. Подскажите где настраивается вид генерируемого кода и как мне выйти из этой ситуации? Спасибо за помощь.
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37790372
The Dim!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Как "перегружаю контрагентов в 1С 8.2" - конвертация, COM....
2. Уникальность кодов - по группам или на весь справочник, длинна кода. Цифровой/символьный - и там и там.
3. Номер переносится или генерится новый....
4. Что происходит с теми контрагентами, которые уже в 8-рке есть... ?
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37792100
WKBAPKA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
отключи контроль уникальности, увидишь что тебе за коды наперегрузились, потом обработкой возьмешь и перекодируешь... делов то
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37792102
WKBAPKA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Gennadiy83Всем, здравствуйте! Перегружаю контрагентов в 1С 8.2. Создал группу "Тест", код "02". При загрузке некоторого количества контрагентов, генерируется исключение "Неуникальный код...". Контроль уникальности включен, тип кода - строка. При автоматическом создании элемента справочника, генерируется код вида "хххх1" и т.д., хотя в других группах код имеет числовой вид. Подскажите где настраивается вид генерируемого кода и как мне выйти из этой ситуации? Спасибо за помощь.

но если у тебя контроль установлен в пределах всего справочника и ты действительно создал группу с кодом "02", а длина кода, например, 8 символов, тогда ты просто сбил нумерацию...после создания группы с кодом "02" ты оставил системе только два символа для автоматической нумерации... т.е. до 99
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37792465
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Проблему решил, изменив уникальность кодов в пределах подчиненности, а не всего справочника! Оказалось, что коды необходимо перегружать из внешней программы, а не генерировать, как делал я. Спасибо всем за участие)
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37794046
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Обнаружил непонятное поведение программы. Если создаю контрагентов по одному (на моей форме таблица, отмечаю флагом требуемого контрагента), то адрес сохраняется как надо. Если загружаю два и более контрагента, то практически у всех юридический адрес не сохраняется, хотя соответствующая строка формируется верно. В отладчике все условия выполняются также как и в случае одного контрагента.

Код формирования ЮрАдреса:
//выше заполняю реквизиты контрагента
ЭлКонтрагент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;
ЭлКонтрагент.Записать();
ЭлКотрагент.ГоловнойКонтрагент = ЭлементКонтрагент.Ссылка; //убираю флаг "Входит в холдинг"
ЭлементКонтрагент.Записать();

//ЮРИДИЧЕСКИЙ АДРЕС
ЗаписьЮР = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
ЗаписьЮРАдрес = ЗаписьЮР.Добавить();
ЗаписьЮРАдрес.Объект = ЭлементКонтрагент.Ссылка;
ЗаписьЮРАдрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
ЗаписьЮРАдрес.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
адресСтр = Строка(Формат(Число(строкаТаблЗнач.Индекс), "ЧГ=0")) + ", " + строкаТаблЗнач.Наим_Страны + ", " + строкаТаблЗнач.Адрес;

ЗаписьЮРАдрес.Представление = СокрЛП(адресСтр);
ЗаписьЮР.Записать();

Спасибо за помощь!
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37794131
The Dim!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gennadiy83ЭлКонтрагент.Записать();
ЭлКотрагент.ГоловнойКонтрагент = ЭлементКонтрагент.Ссылка; //убираю флаг "Входит в холдинг"
ЭлементКонтрагент.Записать();
И что, вы хотите сказать, что этот код работает? Тут как минимум обращение к разным объектам... ну или у го-то копипаст не рабоатет ;)

Gennadiy83//ЮРИДИЧЕСКИЙ АДРЕС
ЗаписьЮР = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
ЗаписьЮРАдрес = ЗаписьЮР.Добавить();
ЗаписьЮРАдрес.Объект = ЭлементКонтрагент.Ссылка;
ЗаписьЮРАдрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
ЗаписьЮРАдрес.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
адресСтр = Строка(Формат(Число(строкаТаблЗнач.Индекс), "ЧГ=0")) + ", " + строкаТаблЗнач.Наим_Страны + ", " + строкаТаблЗнач.Адрес;

ЗаписьЮРАдрес.Представление = СокрЛП(адресСтр);
ЗаписьЮР.Записать();

Спасибо за помощь!
А какого поведения вы ждете от этого кода - где цикл или как вы там контрагентоВ перебираете?
Рискну предположить, что на каждой итерации вы создаете набор записей - ну так ничего удивительного в этом тогда нет, адрес, небось, последнего контрагента сохраняется?
Так учитесь работать с регистрам сведений, а когда научитесь, будите знать, что набор записей записывается после того, как все записи будет в него добавлены, ну или отборы используйте. Вы же так перезаписываете ВЕСЬ РС.
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37794178
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[quot The Dim!]Gennadiy83ЭлКонтрагент.Записать();
ЭлКотрагент.ГоловнойКонтрагент = ЭлементКонтрагент.Ссылка; //убираю флаг "Входит в холдинг"
ЭлементКонтрагент.Записать();
И что, вы хотите сказать, что этот код работает? Тут как минимум обращение к разным объектам... ну или у го-то копипаст не рабоатет ;)

Прошу прощения, здесь я ошибся в описании. Код выглядит так, т.е. работаю с одним объектом:

ЭлКонтрагент.Записать();
ЭлКотрагент.ГоловнойКонтрагент = ЭлКонтрагент.Ссылка; //убираю флаг "Входит в холдинг"
ЭлементКонтрагент.Записать();

А вторую часть, где идет работа с адресом, действительно скопировал.
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37794213
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не понимаю каким образом правильно работать с адресами контрагента
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37794243
The Dim!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не с адресами а с регистрами сведений.
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37794346
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите, как правильно программно заполнять адрес контрагента.
...
Рейтинг: 0 / 0
Уникальность кодов справочника Контрагенты
    #37794419
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В сети обнаружил такой вариант:

НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Объект.Установить(Контрагент);
НаборЗаписей.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.Адрес);
НаборЗаписей.Отбор.Вид.Установить(Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента);

Запись = НаборЗаписей.Добавить();
Запись.Объект = Контрагент;
Запись.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
Запись.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
Запись.Представление = Адрес;
НаборЗаписей.Записать();

по логике рабочий. Т.е. выборка записей по контрагенту, добавление записи
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Уникальность кодов справочника Контрагенты
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]