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

Процедура СозданиеXMLФайла(ФлФормироватьФайлы=1,флОтправлять=0)
	
	ПроверитьДокумент(НетОшибок);
	Если НетОшибок=2 Тогда
		Возврат;
	КонецЕсли;
	стрИмяФайла=КаталогXML+"\doc_win1251.xml";
	
	//Раздел 1. Общий раздел
	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",СокрЛП(ТаблЗнач.InvVatNumber));
	xml_ЗаписатьАтрибут("dateTransaction",ФорматДаты(ТаблЗнач.ДатаВыставления)); 
	xml_ЗаписатьАтрибут("documentType",СокрЛП(ТаблЗнач.ТипЭСЧФ));
	Если СокрЛП(ТаблЗнач.ТипЭСЧФ)<>"ORIGINAL" Тогда
		Если сокрЛП(ТаблЗнач.ТипЭСЧФ)="FIXET" Тогда
		xml_ЗаписатьАтрибут("invoice",СокрЛП(ТаблЗнач.НомерИсправЭСЧФ)); 
		xml_ЗаписатьАтрибут("dateCancelled",ФорматДаты(ТаблЗнач.ДатаИсправЭСЧФ)); 
		ИначеЕсли сокрЛП(ТаблЗнач.ТипЭСЧФ)="ADDITIONAL" Тогда
		xml_ЗаписатьАтрибут("invoice",СокрЛП(ТаблЗнач.НомерИсправЭСЧФ)); 
		xml_ЗаписатьАтрибут("sendToRecipient","");
		КонецЕсли;
	КонецЕсли;
	xml_ЗаписатьКонецЭлемента("<general>");
	
	Если сокрЛП(ТаблЗнач.ТипЭСЧФ)<>"ADDITIONAL" Тогда
		xml_ЗаписатьНачалоЭлемента("<provider>");
		xml_ЗаписатьАтрибут("providerStatus",СокрЛП(ТаблЗнач.СтатусПоставщик));
		xml_ЗаписатьАтрибут("dependentPerson","false");
		xml_ЗаписатьАтрибут("residentsOfOffshore","false");
		xml_ЗаписатьАтрибут("specialDealGoods","false");
		xml_ЗаписатьАтрибут("bigCompany","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","false");
		xml_ЗаписатьАтрибут("residentsOfOffshore","false");
		xml_ЗаписатьАтрибут("specialDealGoods","false");
		xml_ЗаписатьАтрибут("bigCompany","false"); 
		Если СокрЛП(ТаблЗнач.Получатель)<>"Физические лица" тогда
			xml_ЗаписатьАтрибут("countryCode",СокрЛП(ТаблЗнач.КодСтраныПолучатель));
			xml_ЗаписатьАтрибут("unp",СокрЛП(ТаблЗнач.УНППолучатель)); 
			xml_ЗаписатьАтрибут("name",СокрЛП(ТаблЗнач.Получатель)); 
			xml_ЗаписатьАтрибут("address",СокрЛП(ТаблЗнач.АдресПолучатель)); 
			Если СокрЛП(СокрЛП(ТаблЗнач.НомерДекларацииПолучателя))<>"" Тогда 
				xml_ЗаписатьАтрибут("declaration",СокрЛП(ТаблЗнач.НомерДекларацииПолучателя)); 
			КонецЕсли;
			Если СокрЛП(СокрЛП(ТаблЗнач.НомерЗаявленияПолучателя))<>"" Тогда 
				xml_ЗаписатьНачалоЭлемента("<taxes>");
				xml_ЗаписатьАтрибут("number",СокрЛП(ТаблЗнач.НомерЗаявленияПолучателя)); 
				xml_ЗаписатьАтрибут("date",ФорматДаты(ТаблЗнач.ДатаЗаявленияПолучателя)); 
				xml_ЗаписатьКонецЭлемента("<taxes>");
				xml_ЗаписатьАтрибут("dateImport",ФорматДаты(ТаблЗнач.ДатаВвозаТовара)); 
			КонецЕсли;
		КонецЕсли;
		xml_ЗаписатьКонецЭлемента("<recipient>");
		
		//***************************Раздел 4. Реквизиты грузоотправителя и грузополучателя **************
		xml_ЗаписатьНачалоЭлемента("<senderReceiver>");                           
		xml_ЗаписатьНачалоЭлемента("<consignors>");       
		Если  СокрЛП(ТаблЗнач.Грузоотправитель)<>"" Тогда     
			xml_ЗаписатьНачалоЭлемента("<consignor>");  
			xml_ЗаписатьАтрибут("countryCode",СокрЛП(ТаблЗнач.КодСтраныГрузоотправитель)); 
			xml_ЗаписатьАтрибут("unp",СокрЛП(ТаблЗнач.УНПГрузоотправитель)); 
			xml_ЗаписатьАтрибут("name",СокрЛП(ТаблЗнач.Грузоотправитель)); 
			xml_ЗаписатьАтрибут("address",СокрЛП(ТаблЗнач.АдресГрузоотправитель)); 
			xml_ЗаписатьКонецЭлемента("<consignor>");
		КонецЕсли;
		xml_ЗаписатьКонецЭлемента("<consignors>");
		
		xml_ЗаписатьНачалоЭлемента("<consignees>");  
		Если  СокрЛП(ТаблЗнач.УНПГрузополучатель)<>"" Тогда     
			xml_ЗаписатьНачалоЭлемента("<consignee>");  
			xml_ЗаписатьАтрибут("countryCode",СокрЛП(ТаблЗнач.КодСтраныГрузополучатель)); 
			xml_ЗаписатьАтрибут("unp",СокрЛП(ТаблЗнач.УНПГрузополучатель)); 
			xml_ЗаписатьАтрибут("name",СокрЛП(ТаблЗнач.Грузополучатель)); 
			xml_ЗаписатьАтрибут("address",СокрЛП(ТаблЗнач.АдресГрузополучатель)); 
			xml_ЗаписатьКонецЭлемента("<consignee>");
		КонецЕсли;
		xml_ЗаписатьКонецЭлемента("<consignees>");
		xml_ЗаписатьКонецЭлемента("<senderReceiver>");
		
		//***************************Раздел 5. Условия поставки - deliveryCondition  **************
		xml_ЗаписатьНачалоЭлемента("<deliveryCondition>");                           
		Если СокрЛП(ТаблЗнач.НомерДоговораПоставки)<> "" Тогда
		xml_ЗаписатьНачалоЭлемента("<contract>");  
		
			xml_ЗаписатьАтрибут("number",СокрЛП(ТаблЗнач.НомерДоговораПоставки));
			xml_ЗаписатьАтрибут("date",ФорматДаты(ТаблЗнач.ДатаДоговораПоставки)); 
		
		//Если СокрЛП(ТаблЗнач.КодСтраныПоставщик) = "112" Тогда
		Если СокрЛП(ТаблЗнач.ВидДокументаДоговора)<>"" Тогда
			xml_ЗаписатьНачалоЭлемента("<documents>");                           
			xml_ЗаписатьНачалоЭлемента("<document>");  
			
			xml_ЗаписатьНачалоЭлемента("<docType>");  
			xml_ЗаписатьАтрибут("code",СокрЛП(ТаблЗнач.ВидДокументаДоговора)); 
			xml_ЗаписатьКонецЭлемента("<docType>");  
			
			xml_ЗаписатьАтрибут("date",ФорматДаты(ТаблЗнач.ДатаБланка)); 
			xml_ЗаписатьАтрибут("blankCode",СокрЛП(ТаблЗнач.КодБланка)); 
			xml_ЗаписатьАтрибут("seria",СокрЛП(ТаблЗнач.СерияБланка)); 
			xml_ЗаписатьАтрибут("number",СокрЛП(ТаблЗнач.НомерБланка)); 
			xml_ЗаписатьКонецЭлемента("<document>");  
			xml_ЗаписатьКонецЭлемента("<documents>"); 
		КонецЕсли;
		
		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_ЗаписатьАтрибут("code",СокрЛП(ТаблЗначТовар.ТНВЭД)); 
		КонецЕсли;
		Если СокрЛП(ТаблЗначТовар.Единица)<>""Тогда
			xml_ЗаписатьАтрибут("units",ТаблЗначТовар.Единица); 
		КонецЕсли;
		xml_ЗаписатьАтрибут("count",ТаблЗначТовар.Количество); 
		xml_ЗаписатьАтрибут("price",ТаблЗначТовар.Цена); 
		xml_ЗаписатьАтрибут("cost",ТаблЗначТовар.Сумма); 
		xml_ЗаписатьАтрибут("summaExcise",ТаблЗначТовар.СуммаАкциза); 
		
		xml_ЗаписатьНачалоЭлемента("<vat>");                           
		xml_ЗаписатьАтрибут("rate",ТаблЗначТовар.СтавкаНДС); 
		xml_ЗаписатьАтрибут("rateType",ТипСтавкиНДС(ТаблЗначТовар.СтавкаНДС)); 
		xml_ЗаписатьАтрибут("summaVat",ТаблЗначТовар.НДС); 
		xml_ЗаписатьКонецЭлемента("<vat>");
		xml_ЗаписатьАтрибут("costVat",ТаблЗначТовар.Всего); 
		
		Если (ТаблЗначТовар.ДопСведенияНДС<>"") и (ТаблЗначТовар.ДопСведенияНДС<>0)  Тогда
			xml_ЗаписатьНачалоЭлемента("<descriptions>"); 
			xml_ЗаписатьАтрибут("description",ТаблЗначТовар.ДопСведенияНДС); 
			xml_ЗаписатьКонецЭлемента("<descriptions>");
		КонецЕсли;
		
		xml_ЗаписатьКонецЭлемента("<rosterItem>");
		НомерТовара=НомерТовара+1;
	КонецЦикла; 
	
	xml_ЗаписатьКонецЭлемента("<roster>");
	xml_ЗаписатьКонецЭлемента("<issuance>");
	xml_Закрыть(); 
	
	//*********************ДАННЫЙ ФАЙЛ НАДО ПЕРЕКОДИРОВАТЬ в URTF-8 
	Если ФлФормироватьФайлы=1 Тогда 
		ИмяФайлаUTF8=КаталогXML+"\"+СокрЛП(ТаблЗнач.InvVatNumber)+".xml"; 
		ПерекодировкаФайлаWin_UTF8(стрИмяФайла,ИмяФайлаUTF8);  
	Иначе  //Проводить проверку по схеме с одним и тем же именем чтобы не зря нумеровать
		ИмяФайлаUTF8=КаталогXML+"\"+СокрЛП(ТаблЗнач.InvVatNumber)+".xml"; 
		ПерекодировкаФайлаWin_UTF8(стрИмяФайла,ИмяФайлаUTF8);
	//	Сообщить("Сохранился "+ИмяФайлаUTF8);
	КонецЕсли;
	ПроверкаЭСЧФПоСхеме();
КонецПроцедуры