Имя: Пароль:
1C
1С v8
Вывод данных контактного лица контрагента и его контактных данных
0 Валидатор
 
29.07.13
15:24
Делаю отчет по данными контрагентов, с их контактной информацией, отчет работает, все хорошо, но нужно теперь добавить колонку, в которой будут отображаться все контактные лица контрагента, и их контактная информация, то есть телефон, адрес, емэил и все что есть. Как сделать, чтобы для всех контактных лиц контрагента было? Конфа 8.1 УТ 10, вот запрос:

ВЫБРАТЬ
    КонтактнаяИнформация.Объект КАК Объект,
    ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(100)) КАК ФактАдресКонтрагента
ПОМЕСТИТЬ ВТ_ФактАдр
ИЗ
    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
ГДЕ
    (НЕ ВЫБОР
                КОГДА КонтактнаяИнформация.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресКонтрагента)
                    ТОГДА КонтактнаяИнформация.Представление
            КОНЕЦ ЕСТЬ NULL )
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    КонтактнаяИнформация.Объект КАК Объект,
    ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(100)) КАК ЮрАдресКонтрагента
ПОМЕСТИТЬ ВТ_ЮрАдр
ИЗ
    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
ГДЕ
    (НЕ ВЫБОР
                КОГДА КонтактнаяИнформация.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресКонтрагента)
                    ТОГДА КонтактнаяИнформация.Представление
            КОНЕЦ ЕСТЬ NULL )
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    КонтактнаяИнформация.Объект,
    ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(100)) КАК ТелефонКонтрагента
ПОМЕСТИТЬ ВТ_Телефон
ИЗ
    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
ГДЕ
    (НЕ ВЫБОР
                КОГДА КонтактнаяИнформация.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонКонтрагента)
                    ТОГДА КонтактнаяИнформация.Представление
            КОНЕЦ ЕСТЬ NULL )
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    КонтактнаяИнформация.Объект,
    ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(100)) КАК ЭлектроннаяПочта
ПОМЕСТИТЬ ВТ_ЭлектроннаяПочта
ИЗ
    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
ГДЕ
    (НЕ ВЫБОР
                КОГДА КонтактнаяИнформация.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыКонтрагентаДляОбменаДокументами)
                    ТОГДА КонтактнаяИнформация.Представление
            КОНЕЦ ЕСТЬ NULL )
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    Контрагенты.Ссылка КАК Наименование,
    Контрагенты.ЮрФизЛицо КАК ЮрФизЛицо,
    Контрагенты.ОсновнойВидДеятельности КАК ВидДеятельности,
    Контрагенты.ОсновнойМенеджерПокупателя КАК ОсновнойМенеджер,
    ЕСТЬNULL(ВТ_ЮрАдр.ЮрАдресКонтрагента, "---") КАК ЮридическийАдрес,
    ЕСТЬNULL(ВТ_ФактАдр.ФактАдресКонтрагента, "---") КАК ФактическийАдрес,
    ЕСТЬNULL(ВТ_ЭлектроннаяПочта.ЭлектроннаяПочта, "---") КАК ЭлектроннаяПочта,
    ЕСТЬNULL(ВТ_Телефон.ТелефонКонтрагента, "---") КАК ТелефонКонтрагента,
    Контрагенты.ОсновноеКонтактноеЛицо КАК КонтактноеЛицо
{ВЫБРАТЬ
    Наименование,
    ЮрФизЛицо.*,
    ВидДеятельности,
    ОсновнойМенеджер,
    ЮридическийАдрес,
    ФактическийАдрес,
    ЭлектроннаяПочта,
    ТелефонКонтрагента,
    КонтактноеЛицо}
ИЗ
    ВТ_ФактАдр КАК ВТ_ФактАдр
        ПОЛНОЕ СОЕДИНЕНИЕ ВТ_ЭлектроннаяПочта КАК ВТ_ЭлектроннаяПочта
        ПО ВТ_ФактАдр.Объект = ВТ_ЭлектроннаяПочта.Объект
        ПОЛНОЕ СОЕДИНЕНИЕ ВТ_Телефон КАК ВТ_Телефон
        ПО ВТ_ФактАдр.Объект = ВТ_Телефон.Объект
        ПОЛНОЕ СОЕДИНЕНИЕ ВТ_ЮрАдр КАК ВТ_ЮрАдр
        ПО ВТ_ФактАдр.Объект = ВТ_ЮрАдр.Объект
        ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК Контрагенты
        ПО ВТ_ФактАдр.Объект = Контрагенты.Ссылка
{ГДЕ
    Контрагенты.Ссылка.* КАК Наименование,
    Контрагенты.ЮрФизЛицо.*,
    Контрагенты.ОсновнойВидДеятельности.* КАК ВидДеятельности,
    Контрагенты.ОсновнойМенеджерПокупателя.* КАК ОсновнойМенеджер,
    (ЕСТЬNULL(ВТ_ЮрАдр.ЮрАдресКонтрагента, "---")) КАК ЮридическийАдрес,
    (ЕСТЬNULL(ВТ_ФактАдр.ФактАдресКонтрагента, "---")) КАК ФактическийАдрес,
    (ЕСТЬNULL(ВТ_ЭлектроннаяПочта.ЭлектроннаяПочта, "---")) КАК ЭлектроннаяПочта,
    (ЕСТЬNULL(ВТ_Телефон.ТелефонКонтрагента, "---")) КАК ТелефонКонтрагента,
    Контрагенты.ОсновноеКонтактноеЛицо.* КАК КонтактноеЛицо}
{УПОРЯДОЧИТЬ ПО
    Наименование,
    ЮрФизЛицо.*,
    ВидДеятельности,
    ОсновнойМенеджер,
    ЮридическийАдрес,
    ФактическийАдрес,
    ЭлектроннаяПочта,
    ТелефонКонтрагента,
    КонтактноеЛицо}
{ИТОГИ ПО
    Наименование}
АВТОУПОРЯДОЧИВАНИЕ
1 Валидатор
 
29.07.13
16:18
не получается че то
2 Ranger_83
 
29.07.13
16:23
посмотри "отчет о контактной информации"