Имя: Пароль:
1C
1С v8
Вывод даты в макете документа
,
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) надо запрос переписывать