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

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

Процедура Сформировать()
	Перем 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");
	

	НужнаяДата=ФорматДаты('00.00.0000'); Сообщить(НужнаяДата);
	ListDocuments = 1;
	InvList = EVatService.GetList(НужнаяДата);
	if InvList =  0 then
		Сообщить( "Ошибка получения списка ЭСЧФ: " + EVatService.LastError);
		возврат;
	endif; 
	ЧислоЭСЧФ=InvList.Count;
	if ЧислоЭСЧФ = 0 then
	   Сообщить( "Нет поступивших документов на сервере");
	   ListDocuments = 1;
	   возврат;
	endif;
        номер=1;
	for i = 0 to ЧислоЭСЧФ-1 do 
	   номер=номер+1;	
	   InvVatNumber = InvList.GetItemAttribute(i, "document/number");	
           Сообщить(номер+InvVatNumber);
		
	EndDo;
	
	ListDocuments = 0;
КонецПроцедуры

""  'ЭСЧФсоздан, подписан отправляющей стороной				
"COMPLETED"  'ЭСЧФ создан, подписан обеими сторонами
"COMPLETED_SIGNED" 'На согласовании
				' Данный статус присваивается для дополнительных и исправленных ЭСЧФ в следующих случаях:
				' -   Когда на исходный (исправленный) счет-фактуру, который подписан обеими сторонами,
				' выставляется дополнительный ЭСЧФ с отрицательной суммой;
				' -   Когда на исходный (исправленный) счет-фактуру, который подписан обеими сторонами,
				' выставляется исправленный ЭСЧФ.
"ON_AGREEMENT" 'Аннулирован
"CANCELLED" 'На согласовании на аннулирование
"ON_AGREEMENT_CANCEL" 'ЭСЧФ создан, не подписан
"IN_PROGRESS"'ЭСЧФ создан, не подписан, содержит ошибки
 "IN_PROGRESS_ERROR" 'Неизвестный статус

xml_ЗаписатьНачалоЭлемента("<issuance>"," xmlns="""+"http://www.w3schools.com"""+" xmlns:xsi="""+"http://www.w3.org/2001/XMLSchema-instance"""+" xsi:schemaLocation="""+"http://www.w3schools.com"""+" sender="""+лев(фНомерЭСЧФ,9)+"""");

-<descriptions>
<description>DEDUCTION_IN_FULL</description>
</descriptions>

EDoc = EVatService.GetEDoc(НомерЭСЧФ);
res = EDoc.Sign(0);
res = EVatService.SendEDoc(EDoc);
InvVatTicket = EVatService.Ticket;
res = InvVatTicket.SaveToFile(fn);

 issuance_atr1=XML_DOM.createAttribute("xmlns");