Печать штрихкода на Чеке ККМ АТОЛ Fprint 22к

09.11.15

✎

05:30

Доброго времени суток! Встала задача напечатать штрихкод на чеке ккм. Сейчас под рукой fprint-22k. Открываю документацию и вижу
метод PrintBarcode() с описанием
Метод печатает штрихкод, задаваемый в свойствах Barcode и BarcodeType.
при печати чека у меня есть объект драйвера, но он почему то не знает про свойства Barcode и BarcodeType и PrintBarcode() ему тоже неизвестен. При этом из теста драйвера, штрихкод печатается идеально.

1 mishaPH

модератор

09.11.15

✎

06:08

у меня так

    глФР.Barcode = ШК;
    глФР.BarcodeType = 0;
    глФР.Height = 30;
    глФР.AutoSize = "False";
    глФР.Scale = 200;
    //глФР.BarcodeControlCode = "True";
    глФР.BarcodeControlCode = "False";
    глФР.PrintBarcodeText = "True";
    глФР.PrintPurpose = 1;
    глФР.PrintBarcode();

2 Web00001

09.11.15

✎

09:10

(1)Ты этот глФР получаешь как компоненту? Хотелось бы допилить обработку.
Вот здесь я пытаюсь достучаться до драйвера:



Функция ПечатьЧека(Идентификатор, Пароль, НомерЧека, НомерСмены,

                   ОписаниеЧека, СуммаНал, СуммаБезнал, ПризнакВозврата) Экспорт



    Обработка = Неопределено;

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

    Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект);



    Если НЕ ЗначениеЗаполнено(Результат) Тогда

        Объект.Драйвер.Barcode = "2400000131519";

        

        //Результат = Обработка.ОткрытьЧек(Объект, Пароль, ПризнакВозврата, НомерЧека, НомерСмены);

        //Если НЕ ЗначениеЗаполнено(Результат) Тогда

        //    Позиция = Неопределено;

        //    Для Каждого Позиция Из ОписаниеЧека Цикл

        //        Результат = Обработка.ПечататьСтроку(Объект,

        //                                         Позиция.Наименование,

        //                                         Позиция.Количество,

        //                                         Позиция.Цена,

        //                                         Позиция.Скидка,

        //                                         Позиция.НомерСекции,

        //                                         Позиция.СтавкаНДС);

        //        Если ЗначениеЗаполнено(Результат) Тогда

        //            Прервать;

        //        КонецЕсли;

        //    КонецЦикла;

        //    Если НЕ ЗначениеЗаполнено(Результат) Тогда

        //        Результат = Обработка.ЗакрытьЧек(Объект, СуммаНал, СуммаБезнал);

        //    КонецЕсли;

        //КонецЕсли;

        

        мОписаниеОшибки = Объект.ОписаниеОшибки;

    Иначе

        мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ФР");

    КонецЕсли;



    //Возврат Результат;



КонецФункции // ПечатьЧека()

В Структуре объект, есть значение с ключом "Драйвер" которое отображается как "Неизвестный объект" как я понимаю это и есть драйвер. Но эта зараза на попытку присвоить значение Объект.Драйвер.Barcode говорит нет такого свойства.

3 mishaPH

модератор

09.11.15

✎