Как и куда его сохранить если адрес идет одной строкой, можно прям в строку адрес без КЛАДРА?

можно

(0) В Контактную информацию суй

(0) регист рсведений, контактая информацию, там поля объект = контраент, тип  = адрес (факти или юрический выбери), и в поле представление надо тебе кидать.

(3) Не обязательно в представление, в значение адреса можно, как произвольную строку.

как это в коде будет выглядить
подключился к строке
   СтрокаКонтрагент.Адрес = СокрЛП(Recordset.Fields("fAddress").Value);

в таб часть попадает

помогите плиз как добавить данный в регистр сведений

(6) Конфа какая? За четыре года мог бы научиться формулировать вопросы.

конфа БП

хотя бы образец строки можно

(8) в типовой БП адрес контрагента можно одной строкой записывать без кладра

и как указать что ардес конкретному контрагенту принадлежит?

как в коде эта срока пишется

(11) в смысле как ??? заходишь в контрагента и указываешь адрес

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

Функция ДобавитьАдрес(Адрес)
   
       НовыйАдрес = РегистрСведений.КонтактнаяИнформация.
       
       
     
КонецФункции

так что ли?

(14) адрес хранится не в карточке контрагента, а в отдельном регистре сведений "КонтактнаяИнформация", добавляй туда запись, и заполняй

в том то и дело как программно это выглядит?

(17) ну открой обработку "РедактированиеКонтактнойИнформации" и посмотри как она записывает, адаптируй под себя код.

МенеджерЗаписи = РегистрыСведений.КакойТоРегистр.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Объект = ПолеНаФорме;
МенеджерЗаписи.Данные = ПолеНаФормеДанные;
МенеджерЗаписи.Записать();

вот так?

(19) типа того

что не так

Функция ДобавитьАдрес(Адрес)
       МенеджерЗаписи = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Представление = Адрес;
МенеджерЗаписи.Записать();
     
КонецФункции

пишет не удалось добавить КонтактнаяИнформация

помогите сижу у клиента в тупике

(22) пересядь в другое место :)
читай синтакс-помощник, там все есть

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

+(27) Вместо "НаборКИ.Представление = ПараметрыКонтрагента.ЮрАдрес;" подставляешь свою строку.

только на объект ругается что уже не пробывал не идет

(26) Покажи что у тебя получилось

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

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

это уже сам перенос

Процедура Импорт()
   Для каждого Строка Из КонтрагентыЗагрузка Цикл
       
       // пустое наименование контрагента
       Если НЕ ЗначениеЗаполнено(СокрЛП(Строка.НаименованиеКонтрагента)) Тогда
           Продолжить;
       КонецЕсли;
       
       // нет инн или не верное
       Если Не ((СтрДлина(СокрЛП(строка.ИннПолучателя)) = 12) или (СтрДлина(СокрЛП(строка.ИннПолучателя)) = 10)) Тогда
           Продолжить;            
       КонецЕсли;

       // если инн 12 а кпп нет то кпп = 0        
       Если ((СтрДлина(СокрЛП(строка.ИннПолучателя)) = 12) И (СокрЛП(Строка.КппПолучателя = ""))) Тогда
           Строка.КппПолучателя = "0";    
       КонецЕсли;
       
       //Ищем контрагента
       Контрагент = НайтиКонтрагента(Строка.ИннПолучателя,Строка.КппПолучателя);
       
       //нет контрагента
       Если Контрагент = Справочники.Контрагенты.ПустаяСсылка() Тогда
           Если ОбновлятьТолькоСчета Тогда
               Продолжить;
           Иначе
               Контрагент = ДобавитьКонтрагента(Строка.ПолноеНаименованиеКонтрагента,
                                               Строка.НаименованиеКонтрагента,
                                               Строка.ИннПолучателя,
                                               Строка.КппПолучателя);
           КонецЕсли;    
       КонецЕсли;
       
       //обновляем контрагента
       Если не ОбновлятьТолькоСчета Тогда
           ОбновитьКонтрагента(Контрагент, Строка.КппПолучателя, Строка.ПолноеНаименованиеКонтрагента);        
       КонецЕсли;
       
       // А есть ли расчетный счет
       
       Если (СтрДлина(Строка.СчетПолучателя) <> 20) или (СтрДлина(Строка.БикБанкаПолучателя) <> 9) Тогда
           Продолжить;    
       КонецЕсли;
       
               //ищем счет
       РасчетныйСчет = НайтиРасчетныйСчет(Строка.СчетПолучателя,Контрагент.Ссылка);
       
       // добавляем счет
       Если РасчетныйСчет = Справочники.БанковскиеСчета.ПустаяСсылка() Тогда
           ДобавитьСчет(Строка.СчетПолучателя,
                       Строка.БикБанкаПолучателя,
                       Строка.НаименованиеБанкаПолучателя,
                       Строка.КоррСчетБанкаПолучателя,
                       Контрагент);    
                   КонецЕсли;
                   
                   ДобавитьАдрес(Строка.Адрес)
       
   КонецЦикла;
   
КонецПроцедуры //Импорт

(29) У тебя ссылка на контрагента называется Контрагент. Потому: НаборКИ.Объект = Контрагент.Ссылка;
+ поставь останов в строке где начинает читаться КИ - и проверь отладчиком все, что пишешь.

