Добрый день, стоит задача напечатать штрихкод на фискальнике под управлением 1С. Кто нибудь заморачивался такой задачей? модель штрих м-фр-к. 1С Розница 2.1.
Всем спасибо.

Не стоит заморачиваться... есть предположение полной бессмысленности ввиду плохого качества печати.

(1) может он не ФР, а принтер чеков имеет ввиду. типа номерок там какой напечатать...

со сроком службы до дня

тестовая печать баркода дает очень вменяемое качество. Я уже сказал заказчику про сомнительность, но кода испытал функционал печати мне просто стало интересно.

(2) Я имел ввиду фискальный регистратор. принтер этикеток с названием Штрих М-ФР-к не бывает такого. не бывает такого.

(4) Пишешь как бот, никуя не понятно

(5) при чем тут принтер этикеток? вот у меня фпринт нефискализированный идет как принтер чеков. а фискализированный - как фискальный регистратор...

Мы друг друга не поняли. Давайте вернемся к моему вопросу, я хочу на фискальном регистраторе программно печатать купон. Я его напечатал уже. просто стало инстересно, можно ли программно вывести штрихкод через 1С. никто не делал такого?

Розница 2.1 на это не способна. может напечатать только :
Штрихкод : 012345678942

А картинку не могет =((((((

(9) это не розница не могет а принтер

Штрих-ФР-К - нормально печатает. я клиенту забульбенил. там передаешь цифры ШК - штрихкод он сам печатает

ну заморачивался. ну работа с драйвером. ну и чо?

(8) можно, я не делал

(10) вы некомпетентны в данном вопросе.

(11) Скажи плз, на какой конфе ?
Я передал в печать цифры и тип штрихкода, как положено 2 параметра, он напечатал:
ШТРИХКОД: цифры штрихкода.
Я посмотрел процедуру печати в 1с, там в принципе вывод только слова штрихкод и циферок, а вывода картинки нема =(((

В методах 1С нет команды печати штрих-кода - её придётся реализовывать через передачу команды в байтах - и всё будет прекрасно.

дай контакты какие нибудь
скину тебе пример на УТ 11

[email protected]

Спасибо тебе, добрый человек =))))

пульнул

(16) я думаю, что это вариант, но можно как то сделать красиво и элегатно все, а именно средставми 1С

(16) какие байты, драйвер штриха имеет свой API

(20) Спасиб большое. счас посмотрю.

Это гениально!!! Счас попробую прикрутить ))) Огроменное спасибо! Спасибо!

(22) Интерфейс 1С (насколько я помню розницу) не все функции драйвера позволяет использовать без необходимости переписывания всего кода и получения объекта драйвера, но в интерфейсе 1С есть функция для низкоуровнего обмена через драйвер.

(25) а есть пример как штрихкод в двоичном коде передать штрихкод?

В понедельник на работе могу посмотреть.
Штрих-М-ФР-К, правда, не умеет печатать картинку, как Штрих-Мини-ФР-К, но со штрих-кодом справляется.
А что мы хотим засунуть в штрих-код, если не секрет ?

Вообще, мне важно для начала просто научиться принципиально печатать штрих код, а вообще это чек-купон, сначала печатается чек, потом вылазит купон, по которому потом можно скидочку выдать )

В драйвере есть специальная команда.
Если хочется познакомится с ней поближе, то на сайте old.shtrih-m.ru можно найти описание драйвера и протокол ФР-а, где всё и очень хорошо написано.

(25) а я и не говорю про драйвер 1с

(29) интересно
тоже проверю

(16) а можно пример команды?

(32) вот тебе пример документации: http://www.atol.ru/files/dc/79/Drivers8_FprnM_PM.pdf

(33) Сомнительное это занятие, мне бы пример разработки, который обещал    Torquader, дело бы куда лучше пошло вперед с мертвой точки.

(33) Не то. Нуна про девайс контрл хекс читать.
Это если только 1С-ский драйвер использовать.

(35) может еще анегдоты почитать? пример разработки бы посмотреть.

можно покопать в сторону перехода исполнения машинных команд драйвера. в драйвере FR1s Штрих-М-ФР-К есть такая команда.
ну а там наверное штрих-код можно встроенными командами печаттаь.

неужели люди которые по 10 лет занимаются 1с кой не знают таких вещей и как они рабортают?

Да лохи тут все. Чо уж.

Вообще, на самом деле, штрих-код печатается такой функцией:

Function PrintBarcodeLine(ByRef s)
    Dim f
    Set f=FrObject.Object
    If f Is Nothing Then
        AddErrorString "Не удалось получить доступ к драйверу ФР"
        PrintBarcodeLine=False
        Exit Function
    End If
    f.BarCode=s
    If f.PrintBarCode()<>0 Then
        TranslateFrError f,"Печать штрих-кода"
        PrintBarcodeLine=False
        Exit Function
    End If
    PrintBarcodeLine=True
End Function

Но, если смотреть, например, Розница, то в ней нет доступа к драйверу напрямую.

Если на низком уровне, то 0xC2 - команда печати штрих-кода
Далее 4 байта пароля оператора в двоичном виде и 5 байт штрих-кода в двоичном виде.

P.S. если хочется узнать, что передаётся в ФР, то открываем тест драйвера, выполняем нужную команду и в строке "Передано" видим то, что было передано в ФР.
Причём, наличие ФР-а не обязательно, так как передача данных готовится ещё до связи с ФР-ом.
Не забываем, что в начале каждой команды идёт 0x02 и байт блины команды, а в конце - контрольная сумма.
Насколько я помню, при вызове метода TransferBytes эти байты передавать не нужно - их система добавляет сама.

Уххххх, спасибо огромное. до выходных тогда тайм аут, а в выходные буду пытаться победить ФР.  

Всем спасибо за советы и помощь.