ЭСЧФ Беларусь

InvList = EVatService.GetList(ДатаЗапросаВходящихФормат); 			
			
			Если InvList = Неопределено Тогда
				ТекстОшибки = ?(ТекстОшибки = "", "", ТекстОшибки + Символы.ПС) + Нстр("ru='Входящие ЭСЧФ не получены: '") + EVatService.LastError;
				Отказ = Истина;
				Возврат;
			КонецЕсли;
			
			Если InvList.Count = 0 Тогда
				ТекстОшибки = ?(ТекстОшибки = "", "", ТекстОшибки + Символы.ПС) + Нстр("ru='Нет поступивших документов на портале'");
				Возврат;
			КонецЕсли;

// чтение списка полученных ЭСЧФ с ДатаНач: "2016-04-28T00:00:00Z"
Процедура ПолучитьВходящиеЭСЧФ(ИдентификаторФормы)Экспорт
		
	if   EVatAU = 0 Then
		ПриАвторизации();
	endif;
	Попытка	
		Если EVatService.Connect(АдресПодключенияКСлужбеПортала) = 0 Тогда
			
			Лог.Добавить(Строка(ТекущаяДата())+" | Подключение успешно",,,БиблиотекаКартинок.ирТестирование);
			
		Иначе
			
			Лог.Добавить(Строка(ТекущаяДата())+" | Ошибка подключения: " + EVatService.LastError,,,БиблиотекаКартинок.СообщениеОшибка);
			возврат ;
		КонецЕсли;
		
		ДатаНачала = Формат(ДатаСовершенияОперации,"ДФ=yyyy-MM-ddTHH:mm:ssZ");//ПреобразоватьДату(ДатаСовершенияОперации);
		//InvList = EVatService.GetList(ДатаНачала);//Формат(ДатаСовершенияОперации,"ДФ=yyyy-MM-dd")+" "+Формат(ДатаСовершенияОперации,"ДФ=THH:mm:ssZ")
				
		InvList = EVatService.GetList(ДатаНачала);//+"T00:00:00Z");
		Попытка
			Если НЕ ЗначениеЗаполнено(InvList) Тогда
				
				Лог.Добавить(Строка(ТекущаяДата())+" | Ошибка получения списка ЭСЧФ: " + EVatService.LastError,,,БиблиотекаКартинок.СообщениеОшибка);
				Сообщить("Не удалось выполнить операцию. Подробнее об ошибке смотрите в ""Логе"".",СтатусСообщения.Важное);
				
				Возврат ;
			КонецЕсли;
		Исключение
		КонецПопытки;
		Статус = "";
		Входящие.Очистить();
		ФормаХодаФормированияЭСЧФ = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");
		
		счКоличество = ?(не InvList=Неопределено,InvList.Count,0); 
		стТип = "Получение входящих счетов";
		//счКоличество = ПолучитьКоличествоДокументовДляВыгрузки(стТип);
		ФормаХодаФормированияЭСЧФ.НаименованиеОбработкиДанных = "Загрузка";
		ФормаХодаФормированияЭСЧФ.КомментарийОбработкиДанных = "Загрузка входящих";
		ФормаХодаФормированияЭСЧФ.МаксимальноеЗначение = счКоличество;
		ФормаХодаФормированияЭСЧФ.Значение = 0;
		ФормаХодаФормированияЭСЧФ.Открыть();
		//КолВоЗагр = 0;
		Попытка	
			Для i = 0 по InvList.Count - 1  Цикл
				//Если КолВоЗагр >= 10 Тогда
				//	Возврат	
				//КонецЕсли;
				ОбработкаПрерыванияПользователя();

				InvVatNumber = InvList.GetItemAttribute(i, "document/number");
							
				ФормаХодаФормированияЭСЧФ.КомментарийЗначения = "Загрузка счета №"+InvVatNumber+" ("+(ФормаХодаФормированияЭСЧФ.Значение + 1)+" из "+счКоличество+")";
				ФормаХодаФормированияЭСЧФ.Значение = ФормаХодаФормированияЭСЧФ.Значение + 1;
				Попытка
					
					InvVatXml = EVatService.GetEDoc(InvVatNumber);
					
					УНП = InvVatXml.Document.GetXmlNodeValue("issuance/provider/unp");
					ДатаЭСЧФ = InvVatXml.Document.GetXmlNodeValue("issuance/general/dateTransaction");
					СуммаЭСЧФ = InvVatXml.Document.GetXmlNodeAttribute("issuance/roster/totalCostVat");
					СуммаНДСЭСЧФ = InvVatXml.Document.GetXmlNodeAttribute("issuance/roster/totalVat");
					НомерФхДок = InvVatXml.Document.GetXmlNodeValue("issuance/deliveryCondition/contract/documents/document/numb­er");
					СерияФхДок = InvVatXml.Document.GetXmlNodeValue("issuance/deliveryCondition/contract/documents/document/seri­a");
					ДатаВхДока = InvVatXml.Document.GetXmlNodeValue("issuance/deliveryCondition/contract/documents/document/date­");
					ТипВхДокументаЭСЧФ = СопостовлениеВидовДокумента(InvVatXml.Document.GetXmlNodeValue("issuance/deliveryCondition/contract/documents/document/docT­ype/code"));
					ТипЭСЧФ = СопостовлениеТипаЭСЧФ(InvVatXml.Document.GetXmlNodeValue("issuance/general/documentType"));
					//Выставлена = InvVatXml.GetSignProperty(0, "SIGNDATE", 0); //Дата подписи
					Выставлена = ДатаЭСЧФ;
					
					Если НЕ СтрДлина(InvVatNumber) = 25 Тогда
						Лог.Добавить(Строка(ТекущаяДата())+" | Не верный номер ЭСЧФ: "+InvVatNumber,,,БиблиотекаКартинок.СообщениеОшибка);
					КонецЕсли;
					
					НоваяСтрока = Входящие.Добавить();
					НоваяСтрока.УНП = УНП;
					НоваяСтрока.БСО = НомерФхДок;
					НоваяСтрока.Контрагент = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",УНП);
					
					//Из за того что умники портала поставили ограничение на получение ЭСЧФ
					//Сохраняем полученные двоичные данные(далее ДД) для последующего использования
					//Для получения ДД используем "ПолучитьИзВременногоХранилища("АдресВХранилище").COMОбъект"
					//Значение сохранено пока форма существует
					COMСтруктура = Новый Структура("COMОбъект", InvVatXml);
					ддInvVatXml = ПоместитьВоВременноеХранилище(COMСтруктура,ИдентификаторФормы);
					НоваяСтрока.ДД = ддInvVatXml;
					//Запасной вариант
					КаталогВФ = КаталогВременныхФайлов();
					ПутьXML = КаталогВФ + InvVatNumber+".xml";
					ПутьTicket = КаталогВФ + InvVatNumber+"_ticket.xml";
					XML = InvVatXml.Document.SaveToFile(ПутьXML);
					ticket = InvVatXml.SaveToFile(ПутьTicket);
					НоваяСтрока.XML = ПутьXML;
					НоваяСтрока.ticket = ПутьTicket;
					//
					//КолВоЗагр = КолВоЗагр + 1;
					
					ДатаВыставления = Выставлена;
					///Нужно допилить что бы искало по номеру ЭСЧФ
					
					ДокСопоставления =  СопоставитьСДокументамиПоступления(СокрЛП(СтрЗаменить(НомерФхДок," ","")),
										НоваяСтрока.Контрагент,
										InvVatNumber,СуммаНДСЭСЧФ,
										(СуммаЭСЧФ-СуммаНДСЭСЧФ),
										СуммаЭСЧФ,
										Дата(СтрЗаменить
										(СтрЗаменить
										(СтрЗаменить
										(Выставлена,"-","")
										," ",""),":","")));
					
					Если ЗначениеЗаполнено(ДокСопоставления) Тогда
						НоваяСтрока.НомерЭСЧФ = ДокСопоставления.ЭСЧФ;
						НоваяСтрока.ДатаДокумента = ДокСопоставления.Дата;
					Иначе
						НоваяСтрока.НомерЭСЧФ = InvVatNumber;
					КонецЕсли;
					
					НоваяСтрока.НомерЭСЧФ = InvVatNumber;
					НоваяСтрока.СуммаНДС = СуммаНДСЭСЧФ;
					НоваяСтрока.СуммаЭСЧФ = СуммаЭСЧФ;
					НоваяСтрока.ТипДокумента = ТипВхДокументаЭСЧФ;
					НоваяСтрока.СерияБСО = СерияФхДок;
					НоваяСтрока.Тип = ТипЭСЧФ;
					НоваяСтрока.Выставлена = Дата(СтрЗаменить(СтрЗаменить(СтрЗаменить(Выставлена,"-","")," ",""),":",""));
					InvVatStatus = EVatService.GetStatus(InvVatNumber);
					res = InvVatStatus.Verify();
					if  InvVatStatus <>  0 then
						Статус=InvVatStatus.Status;
					else
						
						Лог.Добавить(Строка(ТекущаяДата())+" | Ошибка статуса: " +InvVatStatus.LastError,,,БиблиотекаКартинок.СообщениеОшибка);
					endif;
					НоваяСтрока.Статус = СопоставлениеСтатусовВыставленныхСчетФактур(?(Статус = Неопределено,"",Статус));
					
					
					Если ЗначениеЗаполнено(ДокСопоставления)Тогда 
						
						НоваяСтрока.СуммаДокумента = ДокСопоставления.СуммаДокумента;
						
					КонецЕсли;
					НоваяСтрока.Ссылка = ДокСопоставления;
				Исключение
					Лог.Добавить(Строка(ТекущаяДата())+	" | "+EVatService.LastError,,,БиблиотекаКартинок.СообщениеОшибка);
					Продолжить
				КонецПопытки
			КонецЦикла;
		Исключение
			Сообщить("Не удалось выполнить операцию. Подробнее об ошибке смотрите в ""Логе"".",СтатусСообщения.Важное);
			Лог.Добавить(Строка(ТекущаяДата())+	" | "+EVatService.LastError,,,БиблиотекаКартинок.СообщениеОшибка);	
		КонецПопытки;
		ФормаХодаФормированияЭСЧФ.Закрыть();
	Исключение;
	КонецПопытки;
	
КонецПроцедуры