Имя: Пароль:
1C
1С v8
Заполнение поля фактический адресом
,
0 zzzLEXzzz
 
22.08.13
15:09
Доброго времени суток 1С 8.2 УТ, имеется код, он заполняет табличное поле адресом контрагента, но он заполняет Юредический адрес, как правильно изменить код чтобы он заполнял Фактический адрес? Заранее спасибо.


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

Процедура КонтрагентПриИзменении(Элемент)
Если НаборЗаписей.Количество()>0 Тогда
    НабЗап = ЭлементыФормы.ТабличнаяЧасть.ТекущиеДанные;
    
    
    
    НабЗап.адрес = НаборЗаписей[0].Представление;
    
КонецЕсли;

КонецПроцедуры
1 RomaH
 
naïve
22.08.13
15:14
перебор записей делай - проверяй тип и ставь нужную
2 EugeniaK
 
22.08.13
15:14
(0) Он заполняет не юридическим. Он заполняет первым попавшимся.
Добавь отбор по типу адреса.
3 zzzLEXzzz
 
22.08.13
15:16
(2) Можете подсказать как, просто я новичек
4 RomaH
 
naïve
22.08.13
15:23
НаборЗаписей.Отбор.Объект.Установить(Контрагент);
5 zzzLEXzzz
 
22.08.13
15:24
(4) Немного не понял вашу мысль
6 RomaH
 
naïve
22.08.13
15:26
Добавь отбор по типу адреса.
7 zzzLEXzzz
 
22.08.13
15:37
(6) Просто это не мой код, я просто пытаюсь его изменить, а ума не хватает, можешь написать как сделать? плиз
8 zzzLEXzzz
 
22.08.13
16:08
(6) НаборЗаписей.Отбор.вид = "Фактический адрес контрагента"; Что тут у меня не правильно?
9 RomaH
 
naïve
22.08.13
16:22
НаборЗаписей.Отбор.Объект.Установить(Контрагент); - найди 10 отличий
10 V01tk2010
 
22.08.13
16:23
Посмотри в конфигураторе на что ссылается измерение вид в регистре сведений КонтактнаяИнформация
11 zzzLEXzzz
 
22.08.13
16:25
(10) СправочникСсылка.ВидыКонтактнойИнформации, Строка
12 zzzLEXzzz
 
22.08.13
16:26
(9) Ну не хватает у меня ума ((( поэтому и обратился за помощью
13 EugeniaK
 
22.08.13
16:30
(12) НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Объект.Установить(Контрагент);
НаборЗаписей.Отбор.<ИмяПоляСВидомКИ>.Установить(<НужныйТебеВидКИ>);

НаборЗаписей.Прочитать();
14 zzzLEXzzz
 
22.08.13
17:03
(13) Мне уже стыдно обращаться, но я что-то как-то не разобрался, что туда вставлять, извините, но можете подсказать что именно туда вставить
15 zzzLEXzzz
 
22.08.13
17:14
Всё наконец-то разобрался

НаборЗаписей.Отбор.Вид.Установить(справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента);


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