Выгрузка в XML из Бухгалтерии 4.5 в формате утверждённом ФНС (для ЭДО)

Функция Выгрузить()         
	    
      
		    
			 
		 	Заголовок = Шаблон("<?xml version=""1.0"" encoding=""windows-1251""?>
		|<Файл xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">");
		
	
	   
	   
	     
	
	       ИНН = ""; КПП = "";
         глРазложитьИННКонтрагента(Контрагент, ИНН, КПП);
        
        ИННКонтрагента =ИНН;
        КППКонтрагента = КПП;
        Покупатель = СтрЗаменить(СокрЛП(Контрагент.ПолнНаименование),"""","");
        
        АдресКонтрагента = СтрЗаменить(СокрЛП(Контрагент.ЮридическийАдрес),"""","");
        итогоСуммаБезНДС=0; 
		 итогоСумма=0; 
		   итогоНДС=0; 
        ДокОсн=ДокументОснование ;
        Т = СоздатьОбъект("Текст");
        Т.КодоваяСтраница(0);//windows  
        Т.ДобавитьСтроку("<?xml version=""1.0"" encoding=""windows-1251""?>");
		
        Т.ДобавитьСтроку("<Файл ВерсФорм=""5.01"" ИдФайл=""ON_SFAKT_СВОЙИНН_СВОЙКПП_"+СокрЛП(ТекущаяДата())+"_16a13a76-9775-454c-b1d5-2cb670ba75cc""");
             Т.ДобавитьСтроку("xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">");
		Т.ДобавитьСтроку("");
        Т.ДобавитьСтроку("  <СвУчДокОбор ИдОтпр=""631613233"" ИдПок=""2BE765a3ea05d9011e38fbb005056917125"">"); //тут своего оператора забить
        Т.ДобавитьСтроку("    <СвОЭДОтпр ИННЮЛ=""631613233"" ИдЭДО=""2BE"" НаимОрг=""ООО Диадок"">"); //тут своего оператора забить
        Т.ДобавитьСтроку("  </СвУчДокОбор>");
        Т.ДобавитьСтроку("");
        Т.ДобавитьСтроку("  <Документ КНД=""1115101"">");
        Т.ДобавитьСтроку("    <СвСчФакт ДатаСчФ="""+Формат(ДатаДок,"ДДДММГГГГ")+""" КодОКВ=""643"" НомерСчФ="""+СокрЛП(НомерДок)+""">");
        Т.ДобавитьСтроку("    <КодВидОпер>02</КодВидОпер>");//иначе не проходит контроль в книге продаж
        Т.ДобавитьСтроку("      <СвПрод>");
        Т.ДобавитьСтроку("        <ИдСв>");
        Т.ДобавитьСтроку("          <СвЮЛ ИННЮЛ="""+"420...."+""" КПП="""+"420..."+""" НаимОрг="""+Константа.НаименованиеОрганизации+"""/>");
        Т.ДобавитьСтроку("        </ИдСв>");
        Т.ДобавитьСтроку("        <Адрес>");
        Т.ДобавитьСтроку("          <АдрРФ Город="""+Константа.АдресОрганизации+""" Дом="""" Индекс="""" КодРегион="""" Улица=""""/>");
        Т.ДобавитьСтроку("        </Адрес>");
        Т.ДобавитьСтроку("      </СвПрод>");
        Т.ДобавитьСтроку("      <СвПокуп>");
        Т.ДобавитьСтроку("        <ИдСв>");
        Т.ДобавитьСтроку("          <СвЮЛ ИННЮЛ="""+ИННКонтрагента+""" КПП="""+КППКонтрагента+""" НаимОрг="""+Покупатель+"""/>");
        Т.ДобавитьСтроку("        </ИдСв>");
        Т.ДобавитьСтроку("        <Адрес>");
        Т.ДобавитьСтроку("          <АдрРФ АдрТекст="""+АдресКонтрагента+""" КодСтр=""643""/>");
        Т.ДобавитьСтроку("        </Адрес>");
        Т.ДобавитьСтроку("      </СвПокуп>");
     //   Т.ДобавитьСтроку("      <ИнфПол ТекстИнф="""+СокрЛП(Документ)+"""/>");
        Т.ДобавитьСтроку("    </СвСчФакт>");
        Т.ДобавитьСтроку("    <ТаблСчФакт>");
        ДокОсн.ВыбратьСтроки();
        НС = 0;
        Пока ДокОсн.ПолучитьСтроку() = 1 Цикл
            НС = НС + 1;
            Товар = СтрЗаменить(СокрЛП(ДокОсн.Номенклатура),"""","");
            Попытка
                КодЕдИзм = Товар.ЕдиницаИзмерения.Код;
            Исключение
                КодЕдИзм = "796";//шт
            КонецПопытки;
            Т.ДобавитьСтроку("      <СведТов КолТов="""+СокрЛП(Формат(ДокОсн.Количество,"Ч17.3."))+""" НаимТов="""+СтрЗаменить(СокрЛП(Товар), """", "")+""" НомСтр="""+СокрЛП(НС)+""" ОКЕИ_Тов="""+СокрЛП(КодЕдИзм)+""" СтТовБезНДС="""+СокрЛП(Формат((ДокОсн.Сумма-ДокОсн.НДС),"Ч17.2."))+""" СтТовУчНал="""+СокрЛП(Формат(ДокОсн.Сумма,"Ч17.2."))+""" ЦенаТов="""+СокрЛП(Формат(ДокОсн.Цена,"Ч17.2."))+""">");
            Т.ДобавитьСтроку("        <Акциз СумАкциз=""без акциза""/>");
            Т.ДобавитьСтроку("        <НалСт НалСтВел=""18"" НалСтТип=""процент""/>");
            Т.ДобавитьСтроку("        <СумНал СумНДС="""+СокрЛП(Формат(ДокОсн.НДС,"Ч17.2."))+"""/>");
            Т.ДобавитьСтроку("      </СведТов>");
            итогоСуммаБезНДС =   ДокОсн.Сумма -ДокОсн.НДС;
			итогоСумма =  итогоСумма+ДокОсн.Сумма;  
			итогоНДС=итогоНДС+ДокОсн.НДС; 
		КонецЦикла;
        Т.ДобавитьСтроку("      <ВсегоОпл СтТовБезНДСВсего="""+СокрЛП(Формат(итогоСуммаБезНДС,"Ч17.2."))+""" СтТовУчНалВсего="""+СокрЛП(Формат(итогоСумма,"Ч17.2."))+""">");
        Т.ДобавитьСтроку("        <СумНалВсего СумНДС="""+СокрЛП(Формат(итогоНДС,"Ч15.2."))+"""/>");
        Т.ДобавитьСтроку("      </ВсегоОпл>");
        Т.ДобавитьСтроку("    </ТаблСчФакт>");
        Т.ДобавитьСтроку("    <Подписант>");
        Т.ДобавитьСтроку("      <ЮЛ Должн=""Директор"" ИННЮЛ="""+"420..."+""">");
        Т.ДобавитьСтроку("        <ФИО Имя="""+"Игорь"+""" Отчество="""+"Александрович"+""" Фамилия="""+"Харченко"+"""/>");
        Т.ДобавитьСтроку("      </ЮЛ>");
        Т.ДобавитьСтроку("    </Подписант>");
        Т.ДобавитьСтроку("  </Документ>");
        Т.ДобавитьСтроку("");
        Т.ДобавитьСтроку("</Файл>");
        ИмяФайла = СокрЛП("C:")+"\ON_SFAKT_"+СокрЛП(НомерДок)+".xml";
        Т.Записать(ИмяФайла);	
	  
		
		
КонецФункции //