запросом отобрал все адреса контрагента
запрос = Новый запрос;
      запрос.Текст = "ВЫБРАТЬ
                     |    битАдресаКонтрагентов.Ссылка,
                     |    битАдресаКонтрагентов.Владелец
                     |ИЗ
                     |    Справочник.битАдресаКонтрагентов КАК битАдресаКонтрагентов
                     |ГДЕ
                     |    битАдресаКонтрагентов.Владелец.Наименование = ""Контрагент"""
                      ;
                      
                      Результат = Запрос.Выполнить().Выгрузить();

как их теперь перекинуть на Контрагент2 ?

Иди учи матчасть

А = Справочники.Контрагенты.НайтиПоНаименованию("Контрагент2");
Для каждого Строка из Результат Цикл
                          Строка.Владелец() = А;
                          Сообщить(Строка.Владелец());
                      КонецЦикла

а как записать?

Откуда вас таких берут
1. Строка.ПолучитьОбъект();
2. Строка.Владелец() = А;
3. Строка.Записать()

(3) ужас...

(2) не получится так. Владелец же со скобками.

(4) Сам ты ужас, на крыльях ночи
Да, Владелец без (), но я то скопировал у него.

(6) Для каждого Строка из Результат Цикл

Строка.ПолучитьОбъект();???????????????
Получитьобъект от Строки таблицы значений?

(6) 3. Строка.Записать()
Что записываешь? у тебя там не объекта не ссылки...

(7) Строка.Ссылка.ПолучитьОбъект
Все разжевывать надо?
Главное на ход мыслей натолкнуть

(8) Иди в баню пацан

(6)А то, что Строка из результата запроса не смущает?

(11) Не понял вопроса, лично меня не смутить

(10) Мда, очень умно, сделать в 3 простейших строчках 3 ошибки, и потом еще в баню когото посылать... Вот это уровень.

Строка
Так переменная называться НЕ МОЖЕТ НИЗЯЯЯ

Да мне нас-рать, я не собираюсь ему разжевывать все основы языка программирования 1С, я натолкнул на мысль а там пускай уже сам думает
(13) Ты уже вернулся?

всё таки не перенести, а скопировать надо

пните плз

(0)

Для каждого СтрР из Результат Цикл
НовОбъект = Справочники.битАдресаКонтрагентов.Добавить();
ЗаполнитьЗначенияСвойств(НовОбъект,СтрР.Ссылка);
НовОбъект.Владелец = НовыйКонтрагент;
НовОбъект.Записать();
КонецЦикла;

Вместо Справочники.битАдресаКонтрагентов.Добавить()
Справочники.битАдресаКонтрагентов.СоздатьЭлемент()

(14) да ладно :)

{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(18)}: Метод объекта не обнаружен (Добавить)
                                НовОбъект = Справочники.битАдресаКонтрагентов.Добавить();

(21) СоздатьЭлемент

(22) понял уже, ток почему то пустые создаются

ЗаполнитьЗначенияСвойств(НовОбъект,СтрР);

(23) Для каждого СтрР из Результат Цикл
НовыйЭлементСправочника = СтрР.Ссылка.Скопировать();
НовыйЭлементСправочника.Владелец  = НовыйКонтрагент;
НовыйЭлементСправочника.Записать();
КонецЦикла;

(23) в том примере надо
ЗаполнитьЗначенияСвойств(НовОбъект,СтрР.Ссылка.Получитьобъект());
Но это не очень правильно будет, лучше тогда запросом получить все данные для заполнения и подставлять в заполнение выборку.

Он новый объект заполняет ссылками а не значениями
ЗаполнитьЗначенияСвойств(НовОбъект,СтрР.Ссылка);

огромное спасибо всем

(28) покажи что получить хоть, аж интересно

(29) что показать ? скрин адресов?

(30) Код

(0) вижу архитектуру БИТ и в моих глазах боль . . .
зачем справочник с адресами ... ну хотя бы в ТЧ в сам справочник или РС Контактная информация

из 25 скопипастил

(31) (29)  - (33)

(0) апрос = Новый запрос;
      запрос.Текст = "ВЫБРАТЬ
                     |    битАдресаКонтрагентов.Ссылка,
                     |    битАдресаКонтрагентов.Владелец
                     |ИЗ
                     |    Справочник.битАдресаКонтрагентов КАК битАдресаКонтрагентов
                     |ГДЕ
                     |    битАдресаКонтрагентов.Владелец = &Ссылка
                      ;
                      
                      Результат = Запрос.Выполнить().Выгрузить();

(0) по наименованию нельзя запросы строить

Тот самый случай, когда перекинуть руками быстрее, чем написать код)))).
Наверняка нужно для разового случае для 1-го контрагента.

(37) да, но адресов 300

(36) почему

(38) может тебе надо дубли объединить контрагентов ?  


Задачу организационную объясни

(39)
А = Справочники.Контрагенты.НайтиПоНаименованию("Контрагент2");
а если два одинаковых контрика?

(37) возьми выгрузи в табличный документ ТЧ адреса и загрузи стандартной обработкой загрузка из Эксель.

Дичь задача если честно

(41) там название дикой Имя Фамилия Отчество - номер - чёто там - номер - крутое слово

(43) дикое* (42) (40) да я уже сделал, просто нужно сделать Контрагенту2 такие же адреса доставки, как у Контрагент1

(43) ты сейчас сам то понял что сказал?

(45) да, а что ?

(44) >>Имя Фамилия Отчество - номер - чёто там - номер - крутое слово
а ты уверен что поля Номер, чето, крутое слов у контр1 и контр2
одинаковые????
они для разных контриков могут и генериться и могут быть разными, надо смотреть алгоритм присвоения Имён

(47) ты не понял

(47) Имя Фамилия Отчество - номер - чёто там - номер - крутое слово  — это всё наименование

и вот эти номера могут нести в себе информацию

(49) Правильно, но откуда они беруться????

(50) да, несут, номер торгового представителя

(51) ручками вводятся

в общем я понял о чем вы, похожего наименования не ьбудет)

Ну вот смотри, твое наименование может обрабатываться следующим образом:
Получается полностью наименование, далее, начиная с конца строки идет разбор на запчасти
Имя Фамилия Отчество - номер - чёто там - номер - крутое слово

Крутое слово-отправная точка
Номер-Номер агента
чего-то это значение какого то маркера
Номер также маркер какой то
далее остается Имя Фамилия Отчество через разделитель пробел делится на три части

ты уверен в правильности действий???
Один контри может быть и двух агентов
номера то разные, а ты номер одного присвоишь другому

Че-то там крутое слово))))))))))))

посмотрим