Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 17:08

помогите результат запроса перенести на форму

Автор Dobrolubov, 13 мар 2012, 10:59

0 Пользователей и 1 гость просматривают эту тему.

Dobrolubov

&НаКлиенте
Процедура ФормированиеИмяКорма ()
   проц=аа();
       цк=объект.Владелец;
        стр2=Строка(цк); //назв корма
        т1=0;            //дата последнего посещения
       т2=год(объект.Дата); //текущая, введённая дата
             ид=1;             //нумератор
      як=0;
      сообщить(рроц);
      пока 1<>як цикл
            если    т2=т1     тогда
         ук=т2-2000;
         стр=строка(ук);    //дата с вычетом
         
         ав=стр2+"/"+строка(ид)+"-"+стр; 
         ид="1";
       объект.Наименование=ав;
   як=1;   
   иначе   
      т1=т2;   
   конецесли
КонецЦикла;
КонецПроцедуры
================================

&НаСервере
функция аа()
    Запрос = Новый Запрос;
   Запрос.Текст =
      "ВЫБРАТЬ ПЕРВЫЕ 1
      |   Номенклатура.Рецепт КАК Рецепт
      |ИЗ
      |   Справочник.Номенклатура КАК Номенклатура
      |
      |УПОРЯДОЧИТЬ ПО
      |   Наименование УБЫВ";

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

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

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

Возврат(рез);
    КонецЦикла;
   
Конецфункции

Dobrolubov

Вообщем проблема такая, мне надо из запроса вытащить его результат. Подскажите может кто знает как это можно осуществить?

sergejK74

&НаСервере
функция аа()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
|   Номенклатура.Рецепт КАК Рецепт
|ИЗ
|   Справочник.Номенклатура КАК Номенклатура
|
|УПОРЯДОЧИТЬ ПО
|   Наименование УБЫВ";

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

Только тот запрос выдаст рецепт первого элемента справочника Номенклатура и все!
Кнопочка Спасибо - слева!

cska-fanat-kz

Что-то в последнее время пока поймешь что от тебя хотят... (((
Старею видимо.....

Применительно к вашему коду...
Цикл
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
     рез=ВыборкаДетальныеЗаписи;

Возврат(рез);
    КонецЦикла;

вам совсем не нужен. Вместо этого делайте так:

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

Возврат ВыборкаДетальныеЗаписи.Рецепт;
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Dobrolubov

дада спасибо, я уже сам на работе сделал) всё равно спасибо всем))

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск