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

Внешняя печатная форма.

Автор иванБИТ, 30 мар 2015, 03:19

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

иванБИТ

Здравствуйте. Такая проблема. Создаю внешнюю печатную форму. вывожу по группам товаров. вроде все по учебнику. но во время вывода первой выборки "ВыборкаОбщийИтог " что то идет не так. может усталость сказывается. но немогу понять почему область выводит. но параметры не заполняет. и другие области кроме ОблШапка не видит.





Функция Печать() Экспорт
   ТабДок = новый ТабличныйДокумент;
   
   
   Макет = ПолучитьМакет("Макет");

   ОбластьШапки   = Макет.ПолучитьОбласть("ОблШапка");
   ОбластьГруппа = Макет.ПолучитьОбласть("ОблГруппа");
   
   ОбластьДанные   = Макет.ПолучитьОбласть("ОблДанные");
   ОбластьПодвал   = Макет.ПолучитьОбласть("ОблПодвал");
   
   ОбластьШапки.Параметры.Контрагент = СсылкаНаОбъект.Контрагент;
   ОбластьШапки.Параметры.Договор = СсылкаНаОбъект.ДоговорКонтрагента;
   ОбластьШапки.Параметры.Организация = СсылкаНаОбъект.Организация;
   ОбластьШапки.Параметры.Проект = СсылкаНаОбъект.Проект;
    ОбластьШапки.Параметры.Подразделение = СсылкаНаОбъект.Подразделение;

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

   ВыборкаПоНоменклатуре = ВыборкаПоГруппамТовара.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

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

   

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

иванБИТ


blackmoon89

масса вариантов

приложите свой файлик к сообщению

Luzer1C

Я вижу только то, что между строк:
ЦитироватьВыборка = Запрос.Выполнить().Выбрать();
                             
   ВыборкаОбщийИтог = Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
нужно добавить цикл и строку следующего содержания:

Пока Выборка.Следующий() Цикл
... и в конце
КонецЦикла
Халамбалам.

cska-fanat-kz

Цитата: иванБИТ от 30 мар 2015, 03:19Выборка = Запрос.Выполнить().Выбрать();
                             
   ВыборкаОбщийИтог = Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    ВыборкаОбщийИтог.Следующий();

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

Luzer1C

Цитироватьвот это место неправильное
Вот вот. И я о том же.:btbzdb:
Халамбалам.

Теги:

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

Рейтинг@Mail.ru

Поиск