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

при печати сделать убывание по колонки

Автор serq82, 19 июл 2011, 11:15

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

serq82

Добрый день!
Процедура Печать(Элемент)
   //{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
   // Данный фрагмент построен конструктором.
   // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
   ТабДок = Новый ТабличныйДокумент;
   Макет = Документы.ЗаданиеНаПроизводство.ПолучитьМакет("Печать");
   // Заголовок
   Область = Макет.ПолучитьОбласть("Заголовок");
   ТабДок.Вывести(Область);
   // Шапка
   Шапка = Макет.ПолучитьОбласть("Шапка");
   Шапка.Параметры.Заполнить(ЭтотОбъект);
   ТабДок.Вывести(Шапка);
   // Товары
   Область = Макет.ПолучитьОбласть("ТоварыШапка");
   ТабДок.Вывести(Область);
   ОбластьТовары = Макет.ПолучитьОбласть("Товары");
   текст =  "ВЫБРАТЬ
    | ЗаданиеНаПроизводство.Номенклатура,
    | ЗаданиеНаПроизводство.Длина КАК Длина,
    | ЗаданиеНаПроизводство.Ширина КАК Ширина
    |ИЗ
    | Документ.ЗаданиеНаПроизводство.Товары КАК ЗаданиеНаПроизводство
    |
    |УПОРЯДОЧИТЬ ПО
    | Длина УБЫВ,
    | Ширина УБЫВ";;
   Запрос = новый Запрос();
   Запрос = текст;
      Для Каждого ТекСтрокаТовары Из Товары Цикл
   ОбластьТовары.Параметры.НомерСтроки = ТекСтрокаТовары.НомерСтроки;
   ОбластьТовары.Параметры.Номенклатура = ТекСтрокаТовары.Номенклатура;
   ОбластьТовары.Параметры.Длина = ТекСтрокаТовары.Длина;
   ОбластьТовары.Параметры.Ширина = ТекСтрокаТовары.Ширина;
   ОбластьТовары.Параметры.Количество = ТекСтрокаТовары.Количество;
   ТабДок.Вывести(ОбластьТовары);
   Запрос = Новый Запрос();
   Запрос = Текст;
   //Для Каждого ТекСтрокаТовары Из Товары Цикл
   //   ОбластьТовары.Параметры.Заполнить(ТекСтрокаТовары);
   //   ТабДок.Вывести(ОбластьТовары);
   КонецЦикла;

   ТабДок.ОтображатьСетку = Ложь;
   ТабДок.Защита = Ложь;
   ТабДок.ТолькоПросмотр = Ложь;
   ТабДок.ОтображатьЗаголовки = Ложь;
   ТабДок.Показать();
   //}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
КонецПроцедуры
Длина и Ширина число.
почему не упорядочивает???? где ошибка???

Андрей Федотов

а данный отчёт разве вообще что-либо выводит?
Где Запрос.Выполнить()? Или я что-то не верно понимаю?
Плюс лишняя ; в конце параметра  "текст"
С уважением,
Андрей Федотов
Future IT Solutions

Теги:

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

Рейтинг@Mail.ru

Поиск