ВПФ ошибка "В обработчике печати не был сформирован табличный документ для: АктВыполненныхРабот"

[sali]

Максим75, передали функцию в переменную

[sali]

Максим75, вопрос еще в следующем , почему достаточно одинаковый код выдает не одинаковый результат. у меня по прежнему не выходит в макет ничего

[Максим75]

sali, приведите сюда окончательный код.

[sali]

Максим75,

Код Выделить Развернуть

&НаКлиенте
Процедура ВыгрузкаВExcel(Команда)
    Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
    ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытия.Каталог = "";
    ДиалогОткрытия.МножественныйВыбор = Ложь;
    ДиалогОткрытия.Заголовок = "Выберите файл с контрагентами";

    Если ДиалогОткрытия.Выбрать() Тогда
        ПутьККаталогу = ДиалогОткрытия.Каталог;
    КонецЕсли;   
   
    Если Прав(ПутьККаталогу,1) <> "\" Тогда
        Объект.КаталогСохранения = ПутьККаталогу+"\";
    Иначе
        Объект.КаталогСохранения = ПутьККаталогу;
       
    КонецЕсли;
   
   
    //Сформируем уникальное имя файла
    ДатаИВремя = СтрЗаменить(ТекущаяДата(),":",".");
    ИмяФайла = "Импорт_" + ДатаИВремя;     
    ФорматФайла =  Объект.ТипФайла;
   
    //Добавим выбранный каталог к именя файла
    ПолноеИмяФайла = Объект.КаталогСохранения + ИмяФайла + "." + ФорматФайла;
   
        // Определим в каком формате будет выгружен документ
    Если   ФорматФайла = "XLS" Тогда
        ЗадатьТип =  ТипФайлаТабличногоДокумента.xls;
       
    ИначеЕсли     ФорматФайла = "DOCX" Тогда   
        ЗадатьТип = ТипФайлаТабличногоДокумента.docx;
       
    ИначеЕсли ФорматФайла = "PDF" Тогда   
        ЗадатьТип = ТипФайлаТабличногоДокумента.pdf;
       
    ИначеЕсли  ФорматФайла = "TXT" Тогда 
        ЗадатьТип = ТипФайлаТабличногоДокумента.txt;
       
    ИначеЕсли  ФорматФайла = "XLSX" Тогда 
        ЗадатьТип = ТипФайлаТабличногоДокумента.xlsx;
       

    Иначе
        Сообщить("Необходимо выбрать формат файла");
        Возврат;
    КонецЕсли;   
   
    СозданныйФайл = ЗаполнитьТаблицуНаСервере() ;
    СозданныйФайл.Записать(ПолноеИмяФайла, ЗадатьТип);
    Сообщить("Выгрузка данных успешно завершена!");
КонецПроцедуры

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

// Конец СтандартныеПодсистемы.РаботаСФайлами

#КонецОбласти
 

[Максим75]

sali, после СозданныйФайл = ЗаполнитьТаблицуНаСервере() ;
выведите этот табличный документ
СозданныйФайл.Показать();

если пустой табличный документ выводится, то посмотрите, есть ли хоть что-то в выборке запроса. ну просто выгрузить результат запроса в таблицу значений и посмотрите что там будет.

[sali]

Максим75, круто выводит, но не в файл разумеется, а в макет

[Максим75]

sali, ну хоть в макет выводит.
посмотрите что с именем файла, может там что-то не так.
должен писать.

[сергей123]

Unification.xla для excel как продлить 15 дней пробный период?

[Максим75]

сергей123, так у Вас вроде для xla нет типа файла. может здесь и надо копать?
вроде как это вообще файл надстроек.

[сергей123]

Максим75, https://excelvba.ru/programmes/Unification   как продлить программу с этого сайта
отредактировать файл xla или сделать только для чтения