Конвертация в ПДФ из 1С 7.7 через 1С 8.х

Функция глПолучитьСтандартныеМетаданныеPDF(Заголовок="", Тема="", Автор=0, КлючевыеСлова=0, ГенераторОригинальногоДокумента=0, ГенераторДокументаPDF=0) Экспорт
	
	спМД = СоздатьОбъект("СписокЗначений");
	спМД.ДобавитьЗначение(СокрЛП(глОсновнаяФирма.ПолнНаименование), "Автор");
	спМД.ДобавитьЗначение("1С:Предприятие 7.7", "ГенераторОригинальногоДокумента");
	спМД.ДобавитьЗначение("Йоксель", "ГенераторДокументаPDF");
	спМД.ДобавитьЗначение("", "КлючевыеСлова");
	
	спМД.ДобавитьЗначение(Заголовок, "Заголовок");
	спМД.ДобавитьЗначение(Тема, "Тема");
	
	Если ТипЗначенияСтр(Автор) = "Строка" Тогда
		спМД.Установить("Автор", Автор);
	КонецЕсли;
	
	Если ТипЗначенияСтр(КлючевыеСлова) = "Строка" Тогда
		спМД.Установить("КлючевыеСлова", КлючевыеСлова);
	КонецЕсли;
	
	Если ТипЗначенияСтр(ГенераторОригинальногоДокумента) = "Строка" Тогда
		спМД.Установить("ГенераторОригинальногоДокумента", ГенераторОригинальногоДокумента);
	КонецЕсли;
	
	Если ТипЗначенияСтр(ГенераторДокументаPDF) = "Строка" Тогда
		спМД.Установить("ГенераторДокументаPDF", ГенераторДокументаPDF);
	КонецЕсли;
	
	спМД.ДобавитьЗначение(Заголовок, "Заголовок");
	
	Возврат спМД;
	
КонецФункции //глПолучитьСтандартныеМетаданныеPDF

//*****************************************************************************
Функция глКонвертироватьPDF(Таб, ИмяФайла, Знач спМетаданных="") Экспорт
	Перем ЧЧ, ММ, СС;
	
	ТабДокумент = СоздатьОбъект("ТабличныйДокумент");
	ТабДокумент.ЗагрузитьИзТаблицы(Таб);
	
	//автоопределение ширины PDF-файла
	ШиринаТаблицыВСимволах = 0;
	Для К = 1 По ТабДокумент.ШиринаТаблицы() Цикл
		ШиринаТаблицыВСимволах = ШиринаТаблицыВСимволах + ТабДокумент.Область(1, К).ШиринаСтолбца();
	КонецЦикла;
	
	//масштабируем исходя из 567 твипов в 1 см. Коэф. 116.2 в одном символе определен экспериментально
	ШиринаСтраницыВТвипах = Макс(11907, Окр(ШиринаТаблицыВСимволах * 116.2));
	Отступы = Окр(567 * ШиринаСтраницыВТвипах / 11907);
	
	Конвертер = СоздатьОбъект("Йоксель.ГрафическийКонвертер.PDF");
	Конвертер.ВысотаСтраницы = Окр(ШиринаСтраницыВТвипах * 297 / 210);
	Конвертер.ШиринаСтраницы = ШиринаСтраницыВТвипах;
	Конвертер.КоличествоБитНаПиксел = 24;
	Конвертер.Документ = ТабДокумент;
	Конвертер.ПолеСлева = Отступы;
	Конвертер.ПолеСверху = Отступы;
	Конвертер.ПолеСправа = Отступы;
	Конвертер.ПолеСнизу = Отступы;
	
	Если ПустоеЗначение(спМетаданных) = 1 Тогда
		спМетаданных = глПолучитьСтандартныеМетаданныеPDF();
	КонецЕсли;
	
	Данные = Конвертер.СтандартныеМетаданные;
	Данные.Автор = спМетаданных.Получить("Автор");
	Данные.Заголовок = спМетаданных.Получить("Заголовок");
	Данные.Тема = спМетаданных.Получить("Тема");
	Данные.КлючевыеСлова = спМетаданных.Получить("КлючевыеСлова");
	Данные.ГенераторОригинальногоДокумента = спМетаданных.Получить("ГенераторОригинальногоДокумента");
	Данные.ГенераторДокументаPDF = спМетаданных.Получить("ГенераторДокументаPDF");
	
	ДатаСоздания = ТекущаяДата();
	ВремяСоздания = ТекущееВремя(ЧЧ, ММ, СС);
	Данные.УстановитьДатуСоздания(ДатаГод(ДатаСоздания), ДатаМесяц(ДатаСоздания), ДатаЧисло(ДатаСоздания), ЧЧ, ММ, СС);
	
	Конвертер.ЗаписатьВФайл(ИмяФайла);
	
	Возврат 1;
	
КонецФункции //глКонвертироватьPDF

Процедура ПриНачалеРаботыСистемы()
    ИмяФайла = СокрЛП(ПараметрЗапуска);
	
	Если СтрНайти(ИмяФайла, "mxl") > 0 тогда
	
		ТекФайл = Новый Файл(ИмяФайла);
	    Если ТекФайл.Существует() Тогда
	    
	        ИмяНовогоФайла = СтрЗаменить(ТекФайл.ПолноеИмя,".mxl",".pdf");
	        НовыйФайл  = Новый Файл(ИмяНовогоФайла);
	        
	        ТабДок = Новый ТабличныйДокумент;
	        ТабДок.Прочитать(ТекФайл.ПолноеИмя);
	        ТабДок.АвтоМасштаб = Истина;
	        
	        ПереместитьФайл(ТекФайл.ПолноеИмя,ИмяНовогоФайла); //трём mxl
	        ТабДок.Записать(ИмяНовогоФайла,ТипФайлаТабличногоДокумента.PDF);
	            
	    КонецЕсли; 
	
	Иначе
		ИмяФайлаИстина = ИмяФайла + "АКТ_Заказ_.pdf";
		ИмяФайла1 	= ИмяФайла + "Заказ_.mxl";
		ИмяФайла2 	= ИмяФайла;
		
		ИмяФайла 	= ИмяФайла + "АКТ_.mxl";
		ТекФайл 	= Новый Файл(ИмяФайла);
		ТекФайл1 	= Новый Файл(ИмяФайла1);
		
         Пакет = Новый ПакетОтображаемыхДокументов;

         Пакет.КоличествоЭкземпляров = 1;
         Пакет.РазборПоКопиям = Истина;
		 Если ТекФайл.Существует() Тогда
	    
	        ИмяНовогоФайла = СтрЗаменить(ТекФайл.ПолноеИмя,".mxl",".pdf");
	        НовыйФайл  = Новый Файл(ИмяНовогоФайла);
	        
	        ТабДок = Новый ТабличныйДокумент;
	        ТабДок.Прочитать(ТекФайл.ПолноеИмя);
	        ТабДок.АвтоМасштаб = Истина;
	        
	        ПереместитьФайл(ТекФайл.ПолноеИмя,ИмяНовогоФайла); //трём mxl
	        ЭлементПакета = Пакет.Состав.Добавить();
	        ЭлементПакета.Данные = ПоместитьВоВременноеХранилище(ТабДок,Новый  УникальныйИдентификатор());
	    КонецЕсли; 
		
		Если ТекФайл1.Существует() Тогда
	    
	        ИмяНовогоФайла1 = СтрЗаменить(ТекФайл1.ПолноеИмя,".mxl",".pdf");
	        НовыйФайл1  = Новый Файл(ИмяНовогоФайла1);
	        
	        ТабДок1 = Новый ТабличныйДокумент;
	        ТабДок1.Прочитать(ТекФайл1.ПолноеИмя);
	        ТабДок1.АвтоМасштаб = Истина;
	        
	        ПереместитьФайл(ТекФайл1.ПолноеИмя,ИмяНовогоФайла1); //трём mxl
	        ЭлементПакета = Пакет.Состав.Добавить();
	        ЭлементПакета.Данные = ПоместитьВоВременноеХранилище(ТабДок1,Новый  УникальныйИдентификатор());
	    КонецЕсли; 
		
		ИмяФайла21 	= ИмяФайла2 + "Заказ_.pdf";
		ТекФайл2 	= Новый Файл(ИмяФайла21);
		
		
		Если ТекФайл2.Существует() Тогда
		    УдалитьФайлы(ТекФайл2.ПолноеИмя); //трём 2
		КонецЕсли; 
			
		ИмяФайла3 	= ИмяФайла2 + "АКТ_.pdf";
		ТекФайл3 	= Новый Файл(ИмяФайла3);
		
		
		Если ТекФайл3.Существует() Тогда
		    УдалитьФайлы(ТекФайл3.ПолноеИмя); //трём 3
		КонецЕсли; 
			
         Пакет.ЗаписатьФайлДляПечати(ИмяФайлаИстина);		
	КонецЕсли;
	
 ЗавершитьРаботуСистемы();
КонецПроцедуры