В мануале по Меркурию написана поддержка Бух 3.0, а тут нужно 2.0
есть у кого опыт, либо ссылки на недорогие обработки обслуживания?
ККТ Меркурий + БУХ 2.0 возможно ли? Платные решения?
Re: ККТ Меркурий + БУХ 2.0 возможно ли? Платные решения?
Нужен именно драйвер торгового оборудования? Или просто печать чека/закрытие смены? Если второе, то берется текущий драйвер и пишется обработка. Что-то типа... возни на один день.
Код: Выделить всё
Функция ПодключитьМеркурий() Экспорт
Если ДрайверМеркурия <> 0 Тогда
Возврат ""; // меркурий уже подключен
КонецЕсли;
Если Не ПодключитьВнешнююКомпоненту("ОбщийМакет.ДрайверМеркурий119Ф", "INCOTEX_KKT") Тогда
Возврат "Не удалось загрузить драйвер Меркурия!";
КонецЕсли;
Драйвер = Новый("AddIn.INCOTEX_KKT.INCOTEX_KKT");
//Результат = Драйвер.УстановитьПараметр("EquipmentType", "ККТ");
Результат = Драйвер.УстановитьПараметр("Baud", 115200);
Результат = Драйвер.УстановитьПараметр("CashBox", 0);
Результат = Драйвер.УстановитьПараметр("ComDev", "USB");
Результат = Драйвер.УстановитьПараметр("Debug", Истина);
Результат = Драйвер.УстановитьПараметр("ExtCloseShift", Истина);
Результат = Драйвер.УстановитьПараметр("Model", "119F");
Результат = Драйвер.УстановитьПараметр("Port", 50009);
Результат = Драйвер.УстановитьПараметр("Serial", "");
Результат = Драйвер.УстановитьПараметр("Timeout", 30);
Результат = Драйвер.УстановитьПараметр("Uri", "127.0.0.1");
Ид = "";
Результат = Драйвер.Подключить(Ид);
Если Не Результат Тогда
Возврат "Не удалось подключить Меркурий! ";
КонецЕсли;
ИдентификаторМеркурия = Ид;
ДрайверМеркурия = Драйвер;
Возврат "";
КонецФункции
Функция МеркурийZОтчет(Сотрудник, Должность) Экспорт
ВхПараметр = "
|<?xml version=""1.0"" encoding=""UTF-8""?>
|<InputParameters>
|<Parameters CashierName=""#Кассир#"" CashierVATIN=""#ИННКассира#""/>
|</InputParameters>";
ВхПараметр = СтрЗаменить(ВхПараметр, "#Кассир#", ВспомогательныеФункции.ФИО(Сотрудник));
ВхПараметр = СтрЗаменить(ВхПараметр, "#ИННКассира#", ВспомогательныеФункции.ИНН(Сотрудник));
ВыхПараметр = "";
НомерСмены = 0;
НоменДокумента = 0;
Если Не ДрайверМеркурия.ЗакрытьСмену(ИдентификаторМеркурия, ВхПараметр, ВыхПараметр, НомерСмены, НоменДокумента) Тогда
Возврат ОшибкаМеркурия();
КонецЕсли;
Возврат "";
КонецФункции