Имя: Пароль:
1C
 
Как получить Основной адрес организации?
0 yalex
 
07.12.06
10:33
Как получить Основной адрес организации(тот что в справочнике Организации или Контрагента), если регистр сведений "Контактная информация" пустой?
1 skunk
 
07.12.06
10:34
заполнить ее соотвествующей информацией...
2 yalex
 
07.12.06
10:58
Адрес заполнен!
Как мне его получить из базы?
3 Salvador Limones
 
07.12.06
11:01
(2) Где этот адрес заполнен, если регистр пустой?
4 yalex
 
07.12.06
11:14
Адрес заполнен в справочнике "Организации" на закладке "Контактная информация" в табличном поле...Фактический адрес я сделал ОСНОВНЫМ
5 Salvador Limones
 
07.12.06
11:15
(4) Т.е. это к регистру "Контактная информация" отношения не имеет?
6 yalex
 
07.12.06
11:23
(5)тип табличного поля "РегистрСведенийНаборЗаписейКонтактнаяИнформация"...в этот регистр инфа не записывается...
7 Salvador Limones
 
07.12.06
11:24
(6) Почему?
8 yalex
 
07.12.06
11:45
(6) Знал бы почему не спрашивал бы :) А из формы Справочника можно получить?
9 Kalambur
 
07.12.06
13:07
спис = регистрысведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
спис.Отбор.Добавить(Объект,Организация);
спис.Отбор.Добавить(Тип,Перечисления.ТипыКонтактнойИнформации.Адрес);
спис.Отбор.Добавить(Вид,справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации);
спис.Прочитать();
Для каждого адр из спис цикл
   адрес = адр.Представление;
КонецЦикла;
10 Kalambur
 
07.12.06
13:07
УТ
11 yalex
 
07.12.06
15:17
(9) Чё-то не получается...Может есть другие мысли?
12 Kalambur
 
07.12.06
15:23
что именно не получаеться?
13 Chav
 
07.12.06
15:27
Функция ПолучитьАдресИзКонтактнойИнформации(Объект, ТипАдреса = "") Экспорт
зашита в ут... получай не хочу...
14 Chav
 
07.12.06
15:28
+(13)
// Функция находит актуальное значение адреса в контакной информации.
//
// Параметры:
//  Объект - СправочникСсылка, объект контактной информации
//  ТипАдреса - тип контактной информации
//
// Возвращаемое значение
//  Строка - представление найденного адреса
//
15 yalex
 
07.12.06
15:29
(12) Пишет, что не знает что такое Тип и Вид....видимо я что-то недопонимаю
16 Kalambur
 
07.12.06
15:41
абшибся , вот рабочий код

Процедура КнопкаВыполнитьНажатие(Кнопка)
спис = регистрысведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
спис.Отбор.Объект.Установить(Организация);
спис.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.Адрес);
спис.Отбор.Вид.Установить(справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации);
спис.Прочитать();
Для каждого адр из спис цикл
   Если адр.ЗначениеПоУмолчанию тогда
   адрес = адр.Представление;
   КонецЕсли;
КонецЦикла;
Сообщить(адрес);
КонецПроцедуры
17 Kalambur
 
07.12.06
15:57
(13) там не укажешь основной он или нет, коду в 2 раза больше а толку ...
18 yalex
 
12.12.06
10:59
(14) А для получения телефона есть подобная супер-функция?
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн