Обработка отчетов Моспаркинга в КА 1.1 с учетом путевых листов из УАТ 1.0

Процедура ОбработатьДанныеФайла(мФайл)
	
	//1.Из имени файла получаем ID (Символы до первого пробела)
	ИмяФайла = СокрЛП(мФайл.Имя);
	номПервыйПробел = Найти(ИмяФайла," ");
	IDСтрокой = СокрЛП(Лев(ИмяФайла,номПервыйПробел));
	
	//2. Пытаемся преобразовать ID из строки в число. Если не получается, то файл не обрабатываем.
	Попытка 
		IDЧисло = Число(IDСтрокой);
	Исключение
		IDЧисло = 0;
		СтрокаОшибка = "Неверно указано имя файла '\"+ИмяФайла+"'. Файл загружен не будет."+Символы.ПС+"Первыми символами имени файла должен быть ID затем пробел";
		Сообщить(СтрокаОшибка,СтатусСообщения.ОченьВажное);
		Возврат;
	КонецПопытки;	
	
	//3. Открываем файл на чтение
	Попытка
		КОМОбъект = ПолучитьCOMОбъект(мФайл.ПолноеИмя);
	Исключение
		Сообщить(ИнформацияОбОшибке().Описание + ?(ИнформацияОбОшибке().Причина = Неопределено, "", " по причине: " + ИнформацияОбОшибке().Причина.Описание + " (возможно, не установлен MS Excel!)"), СтатусСообщения.Внимание);
		Возврат;
	КонецПопытки;
	
	//4. Читаем файл. Преобразовываем сумму из строки в число
	//Сумма в файле имеет вид "200.00 руб" (зачисление на счет) или "-100.00 руб" (списание со счета)
	//Нас интересует только списание
	ВсегоПотрачено = 0;
	ЕстьОшибкиПриОбработке = Ложь;
	ТекстОшибки = "При обработке файла '\"+ИмяФайла+"' произошли ошибки: "+ Символы.ПС;
	НашЛист = КОМОбъект.WorkSheets.Item(1);
	ПослСтр = НашЛист.Cells(1,1).SpecialCells(11).Row;
	
	Для НомСтр = фСтрока По ПослСтр Цикл
		СуммаСтрокой = СокрЛП(Строка(НашЛист.Cells(НомСтр, фКолонка).Text));
		Если ПустаяСтрока(СуммаСтрокой) Тогда 
			Продолжить;
		КонецЕсли;
		Если Лев(СуммаСтрокой,1) <> "-" Тогда 
			Продолжить;
		КонецЕсли;
		номПервыйПробел = Найти(СуммаСтрокой," ");
		времСтрока = СокрЛП(Сред(СуммаСтрокой,2,номПервыйПробел-1));
		времСтрока = СтрЗаменить(времСтрока, " ", "");
		времСтрока = СтрЗаменить(времСтрока, Символы.НПП, "");
		Попытка
			СуммаЧислом = Число(времСтрока);
		Исключение
			СуммаЧислом = 0;
			ЕстьОшибкиПриОбработке = Истина;
			ТекстОшибки = ТекстОшибки + "В строке файла № "+НомСтр+ " ошибка преобразования суммы "+СуммаСтрокой + " ("+времСтрока+")"+Символы.ПС;
		КонецПопытки; 
		ВсегоПотрачено = ВсегоПотрачено + СуммаЧислом;
	КонецЦикла;	
	
	Если ЕстьОшибкиПриОбработке Тогда 
		Сообщить(ТекстОшибки,СтатусСообщения.Внимание);
	КонецЕсли;	
	
	//5. Добавляем строку в ТЧ Данные файлов
	новСтр 					= ДанныеФайлов.Добавить();
	новСтр.ID 			= IDЧисло;
	новСтр.ИмяФайла 		= ИмяФайла;
	новСтр.СуммаПотрачено   = ВсегоПотрачено;
	новСтр.ЕстьОшибка		= ЕстьОшибкиПриОбработке;
КонецПроцедуры
 

Процедура КоманднаяПанельФайлыПрочитатьФайлы(Кнопка)
    
    //1. Получаем список файлов (xls, xlsx) из каталога
    Если НЕ ПроверитьЗаполнение() Тогда 
        Возврат;
    КонецЕсли;    
    
    Если ДанныеФайлов.Количество()>0 Тогда 
        ТекстВопроса = "В табличной части уже есть заполненные данные.
                        |Очистить и перезаполнить?";
        
        Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да,);
        Если Ответ = КодВозвратаДиалога.Да Тогда
            ДанныеФайлов.Очистить();
        Иначе    
            Возврат;
        КонецЕсли;
    КонецЕсли;    
    
    Если ПустаяСтрока(фКаталог) Тогда 
        Сообщить("Не указан каталог хранения файлов");
        Возврат;
    КонецЕсли;    
    МассивФайлов = НайтиФайлы(фКаталог,"*.xls?");
    Если МассивФайлов.Количество() = 0 Тогда 
        Сообщить("В указанном каталоге '" +фКаталог +"' не найдено файлов *.XLS или *.XLSX");
        Возврат;
    КонецЕсли;    
    
    //2. Читаем файл, производим первичное заполнение ТЧ "Данные файлов"
    Для каждого элФайл из МассивФайлов Цикл
        ОбработатьДанныеФайла(элФайл);
    КонецЦикла;    
    
    //3. Проверяем задвоение ID
    МассивДублей = новый Массив;
    Для Каждого стрФайл из ДанныеФайлов Цикл
        НомСтроки     = стрФайл.НомерСтроки;
        врID      = стрФайл.ID;
        ТекстОшибки = "Для ID '"+ врID +"' найдено несколько строк: " + НомСтроки;
        ЕстьОшибка     = Ложь;
        Если МассивДублей.Найти(врID) <> Неопределено Тогда 
            Продолжить;
        КонецЕсли;    
        Для каждого Дубль из ДанныеФайлов Цикл
            Если Дубль.ID = врID и Дубль.НомерСтроки <> НомСтроки Тогда 
                ЕстьОшибка     = Истина;
                ТекстОшибки = ТекстОшибки + ", "+ Дубль.НомерСтроки;
                Дубль.ЕстьОшибка = Истина;
            КонецЕсли;    
        КонецЦикла;    
        Если ЕстьОшибка Тогда
            стрФайл.ЕстьОшибка = Истина;
            МассивДублей.Добавить(врID);
            Сообщить(ТекстОшибки, СтатусСообщения.Внимание);
        КонецЕсли;    
    КонецЦикла;    
    
    
    //4. Находим сотрудника по ID, смотрим есть ли у него уже авансовый отчет за этот период
    Запрос = новый Запрос;
    Запрос.МенеджерВременныхТаблиц = новый МенеджерВременныхТаблиц;
    Запрос.Текст =    "ВЫБРАТЬ
                      |    табДанныеФайлов.НомерСтроки,
                      |    табДанныеФайлов.Обрабатывать,
                      |    табДанныеФайлов.ID,
                      |    табДанныеФайлов.ИмяФайла,
                      |    табДанныеФайлов.ФизЛицо,
                      |    табДанныеФайлов.СуммаПотрачено,
                      |    табДанныеФайлов.АвансовыйОтчет,
                      |    табДанныеФайлов.ЕстьОшибка
                      |ПОМЕСТИТЬ втДанныеФайлов
                      |ИЗ
                      |    &табДанныеФайлов КАК табДанныеФайлов
                      |;
                      |
                      |////////////////////////////////////////////////////////////////////////////////
                      |ВЫБРАТЬ
                      |    втДанныеФайлов.НомерСтроки,
                      |    втДанныеФайлов.ИмяФайла,
                      |    втДанныеФайлов.Обрабатывать,
                      |    втДанныеФайлов.ID,
                      |    ЕСТЬNULL(ФизическиеЛица.Ссылка, ЗНАЧЕНИЕ(Справочник.ФизическиеЛица.ПустаяСсылка)) КАК ФизЛицо,
                      |    втДанныеФайлов.СуммаПотрачено,
                      |    втДанныеФайлов.АвансовыйОтчет,
                      |    втДанныеФайлов.ЕстьОшибка
                      |ПОМЕСТИТЬ втДанныеФайловФизлица
                      |ИЗ
                      |    втДанныеФайлов КАК втДанныеФайлов
                      |        ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК ФизическиеЛица
                      |        ПО втДанныеФайлов.ID = ФизическиеЛица.ID
                      |;
                      |
                      |////////////////////////////////////////////////////////////////////////////////
                      |ВЫБРАТЬ
                      |    втДанныеФайловФизлица.НомерСтроки КАК НомерСтроки,
                      |    втДанныеФайловФизлица.ИмяФайла,
                      |    втДанныеФайловФизлица.Обрабатывать,
                      |    втДанныеФайловФизлица.ID,
                      |    втДанныеФайловФизлица.ФизЛицо,
                      |    втДанныеФайловФизлица.СуммаПотрачено,
                      |    втДанныеФайловФизлица.ЕстьОшибка,
                      |    ЕСТЬNULL(СозданныеАвансовыеОтчеты.Ссылка, ЗНАЧЕНИЕ(Документ.АвансовыйОтчет.ПустаяСсылка)) КАК АвансовыйОтчет,
                      |    ЕСТЬNULL(ОстаткиАвансовВыданных.СуммаВыдано, 0) КАК СуммаВыдано
                      |ИЗ
                      |    втДанныеФайловФизлица КАК втДанныеФайловФизлица
                      |        ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
                      |            МАКСИМУМ(АвансовыйОтчет.Ссылка) КАК Ссылка,
                      |            АвансовыйОтчет.ФизЛицо КАК ФизЛицо
                      |        ИЗ
                      |            Документ.АвансовыйОтчет КАК АвансовыйОтчет
                      |        ГДЕ
                      |            АвансовыйОтчет.Проведен
                      |            И АвансовыйОтчет.ФизЛицо В
                      |                    (ВЫБРАТЬ
                      |                        втДанныеФайловФизлица.ФизЛицо
                      |                    ИЗ
                      |                        втДанныеФайловФизлица КАК втДанныеФайловФизлица
                      |                    ГДЕ
                      |                        НЕ втДанныеФайловФизлица.ЕстьОшибка)
                      |            И АвансовыйОтчет.Дата МЕЖДУ &НачалоПериода И &КонецПериода
                      |            И АвансовыйОтчет.Организация = &Организация
                      |        
                      |        СГРУППИРОВАТЬ ПО
                      |            АвансовыйОтчет.ФизЛицо) КАК СозданныеАвансовыеОтчеты
                      |        ПО втДанныеФайловФизлица.ФизЛицо = СозданныеАвансовыеОтчеты.ФизЛицо
                      |        ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
                      |            ВзаиморасчетыСПодотчетнымиЛицамиОстатки.ФизЛицо КАК ФизЛицо,
                      |            ВзаиморасчетыСПодотчетнымиЛицамиОстатки.СуммаВзаиморасчетовОстаток КАК СуммаВыдано
                      |        ИЗ
                      |            РегистрНакопления.ВзаиморасчетыСПодотчетнымиЛицами.Остатки(
                      |                    &ГраницаКонецПериода,
                      |                    ФизЛицо В
                      |                            (ВЫБРАТЬ 
                      |                                втДанныеФайловФизлица.ФизЛицо
                      |                            ИЗ
                      |                                втДанныеФайловФизлица КАК втДанныеФайловФизлица)
                      |                        И Организация = &Организация) КАК ВзаиморасчетыСПодотчетнымиЛицамиОстатки) КАК ОстаткиАвансовВыданных
                      |        ПО втДанныеФайловФизлица.ФизЛицо = ОстаткиАвансовВыданных.ФизЛицо
                      |
                      |УПОРЯДОЧИТЬ ПО
                      |    НомерСтроки";
    
    Запрос.УстановитьПараметр("табДанныеФайлов",    ДанныеФайлов);
    Запрос.УстановитьПараметр("НачалоПериода",        НачалоДня(Период));
    Запрос.УстановитьПараметр("КонецПериода",        КонецДня(Период));
    Запрос.УстановитьПараметр("ГраницаКонецПериода",Новый Граница(КонецДня(Период),ВидГраницы.Включая));
    Запрос.УстановитьПараметр("Организация",        Организация);
    Результат = Запрос.Выполнить().Выгрузить();
    
    ДанныеФайлов.Очистить();
    
    Для Каждого стРезультат из Результат Цикл 
        новСтр = ДанныеФайлов.Добавить();
        ЗаполнитьЗначенияСвойств(новСтр, стРезультат);
        Если НЕ ЗначениеЗаполнено(новСтр.ФизЛицо) Тогда 
            Сообщить("В строке № " + стРезультат.НомерСтроки + " для ID '"+новСтр.ID+"' не найден сотрудник");
            новСтр.ЕстьОшибка = Истина;
        КонецЕсли;
        
        Если новСтр.ЕстьОшибка Тогда 
            новСтр.Обрабатывать = ложь;
        Иначе
            новСтр.Обрабатывать = Истина;
        КонецЕсли;    
            
    КонецЦикла;    
    
КонецПроцедуры

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