1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Запрос не работает как надо

Тема в разделе "Базы данных и администрирование", создана пользователем umbra, 18 май 2010.

  1. umbra

    umbra Гость

    Репутация:
    0
    Сильно не ругать ,я только начинаю осваивать 1с))
    Есть внешняя печатная форма на которой должны выводиться склады из табличной части документа.
    НО функция выводит только первый склад, остальные не выводятся.
    Если кому не трудно подскажите что надо исправить и дописать?

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

    thinkfast Гость

    Репутация:
    0
    Тут выбиратся первый элемент, чтобы попадали все напишите в цикле
    Пока Выборка.Следующий() Цикл
    ОбластьТовары.Параметры.Заполнить(Выборка);
    ТабДок.Вывести(ОбластьТовары);
    КонецЦикла
     
  3. umbra

    umbra Гость

    Репутация:
    0
    Спасибо большое ,все заработало)))
     
  4. thinkfast

    thinkfast Гость

    Репутация:
    0
Загрузка...

Поделиться этой страницей