Я на старом драйвере выводил.
На новом код написал как примерно должен быть но не проверял на реальном аппарате.
Некогда пока.
Я на старом драйвере выводил.
Сорян, я раньше про это хотел написать но что то забыл. Там и в примере такая метода используется.
Вот так-так... Не успел порадоваться непростому внедрению печати чека, как поступила новая задача - нужна сетевая версия, чтобы кучка пользователей могла печатать на один аппарат, поскольку не хотят тратиться ни на сами аппараты, ни на накопители для них. Чешу репу, пытаясь понять, с какого боку подойти к WEB-серверу и json. Для начала хотелось бы понять, что это такое вообще этот "WEB-сервер", для работы с которым требуется "требуется установленная Java версии 1.8 и выше" (такое исчерпывающее описание). Где взять, как настроить.finsoftrz писал(а): ↑06 Июль 2019, 16:56 Кроме работы через их dll напрямую, можно еще посмотреть на web сервер и vbscript. Как я понял, мэйнстрим у них это web сервер. Некая унификация, ставишь с ккм и можешь бить чеки откуда угодно через http запросы, передавая задания в формате json... Будем смотреть и думать...
Может быть зайти на вопрос с другой стороны ?
Код: Выделить всё
! SELF.SetParam(LIBFPTR_SETTING_ACCESS_PASSWORD, 'пример пароля')
! SELF.SetParam(LIBFPTR_SETTING_USER_PASSWORD, 'Sample_Password')
Код: Выделить всё
GetParamStr(LIBFPTR_PARAM_OPERATOR_ID)
Не знаю. Просто передрал ASIS. Не применял пока
Не совсем. Там просто есть особенность.
Код: Выделить всё
IF QGoods.FlagAgent
SELF.SetParamInt(1222, QGoods.FlagAgent) ! продажа товара комитента как агент
! данные комитента
IF CLIP(QGoods.Committent.Phone) <> '' OR CLIP(QGoods.Committent.Name) <> ''
SELF.ParamBuild ! << --- ВЫПОЛНИТЬ ЗАПИСЬ ДЛЯ ТОГО, ЧТО БЫ ОЧИСТИТЬ СПИСОК РАНЕЕ СДЕЛАННЫХ УСТАНОВОК
! А вот теперь формируем НОВЫЙ список значений из которых и будет состоять комплексный атрибут
IF CLIP(QGoods.Committent.Phone) <> '' THEN SELF.SetParamStr(1171, QGoods.Committent.Phone) END ! Телефон
IF CLIP(QGoods.Committent.Name) <> '' THEN SELF.SetParamStr(1225, QGoods.Committent.Name) END ! Наименование
SELF.ParamBuild
SELF.SetParamBiteArray(1224, SELF.GetParamBiteArray(LIBFPTR_PARAM_TAG_VALUE)) ! Запись комплексного атрибута
END
IF CLIP(QGoods.Committent.INN) <> '' THEN SELF.SetParamStr(1226, QGoods.Committent.INN) END ! ИНН
END
Код: Выделить всё
Atol10.SetParamDateTime PROCEDURE(LONG lParam, <LONG lDate>, <LONG lTime>)
….
libfptr_set_param_datetime(SELF.fptr, LIBFPTR_PARAM_DATE_TIME, YEAR(d), MONTH(d), DAY(d), SUB(FORMAT(t,@T04),1,2), |
SUB(FORMAT(t,@T04),4,2), SUB(FORMAT(t,@T04),6,2))
! ПРАВИЛЬНО: lParam вместо LIBFPTR_PARAM_DATE_TIME и SUB(FORMAT(t,@T04),7,2) вместо SUB(FORMAT(t,@T04),6,2)
Код: Выделить всё
Atol10.SetParamDateTime Procedure(LONG lParam, <LONG lDate>, <LONG lTime>)
Loc:Date Long
Loc:Time Long
Code
If Self.FlagLoaded = True
If Omitted(3) = False then Loc:Date = lDate else Loc:Date = ToDay().
If Omitted(4) = False then Loc:Time = lTime else Loc:Time = Clock().
libfptr_set_param_datetime(Self.fptr, lParam, Year(Loc:Date), Month(Loc:Date), Day(Loc:Date), |
Sub(Format(Loc:Time,@T05),1,2), Sub(Format(Loc:Time,@T05),3,2), Sub(Format(Loc:Time,@T05),5,2))
end
м.б. это?Игорь Столяров писал(а): ↑13 Сентябрь 2019, 8:061. Есть ФР с шириной строки 32 символа. Применяем 7 шрифт - текст сжимается до 42 символов в строке. Но печатается всё равно 32 символа в строке, только теперь сжатым шрифтом.
http://blog.atol.ru/archives/7546Игорь Столяров писал(а): ↑13 Сентябрь 2019, 8:062. Можно как-то получить для конкретного размера шрифта, сколько символов поместится в строке ?