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

Печатная форма

Автор Smokez, 14 мая 2015, 21:41

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

Smokez

Доброго времени суток.
Как можно в заголовке печатной формы вывести "Приходная накладная № (номер документа) от (дата документа)"
??

Дмитрий@

В макете печатной форме добавляете шаблон с параметрами, и при формировании печатной формы заполняете параметры.

Smokez

Именно об этом я и спрашиваю, не знаю как эти параметры записать

tapasko

Цитата: Smokez от 15 мая 2015, 02:07
Именно об этом я и спрашиваю, не знаю как эти параметры записать

<Приходная накладная № [НомерДокумента] от [ДатаДокумента]>
НомерДокумента, ДатаДокумента - параметры, <..> - шаблон.

Smokez

Цитата: tapasko от 15 мая 2015, 10:01
Цитата: Smokez от 15 мая 2015, 02:07
Именно об этом я и спрашиваю, не знаю как эти параметры записать

<Приходная накладная № [НомерДокумента] от [ДатаДокумента]>
НомерДокумента, ДатаДокумента - параметры, <..> - шаблон.

<Приходная накладная № [НомерДокумента] от [ДатаДокумента]> это я вставил в печатную форму, а в код куда нужно пихнуть чтобы отображали?


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

   ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
   НомерДокумента, ДатаДокумента - параметры, <..> - шаблон.
         
   

   Шапка = Макет.ПолучитьОбласть("Шапка");
   ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
   ОбластьТовары = Макет.ПолучитьОбласть("Товары");
   ОбластьИтог = Макет.ПолучитьОбласть("Всего");
   ОбластьСуммаНДС = Макет.ПолучитьОбласть("СуммаНДС");
   ТабДок.Очистить();

   ВставлятьРазделительСтраниц = Ложь;
   Пока Выборка.Следующий() Цикл
      Если ВставлятьРазделительСтраниц Тогда
         ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
      КонецЕсли;

      ТабДок.Вывести(ОбластьЗаголовок);

      Шапка.Параметры.Заполнить(Выборка);
      ТабДок.Вывести(Шапка, Выборка.Уровень());

      ТабДок.Вывести(ОбластьТоварыШапка);
      ВыборкаТовары = Выборка.Товары.Выбрать();
      СуммаИтог = 0;
      СуммаСуммаНДС = 0;
      Пока ВыборкаТовары.Следующий() Цикл
         ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
         ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
         СуммаИтог = СуммаИтог + ВыборкаТовары.Всего;
         СуммаСуммаНДС = СуммаСуммаНДС + ВыборкаТовары.СуммаНДС;
      КонецЦикла;
      
      ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог;
      ТабДок.Вывести(ОбластьИтог);
      ОбластьСуммаНДС.Параметры.СуммаНДСПоДокумету = СуммаСуммаНДС;
      ТабДок.Вывести(ОбластьСуммаНДС);
      
      ВставлятьРазделительСтраниц = Истина;
   КонецЦикла;
   //}}
    // Вывести подвал
       Всего = СуммаИтог;
       ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
      ОбластьПодвал.Параметры.Пропись = ЧислоПрописью(Всего,, "Рубль, рубля,рублей, м, копейка, копейки, копеек, ж ,2");
      ТабДок.Вывести(ОбластьПодвал);
      
      // Вывести Ввод
       
       ОбластьВвод = Макет.ПолучитьОбласть("Ввод");
            ТабДок.Вывести(ОбластьВвод);
   
КонецПроцедуры

Дмитрий@

ЦитироватьОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
   НомерДокумента, ДатаДокумента - параметры, <..> - шаблон.
Там где вы указали.

Smokez

Решил сделать чуть по другому:

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

   ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
   ТекстНомер =
   ТекстДата =
   ОбластьЗаголовок.Параметры.ТекстЗаголовка = "Приходная Накладная №" + ТекстНомер + " От " + ТекстДата;


А как присвоить переменным значения Номера и даты?
Добавлено: 15 мая 2015, 21:59


Нашел) :zebzdr:

Шапка = Запрос.Выполнить().Выбрать();
   Шапка.Следующий();
   ОбластьЗаголовок.Параметры.ТекстЗаголовка = "Приходная Накладная №" + Шапка.Номер + " от " + Шапка.Дата;

Теги:

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

Рейтинг@Mail.ru

Поиск