ЗУП Автоматическая выгрузка отчёта в сетевой каталог в формате txt
Коллеги, подмогите дилетанту!
Задача такова:
Необходимо, чтобы 1С ЗУП, по расписанию, в определённый сетевой каталог выгружал файл txt с информацией по сотрудникам.
Был сделан с помощью редактора простой внешний отчёт, в котором есть вся необходимая информация. Дальше что делать?
В модуль объекта указать некую процедуру, которая будут выгружать файл определённого формата по определённому адресу?
Если да, то подскажите, что там должно быть?
Или сам внешний отчёт для этих дел не подходит и надо создавать обработку?
Задача такова:
Необходимо, чтобы 1С ЗУП, по расписанию, в определённый сетевой каталог выгружал файл txt с информацией по сотрудникам.
Был сделан с помощью редактора простой внешний отчёт, в котором есть вся необходимая информация. Дальше что делать?
В модуль объекта указать некую процедуру, которая будут выгружать файл определённого формата по определённому адресу?
Если да, то подскажите, что там должно быть?
Или сам внешний отчёт для этих дел не подходит и надо создавать обработку?
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
рабочий пример выгрузки отчета в файл excel по расписанию
Функция СведенияОВнешнейОбработке() Экспорт
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
//ПараметрыРегистрации.Вставить("Назначение", ...);
ПараметрыРегистрации.Вставить("Наименование", "Реестр очистки сервер");
ПараметрыРегистрации.Вставить("Версия", "1.0");
ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
ПараметрыРегистрации.Вставить("Информация", "Реестр очистки сервер");
ТаблицаКоманд = ПолучитьТаблицуКоманд();
ДобавитьКоманду(ТаблицаКоманд,
"Реестр очистки сервер",
"ОбработатьАвтоматом",
"ВызовСерверногоМетода",
//"ОткрытиеФормы",
Истина,""
);
ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
Возврат ПараметрыРегистрации;
КонецФункции
Функция ПолучитьТаблицуКоманд()
Команды = Новый ТаблицаЗначений;
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
Возврат Команды;
КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
НоваяКоманда = ТаблицаКоманд.Добавить();
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
Процедура ВыполнитьКоманду(ИдентификаторКоманды) Экспорт
Если ИдентификаторКоманды = "ОбработатьАвтоматом" тогда
ВыгрузитьВЕксельСервер();
ЗаписьЖурналаРегистрации("ВыгрузкаРеестраИз1С",УровеньЖурналаРегистрации.Информация,,,"Начало");
КонецЕсли;
КонецПроцедуры
Процедура ВыгрузитьВЕксельСервер() Экспорт
ВремПутьКФайлуОтчета = "C:\777\Реестр_очистки.xlsx";
ТабДок = ПечатьНаСервере();
ТабДок.Записать(ВремПутьКФайлуОтчета, ТипФайлаТабличногоДокумента.XLSX);
ЗаписьЖурналаРегистрации("ВыгрузкаРеестраИз1С",УровеньЖурналаРегистрации.Информация,,,"Окончание");
КонецПроцедуры
Функция СведенияОВнешнейОбработке() Экспорт
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
//ПараметрыРегистрации.Вставить("Назначение", ...);
ПараметрыРегистрации.Вставить("Наименование", "Реестр очистки сервер");
ПараметрыРегистрации.Вставить("Версия", "1.0");
ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
ПараметрыРегистрации.Вставить("Информация", "Реестр очистки сервер");
ТаблицаКоманд = ПолучитьТаблицуКоманд();
ДобавитьКоманду(ТаблицаКоманд,
"Реестр очистки сервер",
"ОбработатьАвтоматом",
"ВызовСерверногоМетода",
//"ОткрытиеФормы",
Истина,""
);
ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
Возврат ПараметрыРегистрации;
КонецФункции
Функция ПолучитьТаблицуКоманд()
Команды = Новый ТаблицаЗначений;
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
Возврат Команды;
КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
НоваяКоманда = ТаблицаКоманд.Добавить();
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
Процедура ВыполнитьКоманду(ИдентификаторКоманды) Экспорт
Если ИдентификаторКоманды = "ОбработатьАвтоматом" тогда
ВыгрузитьВЕксельСервер();
ЗаписьЖурналаРегистрации("ВыгрузкаРеестраИз1С",УровеньЖурналаРегистрации.Информация,,,"Начало");
КонецЕсли;
КонецПроцедуры
Процедура ВыгрузитьВЕксельСервер() Экспорт
ВремПутьКФайлуОтчета = "C:\777\Реестр_очистки.xlsx";
ТабДок = ПечатьНаСервере();
ТабДок.Записать(ВремПутьКФайлуОтчета, ТипФайлаТабличногоДокумента.XLSX);
ЗаписьЖурналаРегистрации("ВыгрузкаРеестраИз1С",УровеньЖурналаРегистрации.Информация,,,"Окончание");
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот