Как прикрутить ККМ к Access

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Sergey_V
Сообщения: 4
Зарегистрирован: 01 янв 2009, 17:40

Други, творческих успехов вам!!!
Подскажите прогу/модуль для обмена данными между Access и ККМ Меркурий MS-K.
Teslenko_EA
Сообщения: 526
Зарегистрирован: 04 фев 2007, 18:37
Откуда: Сургут
Контактная информация:

Здравствуйте Sergey_V.
возможно это невежество, но я не знаю, что такое "ККМ Меркурий MS-K", и в каких он отношениях с MS Office и VB(A).
Евгений.
Sergey_V
Сообщения: 4
Зарегистрирован: 01 янв 2009, 17:40

это контрольно-кассовая машина. в её составе есть фискальный регистратор который можно прикрутить практически к любой проге. Вот хочется такое пркирутить к Access.
доп инфа на http://www.incotex.ru/incotex/downloadarea.html#msk

моя проблема: передать цифру в ФР и получить чек. Заморочки типа возвратов,отчетов по ККМ и тп не нужны.
Аватара пользователя
demon416
Сообщения: 178
Зарегистрирован: 30 янв 2006, 14:03
Откуда: kirovskoe

модуль выложен по вашей ссылке
его драйвером обозвали))
ака хинт: коментируйте код, самим же легче будет разобраться ;)
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

ActiveX сомпонент MercuryFPrtX просто добавляется на форму. Он же сам отображает статус соединения с ККМ. Ну и у него есть методы всякие... Кстати и икс-отчет - это всего лишь одна строка кода.

Для чека должно быть что-то вроде

Код: Выделить всё

Sub qwe()
  With MercuryFPrtX1
    .Open
    .OpenReceipt motBuying
    .AddPay mptCash, сумма, 0, "наименование"
    .CloseReceipt
    .FeedAndCut 2, True
    .Close False
  End With
End Sub
Ответить