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

 Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

    Попытка

        КомпонентШК = Новый 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-

                Попытка //попытку нужно добавить т.к. если компонента не установлена, то будут ошибки.

                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = ТипКода;

                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = СтрокаИзСписка.ШтрихКод;

                Исключение

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

            КонецЕсли;