Выгрузка сведений о застрахованных лицах в файл для ФСС
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Для возможности выгрузки сведений ФСС в файл создаем новое расширение, добавляем в него форму 'ОтправкаДокументов' из обработки 'ОбщиеФормыСЭДОФСС', как ниже на рисунке:
Открываем форму в расширении, добавляем новую команду для выгрузки в файл, не забываем добавить ее на форму. Как на рисунку ниже:
В модуле формы прописываем код:
&НаКлиенте
Процедура Расш_ВыгрузитьВФайлПосле(Команда)
ПодготовитьТаблицуКОтправке(Истина);
СформироватьФайлы();
ТолькоПросмотр = Ложь;
КонецПроцедуры
&НаКлиенте
Процедура СформироватьФайлы()
Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.Каталог = "";
ДиалогОткрытия.МножественныйВыбор = Ложь;
ДиалогОткрытия.Заголовок = "Выберите каталог для сохранения файлов";
Если ДиалогОткрытия.Выбрать() Тогда
Для Каждого вСтрока из Список Цикл
Если вСтрока.Отправить Тогда
ПутьККаталогу = ДиалогОткрытия.Каталог;
ПутьКФайлу = ПутьККаталогу + "\" + СтрЗаменить(вСтрока.ФизическоеЛицо," ","") + "_" + Строка(Формат(вСтрока.ДатаОтправки, "ДФ=ddMMyyyy" )) + ".xml";
Текст = Новый ТекстовыйДокумент;
Текст.ДобавитьСтроку(вСтрока.ТекстXML);
Текст.Записать(ПутьКФайлу);
Сообщить("Данные успешно выгружены.");
КонецЕсли;
КонецЦикла;
Иначе
Сообщить("Не выбран каталог для выгрузки.");
КонецЕсли;
ЭтаФорма.Закрыть();
КонецПроцедуры
Сохраняем, запускаем и пробуем, все должно работать.
Кому лень самому делать расширение, можете скачать готовое.
Все делалось и проверялось на 1С:Предприятие 8.3 (8.3.23.1865).
Конфигурация: Зарплата и управление персоналом, редакция 3.1 (3.1.28.65).
Проверено на следующих конфигурациях и релизах:
- Зарплата и управление персоналом, редакция 3.1, релизы 3.1.28.64
Вступайте в нашу телеграмм-группу Инфостарт