ККТ Меркурий + БУХ 2.0 возможно ли? Платные решения?

Модели:
Меркурий-114.1К, Меркурий 115Ф, Меркурий 119Ф, Меркурий 130ф, Меркурий MS-K
Ответить
Аватара пользователя
Zoeh1q
Сообщения: 4
Зарегистрирован: 05 фев 2021, 05:47

ККТ Меркурий + БУХ 2.0 возможно ли? Платные решения?

Сообщение Zoeh1q »

В мануале по Меркурию написана поддержка Бух 3.0, а тут нужно 2.0
есть у кого опыт, либо ссылки на недорогие обработки обслуживания?
Аватара пользователя
Philya
Сообщения: 27
Зарегистрирован: 05 фев 2016, 10:02

Re: ККТ Меркурий + БУХ 2.0 возможно ли? Платные решения?

Сообщение Philya »

Нужен именно драйвер торгового оборудования? Или просто печать чека/закрытие смены? Если второе, то берется текущий драйвер и пишется обработка. Что-то типа... возни на один день.

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

Функция ПодключитьМеркурий() Экспорт
	Если ДрайверМеркурия <> 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;
	Если Не ДрайверМеркурия.ЗакрытьСмену(ИдентификаторМеркурия, ВхПараметр, ВыхПараметр, НомерСмены, НоменДокумента) Тогда
		Возврат ОшибкаМеркурия();
	КонецЕсли;
	
	Возврат "";
КонецФункции

Ответить