Функция передает только одно значение

[denis-moscow1987]

&НаКлиенте
Процедура ЗагрузкаВыгрузкаАдресНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка=Ложь;
ММаршрут= новый СписокЗначений();
ММаршрут.Добавить(Адрес());
         ММаршрут.ОтметитьЭлементы("");
      СписокСтрока = "";
Для каждого стр из ММаршрут цикл
   Если Стр.Пометка=Истина Тогда
      СписокСтрока = СписокСтрока + Стр.Значение + ", ";
   КонецЕсли;
КонецЦикла;
СписокСтрока = Лев(СписокСтрока, СтрДлина(СписокСтрока)-2);
Элементы.ЗагрузкаВыгрузка.ТекущиеДанные.Адрес=СписокСтрока;



КонецПроцедуры
&НаСервере
Функция   Адрес()

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

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

   Пока рез.Следующий() цикл
      Авто=стр.Представление;
   Возврат Авто;   
   КонецЦикла;   

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

В РС 4 Значения, а передается только 1, подскажите в чем проблема?
Спасибо.

[GRADUS]

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


Пока рез.Следующий() цикл
    Авто=стр.Представление;
    Возврат Авто;   
КонецЦикла; 

Вот в этом

[Snaky]

&НаКлиенте
Процедура ЗагрузкаВыгрузкаАдресНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка=Ложь;
ММаршрут= новый СписокЗначений();
ММаршрут.Добавить(Адрес());
         ММаршрут.ОтметитьЭлементы("");
      СписокСтрока = "";
Для каждого стр из ММаршрут цикл
   Если Стр.Пометка=Истина Тогда
      СписокСтрока = СписокСтрока + Стр.Значение + ", ";
   КонецЕсли;
КонецЦикла;
СписокСтрока = Лев(СписокСтрока, СтрДлина(СписокСтрока)-2);
Элементы.ЗагрузкаВыгрузка.ТекущиеДанные.Адрес=СписокСтрока;



КонецПроцедуры
&НаСервере
Функция   Адрес()

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

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

   Пока рез.Следующий() цикл
      Авто=стр.Представление;
   Возврат Авто;   
   КонецЦикла;   

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

В РС 4 Значения, а передается только 1, подскажите в чем проблема?
Спасибо.

Функция не может возвращать несколько значений, загоните Ваши результаты в массив и верните его.

[cska-fanat-kz]

В РС 4 Значения, а передается только 1, подскажите в чем проблема?
Спасибо.

Как Вы себе в принципе представляете "цикличное возвращение функцией нескольких значений"???

[denis-moscow1987]

&НаКлиенте
Процедура ЗагрузкаВыгрузкаАдресНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка=Ложь;
ММаршрут= новый СписокЗначений();
ММаршрут.Добавить(Адрес());
         ММаршрут.ОтметитьЭлементы("");
      СписокСтрока = "";
Для каждого стр из ММаршрут цикл
   Если Стр.Пометка=Истина Тогда
      СписокСтрока = СписокСтрока + Стр.Значение + ", ";
   КонецЕсли;
КонецЦикла;
СписокСтрока = Лев(СписокСтрока, СтрДлина(СписокСтрока)-2);
Элементы.ЗагрузкаВыгрузка.ТекущиеДанные.Адрес=СписокСтрока;

КонецПроцедуры
&НаСервере
Функция   Адрес()

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

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

   Пока рез.Следующий() цикл
      Авто=стр.Представление;
   Возврат Авто;   
   КонецЦикла;   

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

В РС 4 Значения, а передается только 1, подскажите в чем проблема?
Спасибо.

Функция не может возвращать несколько значений, загоните Ваши результаты в массив и верните его.

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

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


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


Пока рез.Следующий() цикл
Массив=Новый Массив;

Авто=Рез.Представление;
Массив.Добавить(Авто);

КонецЦикла;

Возврат Массив;


СтандартнаяОбработка=Ложь;
ММаршрут= новый СписокЗначений();
ММаршрут.Добавить(Адрес());
         ММаршрут.ОтметитьЭлементы("");
      СписокСтрока = "";
Для каждого стр из ММаршрут цикл
   Если Стр.Пометка=Истина Тогда
      СписокСтрока = СписокСтрока + Стр.Значение + ", ";
   КонецЕсли;
КонецЦикла;
СписокСтрока = Лев(СписокСтрока, СтрДлина(СписокСтрока)-2);
Элементы.ЗагрузкаВыгрузка.ТекущиеДанные.Адрес=СписокСтрока;

Возвращает пустой массив.
Уточните в чем проблема, что не так?

[cska-fanat-kz]

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

Пока рез.Следующий() цикл
      Массив=Новый Массив;

      Авто=Рез.Представление;
      Массив.Добавить(Авто);   
   
КонецЦикла;

а должно быть...

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

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

должен быть не пустой а с последним значением из запроса...

а это

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

СтандартнаяОбработка=Ложь;
ММаршрут= новый СписокЗначений();
ММаршрут.Добавить(Адрес());
         ММаршрут.ОтметитьЭлементы("");
      СписокСтрока = "";
Для каждого стр из ММаршрут цикл
   Если Стр.Пометка=Истина Тогда
      СписокСтрока = СписокСтрока + Стр.Значение + ", ";
   КонецЕсли;
КонецЦикла;
СписокСтрока = Лев(СписокСтрока, СтрДлина(СписокСтрока)-2);
Элементы.ЗагрузкаВыгрузка.ТекущиеДанные.Адрес=СписокСтрока;

к чему?
в любом случае после "Возврат Массив;" ничего из этого не выполнится НИ КОГ ДА...

[denis-moscow1987]

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

Пока рез.Следующий() цикл
      Массив=Новый Массив;

      Авто=Рез.Представление;
      Массив.Добавить(Авто);   
   
КонецЦикла;

а должно быть...

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

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

должен быть не пустой а с последним значением из запроса...

а это

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

СтандартнаяОбработка=Ложь;
ММаршрут= новый СписокЗначений();
ММаршрут.Добавить(Адрес());
         ММаршрут.ОтметитьЭлементы("");
      СписокСтрока = "";
Для каждого стр из ММаршрут цикл
   Если Стр.Пометка=Истина Тогда
      СписокСтрока = СписокСтрока + Стр.Значение + ", ";
   КонецЕсли;
КонецЦикла;
СписокСтрока = Лев(СписокСтрока, СтрДлина(СписокСтрока)-2);
Элементы.ЗагрузкаВыгрузка.ТекущиеДанные.Адрес=СписокСтрока;

к чему?
в любом случае после "Возврат Массив;" ничего из этого не выполнится НИ КОГ ДА...

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

Так а как мне передать на форму список значений помещенных в массив?

[cska-fanat-kz]

точно не помню...

СписокЗнач = Новый СписокЗначений;
СписокЗнач.Загрузить(Массив);

[cska-fanat-kz]

мне просто лень докапываться, в чем именно задача состоит.....

[denis-moscow1987]

Тема закрыта , спасибо Snaky