//рдТаблицаЗамен - Таблица значений:

// {Организация} ООО "Контора"

// {Контрагент} ООО "Должник"

// {Директор} Дядя Вася

ПечатьИзШаблона(рдТаблицаЗамен, "Primer.doc");



// Функция преобразует Windows имя файла в URL OpenOffice                      

Функция ПреобразоватьВURL(ИмяФайла)

	Возврат "file:///" + СтрЗаменить(ИмяФайла, "\", "/"); 	

КонецФункции



Функция ОбработкаФайлаШаблона(ИмяШаблона) Экспорт

	                                              

	ИмяФайла = КаталогВременныхФайлов() + "doc.tmp";	                                                                                      

	Путь = "";	Имя = "";

	ФайлОбработки = РасположениеФайла(Путь, Имя);

	

	КаталогШаблонов = Путь;       

	ПолноеИмяШаблона = КаталогШаблонов + ИмяШаблона;

	

	РезультатОбработки = 0;

	                         

	// Проверка на существование 

	ЕстьШаблон = 0;

	Если ФС.СуществуетФайл(КаталогШаблонов + ИмяШаблона) = 0 Тогда  

		Сообщить("Файл " + ИмяШаблона + " не найден в каталоге шаблонов печатных форм! Обратитесь к системному администратору!", "!!!");    					   		

	Иначе

		ЕстьШаблон = 1;

	КонецЕсли;                  

	

	// Копирование во временный каталог

	                        

	Если ЕстьШаблон = 1 Тогда 

		ФС.КопироватьФайл(ПолноеИмяШаблона, ИмяФайла, 0);

	КонецЕсли;                                                            

	

	// Проверка копирования

	

	Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда 

		РезультатОбработки = 1;  

	Иначе

		Сообщить("Не удалось скопировать шаблон во временный файл.");

	КонецЕсли;

	

	Возврат РезультатОбработки; 	

	

КонецФункции



Процедура ОткрытьТекстовыйПроцессор(ИмяФайла, ТаблицаЗамен)  

	

	ТекПроцессор = рдТекстовыйПроцессор.ПолучитьЗначение(рдТекстовыйПроцессор.ТекущаяСтрока());

	

	Если ТекПроцессор = "OOoWriter" Тогда 

		

		// Открыть OpenOffice 

		

		ServiceManager = СоздатьОбъект("com.sun.star.ServiceManager");

		Desktop        = ServiceManager.createInstance("com.sun.star.frame.Desktop");

		

		

		Scr = СоздатьОбъект("MSScriptControl.ScriptControl");

		Scr.Language="javascript";

		Scr.Eval("Args=new Array()");

		Args = Scr.Eval("Args"); 

		Scr.AddObject("ServiceManager", ServiceManager);

		

		// Откроем шаблон

		

		ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ПреобразоватьВURL(ИмяФайла), "_blank", 0, Args); 

		

		// Заменяем ключевые поля на нужные значения

		                         

		Replace = ТекстовыйПроцессор.CreateReplaceDescriptor();

		

		Для x=1 По ТаблицаЗамен.КоличествоСтрок() Цикл

			

			Replace.SearchString  = ТаблицаЗамен.ПолучитьЗначение(x, 1);

			Replace.ReplaceString = ТаблицаЗамен.ПолучитьЗначение(x, 2);

			ТекстовыйПроцессор.ReplaceAll(Replace);

			

		КонецЦикла;

		

	Иначе                        		

		

		// Открываем MS Office Word

		

		Попытка

			ТекстовыйПроцессор = СоздатьОбъект("Word.Application"); 

		Исключение 			

			Сообщить("Не удалось создать объект Microsoft Office Word!", "!!!");

			Возврат;			

		КонецПопытки;        

		

		// Открываем шаблон

		

		ТекстовыйПроцессор.Visible = 0; 

		ТекстовыйПроцессор.Documents.Open(ИмяФайла,, -1);

		Fnd = ТекстовыйПроцессор.ActiveDocument.Range().Find;

		Fnd.ClearFormatting();

		Fnd.Forward = -1;  

		

		// Заменяем ключевые поля на нужные значения

		

		ТаблицаЗамен.ВыбратьСтроки();

		Пока ТаблицаЗамен.ПолучитьСтроку() = 1 Цикл  

			Fnd.Execute(ТаблицаЗамен.Найти,,,,,,,,, ТаблицаЗамен.Заменить, 2);   

		КонецЦикла;  

		

		ТекстовыйПроцессор.Visible = -1;    

		ТекстовыйПроцессор.Activate(); 

		

	КонецЕсли;

	



