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

//////////////////////////////////////////////////////////////////////
//Открывает файл XML в режиме записи. Если файл существовал, перезаписывает его.
//Принимает параметр прм_ИмяФайла - имя файла (укажите полный путь и расширение .XML)
Процедура xml_СоздатьФайл(прм_ИмяФайла)
	xml_fso=СоздатьОбъект("Scripting.FileSystemObject");
	xml_file=xml_fso.CreateTextFile(прм_ИмяФайла, -1, 0); //создать файл, перезаписывая существующий
	xml_file.WriteLine("<?xml version="""+"1.0"+""""+" encoding="""+"UTF-8"""+" standalone="""+"yes"""+" ?>"); //Пишем заголовок XML 
	//xml_file.WriteLine("<issuance xmlns="""+"http://www.w3schools.com"""+"xmlns:xsi="""+"http://www.w3.org/2001/XMLSchema-instance"""+"xsi:schemaLocation="""+"http://www.w3schools.com"""+" sender="""+СокрЛП(УПНПоставщика)+">");
	xml_СтекТегов=СоздатьОбъект("СписокЗначений");
	xml_Отступы="";
	xml_ТегОткрыт=0;
КонецПроцедуры	

////////////////////////////////////////////////////////////­///////////
//Записывает начало элемента (тега XML). Имя можно указывать в угловых скобках.
Процедура xml_ЗаписатьНачалоЭлемента(прм_ИмяТега,прм_Знач="")
	перем стр;
	стр=прм_ИмяТега;
	стр=СтрЗаменить(стр, "<", "");
	стр=СтрЗаменить(стр, ">", "");
	xml_СтекТегов.ДобавитьЗначение(стр);
	xml_file.WriteLine(xml_Отступы+"<"+стр+прм_Знач+">"); 
	xml_Отступы=xml_Отступы+"  ";
	xml_ТегОткрыт=1;
КонецПроцедуры	

////////////////////////////////////////////////////////////­///////////
//Записывает атрибут (параметр) тега XML.
Процедура xml_ЗаписатьАтрибут(прм_ИмяАтрибута, прм_ЗначениеАтрибута)
	стр=прм_ЗначениеАтрибута;
	стр=СтрЗаменить(стр, "&", "&");
	//стр=СтрЗаменить(стр, """", """);
	стр=СтрЗаменить(стр, "<", "<");
	стр=СтрЗаменить(стр, ">", ">");
	стр=СтрЗаменить(стр, "'", "'");
	xml_file.WriteLine(xml_Отступы+"<"+прм_ИмяАтрибута+">"+стр+"</"+прм_ИмяАтрибута­+">");
КонецПроцедуры	// xml_ЗаписатьЗаписатьАтрибут

////////////////////////////////////////////////////////////­///////////
//Записывает конец элемента (тега XML). Имя закрываемого тега можно указывать в угловых скобках, 
//а можно - не указывать вовсе.

Процедура xml_ЗаписатьКонецЭлемента(прм_ОжидаемоеИмяТега="")
	перем стрИмяТега, а;
	Если xml_СтекТегов.РазмерСписка()<1 Тогда
		Сообщить("Попытка закрыть неоткрытый элемент!","!"); а=10/0;                                      
	КонецЕсли;
	
	стрИмяТега=xml_СтекТегов.ПолучитьЗначение(xml_СтекТегов.РазмерСписка());
	
	Если ПустаяСтрока(прм_ОжидаемоеИмяТега)=0 Тогда
		стр=прм_ОжидаемоеИмяТега;
		стр=СтрЗаменить(стр, "<", "");
		стр=СтрЗаменить(стр, ">", "");
		стр=СтрЗаменить(стр, "/", "");
		
		Если стр<>стрИмяТега Тогда
			Сообщить("Ожидается имя тега "+стр+", а закрыто "+стрИмяТега,"!"); а=10/0;                                      
		КонецЕсли;
	КонецЕсли;
	xml_СтекТегов.УдалитьЗначение(xml_СтекТегов.РазмерСписка());
	xml_ТегОткрыт=0;
	xml_Отступы=лев(xml_Отступы, СтрДлина(xml_Отступы)-2);
	xml_file.WriteLine(xml_Отступы+"</"+стрИмяТега+">");