(29) вот тут ты нашел контрагента
//Ищем контрагента

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

{Форма.Форма.Форма(216,42)}: Переменная не определена (Контрагент)
                       НаборКИ.Объект = <<?>>Контрагент.Ссылка; (Проверка: Толстый клиент (обычное приложение))
{Форма.Форма.Форма(220,42)}: Переменная не определена (Контрагент)
                       НаборКИ.Объект = <<?>>Контрагент.Ссылка; (Проверка: Толстый клиент (обычное приложение))
{Форма.Форма.Форма(223,49)}: Переменная не определена (Строка)
                       НаборКИ.Представление = <<?>>Строка.Адрес; (Проверка: Толстый клиент (обычное приложение))

куда вставил то ?

(33) интимный вопрос!! :D

(32) Ну, пройдись отладчиком, проблема-то - вот она!! Нужно подсунуть ему твоего найденного контрагента!

Вроде все пошло без ошибок, после тогда как (31) всавил в процедуру загрузки, вот только адреса нет)

{Форма.Форма.Форма(498)}: Ошибка при вызове метода контекста (Записать)
                       НаборКИ.Записать(Ложь);
по причине:

по причине:
Запись с такими ключевыми полями существует! : КонтактнаяИнформация: МУП "Водоканал", Адрес, Юридический адрес (Регистр сведений: Контактная информация)

(37) тебе нужно записывать адрес для контрагента только 1 раз - при создании нового. А ты, видимо, пытаешься его "перезаписать" каждый раз

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

если ты отдельной процедурой добавляешь адрес, то передавай туда и контрагента тоже, а не только адрес :)

может я не в том месте вставил код

Процедура Импорт()
   Для каждого Строка Из КонтрагентыЗагрузка Цикл
       
       // пустое наименование контрагента
       Если НЕ ЗначениеЗаполнено(СокрЛП(Строка.НаименованиеКонтрагента)) Тогда
           Продолжить;
       КонецЕсли;
       
       // нет инн или не верное
       Если Не ((СтрДлина(СокрЛП(строка.ИннПолучателя)) = 12) или (СтрДлина(СокрЛП(строка.ИннПолучателя)) = 10)) Тогда
           Продолжить;            
       КонецЕсли;

       // если инн 12 а кпп нет то кпп = 0        
       Если ((СтрДлина(СокрЛП(строка.ИннПолучателя)) = 12) И (СокрЛП(Строка.КппПолучателя = ""))) Тогда
           Строка.КппПолучателя = "0";    
       КонецЕсли;
       
       //Ищем контрагента
       Контрагент = НайтиКонтрагента(Строка.ИннПолучателя,Строка.КппПолучателя);
       
       //нет контрагента
       Если Контрагент = Справочники.Контрагенты.ПустаяСсылка() Тогда
           Если ОбновлятьТолькоСчета Тогда
               Продолжить;
           Иначе
               Контрагент = ДобавитьКонтрагента(Строка.ПолноеНаименованиеКонтрагента,
                                               Строка.НаименованиеКонтрагента,
                                               Строка.ИннПолучателя,
                                               Строка.КппПолучателя);
           КонецЕсли;    
       КонецЕсли;
       
       //обновляем контрагента
       Если не ОбновлятьТолькоСчета Тогда
           ОбновитьКонтрагента(Контрагент, Строка.КппПолучателя, Строка.ПолноеНаименованиеКонтрагента);        
       КонецЕсли;
       
       // А есть ли расчетный счет
       
       Если (СтрДлина(Строка.СчетПолучателя) <> 20) или (СтрДлина(Строка.БикБанкаПолучателя) <> 9) Тогда
           Продолжить;    
       КонецЕсли;
       
               //ищем счет
       РасчетныйСчет = НайтиРасчетныйСчет(Строка.СчетПолучателя,Контрагент.Ссылка);
       
       // добавляем счет
       Если РасчетныйСчет = Справочники.БанковскиеСчета.ПустаяСсылка() Тогда
           ДобавитьСчет(Строка.СчетПолучателя,
                       Строка.БикБанкаПолучателя,
                       Строка.НаименованиеБанкаПолучателя,
                       Строка.КоррСчетБанкаПолучателя,
                       Контрагент);    
                   КонецЕсли;
                   
                   
                                       //ДобавитьАдрес(Строка.Адрес)
       
   КонецЦикла;
        НаборКИ = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
                       НаборКИ.Объект = Контрагент.Ссылка;
                       НаборКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
                       НаборКИ.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
                       НаборКИ.Представление = Строка.Адрес;
                       НаборКИ.Записать();

КонецПроцедуры //Импор

перед конеццикла вставь

все равно нет адреса

у одного адрес записался когда ошибка в (37) была

(44) Вот сюда добавь строки по записи адреса (только сперва этот адрес получи из источника):
Если Контрагент = Справочники.Контрагенты.ПустаяСсылка() Тогда
           Если ОбновлятьТолькоСчета Тогда
               Продолжить;
           Иначе
               Контрагент = ДобавитьКонтрагента(Строка.ПолноеНаименованиеКонтрагента,
                                               Строка.НаименованиеКонтрагента,
                                               Строка.ИннПолучателя,
                                               Строка.КппПолучателя);
////***** записать адрес
           КонецЕсли;    
       КонецЕсли;