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

Процедура ОтправитьФайлы() 	
	ПриНачалеРаботыСистемы();

	// Проверяем авторизацию
	Если EVatAU = 0 Тогда
		ПриАвторизации();
	КонецЕсли;
	
	 //  подключение к порталу ЭСФЧ
	Если EVatService.Connect("https://ws.vat.gov.by:443/InvoicesWS/services/InvoicesPort") <> 0 Тогда
		Сообщить( "Ошибка подключения: " + EVatService.LastError);
		Возврат;
	КонецЕсли;
	
	Док = СоздатьОбъект("Документ.ЭлектроннаяСчетФактура");
	
	ВыбратьСтроки();
	Пока ПолучитьСтроку() = 1 Цикл 				
		Док.НайтиДокумент(ДокументЭСЧФ);
		Результат = ПодписатьИОтправитьНаПорталЭСФЧ(ИмяФайла);
		Если Результат = "1" Тогда
			Док.Статус = Перечисление.СтатусЭСЧФ.Принят;
			Док.НомерНаПортале = "" + СокрЛП(Константа.УННОрганизации.Получить(Док.ДокументОснование.ДатаДок)) + "-" + ДатаГод(Док.ДокументОснование.ДатаДок) + "-" + Прав(Док.НомерДок,10); 
			Док.НаПортале = 1;
			Док.Записать();
			Комментарий = "Принят порталом";	
		Иначе                        
			Док.Статус = Перечисление.СтатусЭСЧФ.Откланен; 
			Док.Записать();
			Комментарий = Результат;
		КонецЕсли;			
	КонецЦикла;

	ПриЗавершенииРаботыСистемы();
КонецПроцедуры 

