//**********************************************************************************
//получаем макет на сервере, сохраняем в файл и передаем на клиента
&НаСервере
Функция ПолучитьДанныеМакета()
    АдресХранилища = Новый УникальныйИдентификатор();
    Макет          = ПолучитьОбщийМакет("Договор");
 
    ВременныйФайл = ПолучитьИмяВременногоФайла("doc"); 
    Макет.Записать(ВременныйФайл);
 
 Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ВременныйФайл), АдресХранилища); 
 УдалитьФайлы(ВременныйФайл); 
 
 Возврат Адрес; 
    
КонецФункции 
//**********************************************************************************
//код сотрудника, нужно для создания уникального имени файла для каждого пользователя
&НаСервере
Функция КодПользователя(Пользователь)
 
 Возврат СокрЛП(Пользователь.Сотрудник.Код);
 
КонецФункции
//**********************************************************************************
//Ссылка - ссылка на договор(ссылка справочника, нужно для подстановки реквизитов)
//РеквизитыДляПечати - структура с нужными реквизитами
&НаКлиенте
Процедура ПечатьДоговора(Ссылка,РеквизитыДляПечати)
 
 Пользователь = ОбщегоНазначения.ТекущийПользователь();
 Каталог = КаталогВременныхФайлов(); 
 Каталог = ?(Прав(Каталог,1) = "\", Каталог, Каталог+"\");
 ПолноеИмяФайла = Каталог+"Договор_"+КодПользователя(Пользователь)+".doc";
 
    Попытка
        Индификатор = ПолучитьДанныеМакета();
        МакетДоговора = ПолучитьИзВременногоХранилища(Индификатор);
        МакетДоговора.Записать(ПолноеИмяФайла);
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
 
 Попытка
  MSWord = Новый COMОбъект("Word.Application");
 Исключение
  Сообщить("Ошибка при попытке создать объект ""MS Word""!" + Символы.ПС + 
  "Возможно приложение ""MS Word"" не установлено или установлено неправильно.", СтатусСообщения.Внимание);
 КонецПопытки;
 
 MSWord.Documents.Open(ПолноеИмяФайла); 
 
 Попытка
  Документ = MSWord.Application.Documents(1);
  Документ.Activate();
 Исключение
  // Если произойдет ошибка, выводятся данные об ошибке, и объект закрывается.
  Сообщение = Новый СообщениеПользователю();
  Сообщение.Текст = ОписаниеОшибки();
  Сообщение.Сообщить();
  
  MSWord.Application.Quit();
  
  Возврат;
 КонецПопытки;
 
 
 //*******************************************
 //тут выполняем замену
 Попытка
  Замена = Документ.Content.Find;
  Замена.Execute("{ЧтоМеняем}", Ложь, Истина, Ложь, , , Истина, , Ложь,   "На что меняем");
 Исключение
 КонецПопытки;
 
 // Делаем видимым приложение и активизируем его.
 MSWord.Application.Visible = Истина;
 MSWord.Activate();
 
КонецПроцедуры

     

 СформироватьОтчет(ЭлементыФормы.Результат, ДанныеРасшифровки);   

 Макет = ПолучитьОбщийМакет("МакетПодписи");
ОбластьВывести = Макет.ПолучитьОбласть("Подпись");
ЭлементыФормы.Результат.Вывести(ОбластьВывести);   

 Процедура ОбновитьОтчет() Экспорт
СостояниеМодифицированности = Модифицированность;
Если ПанельНастроекНарисована <> Истина Тогда
ОбновлениеОтображения();
КонецЕсли;
ТиповыеОтчеты.ЗагрузитьВРеквизитЗначенияНастроекПанелиПользователя(ЭтотОбъект, ЭтаФорма);
ПараметрыПанели = ТиповыеОтчеты.ПолучитьПараметрыПанелиПользователяОбъекта(ОтчетОбъект);
ЗначенияНастроек = ТиповыеОтчеты.ПолучитьЗначенияНастроекПанелиПользователяОбъекта(ОтчетОбъект);
Отказ = ложь;
ТиповыеОтчеты.ПроверитьЗначенияПараметров(ЗначенияНастроек, ПараметрыПанели, Отказ);
Если Отказ тогда
Возврат;
КонецЕсли;
РежимформированияОтчета = НЕ ЭтоОтработкаРасшифровки;
СформироватьОтчет(ЭлементыФормы.Результат, ДанныеРасшифровки);
//Мигачев - Вывод подписей
Макет = ПолучитьОбщийМакет("МакетПодписи");
ОбластьВывести = Макет.ПолучитьОбласть("Подпись");
// Если надо вывести параметр
//ОбластьВывести.Параметры.Подписант = Бухгалтер;
ЭлементыФормы.Результат.Вывести(ОбластьВывести);
//*//
УправлениеОтчетами.УстановитьКолонтитулыПоУмолчанию(ЭлементыФормы.Результат, Заголовок, Строка(ПараметрыСеанса.ТекущийПользователь));
Модифицированность = СостояниеМодифицированности;
КонецПроцедуры   

 Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
    Попытка
        КомпонентШК = Новый COMОбъект("V8.Barcod.1");
        Макет                   = ПолучитьОбщийМакет("Этикетка");
        ЭтикеткаОбласть         = Макет.ПолучитьОбласть(1,1,4,2);
        ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = "1111111111116";
    Исключение
        Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!
                 |Возможна печать только штрих-кодов Interleave!", СтатусСообщения.Важное);
        //Отказ = Истина;
    КонецПопытки;

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

 #Если Клиент Тогда
// Печать этикеток со штрих-кодом
//
Процедура ПечатьЭтикеток(Товары = Неопределено) Экспорт

//am+ Эта проверка нам не нужна, во первых она выполняется ПередОткрытием в форме обработки.
// Кроме того у нас есть тип штрихкода, который печататется без компоненты.
//Попытка
// КомпонентШК = Новый COMОбъект("V8.Barcod.1");
//Исключение
// Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!", СтатусСообщения.Важное);
// Возврат;
//КонецПопытки;
//am-   

 
// Возвращает значение типа штрих-кода для использования в ЭУ
// "1С:Печать штрих-кодов"
//
// Параметры
//  ТипКода -   ПланыВидовХарактеристик.ТипыШтрихкодов - тип, значение для которого
//              нужно получить
//
// Возвращаемое значение:
//   Число, которое может быть присвоено свойству ЭУ "ТипКода"
//
Функция ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода) Экспорт
    Перем Значение;

    Если ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8 Тогда
        Значение = 0;
    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13 Тогда
        Значение = 1;
    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128 Тогда
        Значение = 2;
    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда
        Значение = 3;
    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128 Тогда
        Значение = 4;

//am+
    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда
        Значение = 100;
//am-

    Иначе
        Значение = -1;
    КонецЕсли;

    Возврат Значение;
КонецФункции // ПолучитьЗначениеТипаШтрихкодаДляЭУ()   

 Процедура Печать(ТаблицаТоваров) Экспорт

    //am+ Так как у нас два разных макета, то нам нельзя смешивать типы ШК
    //    печатаемые в разных макетах. Выполним проверку.

    флВремЕстьInterleave = Ложь;
    флВремЕстьНеInterleave = Ложь;
    Для Каждого СтрокаИзСписка Из ТаблицаТоваров Цикл
        Если СтрокаИзСписка.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда
            флВремЕстьInterleave = Истина;
        Иначе
            флВремЕстьНеInterleave = Истина;
        КонецЕсли;
        Если флВремЕстьInterleave и флВремЕстьНеInterleave Тогда
            Предупреждение("В списке одновременно встречаются штрих-коды несовместимых типов,
                           |Штрих-коды Interleave необходимо печатать отдельно от остальных!");
            Возврат;
        КонецЕсли;
    КонецЦикла;
    //am-

    Таб                     = Новый ТабличныйДокумент;
    Таб.ИмяПараметровПечати =   "ПАРАМЕТРЫ_ПЕЧАТИ_Этикетка"+СокрЛП(ИмяКомпьютера());
    //am+ Используем наш макет.
    Если флВремЕстьInterleave Тогда
        Макет                   = ПолучитьОбщийМакет("ЭтикеткаInterleave");
    Иначе
    //am-
        Макет                   = ПолучитьОбщийМакет("Этикетка");
    КонецЕсли;

    //am+ Некоторые строки в нашем макете не заработают, необходимо добавить условие.
    Если Не флВремЕстьInterleave Тогда
    //am-
        РисунокШтрихкод         = ЭтикеткаОбласть.Рисунки.Штрихкод;
    КонецЕсли;

    //am+
    Если Не флВремЕстьInterleave Тогда
    //am-
        РисунокШтрихкод.Расположить(ОбластьШтрихкод);
    КонецЕсли;


        Если УправлениеРозничнойТорговлей.ПроверитьШтрихКод(СтрокаИзСписка.ШтрихКод,
            СтрокаИзСписка.ТипШтрихкода) Тогда
            //am+ здесь мы установим размер шрифта (об этом в конце статьи) и зададим параметр ШтрихКод нашего макета для вывода
            Если флВремЕстьInterleave Тогда
                ЭтикеткаОбласть.Параметры.Установить(0,
              СформироватьШтрихКодДляМакетаЭтикеткаInterleave(СтрокаИзСписка.ШтрихКод));
                ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт =
              Новый Шрифт(ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт,,РезмерШрифтаInterleave);
            Иначе
            //am-
                Попытка //попытку нужно добавить т.к. если компонента не установлена, то будут ошибки.
                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = ТипКода;
                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = СтрокаИзСписка.ШтрихКод;
                Исключение
                КонецПопытки;
            КонецЕсли;
   

 Схема = ЭлементыФормы.ГеоСхема; 
Схема.Вывести(ПолучитьОбщийМакет("ГеографическаяСхемаРоссии"));