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

Функция ФорматДаты(ВыбДата) Экспорт
    Год=ДатаГод((ВыбДата));
    Месяц=Формат(ДатаМесяц(ВыбДата),"Ч(0)2.0");
    День=Формат(ДатаЧисло(ВыбДата),"Ч(0)2.0");
	Час=Формат(0,"Ч(0)2.0");
	Минут=Формат(0,"Ч(0)2.0");
	Секунд=Формат(0,"Ч(0)2.0");
    СтрДата=СокрЛП(Год)+"-"+СокрЛП(Месяц)+"-"+СокрЛП(День)+"T"+СокрЛП(час)+":"+СокрЛП(Минут)+":"+СокрЛП(Секунд)+"Z";
    Возврат СтрДата;
КонецФункции  

Функция VerifyAllSigns(InvVatXml)
	Перем i, signCount;
	Перем InvVatNumber;
	
	InvVatNumber = InvVatXml.Document.GetXmlNodeValue("issuance/general/number");
	
	signCount = InvVatXml.GetSignCount;
	
	if signCount = 0 then
		Сообщить(  "Ошибка: документ №" + InvVatNumber +  " не содержит ЭЦП");
		VerifyAllSigns = 1;
		//возврат;
	endif;
	
	for i = 0 to signCount - 1 do 
		oid = "2.5.4.3"; //(commonName)
		str = InvVatXml.GetSignProperty(i, oid, 0);
		Сообщить(  "Проверка подписи " + str);
		
		res = InvVatXml.VerifySign(i, 0);
		if res <> 0 then
			Сообщить( "Ошибка проверки подписи: " + EVatService.LastError);
			VerifyAllSigns = 2;
			Прервать;
		else
			Сообщить("ЭЦП проверена. Дата подписания: " + InvVatXml.GetSignProperty(i, "SIGNDATE", 0));
		endif;				
	EndDo;
	
	VerifyAllSigns = 0
КонецФункции // VerifyAllSigns(InvVatXml)

 Процедура Считать()	
Перем InvVatNumber;
	
	ПодключитьКомпонентыДоступаКПорталуЭСФЧ();
	EVatAU = 0;
	//Проверяем авторизацию
	if   EVatAU = 0 Then
		ПриАвторизации();
	endif;	
	//  подключение к порталу ЭСФЧ
	if EVatService.Connect("https://vat.gov.by:4443/InvoicesWS/services/InvoicesPort") = 0 then
		Сообщить( "Подключение успешно");
	else
		Сообщить( "Ошибка подключения: " + EVatService.LastError);
		возврат;
	endif; 
	oFSO = CreateObject("Scripting.FileSystemObject");
	
	прм_ИмяФайла = КаталогИБ()+"XML\import\";
	НужнаяДата=ФорматДаты(ВыбДата);// Сообщить(НужнаяДата);
	ListDocuments = 1;
	InvList = EVatService.GetList(НужнаяДата);
	if InvList =  0 then
		Сообщить( "Ошибка получения списка ЭСЧФ: " + EVatService.LastError);
		возврат;
	endif; 
	ЧислоЭСЧФ=InvList.Count;
	if ЧислоЭСЧФ = 0 then
		Сообщить( "Нет поступивших документов на сервере");
		ListDocuments = 1;
		возврат;
	endif;
	for i = 0 to ЧислоЭСЧФ-1 do 
		
		InvVatNumber = InvList.GetItemAttribute(i, "document/number");	//Сообщить(InvVatNumber);
		fn = oFSO.BuildPath(прм_ИмяФайла, "invoice-" + InvVatNumber + ".sgn.xml");
		if oFSO.FileExists(fn)=1 then
			сообщить ( "Файл счета-фактуры  № " + InvVatNumber + " уже существует");
		else
			сообщить ("Скачивание документа № " + InvVatNumber + " в " +прм_ИмяФайла);
			InvVatXml = EVatService.GetEDoc(InvVatNumber);
			
			//Проверить ЭЦП
			res = VerifyAllSigns(InvVatXml);
			if res = 0 then			   
				Сообщить( "Ошибка проверки ЭЦП полученного документа: " + EVatService.LastError );
				fn = oFSO.BuildPath(прм_ИмяФайла, "invoice-" + InvVatNumber + ".sgn.error.xml");
				res = InvVatXml.SaveToFile( fn );
			else
				res = InvVatXml.SaveToFile( fn );			
			endif;				
			if res <> 0 then
				Сообщить( "Ошибка сохранения полученного документа: " + EVatService.LastError );
				ListDocuments = res;
				Прервать;
			endif;				
			
			Сообщить( "Файл " + fn + " сохранен");
		endif;
		//endif;
		
	EndDo;
	
	ListDocuments = 0;
конецпроцедуры;

EDocList = EVatService.GetList(НужныйФормат);
InvVatNumber = EDocList.GetItemAttribute(пц,"document/number");
InvVatXml = EVatService.GetEDoc(InvVatNumber)
унп=InvVatXml.Document.GetXmlNodeAttribute("issuance/general/unp");

 InvVatXml.Document.safetofile(fn);