123

	ДокументКорректировкиДолга = Документы.КорректировкаДолга.СоздатьДокумент();
	//ДокументКорректировкиДолга.ВидОперации = Перечисления.ВидыОперацийКорректировкаДолга.РасчетыЧерезПочту;
	ДокументКорректировкиДолга.Ответственный      = ПараметрыСеанса.ТекущийПользователь;
	ДокументКорректировкиДолга.КратностьДокумента = 1;
	ДокументКорректировкиДолга.КурсДокумента      = 1;
	ДокументКорректировкиДолга.ВалютаДокумента    = Справочники.Валюты.НайтиПоКоду("643");
	ДокументКорректировкиДолга.Дата               = ТекущаяДата();

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

	РезультатЗапроса = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	//БИТ Бутин А.В.
	//ВыборкаДетальныеЗаписи.Следующий();
	//Копим ошибки, потом отправляем файл с ошибками на почту
	//убрал попытка исключение конец попытки, так как нужно,
	//чтобы файлы, с которыми не было ошибок отрабатывались
	Если НЕ ВыборкаДетальныеЗаписи.Следующий() Тогда
		Возврат;
	КонецЕсли;
	КаталогОткудаЧитатьФайлы = ВыборкаДетальныеЗаписи.Откуда;
	КаталогКудаЗаписатьАрхив = ВыборкаДетальныеЗаписи.Куда;

	ИмяКаталогаЛогФайла = (КаталогОткудаЧитатьФайлы + "\" + "Лог ошибок");
	ИмяЛогФайла = ИмяКаталогаЛогФайла + "\" + "Ошибки" + ".txt";

	КаталогЛог = Новый Файл (ИмяКаталогаЛогФайла);
	Если НЕ КаталогЛог.Существует() Тогда
		СоздатьКаталог(ИмяКаталогаЛогФайла);
	КонецЕсли;

	ЛогФайл = Новый ЗаписьТекста(ИмяЛогФайла);
	Ошибки = "";
	БылаОшибка = Ложь;
	ДокументЗаписан = Ложь;
	УчетнаяЗапись = ВыборкаДетальныеЗаписи.УчетнаяЗаписьЭП;

	ПараметрыПисьма = Новый Структура;
	ПараметрыПисьма.Вставить("Кому"	   , ВыборкаДетальныеЗаписи.ПолучательЛогаОшибок);
	ПараметрыПисьма.Вставить("Тема"	   , "Файл с ошибками в работе обработки ""Создание и заполнение ТЧ корректировки долга""");
	//!БИТ Бутин А.В.


	ДокументКорректировкиДолга.Организация        =  ВыборкаДетальныеЗаписи.Организация;
	ДокументКорректировкиДолга.КонтрагентКредитор = ВыборкаДетальныеЗаписи.Контрагент;
	ДокументКорректировкиДолга.КПС                = Справочники.КлассификационныеПризнакиСчетов.НайтиПоКоду("04100000000000130");
	СтрокаТЧКредиторка = ДокументКорректировкиДолга.КредиторскаяЗадолженность.Добавить();
	СтрокаТЧКредиторка.ДоговорКонтрагента         = ВыборкаДетальныеЗаписи.ДоговорКонтрагента;
	//СтрокаТЧКредиторка.Сделка                     = ВыборкаДетальныеЗаписи.ДокументРасчета;
	//СтрокаТЧКредиторка.КурсВзаиморасчетов      = 1;
	//СтрокаТЧКредиторка.КратностьВзаиморасчетов = 1;

	НайденныеФайлы = НайтиФайлы(КаталогОткудаЧитатьФайлы, "*.txt");

	Если НайденныеФайлы.Количество() = 0 Тогда
		//БИТ Бутин А.В.
		//Сообщить("В каталоге " + КаталогОткудаЧитатьФайлы + " отсутствуют файлы с расширением .txt!");
		Ошибки = Строка(ТекущаяДата()) + Символы.Таб + "В каталоге " + КаталогОткудаЧитатьФайлы
		+ " отсутствуют файлы с расширением .txt!" + Символы.ПС;
		ЛогФайл.ЗаписатьСтроку(Ошибки);
		ЛогФайл.Закрыть();

		Вложение = Новый Соответствие;
		Вложение.Вставить("Ошибки", Новый ДвоичныеДанные(ИмяЛогФайла));
		ПараметрыПисьма.Вставить("Вложения", Вложение);

		РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(УчетнаяЗапись, ПараметрыПисьма);
		Возврат;
		//!БИТ Бутин А.В.
	КонецЕсли;

	ТзДебиторка = Новый ТаблицаЗначений;
	ТзДебиторка.Колонки.Добавить("ПутьКФайлу", Новый ОписаниеТипов("Строка"));
	ТзДебиторка.Колонки.Добавить("ИмяФайла", Новый ОписаниеТипов("Строка"));
	ТзДебиторка.Колонки.Добавить("КонтрагентСтрока", Новый ОписаниеТипов("Строка"));
	ТзДебиторка.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));
	ФайлыСОшибками = ТзДебиторка.Скопировать();

	Для Каждого НайденныйФайл Из НайденныеФайлы Цикл

		Текст = Новый ЧтениеТекста(НайденныйФайл.ПолноеИмя, КодировкаТекста.UTF8);

		СодержимоеФайла = Текст.Прочитать();

		//первая строка - ID транзакции:	<номер>
		//вторая строка - Фактическое время платежа:	<ГГГГ-ММ-ДДTЧЧ:ММ:СС>
		//третья строка - Время платежа:	<ГГГГ-ММ-ДДTЧЧ:ММ:СС>
		//четвертая строка - Телефонный номер:	<8ххххххххх>
		//пятая строка - Сумма платежа:	<сумма>
		ПозицияПервойСтроки = Найти(СодержимоеФайла, "ID транзакции");
		ПозицияВторойСтроки = Найти(СодержимоеФайла, "Фактическое время платежа");
		ПозицияТретьейСтроки = Найти(СодержимоеФайла, "Время платежа");
		ПозицияЧетвертойСтроки = Найти(СодержимоеФайла, "Телефонный номер");
		ПозицияПятойСтроки = Найти(СодержимоеФайла, "Сумма платежа");

		//первая строка - ID транзакции:	<номер>
		//СтрИД = Текст.ПрочитатьСтроку();
		СтрИД = Сред(СодержимоеФайла, ПозицияПервойСтроки, ПозицияВторойСтроки - ПозицияПервойСтроки);

		//вторая строка - Фактическое время платежа:	<ГГГГ-ММ-ДДTЧЧ:ММ:СС>
		//СтрФактВремя = Текст.Прочитать().ПрочитатьСтроку();
		СтрФактВремя = Сред(СодержимоеФайла, ПозицияВторойСтроки, ПозицияТретьейСтроки - ПозицияВторойСтроки);
		СтрФактВремя = СокрЛП(Сред(СтрФактВремя, Найти(СтрФактВремя, ":") + 1));
		СтрФактВремя = СтрЗаменить(СтрФактВремя, "-", "");
		СтрФактВремя = СтрЗаменить(СтрФактВремя, "T", "");
		СтрФактВремя = СтрЗаменить(СтрФактВремя, ":", "");
		ФактДатаДокумента = Дата(СтрФактВремя);

		//третья строка - Время платежа:	<ГГГГ-ММ-ДДTЧЧ:ММ:СС>
		//СтрВремя = Текст.ПрочитатьСтроку();
		СтрВремя = Сред(СодержимоеФайла, ПозицияТретьейСтроки, ПозицияЧетвертойСтроки - ПозицияТретьейСтроки);
		СтрВремя = СокрЛП(Сред(СтрВремя, Найти(СтрВремя, ":") + 1));

		СтрВремяЛишнее = СтрЗаменить(СтрВремя, "0", "");
		СтрВремяЛишнее = СтрЗаменить(СтрВремяЛишнее, "1", "");
		СтрВремяЛишнее = СтрЗаменить(СтрВремяЛишнее, "2", "");
		СтрВремяЛишнее = СтрЗаменить(СтрВремяЛишнее, "3", "");
		СтрВремяЛишнее = СтрЗаменить(СтрВремяЛишнее, "4", "");
		СтрВремяЛишнее = СтрЗаменить(СтрВремяЛишнее, "5", "");
		СтрВремяЛишнее = СтрЗаменить(СтрВремяЛишнее, "6", "");
		СтрВремяЛишнее = СтрЗаменить(СтрВремяЛишнее, "7", "");
		СтрВремяЛишнее = СтрЗаменить(СтрВремяЛишнее, "8", "");
		СтрВремяЛишнее = СтрЗаменить(СтрВремяЛишнее, "9", "");
		Для ном = 1 по СтрДлина(СтрВремяЛишнее) Цикл
			ЛишнийСимвол = Сред(СтрВремяЛишнее, ном, 1);
			СтрВремя = СтрЗаменить(СтрВремя, ЛишнийСимвол, "");
		КонецЦикла;

		//СтрВремя = СтрЗаменить(СтрВремя, "-", "");
		//СтрВремя = СтрЗаменить(СтрВремя, "NOVT", "");
		//СтрВремя = СтрЗаменить(СтрВремя, ":", "");

		ДатаДокумента = Дата(СтрВремя);

		//четвертая строка - Телефонный номер:	<8ххххххххх>
		//СтрТелефон = Текст.ПрочитатьСтроку();
		СтрТелефон = Сред(СодержимоеФайла, ПозицияЧетвертойСтроки, ПозицияПятойСтроки - ПозицияЧетвертойСтроки);
		СтрТелефон = СокрЛП(Сред(СтрТелефон, Найти(СтрТелефон, ":") + 1));
		СтрТелефон = Сред(СтрТелефон, 2);

		//пятая строка - Сумма платежа:	<сумма>
		//СтрСумма = Текст.ПрочитатьСтроку();
		СтрСумма = Сред(СодержимоеФайла, ПозицияПятойСтроки);
		СтрСумма = СокрЛП(Сред(СтрСумма, Найти(СтрСумма, ":") + 1));

		//Сообщить("Обработка файла " + НайденныйФайл.ПолноеИмя + ":");
		//Сообщить("Дата: " + Строка(ДатаДокумента));
		//Сообщить("Телефон: " + Строка(СтрТелефон));
		//Сообщить("Сумма: " + Строка(СтрСумма));
		//Сообщить("Конец обработки файла.");

		СтрДебиторка                  = ТзДебиторка.Добавить();
		СтрДебиторка.ПутьКФайлу       = НайденныйФайл.Путь;
		СтрДебиторка.ИмяФайла         = НайденныйФайл.Имя;
		СтрДебиторка.КонтрагентСтрока = СтрТелефон;
		СтрДебиторка.Сумма            = Число(СтрСумма);

		Текст.Закрыть();

	КонецЦикла;

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

	Для Каждого СтрДебиторкаПодробная ИЗ ТзДебиторкаПодробная Цикл
		Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(СтрДебиторкаПодробная.КонтрагентСтрока,Истина);
		//БИТ Бутин А.В.
		//Если Контрагент = Справочники.Контрагенты.ПустаяСсылка() Тогда
		Если Контрагент = Справочники.Контрагенты.ПустаяСсылка() ИЛИ Контрагент = Неопределено Тогда
			//Сообщить("Контрагент " + стрДебиторкаПодробная.КонтрагентСтрока + " не найден!");
			Ошибки = Строка(ТекущаяДата()) + Символы.Таб + "Контрагент "
			+ СтрДебиторкаПодробная.КонтрагентСтрока + " не найден!" + Символы.ПС;
			ЛогФайл.ЗаписатьСтроку(Ошибки);
			ЗаполнитьЗначенияСвойств(ФайлыСОшибками.Добавить(), СтрДебиторкаПодробная);
			МассивУдаляемыхСтрок.Добавить(СтрДебиторкаПодробная);
			БылаОшибка = Истина;
			//!БИТ Бутин А.В.
			Продолжить;
		КонецЕсли;

		//БИТ Бутин А.В.
		//Если УстановитьДоговорКонтрагента(Контрагент) = Справочники.Договоры.ПустаяСсылка() Тогда
		ДоговорКонтрагента = УстановитьДоговорКонтрагента(Контрагент);
		Если ДоговорКонтрагента = Справочники.Договоры.ПустаяСсылка() ИЛИ ДоговорКонтрагента = Неопределено Тогда
			//Сообщить("Основной договор контрагента " + Строка(стрДебиторкаПодробная.Контрагент) + " не найден!");
			Ошибки = Строка(ТекущаяДата()) + Символы.Таб + "Основной договор контрагента "
			+ Строка(СтрДебиторкаПодробная.КонтрагентСтрока) + " не найден!" + Символы.ПС;
			ЛогФайл.ЗаписатьСтроку(Ошибки);
			ЗаполнитьЗначенияСвойств(ФайлыСОшибками.Добавить(), СтрДебиторкаПодробная);
			МассивУдаляемыхСтрок.Добавить(СтрДебиторкаПодробная);
			БылаОшибка = Истина;
			//!БИТ Бутин А.В.
			Продолжить;
		КонецЕсли;

		СтрокаТЧДебиторка = ДокументКорректировкиДолга.ДебиторскаяЗадолженность.Добавить();
		СтрокаТЧДебиторка.Контрагент              = Контрагент;
		//БИТ Бутин А.В.
		//СтрокаТЧДебиторка.ДоговорКонтрагента      = УстановитьДоговорКонтрагента(Контрагент);
		СтрокаТЧДебиторка.ДоговорКонтрагента      = ДоговорКонтрагента;
		//!БИТ Бутин А.В.
		СтрокаТЧДебиторка.КурсВзаиморасчетов      = 1;
		СтрокаТЧДебиторка.КратностьВзаиморасчетов = 1;
		СтрокаТЧДебиторка.Сумма                   = стрДебиторкаПодробная.Сумма;
		СтрокаТЧДебиторка.СчетУчетаРасчетов       = ПланыСчетов.ЕПСБУ.НайтиПоКоду("205.31");

	КонецЦикла;

	//БИТ Бутин А.В.
	Для Каждого Строка Из МассивУдаляемыхСтрок Цикл
		ТзДебиторкаПодробная.Удалить(Строка);
	КонецЦикла;
	//!БИТ Бутин А.В.

	Если тзДебиторкаПодробная.Количество() = 0 Тогда
		//БИТ Бутин А.В.
		//Сообщить("Список контрагентов с основными договорами пуст!");
		Ошибки = Строка(ТекущаяДата()) + Символы.Таб + "Список контрагентов с основными договорами пуст!" + Символы.ПС;
		ЛогФайл.ЗаписатьСтроку(Ошибки);
		ЛогФайл.Закрыть();
		БылаОшибка = Истина;
		//!БИТ Бутин А.В.
	КонецЕсли;

	СтрокаТЧКредиторка.Сумма = тзДебиторкаПодробная.Итог("Сумма");

	//БИТ Бутин А.В.
	//ДокументКорректировкиДолга.Записать(РежимЗаписиДокумента.Проведение);
	Попытка
		ДокументКорректировкиДолга.Записать(РежимЗаписиДокумента.Проведение);
		ДокументЗаписан = Истина;
	Исключение
		ЛогФайл.ЗаписатьСтроку(Строка(ТекущаяДата()) + Символы.Таб +
		ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()) + Символы.ПС);
		БылаОшибка = Истина;
	КонецПопытки;
	//!БИТ Бутин А.В.

	стрГод = Формат(Год(ДокументКорректировкиДолга.Дата),"ЧГ=0; ЧРГ=");
	стрМесяц = Формат(Месяц(ДокументКорректировкиДолга.Дата),"ЧГ=0; ЧРГ=");
	стрДень = Формат(День(ДокументКорректировкиДолга.Дата),"ЧГ=0; ЧРГ=");
	ИмяФайлаZIP = стрДень + ".zip";

	КаталогНаДиске = Новый Файл(КаталогКудаЗаписатьАрхив + "\" + стрГод);
	Если НЕ КаталогНаДиске.Существует() Тогда
		СоздатьКаталог(КаталогКудаЗаписатьАрхив + "\" + стрГод);
	КонецЕсли;

	КаталогНаДиске = Новый Файл(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц);
	Если НЕ КаталогНаДиске.Существует() Тогда
		СоздатьКаталог(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц);
	КонецЕсли;

	//БИТ Бутин А.В.
	КаталогНеЗагруженные = Новый Файл (КаталогОткудаЧитатьФайлы + "\" + "Незагруженные");
	Если НЕ КаталогНеЗагруженные.Существует() Тогда
		СоздатьКаталог(КаталогОткудаЧитатьФайлы + "\" + "НеЗагруженные");
	КонецЕсли;
	МассивУдаляемыхСтрок = Новый Массив;
	Если ДокументЗаписан = Ложь Тогда
		Для Каждого СтрФайлыСОшибками Из ТзДебиторкаПодробная Цикл
			ПереместитьФайл(СтрФайлыСОшибками.ПутьКФайлу + СтрФайлыСОшибками.ИмяФайла
			, КаталогОткудаЧитатьФайлы + "\" + "НеЗагруженные" + "\" + СтрФайлыСОшибками.ИмяФайла);
			МассивУдаляемыхСтрок.Добавить(СтрФайлыСОшибками);
		КонецЦикла;
		Для Каждого Строка Из МассивУдаляемыхСтрок Цикл
			ТзДебиторкаПодробная.Удалить(Строка);
		КонецЦикла;
	Иначе
		Для Каждого СтрФайлыСОшибками Из ФайлыСОшибками Цикл
			ПереместитьФайл(СтрФайлыСОшибками.ПутьКФайлу + СтрФайлыСОшибками.ИмяФайла
			, КаталогОткудаЧитатьФайлы + "\" + "НеЗагруженные" + "\" + СтрФайлыСОшибками.ИмяФайла);
		КонецЦикла;
	КонецЕсли;
	//!БИТ Бутин А.В.

	ФайлНаДиске = Новый Файл(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц + "\" + ИмяФайлаZIP);
	Если ФайлНаДиске.Существует() Тогда
		КаталогTempНаДиске = Новый Файл(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц + "\temp");
		Если КаталогTempНаДиске.Существует() Тогда
			УдалитьФайлы(КаталогTempНаДиске.ПолноеИмя);
		КонецЕсли;
		СоздатьКаталог(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц + "\temp");
		ФайлАрхива = Новый ЧтениеZIPФайла(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц + "\" + ИмяФайлаZIP);
		ФайлАрхива.ИзвлечьВсе(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц + "\temp");
		ФайлАрхива.Закрыть();
	КонецЕсли;

	ЗаписьZIP =  Новый ЗаписьZipФайла(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц + "\" + ИмяФайлаZIP);

	СтарыеФайлы = НайтиФайлы(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц + "\temp", "*.txt");
	Для Каждого СтарыйФайл Из СтарыеФайлы Цикл
		ЗаписьZIP.Добавить(СтарыйФайл.ПолноеИмя);
	КонецЦикла;

	Для Каждого стрДебиторка Из тзДебиторкаПодробная Цикл
		//БИТ Бутин А.В.
		//ЗаписьZIP.Добавить(стрДебиторка.ПутьКФайлу + стрДебиторка.ИмяФайла);
		Попытка
			ЗаписьZIP.Добавить(стрДебиторка.ПутьКФайлу + стрДебиторка.ИмяФайла);
		Исключение
			ЛогФайл.ЗаписатьСтроку(Строка(ТекущаяДата()) + Символы.Таб +
			ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()) + Символы.ПС);
			БылаОшибка = Истина;
		КонецПопытки;
		//!БИТ Бутин А.В.
	КонецЦикла;

	ЗаписьZIP.Записать();

	УдалитьФайлы(КаталогКудаЗаписатьАрхив + "\" + стрГод + "\" + стрМесяц + "\temp");
	Для Каждого стрДебиторка Из тзДебиторкаПодробная Цикл
		//БИТ Бутин А.В.
		//УдалитьФайлы(стрДебиторка.ПутьКФайлу + стрДебиторка.ИмяФайла);
		Попытка
			УдалитьФайлы(стрДебиторка.ПутьКФайлу + стрДебиторка.ИмяФайла);
		Исключение
			ЛогФайл.ЗаписатьСтроку(Строка(ТекущаяДата()) + Символы.Таб +
			ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()) + Символы.ПС);
			БылаОшибка = Истина;
		КонецПопытки;
		//!БИТ Бутин А.В.
	КонецЦикла;

	//БИТ Бутин А.В.
	ЛогФайл.Закрыть();

	Если БылаОшибка Тогда
		Вложение = Новый Соответствие;
		Вложение.Вставить(Ошибки, Новый ДвоичныеДанные(ИмяЛогФайла));
		ПараметрыПисьма.Вставить("Вложения", Вложение);

		РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(УчетнаяЗапись, ПараметрыПисьма);
	КонецЕсли;
	//!БИТ Бутин А.В.