Функция ПодписатьИОтправитьНаПорталЭСФЧ(Знач Файл)
	
	Путь = "D:\1s\!Base1c77\Test\eInvoice\xml\" + Лев(СокрЛП(Файл),СтрДлина(СокрЛП(Файл))-4);
	
	//Чтение файла
	InvVatXml = EVatService.CreateEDoc;
	Если InvVatXml.Document.LoadFromFile(Путь + ".xml") <> 0 then
		Возврат "Ошибка чтения файла";
	КонецЕсли;    
	
	//Проверка XML файла на соответствие  xsd -схеме
	InvVatType = InvVatXml.Document.GetXmlNodeValue("issuance/general/documentType");
	Если InvVatType ="ORIGINAL" Тогда
		xsd = "MNSATI_original.xsd";
	ИначеЕсли  InvVatType = "FIXED" Тогда
		xsd = "MNSATI_fixed.xsd";
	ИначеЕсли InvVatType = "ADDITIONAL" Тогда
		xsd = "MNSATI_additional.xsd";
	ИначеЕсли InvVatType = "ADD_NO_REFERENCE" Тогда
		xsd = "MNSATI_add_no_reference.xsd";
	Иначе                                                                   	  
		Возврат "Файл содержит неверный тип документа";
	КонецЕсли;
	
	res = InvVatXml.Document.ValidateXML("D:\1s\!Base1c77\Test\eInvoice\xsd\" + xsd, 0);	
	Если res <> 0 Тогда                                                                     
		Возврат "Документ не соответствует требуемой схеме xsd";
	КонецЕсли;	
	
	//Выработка подписи
	res = InvVatXml.Sign(0);
	Если res <> 0 Тогда                                                    
		Возврат "Ошибка выработки подписи"
	КонецЕсли;
	
	//Сохранение подписанного файла с расширением ".edoc.xml"
	fn = Путь + ".edoc.xml";
	res = InvVatXml.SaveToFile(fn)           ;
	Если res <> 0 Тогда        		
		Возврат "Ошибка сохранения подписанного документа";
	КонецЕсли;
	
	//Отправка подписанного документа на портал ЭСФЧ
	res = EVatService.SendEDoc(InvVatXml);
	Если res <> 0 Тогда
		Возврат "Ошибка отправки";
	КонецЕсли;
	
	//Ответ от портала ЭСФЧ будет сохранен в фале с расширением ".ticket.error.xml" в случае 
	// ошибки  и с   ".ticket.xml"  в случае успешного принятия файла сервисом
	InvVatTicket = EVatService.Ticket;
	Если InvVatTicket.Accepted <> 0 Тогда                           
		fn = Путь + ".ticket.error.xml";
		Возврат "Документ не принят"; 
	Иначе
		TicketIssuerUri = InvVatTicket.Document.GetXmlNodeAttribute("ticket/issuer/URI"); 
		fn = Путь + ".ticket.xml";
		Возврат "1";
	КонецЕсли;                 
	
	// Сохранение квитанции
	res = InvVatTicket.SaveToFile(fn);

КонецФункции

Процедура ПолучитьЭСЧФ() 	
	ПриНачалеРаботыСистемы();	                                              
	
	// Проверяем авторизацию
	Если EVatAU = 0 Тогда
		ПриАвторизации();
	КонецЕсли;
	
	 //  подключение к порталу ЭСФЧ
	Если EVatService.Connect("https://ws.vat.gov.by:443/InvoicesWS/services/InvoicesPort") <> 0 Тогда
		Сообщить( "Ошибка подключения: " + EVatService.LastError);
		Возврат;
	КонецЕсли;
	
	стрДата = "" + ДатаГод(ДатаС) + "-" + Формат(ДатаМесяц(ДатаС),"N(0)2.0. ") + "-" + Формат(ДатаЧисло(ДатаС),"N(0)2.0. ") + "T00:00:00Z";
	EDocList = EVatService.GetList(стрДата);
	
	Для Н = 0 По EDocList.Count - 1 Цикл		
		Состояние("" + Н + "/" + EDocList.Count);
		
		НомерЭСЧФ= Строка(EDocList.GetItemAttribute(Н,"document/number"));
		EDoc = EVatService.GetEDoc(НомерЭСЧФ);
			dateIssuance = EDoc.Document.GetXmlNodeValue("issuance/general/dateTransaction");   
		ДатаЭСЧФ= Дата(Лев(dateIssuance,4),Прав(Лев(dateIssuance,7),2),Прав(dateIssuance,2));
			
		Если (ДатаФайла < ДатаС) ИЛИ (ДатаФайла > ДатаПо) Тогда Продолжить; КонецЕсли;
		
		//Тут лопачу внутренности ЭСЧФ
				
	КонецЦикла;
	     	
	ПриЗавершенииРаботыСистемы();	
КонецПроцедуры

Процедура ПодписатьЭСЧФ()
	ПриНачалеРаботыСистемы();	                                              
	
	// Проверяем авторизацию
	Если EVatAU = 0 Тогда
		ПриАвторизации();
	КонецЕсли;
	
	//  подключение к порталу ЭСФЧ
	Если EVatService.Connect("https://ws.vat.gov.by:443/InvoicesWS/services/InvoicesPort") <> 0 Тогда
		Сообщить( "Ошибка подключения: " + EVatService.LastError);
		Возврат;
	КонецЕсли;
	
	ВыбратьСтроки();
	Пока ПолучитьСтроку() = 1 Цикл
		
		EDoc = EVatService.GetEDoc(НомерЭСЧФ);
				
		//Выработка подписи
		res = EDoc.Sign(0);
		Если res <> 0 Тогда
			Сообщить("" + НомерЭСЧФ + " - Ошибка выработки подписи: " + EVatService.LastError,"!!!");
			Продолжить;
		КонецЕсли;
		
		res = EVatService.SendEDoc(EDoc);
		Если res <> 0 Тогда
			Сообщить("" + НомерЭСЧФ + " - Ошибка отправки: " + EVatService.LastError,"!!!");
			Продолжить;
		КонецЕсли;
		
		InvVatTicket = EVatService.Ticket;
		Если InvVatTicket.Accepted <> 0 Тогда
			Сообщить("" + НомерЭСЧФ + " - Документ не принят: " + InvVatTicket.Message,"!!!");  
		КонецЕсли;
		
	КонецЦикла;
		
	ПриЗавершенииРаботыСистемы();	
КонецПроцедуры