|   |   | 
| 
 | Авто сохранения выходных печатных форм! | ☑ | ||
|---|---|---|---|---|
| 0
    
        Longdimm 08.09.12✎ 18:31 | 
        Есть такая задача:
  В определенное время запускать отчет и форму печатную которая выходит сохранять на диск. Отчеты формируются из компоновки данных. Как это можно реализовать??? Буду очень признателен за советы! | |||
| 1
    
        Nexux 08.09.12✎ 18:37 | 
        ТабличныйДокумент.Записать(<ИмяФайла>, <ТипФайлаТаблицы>)     | |||
| 2
    
        Wobland 08.09.12✎ 18:39 | 
        делал подобную фигню. регзадание + (1) - всё тупо. пока не выяснилось, что нужна хтмл-ка ;)     | |||
| 3
    
        Longdimm 08.09.12✎ 18:43 | 
        2- не понял... а табличный документ сохранять как? Мне ведь надо запустить отчет чтобы он не появился на экране, а если это делается в компоновке данных то как это сделать?     | |||
| 4
    
        Wobland 08.09.12✎ 18:44 | 
        (3) не сохранять, а записать. куда выводится твой отчёт? вот это и записывай     | |||
| 5
    
        Longdimm 08.09.12✎ 18:51 | 
        надо чтобы в фоновом режиме раз в час запускалась обработка, которая запускает ряд отчетов, и выходные печатные формы сохраняет на диск. 
  Создать отчет, добавить нужные фильтры это я могу. Отчет = Отчеты.ОтчетПоЧекамККМ.Создать(); ФормаОтчета = Отчет.ПолучитьФорму(); ФормаОтчета.Открыть(); ФормаОтчета.НачалоПериода = НачалоМесяца(ТекущаяДата()); ФормаОтчета.КонецПериода = КонецМесяца(ТекущаяДата()); //Установка периода отчета ЗначениеПараметраНачалоПериода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("НачалоПериода")); ЗначениеПараметраКонецПериода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("КонецПериода")); ТекНастройкиКомпоновщика = Отчет.КомпоновщикНастроек.Настройки; ЗначениеПараметраНачалоПериода.Значение = (ТекущаяДата()); ЗначениеПараметраКонецПериода.Значение = (ТекущаяДата()); ФормаОтчета.ОбновитьОтчет(); Вот такой вызов отчета. Но он открывается... | |||
| 6
    
        Wobland 08.09.12✎ 18:52 | 
        (5) убери оттуда форму, и он будет работать, я думаю     | |||
| 7
    
        Wobland 08.09.12✎ 18:54 | 
        вот как делал. это процедура регзадания:
  Процедура ВыгрузкаВерсийППДляСайта() Экспорт СхемаКомпоновкиДанных=Отчеты.ВерсииППДляСайта.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); Настройки=СхемаКомпоновкиДанных.НастройкиПоУмолчанию; КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных; МакетКомпоновки=КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки); ПроцессорКомпоновки=Новый ПроцессорКомпоновкиДанных; ПроцессорКомпоновки.Инициализировать(МакетКомпоновки); ТабДок=Новый ТабличныйДокумент; ПроцессорВывода=Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент; ПроцессорВывода.УстановитьДокумент(ТабДок); ПроцессорВывода.Вывести(ПроцессорКомпоновки); ИмяФайлаТут=ПолучитьИмяВременногоФайла("html"); //Попытка // ТабДок.Записать(ИмяФайлаТут); //Исключение // //ЗаписьЖурналаРегистрации("ошибка записи файла версий ПП для сайта: "+ИмяФайлаТут); // ЗаписьЖурналаРегистрации(ОписаниеОшибки()); // Возврат; //КонецПопытки; Конвертер=Обработки.MXL2HTML.Создать(); Конвертер.КонвертацияMXL_в_HTML(ТабДок, ИмяФайлаТут); | |||
| 8
    
        Longdimm 08.09.12✎ 18:54 | 
        (6) - не понял...     | |||
| 9
    
        Wobland 08.09.12✎ 18:56 | 
        (8) теперь понял?
  ПроцессорВывода.УстановитьДокумент(ТабДок); ПроцессорВывода.Вывести(ПроцессорКомпоновки); ТабДок.Записать(ИмяФайлаТут); | |||
| 10
    
        Longdimm 08.09.12✎ 20:50 | 
        !!! Класс! Все работает! Спасибо огромное!     | |||
| 11
    
        Longdimm 08.09.12✎ 21:10 | 
        Еще вопрос возник!!
  А в этом случаи как прицепить настройки сохраненные??? СохраненнаяНастройка = Справочники.СохраненныеНастройки.НайтиПоНаименованию("3.3. Выручка по способу оплат вчера"); СтруктураПараметров = СохраненнаяНастройка.ХранилищеНастроек.Получить(); ЗаполнитьЗначенияСвойств(СхемаКомпоновкиДанных, СтруктураПараметров); в этом случаи ничего не происходит... | |||
| 12
    
        Nexux 08.09.12✎ 21:16 | 
        настройки в компоновщик подгружай     | |||
| 13
    
        Longdimm 08.09.12✎ 21:24 | 
        Выдает ошибку..   
  СхемаКомпоновкиДанных=Отчеты.ОтчетПоЧекамККМ.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); Настройки=СхемаКомпоновкиДанных.НастройкиПоУмолчанию; КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных; СохраненнаяНастройка = Справочники.СохраненныеНастройки.НайтиПоНаименованию("3.3. Выручка по способу оплат вчера"); СтруктураПараметров = СохраненнаяНастройка.ХранилищеНастроек.Получить(); Настройки.ЗагрузитьНастройки(СтруктураПараметров); ////ЗаполнитьЗначенияСвойств(СхемаКомпоновкиДанных, СтруктураПараметров); МакетКомпоновки=КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки); | |||
| 14
    
        Longdimm 08.09.12✎ 21:26 | 
        Разных типов сохраненные настройки и настойки компоновки данных     | |||
| 15
    
        Longdimm 08.09.12✎ 22:52 | 
        Как подгрузить настройки в компановщик!! Вот самый сложный вопрос...     | |||
| 16
    
        Wobland 09.09.12✎ 08:33 | 
        (15) поновщик     | |||
| 17
    
        Wobland 09.09.12✎ 08:35 | 
        поразмысли над этим
  Процедура ДействияФормыСформировать(Кнопка) УстановитьНастройки(); СформироватьОтчёт(); КонецПроцедуры Процедура УстановитьНастройки() ПараметрДанныхНачалоПериода=КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериода"); ПараметрДанныхНачалоПериода.Значение='00010101'; ПараметрДанныхНачалоПериода.Использование=Истина; ПараметрДанныхКонецПериода=КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("КонецПериода"); ПараметрДанныхКонецПериода.Значение=КонецДня(РабочаяДата); ПараметрДанныхКонецПериода.Использование=Истина; Настройки=КомпоновщикНастроек.Настройки; КонецПроцедуры Процедура СформироватьОтчёт() КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных; МакетКомпоновки=КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки); ... | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |