Имя: Пароль:
1C
1С v8
Вывод отчета
0 Garikus
 
17.07.13
21:31
Доброго времени суток, помогите горю.
Есть очет :
Запрос.Текст =
   "ВЫБРАТЬ
   |    РеализацияТоваровУслуг.Дата КАК Дата,
   |   РеализацияТоваровУслуг.Номер КАК Номер,
   |    РеализацияТоваровУслуг.Контрагент.Ссылка КАК КонтрагентСсылка,
   |    РеализацияТоваровУслуг.Контрагент.Представление,
   |    РеализацияТоваровУслуг.Товары.(
   |        Номенклатура.НаименованиеПолное,
   |        Количество КАК Количество,
   |        Цена КАК Цена,
   |        Сумма,
   |        Номенклатура.Код КАК НоменклатураКод
   |    )
   |{ВЫБРАТЬ
   |    РеализацияТоваровУслуг.Ссылка.*,
   |    КонтрагентСсылка.*,
   |    НоменклатураКод,
   |    НоменклатураНаименованиеПолное,
   |    Количество,
   |    Цена}
   |ИЗ
   |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
   |ГДЕ
   |    РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаН И &ДатаО
   |
   |УПОРЯДОЧИТЬ ПО
   |    Дата,
   |    Номер,
   |   КонтрагентСсылка,
   |    НоменклатураКод,
   |    Количество,
   |    Цена";

   Запрос.УстановитьПараметр("ДатаН", ДатаН);
   Запрос.УстановитьПараметр("ДатаО", ДатаО);

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

   ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
   ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
   ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
   ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
   ОбластьДетальныхЗаписей2 = Макет.ПолучитьОбласть("Детали2");
   
   ТабДок.Очистить();
   ТабДок.Вывести(ОбластьЗаголовок);
   ТабДок.Вывести(ОбластьШапкаТаблицы);
   
   ВыборкаДетальныеЗаписи = Результат.Выбрать();

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

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

Как сделать чтобы все это безобразие в 1ну строку выводилось?
т.е. и документ и таб часть в 1й строке были
1 PR
 
17.07.13
21:38
Убери ТЧ
2 Garikus
 
17.07.13
21:41
(1) а подробнее? сплю уже, а отчет завтра сдавать
3 Garikus
 
17.07.13
21:55
хелп плиз)
4 PR
 
17.07.13
23:16
Запрос.Текст =
   "ВЫБРАТЬ
   |    РеализацияТоваровУслуг.Дата КАК Дата,
   |   РеализацияТоваровУслуг.Номер КАК Номер,
   |    РеализацияТоваровУслуг.Контрагент.Ссылка КАК КонтрагентСсылка,
   |    РеализацияТоваровУслуг.Контрагент.Представление
   |{ВЫБРАТЬ
   |    РеализацияТоваровУслуг.Ссылка.*,
   |    КонтрагентСсылка.*,
   |    НоменклатураКод,
   |    НоменклатураНаименованиеПолное,
   |    Количество,
   |    Цена}
   |ИЗ
   |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
   |ГДЕ
   |    РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаН И &ДатаО
   |
   |УПОРЯДОЧИТЬ ПО
   |    Дата,
   |    Номер,
   |   КонтрагентСсылка,
   |    НоменклатураКод,
   |    Количество,
   |    Цена";

   Запрос.УстановитьПараметр("ДатаН", ДатаН);
   Запрос.УстановитьПараметр("ДатаО", ДатаО);

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

   ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
   ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
   ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
   ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
   ОбластьДетальныхЗаписей2 = Макет.ПолучитьОбласть("Детали2");
   
   ТабДок.Очистить();
   ТабДок.Вывести(ОбластьЗаголовок);
   ТабДок.Вывести(ОбластьШапкаТаблицы);
   
   ВыборкаДетальныеЗаписи = Результат.Выбрать();

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