КонецПроцедуры

//*****************************************************************************

Процедура ПечатьИзШаблона(ТаблицаЗамен, ИмяФайлаШаблона) Экспорт

	            

	// Проверим, есть ли нужный шаблон	

	Если ОбработкаФайлаШаблона(ИмяФайлаШаблона) = 0 Тогда

		Возврат;

	КонецЕсли;              

	

	ИмяФайла = КаталогВременныхФайлов() + "doc.tmp";	

	

	// Открываем в текстовом процессоре файл шаблона	

	ОткрытьТекстовыйПроцессор(ИмяФайла, ТаблицаЗамен);

	

КонецПроцедуры  

 ГУИДССЫЛКИ	= СсылкаНаОбъект.УникальныйИдентификатор();

// или

НоменклатураСсылка = Справочники.Номенклатура.НайтиПоКоду("00013");

Если НЕ НоменклатураСсылка.Пустая() Тогда

   Сообщить("GUID = " + НоменклатураСсылка.УникальныйИдентификатор());

КонецЕсли; 

   

  Запрос = Новый Запрос;

       Запрос.Текст = "ВЫБРАТЬ

                        |    Номенклатура.НаименованиеПолное,

                        |    Номенклатура.ЕдиницаИзмерения,

                        |    Номенклатура.СтавкаНДС,

                        |    Номенклатура.НоменклатурнаяГруппа,

                        |    Номенклатура.СчетУчетаЗапасов,

                        |    Номенклатура.СчетУчетаЗатрат,

                        |    Номенклатура.Ссылка, 

                        |    Номенклатура.ЭтоГруппа

                        | ИЗ

                        |    Справочник.Номенклатура КАК Номенклатура"; 

       РезультатЗапроса = Запрос.Выполнить();

       СпрОбъект = РезультатЗапроса.Выбрать();    

       Пока СпрОбъект.Следующий()  Цикл

          СтрокаУИ = Объект.XMLСтрока(СпрОбъект.Ссылка);

          GUID = Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(СокрЛП(СтрокаУИ)));          

        КонецЦикла;

   

 Инфо = СоздатьОбъект("AddIn.V7SysInfo");

ГлобальноУникальныйИдентификатор = Инфо.СоздатьGUID();

 Функция СоздатьGUID()

    TypeLib = CreateObject("Scriptlet.TypeLib");

    NewGUID = TypeLib.Guid();

    TypeLib = "";

    Возврат NewGUID;

КонецФункции    



//******************************************* 

Процедура Сформировать()

    g=СоздатьGUID();

    Сообщить("Создан GUID: "+g);

КонецПроцедуры

 Если Док_Источник.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода) = 1 Тогда

    Пока Док_Источник.ПолучитьДокумент() = 1 Цикл

Объект = БазаОле.ЗначениеВстрокуВнутр(Док_Источник.ТекущийДокумент());

ИдентификаторДокумента = СокрЛП(ПолучитьИД(Объект));



//   Для примера Объект возвращает {"O","0","0","3114","0","0","    258156CB "}, 

//   а ПолучитьИД(объект) = 258156CB

КонецЦикла; 

  ГУИДССЫЛКИ	= СсылкаНаОбъект.УникальныйИдентификатор();    

 	// ГУИДУдОбъкта =  <Объект не найден> (84:bf5600145e3710ab11dda4c605dbe824)

	ГУИДУдОбъктаСтр = СтрЗаменить(ГУИДУдОбъкта,"<Объект не найден> (","");

	ГУИДУдОбъктаСтр = СтрЗаменить(ГУИДУдОбъктаСтр,")","");

	ГУИДУдОбъктаСтр = СтрЗаменить(ГУИДУдОбъктаСтр,"0x","");

	ГУИДУдОбъктаСтр = Сред(ГУИДУдОбъктаСтр, Найти(ГУИДУдОбъктаСтр,":")+1, СтрДлина(ГУИДУдОбъктаСтр));

	// Преобразуем GUID

	ГУИД = Сред(ГУИДУдОбъктаСтр,25,8)+"-"+Сред(ГУИДУдОбъктаСтр,21,4)+"-"+Сред(ГУИДУдОбъктаСтр,17,4)+"-"+Сред(ГУИДУдОбъктаСтр,1,4)+"-"+Сред(ГУИДУдОбъктаСтр,5,12);			//и получаем ГУИД = 05dbe824-a4c6-11dd-bf56-00145e3710ab    

  	// ГУИД = 05dbe824-a4c6-11dd-bf56-00145e3710ab  

	// Ссылка будет установлена в переменную СсылкаНаОбъектГуид

	УникальныйИдентификатор = Новый УникальныйИдентификатор(ГУИД)

	// все объекты по которым можно получить ссылку

	Если ПолучитьСсылкуНоМенеджеруОбъекта(Справочники,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(Документы,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(ПланыВидовХарактеристик,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(ПланыСчетов,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(ПланыОбмена,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(БизнесПроцессы,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(Задачи,УникальныйИдентификатор) Тогда

	КонецЕсли;

	

	// ПолучитьСсылкуНоМенеджеруОбъекта()

	Функция ПолучитьСсылкуНоМенеджеруОбъекта(ОбъектыМенеджер,УникальныйИдентификатор)

	Для Каждого Менеджер Из ОбъектыМенеджер Цикл

		СсылкаНаОбъектГуид = Менеджер.ПолучитьСсылку(УникальныйИдентификатор);

		

		Если СсылкаНаОбъектГуид.ПолучитьОбъект() <> Неопределено Тогда

			Возврат Истина;

		КонецЕсли;

	КонецЦикла;

	Возврат Ложь;	

	КонецФункции

   

 	// ТекGUID = 05dbe824-a4c6-11dd-bf56-00145e3710ab 

 		Попытка

			УникальныйИд = Новый УникальныйИдентификатор(ТекGUID);

		Исключение

			Возврат;

		КонецПопытки;

		КартинкаСпр=БиблиотекаКартинок.Справочник;

		КартинкаДок=БиблиотекаКартинок.Документ;

		СписокВыбора	= Новый СписокЗначений;

		СписокВыбора.Добавить(null,"СПРАВОЧНИКИ");

		Для каждого ЭлементМетаданных Из Метаданные.Справочники Цикл

			Структурка=Новый Структура;

			Структурка.Вставить("Имя",ЭлементМетаданных.Имя);

			Структурка.Вставить("Тип",1);

			СписокВыбора.Добавить(Структурка,ЭлементМетаданных.Синоним,,КартинкаСпр);

		КонецЦикла;

		СписокВыбора.Добавить(null,"ДОКУМЕНТЫ");

		Для каждого ЭлементМетаданных Из Метаданные.Документы Цикл

			Структурка=Новый Структура;

			Структурка.Вставить("Имя",ЭлементМетаданных.Имя);

			Структурка.Вставить("Тип",2);

			СписокВыбора.Добавить(Структурка,ЭлементМетаданных.Синоним,,КартинкаДок);

		КонецЦикла;

		Результат=СписокВыбора.ВыбратьЭлемент("Выберите тип ссылки");

		Если Результат=Неопределено Тогда

			Возврат;

		КонецЕсли;

		Структурка=Результат.Значение;

		Если Структурка=null Тогда

			Возврат;

		КонецЕсли;

		

		НовыйОбъект=Неопределено;

		Если Структурка.Тип=1 Тогда

			Объект=Справочники[Структурка.Имя].СоздатьЭлемент();

			Объект.ОбменДанными.Загрузка=Истина;

			Объект.УстановитьСсылкуНового(Справочники[Структурка.Имя].ПолучитьСсылку(УникальныйИд));

		Иначе

			Объект=Документы[Структурка.Имя].СоздатьДокумент();

			Объект.ОбменДанными.Загрузка=Истина;

			Объект.УстановитьСсылкуНового(Документы[Структурка.Имя].ПолучитьСсылку(УникальныйИд));

		КонецЕсли;

		

		Форма=Объект.ПолучитьФорму();

		Форма.Открыть();

   

 Если Док_Источник.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода) = 1 Тогда

    Пока Док_Источник.ПолучитьДокумент() = 1 Цикл

Объект = БазаОле.ЗначениеВстрокуВнутр(Док_Источник.ТекущийДокумент());

ИдентификаторДокумента = СокрЛП(ПолучитьИД(Объект));



//   Для примера Объект возвращает {"O","0","0","3114","0","0","    258156CB "}, 

//   а ПолучитьИД(объект) = 258156CB

КонецЦикла; 

 

Функция ПолучимСписокБаз1СИзФайла(Версия)

	// Функция получения списка баз 1С 8.0 8.1 8.2 E_Migachev

	// Возвращает Таблицу Значений содержащую Название, СтрокаСоединения с базами 1С

	

	// Для начала получим программным путем полный путь к папке Application Data 

	// Способ из https://helpf.pro/faq/view/271.html

	App = Новый COMОбъект("Shell.Application");

	AppData=App.Namespace(26).Self.Path;

	ТЗБаз=Новый ТаблицаЗначений;

	ТЗБаз.Колонки.Добавить("Название",,"Название",25);

	ТЗБаз.Колонки.Добавить("СтрокаСоединения",,"СтрокаСоединения",30);

	Если Версия = "v80" Тогда		

		СписокБаз=AppData+"\1C\1Cv8\v8ib.lst";

	ИначеЕсли Версия = "v81" Тогда

		СписокБаз=AppData+"\1C\1Cv81\ibases.v8i";

	ИначеЕсли Версия = "v82" Тогда

		СписокБаз=AppData+"\1C\1CEStart\ibases.v8i";

	КонецЕсли;

	Сообщить("Файл со списком баз: "+Строка(СписокБаз));

	//Открываем файл в кодировке UTF8

	ФайлБаз= Новый ЧтениеТекста;

	ФайлБаз.Открыть(СписокБаз, КодировкаТекста.UTF8);

	Стр = ФайлБаз.ПрочитатьСтроку();

	Пока НЕ Стр = Неопределено Цикл

		Если СтрДлина(СокрЛП(Стр)) Тогда

			ТекущаяСтрока = СокрЛП(Стр);

			

			Если Лев(ТекущаяСтрока, 1) = "[" Тогда

				НоваяСтрока = ТЗБаз.Добавить();

				НоваяСтрока.Название = ТекущаяСтрока;

			КонецЕсли;

			

			Если Лев(ТекущаяСтрока, 8) = "Connect=" Тогда

				Попытка					

					НоваяСтрока.СтрокаСоединения = Прав(ТекущаяСтрока, СтрДлина(ТекущаяСтрока)-8);

				Исключение

					// Это группа

					НоваяСтрока.СтрокаСоединения = "";

				КонецПопытки;				

			КонецЕсли;     						

		КонецЕсли;

		Стр = ФайлБаз.ПрочитатьСтроку();

	КонецЦикла;

	//Удалим из ТЗ строки с пустой Строкой Соединения, т.к это группы, а они нам не нужны

	ПустыеСтроки = ТЗБаз.НайтиСтроки(Новый Структура("СтрокаСоединения",));

	Для каждого СтрокаТаблицы Из ПустыеСтроки Цикл

		ТЗБаз.Удалить(СтрокаТаблицы)

	КонецЦикла;

	Возврат ТЗБаз;

КонецФункции



Процедура ПолучимИзФайла(Кнопка)

	ТЗБаз = ПолучимСписокБаз1СИзФайла(Кнопка.Имя);

	//Выведем список баз из ТЗ в табличное поле

	Список=ТЗБаз;

	ЭлементыФормы.Список.СоздатьКолонки();

КонецПроцедуры