Имя: Пароль:
1C
1С v8
Регистр Контактная Информация
,
0 Ikatesgi
 
04.06.16
20:48
Здравствуйте. Мне нужно получить контактную информацию организации телефон, адрес. Адрес то я получил, а как отсюда же взять телефон, понять не могу. Вот сам запрос:

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

    Запрос.УстановитьПараметр("Объект", Организация);
    
    ВыборкаДетальныеЗаписи =запрос.Выполнить().Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        
    КонецЦикла;
1 jsmith82
 
04.06.16
20:59
Два раза запрос катай и пиши вот так
Таблица = Запрос.Выполнить().Выгрузить();
Если Таблица.Количество() > 0 Тогда
Значение = Таблица[0].Представление;
КонецЕсли;
2 jsmith82
 
04.06.16
20:59
Начитались всяких интрогайдов
3 Ikatesgi
 
04.06.16
21:29
(2) Я только учусь. вот и дошел до контактной информации.
Я правильно понял запрос нужно два раза написать и потом написать ваш код?
4 Чайник Рассела
 
04.06.16
21:32
(0) что за конфигурация?
5 Ikatesgi
 
04.06.16
21:35
(4) Зарплата и Управление Персоналом, редакция 2.5 (2.5.101.2)
6 jsmith82
 
04.06.16
21:35
(3) Нет


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

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

    Таблица = Запрос.Выполнить().Выгрузить();
Если Таблица.Количество() > 0 Тогда
ФактАдрес = Таблица[0].Представление;
КонецЕсли;

Запрос.УстановитьПараметр("Адрес", Справочники.ВидыКонтактнойИнформации.ТелефонОрганизации);

    Таблица = Запрос.Выполнить().Выгрузить();
Если Таблица.Количество() > 0 Тогда
Телефон = Таблица[0].Представление;
КонецЕсли;
7 fimanich
 
04.06.16
21:35
(0) может сюда другой вид контактной информации передать... Телефон, например...
Запрос.УстановитьПараметр("Адрес", справочники.ВидыКонтактнойИнформации.ФактАдресОрганизации);
8 fimanich
 
04.06.16
21:37
(6)
Таблица = Запрос.Выполнить().Выгрузить();
Неоправданная выгрузка в ТЗ вместо обхода выборки...
9 Ikatesgi
 
04.06.16
21:37
(7) да пробовал, телефон появляется, Но проблема то в том что мне нужно и адрес и телефон получить.
10 jsmith82
 
04.06.16
21:40
+(6)
Впереди в самом добавь
ФактАдрес = "";
Телефон = "";
11 Чайник Рассела
 
04.06.16
21:48
(5) не слушай этих дятлов.

УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(ДанныеОрганизации.Организация, "Фактический")

РегламентированнаяОтчетность.ПолучитьСведенияОбОрганизации(Орг)
12 Ikatesgi
 
04.06.16
21:59
(6) Спасибо получилось.
13 Ikatesgi
 
04.06.16
22:00
(11) Переменная не определена ДанныеОрганизации
14 Чайник Рассела
 
04.06.16
22:04
(13) извини, но 1с не твое
15 Ikatesgi
 
04.06.16
22:09
(14) возможно. просто только начал.
16 Ikatesgi
 
04.06.16
22:19
(11) И вам Спасибо! разобрался я в вашей помощи, так тоже работает)