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

Перем dom,ТекУзел, obj2;

Функция ДанныеАтрибута(Узел,Атрибут)
	
		Попытка
			если Узел=ТекУзел Тогда
				Данные=СокрЛП(ТекУзел.selectSingleNode(Атрибут).text);
			ИначеЕсли Узел=dom Тогда
				Данные=СокрЛП(dom.documentElement.selectNodes(Атрибут).item(0).text); 
			ИначеЕсли Узел=obj2 Тогда
				Данные=СокрЛП(obj2.getAttribute(Атрибут));
			//Иначе
			//	Предупреждение("Не найден узел "+Атрибут );
			КонецЕсли;
		Исключение
			Данные="";
		КонецПопытки; 
		Возврат Данные;
КонецФункции // ДанныеАтрибута

Процедура СкачкаВФайл()	//после введения однократного обращения на портал в течении суток
	Перем InvVatNumber;
	
	FSO=СоздатьОбъект("Scripting.FileSystemObject");
	
	Если FSO.FolderExists(ВыбМеста)=0 Тогда
		xml_Folder=FSO.CreateFolder(ВыбМеста); //создать папку, если ее нет.
	КонецЕсли;
	
	//fn = ВыбМеста+".xml";
	НужнаяДата=ФорматДатыВх(НачДата);// Сообщить(НужнаяДата);
	ListDocuments = 1;
	
	ПопыкаGetList=0;
	~ПроверкаДаты:
	Попытка
		Состояние("Получаем список ЭСЧФ на портале");
		InvList = EVatService.GetList(НужнаяДата);
	Исключение
		ПопыкаGetList=ПопыкаGetList+1;
		Если ПопыкаGetList=4 Тогда
			Предупреждение("Ошибка получения списка ЭСЧФ: " + EVatService.LastError + " И это после 4-х попыток...");
			Возврат;
		КонецЕсли;
		Перейти ~ПроверкаДаты;
	КонецПопытки;
	if InvList =  0 then
		Сообщить( "Ошибка получения списка ЭСЧФ: " + EVatService.LastError);
		возврат;
	endif; 
	
	ЧислоЭСЧФ=InvList.Count;
	if ЧислоЭСЧФ = 0 then
		Сообщить( "Нет поступивших документов на сервере");
		ListDocuments = 1;
		возврат;
	endif;
	
	номер=0;
	for i = 0 to ЧислоЭСЧФ-1 do 
		Состояние("Ищем входящие ЭСЧФ на портале...");
		InvVatNumber = InvList.GetItemAttribute(i, "document/number");	//Сообщить(InvVatNumber);
		
		файл=ВыбМеста+"\sgn_"+InvVatNumber+".xml";
		файлXML=ВыбМеста+"\file_"+InvVatNumber+".xml";
		
		
		КоличествоРаз=0;
		~ПовторитьПопытку:
		Попытка
			InvVatXml = EVatService.GetEDoc(InvVatNumber);	
		Исключение
			КоличествоРаз=КоличествоРаз+1; //Сообщить(КоличествоРаз);
			Если КоличествоРаз=4 Тогда 
				Предупреждение(EVatService.LastError);
				Прервать;
			КонецЕсли;
			Сообщить(EVatService.LastError);
			ListDocuments = 2;//
			
			res = VerifyAllSigns(InvVatXml);
			if res = 0 then			   
				Сообщить( "Ошибка проверки ЭЦП полученного документа: " + EVatService.LastError );
			else
				res = InvVatXml.SaveToFile( файл );
				res = InvVatXml.Document.SaveToFile	(файлXML);			
			endif;
			
		КонецПопытки;
		
	EndDo;
	
КонецПроцедуры

Процедура СозданиеДока()
	
	Попытка
		dom = СоздатьОбъект("MSXML2.DOMDocument");
	Исключение
		Сообщить("Не удалось создать объект MSXML2.DOMDocument");
		Возврат;
	КонецПопытки;
	
	ФС.УстТекКаталог(ВыбМеста);
	Если ФС.СуществуетФайл(ВыбМеста+"\file_"+ТаблЗнач.ПолучитьЗначение(ТаблЗнач.ТекущаяСтрока(),"InvVatNumber")+".xml")=1 тогда //Сообщить(файл))
		файл=ВыбМеста+"\file_"+ТаблЗнач.ПолучитьЗначение(ТаблЗнач.ТекущаяСтрока(),"InvVatNumber")+".xml";// ТаблЗнач.ПолучитьЗначение(ТаблЗнач.ТекущаяСтрока(),"InvVatNumber") - это из таблицы моей. Тут нужен ваш номер эсчф
	иначе
		предупреждение("Нет файла для чтения");
		Возврат;
	конецЕсли;
	
dom.load(файл); //Сообщить(файл);

	документЭСЧФ=СоздатьОбъект("Документ.ВходящаяЭСЧФ");
	СпрКонтр=СоздатьОбъект("Справочник.Контрагенты");
	
	документЭСЧФ.Новый();
	документЭСЧФ.Контрагент=ДанныеАтрибута(dom,"provider/name");
	документЭСЧФ.Договор=ДанныеАтрибута(dom,"deliveryCondition/contract/number")+" от "+ДанныеАтрибута(dom,"deliveryCondition/contract/date");
	
	Строки=dom.documentElement.selectSingleNode("roster");
	
	Кол=Строки.childNodes.length;
	Для Счетчик=0 По Кол-1 Цикл
		документЭСЧФ.НоваяСтрока();

		ТекУзел=Строки.childNodes.item(Счетчик);
		документЭСЧФ.Услуга=ДанныеАтрибута(ТекУзел,"name"); 
		документЭСЧФ.Количество= Число(ДанныеАтрибута(ТекУзел,"count"));
		документЭСЧФ.Цена= Число(ДанныеАтрибута(ТекУзел,"price"));
		документЭСЧФ.Сумма= Число(ДанныеАтрибута(ТекУзел,"cost"));
		документЭСЧФ.НП= Число(ДанныеАтрибута(ТекУзел,"summaExcise"));
		документЭСЧФ.НДС=Число( ДанныеАтрибута(ТекУзел,"vat/summaVat"));
		документЭСЧФ.Всего=Число(ДанныеАтрибута(ТекУзел,"costVat"));
	КонецЦикла;
	
	документЭСЧФ.Записать(); //запись без проведения

	
	
КонецПроцедуры // СозданиеДока