|
Вывод даты в макете документа | ☑ | ||
---|---|---|---|---|
0
Roma1314704
07.08.17
✎
11:20
|
Есть документ счет на оплату, в шапке нужно вывести дату в формате дата месяц прописью + год. Поскольку в макете дата в ячейке шаблона то формат нужно прикрутить в коде, вот только где не могу понять
Процедура Печать1(ТабДок, Ссылка) Экспорт //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать1) Макет = Документы.Счет.ПолучитьМакет("Печать1"); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Счет.Дата, | Счет.Контрагент, | Счет.Номер, | Счет.Товары.( | НомерСтроки, | НомерСтроки, | Номенклатура, | ЕдИзм, | Количество, | ЦенаРозничная, | Сумма | ) |ИЗ | Документ.Счет КАК Счет |ГДЕ | Счет.Ссылка В (&Ссылка)"; Запрос.Параметры.Вставить("Ссылка", Ссылка); Выборка = Запрос.Выполнить().Выбрать(); //ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); Шапка = Макет.ПолучитьОбласть("Шапка"); ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка"); ОбластьТовары = Макет.ПолучитьОбласть("Товары"); ТабДок.Очистить(); ВставлятьРазделительСтраниц = Ложь; Пока Выборка.Следующий() Цикл Если ВставлятьРазделительСтраниц Тогда ТабДок.ВывестиГоризонтальныйРазделительСтраниц(); КонецЕсли; //ТабДок.Вывести(ОбластьЗаголовок); Шапка.Параметры.Заполнить(Выборка); ТабДок.Вывести(Шапка, Выборка.Уровень()); ТабДок.Вывести(ОбластьТоварыШапка); ВыборкаТовары = Выборка.Товары.Выбрать(); Пока ВыборкаТовары.Следующий() Цикл ОбластьТовары.Параметры.Заполнить(ВыборкаТовары); ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень()); КонецЦикла; ВставлятьРазделительСтраниц = Истина; КонецЦикла; //}} КонецПроцедуры |
|||
1
Йохохо
07.08.17
✎
11:21
|
Шапка.Параметры.Заполнить(Выборка);
|
|||
2
Timon1405
07.08.17
✎
11:24
|
МояДата=Дата(2017,8,7);
Вар1= Формат(МояДата,"ДФ=""'""""'дд'""""' ММММ гггг 'г.'"""); Вар2= Формат(МояДата,"ДЛФ=DD"); |
|||
3
Roma1314704
07.08.17
✎
11:33
|
Дату документа откуда взять?
|
|||
4
Timon1405
07.08.17
✎
11:34
|
"ВЫБРАТЬ
| Счет.Дата, <<вот она |
|||
5
Roma1314704
07.08.17
✎
11:42
|
) не понятно
|
|||
6
Йохохо
07.08.17
✎
11:45
|
Шапка.Параметры.Заполнить(Выборка);
Шапка.Параметры.Дата = ТутНапишиСамЧтоТоС(Формат(Выборка.Дата, "")); |
|||
7
1dvd
07.08.17
✎
11:45
|
тут значения из запроса выводятся в область, которая потом добавится в табличный документ:
Шапка.Параметры.Заполнить(Выборка); Если нужно какой-то реквизит добавить особым образом, то допиши: Шапка.Параметры.Дата = Формат(Выборка.Дата, "ЧГПДТ"); |
|||
8
Roma1314704
07.08.17
✎
12:08
|
Получилось, большое спасибо!
|
|||
9
1dvd
07.08.17
✎
12:09
|
поржалуйста :)
|
|||
10
Йохохо
07.08.17
✎
12:11
|
утро добра
|
|||
11
Roma1314704
07.08.17
✎
13:08
|
Дальше столкнулся с проблемой как выдернуть в печать итоговую сумму документа.
|
|||
12
1dvd
07.08.17
✎
14:40
|
(11) надо запрос переписывать
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |