Добавление поддержки нестандартного штрих-кода в обработке ПечатьЭтикеток

 Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
    Попытка
        КомпонентШК = Новый 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-
                Попытка //попытку нужно добавить т.к. если компонента не установлена, то будут ошибки.
                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = ТипКода;
                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = СтрокаИзСписка.ШтрихКод;
                Исключение
                КонецПопытки;
            КонецЕсли;