8.х Подстановка данных в Word УТ11

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Kerbert, 13 июн 2017.

  1. TopicStarter Overlay
    Kerbert
    Offline

    Kerbert

    Регистрация:
    13 июн 2017
    Сообщения:
    1
    Симпатии:
    0
    Баллы:
    1
    Собственно есть документ, его нужно выводить на печать из модуля менеджера справочника. Может есть у кого типовое решение ,как это сделать?

    Документ разбит на области.
    Описал области
    Код:
    Функция ПолучитьОписаниеОбластей_Приложения_1(Контрагент)
      
        ОписаниеОбластей = Новый Структура;
      
        УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Заголовок",                    "Общая");
        УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Подвал",                        "Общая");
        УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "ШапкаТаблицыТовары",            "СтрокаТаблицы");
        УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "СтрокаТаблицыТовары",            "СтрокаТаблицы");
      
        Возврат ОписаниеОбластей;  
    КонецФункции
    Сделал запрос
    Код:
    Функция ПолучитьДанные_Приложения_1(Контрагент)
        Запрос = Новый Запрос();
        Запрос.Текст ="ВЫБРАТЬ
                      |    СоглашенияСКлиентами.Дата КАК Дата,
                      |    СоглашенияСКлиентами.Номер КАК Номер,
                      |    СоглашенияСКлиентами.Товары.(
                      |        Номенклатура,
                      |        Цена
                      |    ) КАК Товары
                      |ИЗ
                      |    Справочник.СоглашенияСКлиентами КАК СоглашенияСКлиентами";
        Результат = Запрос.Выполнить().Выбрать();
        Возврат Результат;
    КонецФункции
    
    Функция ПолучитьОписаниеТаблицы_Приложения_1(Контрагент)
        ДанныеОбъекта = ПолучитьДанные_Приложения_1(Контрагент);
        СтруктураТаблицы = Новый Структура;
        Пока ДанныеОбъекта.Следующий() Цикл
            СтруктураТаблицы.Вставить("Номенклатура",ДанныеОбъекта.Товары.Номенклатура);
            СтруктураТаблицы.Вставить("Цена", ДанныеОбъекта.Товары.Цена);
        КонецЦикла;
        Возврат СтруктураТаблицы;
    КонецФункции 
    
    Функция ПолучитьОписаниеДанных_Приложения1(Контрагент)
        ДанныеОбъекта = ПолучитьДанные_Приложения_1(Контрагент);
       
        СтруктураЗаполнения = Новый Структура;
        СтруктураЗаполнения.Вставить("Номер",ДанныеОбъекта.Номер);
        СтруктураЗаполнения.Вставить("Дата", ДанныеОбъекта.Дата);
        СтруктураЗаполнения.Вставить("НомерПред",ДанныеОбъекта.Номер);
        СтруктураЗаполнения.Вставить("ДатаПред", ДанныеОбъекта.Дата);   
        СтруктураЗаполнения.Вставить("ПолнаяДата", Формат(ДанныеОбъекта.Дата,"ДЛФ=ДД"));
        СтруктураЗаполнения.Вставить("Дата2", ДанныеОбъекта.Дата);
        СтруктураЗаполнения.Вставить("НомерПред2",ДанныеОбъекта.Номер);
        СтруктураЗаполнения.Вставить("ДатаПред2", ДанныеОбъекта.Дата);
       
        Возврат СтруктураЗаполнения;
    КонецФункции
    
    
    Как теперь совместить все это ?

    Вложения:

    Последнее редактирование: 13 июн 2017