Помогите. Написал функцию надо чтобы работала на управляемых формах.

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


вызываю
Контрагент = Справочники.Контрагенты.НайтиПоКоду("ФР-000002");
В = КонтактнаяИнформация(Контрагент);
Сообщить(В);

В сообщить ничего пусто хотя знаю точно данные должны быть.

передфункцией напиши

&НаСервере

(1) Контрагент у тебя 1, значит условие запроса не В, а =
|ГДЕ
    |    КонтрагентыКонтактнаяИнформация.Ссылка = &Контрагент";

(2) у меня контрагентов вообще нет

+(2) -> (1)
&НаСервере
Функция КонтактнаяИнформация(Контрагент) Экспорт

(3) Ошибся, там (0) )

Пока Выборка.Следующий() Цикл
        Возврат Выборка.Представление;
    КонецЦикла;    
Это еще что?

(0) А зачем в цикле получать поля выборки?

Там не одно поле.

А как еще можно?

(8) Так ты получишь только последнее.

+(10) Точнее, первое :)

(9) ВЫБОР КОГДА..., Если Тогда...

+(12) ОБЪЕДИНИТЬ

Зависит от задачи

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

вызываю

Контрагент = Справочники.Контрагенты.НайтиПоКоду("ФР-000002");
    
    Сообщить(Контрагент);
    
    В = КонтактнаяИнформация(Контрагент);
    Сообщить(В);

Сообщить пусто

оба пусто?
тогда данных (контрагента) нет точно

есть

я же в консоли запроса вывожу

(19) мягко говоря, не верю

(19) Задвоение в справочнике? одинаково называются элемент и группа?

(15)


&НаСервере


Загогулину забыл

есть ваша загогулина

http://hostingkartinok.com/show-image.php?id=7333c25ece2c3085a9d7d93923e9f9da

мне вообще надо чтоб данные из этой функций в макет в будущем попадали а сообщить это для отладки. Функцию я вызываю в другой функций которая и выводит макет

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

    НомерСтроки = 1;
    СуммаИтого = 0;
    Пока Выборка.Следующий() Цикл
        
        Шапка.Параметры.Заполнить(Выборка);
        ТабДокумент.Вывести(Шапка, Выборка.Уровень());
        
        ВыборкаЗапасы = Выборка.Запасы.Выбрать();
        Пока ВыборкаЗапасы.Следующий() Цикл
            ТаблицаМатериалыТело.Параметры.Заполнить(ВыборкаЗапасы);
            СуммаИтого = СуммаИтого + Число(ВыборкаЗапасы.Цена * ВыборкаЗапасы.Количество);
            ТабДокумент.Вывести(ТаблицаМатериалыТело, ВыборкаЗапасы.Уровень());
        КонецЦикла;
        ТаблицаМатериалыПодвал.Параметры.СуммаИтого = СуммаИтого;
        ТабДокумент.Вывести(ТаблицаМатериалыПодвал);
    
        ТаблицаУслугиШапка.Параметры.Заполнить(Выборка);
        ТабДокумент.Вывести(ТаблицаУслугиШапка);
        
        ВыборкаРаботы = Выборка.Работы.Выбрать();
        Пока ВыборкаРаботы.Следующий() Цикл
            ТаблицаУслугиТело.Параметры.Заполнить(ВыборкаРаботы);
            ТаблицаУслугиТело.Параметры.НомерСтроки =  НомерСтроки;
            ТабДокумент.Вывести(ТаблицаУслугиТело, ВыборкаРаботы.Уровень());
            НомерСтроки = НомерСтроки + 1;
        КонецЦикла;


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

КонецФункции

(26) Ну начинай изучать отладчик

эта внешняя печатная обработка

отладчик в нее не попадает

ВОООООТ я убрал все параметры и функция заработала ????? что может с параметрами быть не так

(30)Параметры запроса? После НайтиПоКоду
Сообщить(ЗначениеЗаполнено(КОнтрагент)) что говорит?

(0) Запрос.УстановитьПараметр(), а не Запрос.Параметры

ребята все огромное спасибо все получилось. разобрался я. всем успехов в новом году!!!!!!!!!!!!!! Просто приятно что не кто не тролил

А что было-то?

(34) Да то что он параметр не устанавливал. В консоли он устанавливается автоматом, только значение вводишь в форме, а тут... :-)