forum.clarionlife.net

Народ очень прошу помогите!!! Надо касовый апарат заставить пробивать чеки. Есть dll в поставке с касовым апартом, из dll надо визвать функцию пробить чек:

int CALLBACK SaleArticleAndDisplay(0,void (CALLBACK *Fn),0, bool sign, int numart, double qwant, double perc, double dc)

Входные данные –
sign - ‘+’ или ‘-‘ (тип внутричековой операции – продажа или возврат вышепроданной позиции)
numart - номер артикула
qwant - количество для продажи (произведение количества на цену не должно превышать 9 знаков (два после запятой))
perc - надбавки/скидки (в зависимости от знака, может меняться от -99.00 до +99.00)
dc – количественная надбавка/скидка (в зависимости от знака) в абсолютном исчислении.
Выходные данные – нет

Функция предназначена для осуществления продажи товара в фискальном чеке, либо возврата в чеке возврата и выводе информации о продаже на дисплей покупателя. perc и dc не могут быть одновременно ненулевыми.

void (CALLBACK *Fn) – в качестве этого параметра указывается функция, определение которой разработчик помещает в свое приложение. Именно эту функцию вызывает библиотека после того, как фискальный регистратор завершает выполнение команды. Формат декларации данной функции будет рассмотрен ниже.

Вид CALLBACK функции, вызываемой из библиотеки после завершения выполнения команды фискальным регистратором:

Формат в Borland C++ Builder:
void CALLBACK _export PrinterResults(struct RetData far &rtd)
{
…
…
}

Формат в Delphi:
procedure PrinterResults(const rtd:RetData )stdcall;
begin
…
…
end;

Внутри библиотеки данная функция определяется следующим обрпазом –
typedef void (PASCAL FAR *RetCallback) (struct RetData &);

Результат работы фискального регистратора передается в структуре rtd.



как ето все описать в кларионе безпонятия. Помогите плиз!!1

А марку аппарата слабо назвать ?
Может кто работал именно с таким.
Я работал со ШТРИХ-КОМБО у него DLL можно подключить через OLE , но это не кассовый аппарат ,
а фискальный регистратор.

Я работал с Меркурий MS-K "Гепард". У него доступ ко всем операциям без проблем черех ActivX компоненту ...

Марку не сложно назвать....Касовый апарат DATEKS FP3530T, помогите реализовать на кларионе

Сложно отвечать не зная Ваш уровень в Клаше.
Ели с самого начала.
Сомнительно что-бы драйвер аппарата не мог подключаться через ОЛЕ.
Для уточнения надо запустить пару программ из упражнений клариона и найти имя
драйвера . Если он там есть то можно использовать ОЛЕ.
Программы искать в \examples\src\ole и \examples\src\ocxprp32.

int CALLBACK SaleArticleAndDisplay(0,void (CALLBACK *Fn),0, bool sign, int numart, double qwant, double perc, double dc)

SaleArticleAndDisplay(Long=0,ULong AddrFuncCallBack, Long=0, Signed b, Signed numart, REAL qwant, RAEL perc, REAL dc), Signed, Pascal, Raw, DLL

PrinterResults(struct RetData far &rtd)

PrinterResults(ULong AddrRetData), PASCAL, DLL