Как изменить адрес контрагента в 1С 8.1

"Пожалуйста подскажите как можно изменить программно юридический адрес контрагента?<br><br>Контрагент = Справочники.Контрагенты.НайтиПоКоду(КодКонтрагента).ПолучитьОбъект();<br>Контрагент.ИНН = ИНН;<br>Контрагент.КПП = КПП;<br><br>.... тут нужно написать изменение юридического адреса, где переменная адреса - АдресКонтрагента<br><br>Контрагент.Записать();<br><br>Я так понял через общий модуль нужно это сделать?<br><br>Не пойму что то...Подскажите пожалуйста, знаю что вопрос дурацкий на самом деле...<br><br>"

В общем разобрался сам...

"Вот как я выводил юридический и фактический адреса контрагентов в 1С 8.1:<br><br>// пишем самодельную функцию:<br><br>Функция ПолучитьАдрес(КодКонтрагента, ВидАдреса=0)<br> <br> Результат = """";<br><br> Если ВидАдреса = 0 Тогда<br> <br> Адрес = "Юридический адрес";<br> <br> Иначе<br> <br> Адрес = "Фактический адрес";<br> <br> КонецЕсли;<br> <br> НаборЗаписей = РегистрыСведений.КонтактнаяИнформация;<br> <br> ВыборкаРС = НаборЗаписей.Выбрать();<br> <br> Пока ВыборкаРС.Следующий() Цикл <br> <br> Если ТипЗнч(ВыборкаРС.Объект) = Тип("СправочникСсылка.Контрагенты") Тогда<br> <br> Если СокрЛП(ВыборкаРС.Объект.Код) = СокрЛП(КодКонтрагента) Тогда<br> <br> Если СокрЛП(ВыборкаРС.Вид) = Адрес Тогда<br> <br> Результат = Строка(ВыборкаРС.Представление);<br> <br> КонецЕсли;<br> <br> КонецЕсли;<br> <br> КонецЕсли;<br> <br> КонецЦикла;<br> <br> Возврат Результат;<br> <br>КонецФункции<br> <br><br>Процедура КнопкаСформироватьНажатие(Кнопка)<br> // Вставить содержимое обработчика.<br> <br> //Родитель = Справочники.Контрагенты.НайтиПоКоду("000000001"); // группа справочника<br> <br> ВыборкаСК = Справочники.Контрагенты.Выбрать(Справочники.Контрагенты.ПустаяСсылка(),,,"Код Возр");<br> //ВыборкаСК = Справочники.Контрагенты.Выбрать(Родитель,,,"Код Возр");<br> <br> Пока ВыборкаСК.Следующий() Цикл<br> <br> Если ВыборкаСК.ЭтоГруппа = Истина Тогда<br> <br> Продолжить;<br> <br> КонецЕсли;<br> <br> Адрес = ПолучитьАдрес(ВыборкаСК.Код,1); <br> <br> Если ПустаяСтрока(Строка(Адрес)) = 0 Тогда<br> <br> Сообщить(Адрес);<br> <br> Иначе<br> <br> Сообщить(" ");<br> <br> КонецЕсли; <br> <br> КонецЦикла;<br> <br>КонецПроцедуры<br><br>В восьмёрке часть данных справочника контрагентов хранится не в самом справочнике "Контрагенты" (как в 7-ке), а в РегистрыСведений.КонтактнаяИнформация. Вот такая вот система "через задницу"."

> Вот такая вот система "через задницу".<br><br>ИМХО тоже самое можно сказать про вышеописанный код программы...

Вообще-то это мой первый в жизни код на 1С 8.0. Написан на скорую руку - без знания 8-ки, чисто через Яндекс + Синтакс-помощник. Задача стояла перегрузить справочник контрагенты из 8-ки в 7-ку с минимумом затрат времени на изучение 8-ки.<br><br>Всё-таки трудно, абсолютно не зная 8-ку, за 2 дня написать даже такой код.

"Ну если это не последний Ваш код на 8-ке, то в следующий раз, когда захотите поделиться чем-то полезным на форуме, то хотя бы убирайте из кода все отладочные строки и, по возможности, постарайтесь избегать критики тех механизмов 1С, с которыми знакомы только поверхностно. ;)"

Я критикую потому, что вообще очень плохого мнения о продукции фирмы 1С. Они способны извратить (в своих программных продуктах) самую здравую идею. 8-ка произвела негативное впечатление (даже по сравнению с 7-кой, которая тоже плохая).<br>Отладочный код - пригодится другим, у кого-то может быть чуть иная задача.<br><br>Кстати - небольшое добавление: к коду<br><br>Если СокрЛП(ВыборкаРС.Объект.Код) = СокрЛП(КодКонтрагента) Тогда<br><br>нужно ещё добавить доп. проверку на совпадения кодов родителей.

"а переборка всех записей всего Регистра не нужна , а если там будет миллион записей?<br><br>Курите Отборы , запросы<br><br>из справки:<br>Курсы = РегистрыСведений.КурсыВалют;<br>ОтборВалют = Новый Структура("Валюта");<br>ОтборВалют.Валюта = ВыбВалюта; <br>ВыборкаКурсовВалют = Курсы.Выбрать(,,ОтборВалют);<br>Пока ВыборкаКурсовВалют.Следующий() Цикл<br> Сообщить("Дата " + ВыборкаКурсовВалют.Период + <br> " Валюта "+СокрЛП(ВыборкаКурсовВалют.Валюта) +<br> ", Курс "+ ВыборкаКурсовВалют.Курс );<br>КонецЦикла;<br><br>"

> Всё-таки трудно, абсолютно не зная 8-ку...<br><br>и<br><br>> Я критикую потому, что вообще очень плохого мнения о продукции фирмы 1С<br><br>Вам самому не смешно? Очень напоминает "кошек", которых чтобы нравились "нужно уметь готовить"...