Доработка УПП 1.3 для выгрузки без ЭДО файлов всех сотрудников из документа "Сведения о застрахованных лицах, ФСС"

	Иначе
		РаботаСДиалогами.ВывестиПредупреждение("Нет прав на документооборот с контролирующими органами (ФСС, ФНС, ПФР).");
	КонецЕсли;
	
КонецПроцедуры

//Космачев+ 21,02,2022 в конце модуля формы документа СведенияОЗастрахованныхЛицахФСС, номер строки 878
Процедура ОсновныеДействияФормыЗаписатьВсеПоДокументуНаДиск(Кнопка)
	
	//ПроцедурыПерсонифицированногоУчета.ЗаписатьФайлДокументаНаДискету(ЭтотОбъект, глЗначениеПеременной("глТекущийПользователь"), ОбменСведениямиОПособияхСФСС.ИмяФайла(ЭтотОбъект) + ".xml", КодировкаТекста.ANSI,,"Файл реестра записан под именем: ");
	ПервыйФайл = Истина;
	Для Каждого Стр Из РаботникиОрганизации Цикл
		ТекущаяСтрока = Стр;
		Если ТекущаяСтрока <> Неопределено Тогда
			ТекстФайла = ПолучитьТекстФайла(ТекущаяСтрока);
			Если ТекстФайла <> Неопределено Тогда
				ИмяФайла = "Сведения о застрахованном лице_" + ТекущаяСтрока.Сотрудник + "_" + Формат(Дата,"ДФ=yyyy_MM_dd") + "_" + Прав("000" + ОбщегоНазначенияЗК.ПолучитьНомерНаПечать(ЭтотОбъект), 4) + ".xml";
				ПроцедурыПерсонифицированногоУчета.ЗаписатьФайлДокументаНаДискету(ЭтотОбъект, глЗначениеПеременной("глТекущийПользователь"), ИмяФайла, КодировкаТекста.UTF8,ПервыйФайл,"Файл со сведениями о застрахованном лице записан под именем: ",, ТекстФайла);
				ПервыйФайл = Ложь;
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	
КонецПроцедуры
//Космачев- 21,02,2022


/////////////////////////////////////////////////////

мТаблицаДанныхИзРегистраСведений = Новый ТаблицаЗначений;

//Записывает файл сведений документа в каталог, указанный пользователем
Процедура ЗаписатьФайлДокументаНаДискету(ДокументОбъект, ТекущийПользователь, ИмяФайла, Знач КодировкаФайла = Неопределено, ВыбиратьКаталог = Истина, ТекстОповещения = "", ДобавлятьBOM = Истина, ТекстФайла = "") Экспорт
	
	//Космачев+ 21,02,2022
	ТекКаталог = "";
	//Космачев- 21,02,2022

	Вопрос = "Перед формированием файла необходимо записать документ. Записать?";
	Если НЕ РегламентированнаяОтчетность.ТребованиеЗаписиДокументаУдовлетворено(ДокументОбъект,Вопрос) Тогда
		Возврат;
	КонецЕсли;
	
	ЕстьОшибки = Ложь;
	Если ТекстФайла = "" Тогда
		ТекстФайла = РегламентированнаяОтчетность.ПолучитьТекстФайла(ДокументОбъект,ЕстьОшибки);
	КонецЕсли;
	Если ЕстьОшибки Тогда
		Возврат;
	КонецЕсли;
	
	Если КодировкаФайла = Неопределено Тогда
		КодировкаФайла = "windows-1251";
	КонецЕсли;
	
	Если ТипЗнч(КодировкаФайла) = Тип("КодировкаТекста") Тогда
		ТипКодировки = Строка(КодировкаФайла);
	Иначе
		ТипКодировки = КодировкаФайла;
	КонецЕсли;
	
	Если Не ДобавлятьBOM И ТипКодировки = "UTF8" Тогда
		Если Не ЕстьПоддержкаУправленияBOM() Тогда
			ДобавлятьBOM = Истина;
			СокращенноеИмяДокумента = Сред(ИмяФайла, Найти(ИмяФайла, "СЗВ-"));
			СокращенноеИмяДокумента = Лев(СокращенноеИмяДокумента, Найти(СокращенноеИмяДокумента, "_")-1);
			Предупреждение("Для записи файла """ + СокращенноеИмяДокумента + """ в соответствии с правилами ПФ РФ требуется использование технологической платформы ""1С:Предприятие 8"" версии 8.3.9.1818 или более поздней.
			|Сохраненный сейчас файл может быть отклонен ПФ РФ.", 20, "Внимание");
		КонецЕсли;
	Иначе
		ДобавлятьBOM = Истина;
	КонецЕсли;
	
	Если ВыбиратьКаталог  Тогда
		Длг = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
		Длг.Каталог = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ТекущийПользователь,"ОсновнойКаталогФайлов");
		Длг.Заголовок = "Укажите каталог";
		
		Если Длг.Выбрать() Тогда
			ИмяФайла = Длг.Каталог+"\" + ИмяФайла;
			//Космачев+ 21,02,2022
			ТекКаталог = Длг.Каталог+"\";
			СохранитьЗначение("ТекКаталог_"+СокрЛП(ТекущийПользователь),ТекКаталог);
			//Космачев- 21,02,2022
			
			Если ДобавлятьBOM Тогда
				ТекстовыйДокумент = Новый ТекстовыйДокумент;
				ТекстовыйДокумент.УстановитьТекст(ТекстФайла); 
				ТекстовыйДокумент.Записать(ИмяФайла, КодировкаФайла);
			Иначе
				Запись = Новый ЗаписьXML;
				Запись.ОткрытьФайл(ИмяФайла, ТипКодировки, Ложь);
				Запись.ЗаписатьБезОбработки(ТекстФайла);
				Запись.Закрыть();
			КонецЕсли;
			Если Не ЗначениеЗаполнено(ТекстОповещения) Тогда
				ТекстОповещения = "Файл записан под именем: "
			КонецЕсли;
			Предупреждение(ТекстОповещения + ИмяФайла);
		КонецЕсли;
	Иначе
		Если ДобавлятьBOM Тогда
			ТекстовыйДокумент = Новый ТекстовыйДокумент;
			//Космачев+ 21,02,2022
			ТекКаталог = ВосстановитьЗначение("ТекКаталог_"+СокрЛП(ТекущийПользователь));
			ИмяФайла = ТекКаталог+ИмяФайла; 
			//Космачев- 21,02,2022
			ТекстовыйДокумент.УстановитьТекст(ТекстФайла); 
			ТекстовыйДокумент.Записать(ИмяФайла,КодировкаФайла);
		Иначе
			Запись = Новый ЗаписьXML;
			//Космачев+ 21,02,2022
			ТекКаталог = ВосстановитьЗначение("ТекКаталог_"+СокрЛП(ТекущийПользователь));
			ИмяФайла = ТекКаталог+ИмяФайла; 
			//Космачев- 21,02,2022
			Запись.ОткрытьФайл(ИмяФайла, ТипКодировки, Ложь);
			Запись.ЗаписатьБезОбработки(ТекстФайла);
			Запись.Закрыть();
		КонецЕсли;
	КонецЕсли;
	
КонецПроцедуры