Вывод запроса в тонком клиенте

[byte777]

Доброго времени суток!
Не пойму как мне выполнить запрос на сервере, а результат вывести на клиенте. Используется тонкий клиент.

Код Выделить Развернуть


&НаСервере
Процедура Команда1(Команда)
//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЦенаСрезПоследних.Номенклатура.Наименование КАК НН,
| ЦенаСрезПоследних.Цена
|ИЗ
| РегистрСведений.Цена.СрезПоследних КАК ЦенаСрезПоследних";

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Сообщить(ВыборкаДетальныеЗаписи.НН);
КонецЦикла;


КонецПроцедуры

&НаКлиенте
Процедура ВыводЗапроса ()   Экспорт

Сообщить(!!!!!!!!! Что сюда писать!!!!!!!!!! );

КонецПроцедуры


[AIFrame]

Передай на сервер элемент формы, в который выводить собрался.

[byte777]

Не понял как???????

[alexandr_ll]

На сервере можно использовать не процедуру, а функцию. Пусть она возвращает на клиент то, что вам нужно.

[byte777]

На сервере можно использовать не процедуру, а функцию.

Не понял? Что значит можно? Как это реализовать? На сервере как я понял должен быть запрос. На клиенте как я понял Сообщить(); Как это сделать?

[alex0402]

Не понял? Что значит можно? Как это реализовать? На сервере как я понял должен быть запрос. На клиенте как я понял Сообщить(); Как это сделать?

Код Выделить Развернуть

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


    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
   
    Результат = Новый Массив;

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Результат.Добавить(ВыборкаДетальныеЗаписи.НН);
    КонецЦикла;
       
   
КонецФункции

&НаКлиенте
Процедура ВыводЗапроса ()   Экспорт
   
    Результат = Команда1(Неопределено);

    Для Каждого Элемент из Результат Цикл

        Сообщить(Элемент);

    КонецЦикла;

КонецПроцедуры


но сообщать можно и прямо с сервера...

[byte777]

Доброго времени суток! Ничего не выводит может в функции возврат нужно указать?

[alex0402]

Доброго времени суток! Ничего не выводит может в функции возврат нужно указать?

КонецЦикла;
       
   
КонецФункции

естественно

Код Выделить Развернуть

  КонецЦикла;
       
    Возврат Результат;
   
КонецФункции

Я пропустил

[byte777]

Исправил но ничего не выводит, что не так не пойму?

[alex0402]

Исправил но ничего не выводит, что не так не пойму?

если нет ни ошибок ни полезной информации, то скорее всего запрос не возвращает данные.
проверить можно так:

РезультатЗапроса = Запрос.Выполнить();

Код Выделить Развернуть

Если РезультатЗапроса.Пустой() Тогда

    Сообщить("нет данных");

КонецЕсли