КонецПроцедуры	// xml_ЗаписатьКонецЭлемента


////////////////////////////////////////////////////////////­///////////
//Закрывает открытый файл XML. После окончания работы с файлом его необходимо закрыть.
Функция xml_Закрыть()
	xml_file.Close();
	Если xml_СтекТегов.РазмерСписка()<>0 Тогда
		Сообщить("Имеются незакрытые элементы XML!","!"); а=10/0;                                      
	КонецЕсли;
КонецФункции	// xml_Закрыть
Функция ФорматДаты(ВыбДата) 
	Год=ДатаГод(ВыбДата);
	Месяц=Формат(ДатаМесяц(ВыбДата),"Ч(0)2.0");
	День=Формат(ДатаЧисло(ВыбДата),"Ч(0)2.0");
	СтрДата=СокрЛП(Год)+"-"+СокрЛП(Месяц)+"-"+СокрЛП(День);
	Возврат СтрДата;
КонецФункции	// ФорматДаты

//*******************************************
Процедура СформироватьXML(ФлФормироватьФайлы=1,флОтправлять=0)
	//Сообщить("Начало записи: "+стрИмяФайла); 
	Если ФлФормироватьФайлы=1 Тогда
	Сообщить("Время начала: "+ТекущееВремя()); 
	КонецЕсли;
	НомерС=НачальныйНомерЭСЧФ;
	ТабСФ.ВыбратьСтроки();
	Пока ТабСФ.ПолучитьСтроку() = 1 Цикл
		Если ТабСФ.ФлВыгружать=1 Тогда
			Продолжить;
		КонецЕсли;  
		//Если ФлФормироватьФайлы=1  Тогда
		НомерЭСЧФ=ПрефиксНомераЭСЧФ+"-"+СокрЛП(ДатаГод(ТабСФ.ДатаВыпискиЭСЧФ))+"-"+Формат(ТабСФ.НомерЭСЧФ,"Ч(0)10");
	    //Иначе //ВременныйНомер
		//НомерЭСЧФ=ПрефиксНомераЭСЧФ+"-"+СокрЛП(ДатаГод(ТабСФ.ДатаВыпискиЭСЧФ))+"-0000000001";
		//КонецЕсли;
		//НомерС=НомерС+1;
		//стрИмяФайла=КаталогXML+СокрЛП(ТабСФ.НомерЭСЧФ)+".xml";
		стрИмяФайла=КаталогXML+"win1251.xml";
		xml_СоздатьФайл(стрИмяФайла);            
		xml_ЗаписатьНачалоЭлемента("<issuance>"," xmlns="""+"http://www.w3schools.com"""+" xmlns:xsi="""+"http://www.w3.org/2001/XMLSchema-instance"""+" xsi:schemaLocation="""+"http://www.w3schools.com"""+" sender="""+СокрЛП(УПНПоставщика)+"""");
		
		xml_ЗаписатьНачалоЭлемента("<general>");
		xml_ЗаписатьАтрибут("number",СокрЛП(НомерЭСЧФ));
		xml_ЗаписатьАтрибут("dateIssuance",ФорматДаты(ТабСФ.ДатаОперацииЭСЧФ)); 
		xml_ЗаписатьАтрибут("dateTransaction",ФорматДаты(ТабСФ.ДатаВыпискиЭСЧФ)); 
		xml_ЗаписатьАтрибут("documentType",СокрЛП(ТабСФ.ТипЭСЧФ));
		xml_ЗаписатьКонецЭлемента("<general>");
		
		xml_ЗаписатьНачалоЭлемента("<provider>");
		xml_ЗаписатьАтрибут("providerStatus",СокрЛП(ТабСФ.СтатусПоставщика));
		xml_ЗаписатьАтрибут("dependentPerson",?(ТабСФ.ВзаимозависимоелицоПоставщик=1,"true","false"));
		xml_ЗаписатьАтрибут("residentsOfOffshore",?(ТабСФ.РезидентОфшЗоныПоставщик=1,"true","false"));
		xml_ЗаписатьАтрибут("specialDealGoods",?(ТабСФ.СделкаПоперечнюПоставщик=1,"true","false"));
		xml_ЗаписатьАтрибут("bigCompany",?(ТабСФ.КрупныйПлательщикПоставщик=1,"true","false")); 
		xml_ЗаписатьАтрибут("countryCode",СокрЛП(ТабСФ.КодСтраныПоставщика)); 
		xml_ЗаписатьАтрибут("unp",ТабСФ.УНППоставщика); 
		xml_ЗаписатьАтрибут("name",СокрЛП(ТабСФ.Поставщик)); 
		xml_ЗаписатьАтрибут("address",СокрЛП(ТабСФ.АдресПоставщика)); 
		Если СокрЛП(СокрЛП(ТабСФ.НомерЭСЧФКомитента))<>"" Тогда 
			xml_ЗаписатьНачалоЭлемента("<principal>");
			xml_ЗаписатьАтрибут("number",СокрЛП(ТабСФ.НомерЭСЧФКомитента)); 
			xml_ЗаписатьАтрибут("date",ФорматДаты(ТабСФ.ДатаВыпискиЭСЧФКомитента)); 
			xml_ЗаписатьКонецЭлемента("<principal>");
		КонецЕсли;
		Если СокрЛП(СокрЛП(ТабСФ.НомерЭСЧФПродавца))<>"" Тогда 
			xml_ЗаписатьНачалоЭлемента("<vendor>");
			xml_ЗаписатьАтрибут("number",СокрЛП(ТабСФ.НомерЭСЧФПродавца)); 
			xml_ЗаписатьАтрибут("date",ФорматДаты(ТабСФ.ДатаВыпискиЭСЧФПродавца)); 
			xml_ЗаписатьКонецЭлемента("<vendor>");
		КонецЕсли;
		Если СокрЛП(СокрЛП(ТабСФ.НомерДекларацииПоставщика))<>"" Тогда 
			xml_ЗаписатьАтрибут("declarations",СокрЛП(ТабСФ.НомерДекларацииПоставщика)); 
			xml_ЗаписатьАтрибут("dateRelease",ФорматДаты(ТабСФ.ДатаВыпускаТовара)); 
			xml_ЗаписатьАтрибут("dateАctualExport",ФорматДаты(ТабСФ.ДатаРазрешения)); 
		КонецЕсли;
		Если СокрЛП(СокрЛП(ТабСФ.НомерЗаявленияПоставщика))<>"" Тогда 
			xml_ЗаписатьНачалоЭлемента("<taxes>");
			xml_ЗаписатьАтрибут("number",СокрЛП(ТабСФ.НомерЗаявленияПоставщика)); 
			xml_ЗаписатьАтрибут("date",ФорматДаты(ТабСФ.ДатаЗаявленияПоставщика)); 
			xml_ЗаписатьКонецЭлемента("<taxes>"); 
		КонецЕсли;
		xml_ЗаписатьКонецЭлемента("<provider>");
		//***************************Получатель*******************************
		xml_ЗаписатьНачалоЭлемента("<recipient>");                           
		xml_ЗаписатьАтрибут("recipientStatus",СокрЛП(ТабСФ.СтатусПолучателя));
		xml_ЗаписатьАтрибут("dependentPerson",?(ТабСФ.ВзаимозависимоелицоПолучатель=1,"true","false"));
		xml_ЗаписатьАтрибут("residentsOfOffshore",?(ТабСФ.РезидентОфшЗоныПолучатель=1,"true","false"));
		xml_ЗаписатьАтрибут("specialDealGoods",?(ТабСФ.СделкаПоперечнюПолучатель=1,"true","false"));
		xml_ЗаписатьАтрибут("bigCompany",?(ТабСФ.КрупныйПлательщикПолучатель=1,"true","false")); 
		xml_ЗаписатьАтрибут("unp",ТабСФ.УНППолучателя); 
		xml_ЗаписатьАтрибут("name",СокрЛП(ТабСФ.Получатель)); 
		xml_ЗаписатьАтрибут("address",СокрЛП(ТабСФ.АдресПолучателя)); 
		Если СокрЛП(СокрЛП(ТабСФ.НомерДекларацииПолучателя))<>"" Тогда 
			xml_ЗаписатьАтрибут("declarations",СокрЛП(ТабСФ.НомерДекларацииПолучателя)); 
		КонецЕсли;
		Если СокрЛП(СокрЛП(ТабСФ.НомерЗаявленияПолучателя))<>"" Тогда 
			xml_ЗаписатьНачалоЭлемента("<taxes>");
			xml_ЗаписатьАтрибут("number",СокрЛП(ТабСФ.НомерЗаявленияПолучателя)); 
			xml_ЗаписатьАтрибут("date",ФорматДаты(ТабСФ.ДатаЗаявленияПолучателя)); 
			xml_ЗаписатьКонецЭлемента("<taxes>");
			xml_ЗаписатьАтрибут("dateImport",ФорматДаты(ТабСФ.ДатаВвозаТовара)); 
		КонецЕсли;
		xml_ЗаписатьКонецЭлемента("<recipient>");
		
		//***************************Реквизиты грузоотправителя и грузополучателя **************
		xml_ЗаписатьНачалоЭлемента("<senderReceiver>");                           
		xml_ЗаписатьНачалоЭлемента("<consignors>");                           
		xml_ЗаписатьНачалоЭлемента("<consignor>");                           
		xml_ЗаписатьАтрибут("unp",СокрЛП(ТабСФ.УНППоставщика)); 
		xml_ЗаписатьАтрибут("name",СокрЛП(ТабСФ.Поставщик)); 
		xml_ЗаписатьАтрибут("address",СокрЛП(ТабСФ.АдресПоставщика)); 
		xml_ЗаписатьКонецЭлемента("<consignor>");
		xml_ЗаписатьКонецЭлемента("<consignors>");
		
		xml_ЗаписатьНачалоЭлемента("<consignees>");                           
		xml_ЗаписатьНачалоЭлемента("<consignee>");                           
		xml_ЗаписатьАтрибут("unp",СокрЛП(ТабСФ.УНППолучателя)); 
		xml_ЗаписатьАтрибут("name",СокрЛП(ТабСФ.Получатель)); 
		xml_ЗаписатьАтрибут("address",СокрЛП(ТабСФ.АдресПолучателя)); 
		xml_ЗаписатьКонецЭлемента("<consignee>");
		xml_ЗаписатьКонецЭлемента("<consignees>");
		
		xml_ЗаписатьКонецЭлемента("<senderReceiver>");
		
		//***************************Раздел 5. Условия поставки - deliveryCondition  **************
		xml_ЗаписатьНачалоЭлемента("<deliveryCondition>");                           
		xml_ЗаписатьНачалоЭлемента("<contract>");                           
		xml_ЗаписатьАтрибут("number",СокрЛП(ТабСФ.НомерДоговораПоставки)); 
		xml_ЗаписатьАтрибут("date",ФорматДаты(ТабСФ.ДатаДоговораПоставки)); 
		xml_ЗаписатьКонецЭлемента("<contract>");
		xml_ЗаписатьКонецЭлемента("<deliveryCondition>");
		
		xml_ЗаписатьНачалоЭлемента("<roster>"," totalCostVat="""+СокрЛП(Формат(-ТабСФ.Всего,"Ч19.2"))+""""+" totalExcise="""+СокрЛП(Формат(-ТабСФ.СуммаАкциза,"Ч19.2"))+""""+" totalVat="""+СокрЛП(Формат(-ТабСФ.СуммаНДС,"Ч19.2"))+""""+" totalCost="""+СокрЛП(Формат(-ТабСФ.Сумма,"Ч19.2"))+""""); 
		ТабЧастьСФ.ВыбратьСтроки();
		Пока ТабЧастьСФ.ПолучитьСтроку()=1 Цикл
			Если ТабСФ.НомерСтроки<>ТабЧастьСФ.НомерСтрокиШапки Тогда
				Продолжить;
			КонецЕсли;
			xml_ЗаписатьНачалоЭлемента("<rosterItem>");                           
			xml_ЗаписатьАтрибут("number",СокрЛП(ТабЧастьСФ.Ном)); 
			xml_ЗаписатьАтрибут("name",СокрЛП(ТабЧастьСФ.Наименование)); 
			xml_ЗаписатьАтрибут("cost",СокрЛП(Формат(-ТабЧастьСФ.Сумма,"Ч19.2"))); 
			xml_ЗаписатьАтрибут("summaExcise",СокрЛП(Формат(-ТабЧастьСФ.СуммаАкциза,"Ч19.2"))); 
			
			xml_ЗаписатьНачалоЭлемента("<vat>");                           
			xml_ЗаписатьАтрибут("rate",СокрЛП(ТабЧастьСФ.СтавкаНДС)); 
			xml_ЗаписатьАтрибут("rateType",ТипСтавкиНДС(ТабЧастьСФ.СтавкаНДС)); 
			xml_ЗаписатьАтрибут("summaVat",СокрЛП(Формат(-ТабЧастьСФ.СуммаНДС,"Ч19.2"))); 
			xml_ЗаписатьКонецЭлемента("<vat>");
			xml_ЗаписатьАтрибут("costVat",СокрЛП(Формат(-ТабЧастьСФ.Всего,"Ч19.2"))); 
			xml_ЗаписатьКонецЭлемента("<rosterItem>");
		КонецЦикла; 
		xml_ЗаписатьКонецЭлемента("<roster>");
		xml_ЗаписатьКонецЭлемента("<issuance>");
		xml_Закрыть(); 
		
		//*********************ДАННЫЙ ФАЙЛ НАДО ПЕРЕКОДИРОВАТЬ в URTF-8 
		Если ФлФормироватьФайлы=1 Тогда
	ИмяФайлаUTF8=СокрЛП(КаталогXML)+ПрефиксНомераЭСЧФ+"-"+СокрЛП(ДатаГод(ТабСФ.ДатаВыпискиЭСЧФ))+"-"+Формат(ТабСФ.НомерЭСЧФ,"Ч(0)10")+".xml";
			ПерекодировкаФайлаWin_UTF8(стрИмяФайла,ИмяФайлаUTF8);  
			//Здесь мы будем отправлять файлы на сервер
			
		Иначе //Проводить проверку по схеме с одним и тем же именем чтобы не зря нумеровать
			ИмяФайлаUTF8=СокрЛП(КаталогXML)+"utf8.xml";
			ПерекодировкаФайлаWin_UTF8(стрИмяФайла,ИмяФайлаUTF8); 
			Если ПроверкаДокументаПоСхеме(ИмяФайлаUTF8)=0 Тогда 
				ТабСФ.НомерЭСЧФ=СокрЛП(НомерС);
				НомерС=НомерС+1;
			Иначе 
			Сообщить("Строка "+СокрЛП(ТабСФ.НомерСтроки)+" Документ не прошел проверку по схеме xsd");
			ТабСФ.ФлВыгружать=1;
			КонецЕсли;	
		КонецЕсли;
		//	Прервать;	               
		
	КонецЦикла; 
	Если ФлФормироватьФайлы=1 Тогда
	Сообщить("Конец записи: "+ТекущееВремя());
    КонецЕсли;
КонецПроцедуры

rem 	3.4 По результату обработки счёт-фактуры сервис возвращет ответ в виде подписанной квитанции, в которой указан 
rem 	результат обработки: принята подписанная счёт фактура или нет. Если документ не принят, указывается причина, 
rem 	по которой документ был отклонен. Утилита выполняет проверку подписи под квитанцией и проверку сертификата сервиса. 
rem 	В случае если подпись верна, квитанция помещается в выходной каталог out,
rem 	с именем: "invoice-номер_счёт_фактуры.ticket.xml", в случае ошибки в квитанции 
rem     она сохраняется с именем "invoice-номер_счёт_фактуры.ticket.error.xml"