Skip to content

Instantly share code, notes, and snippets.

@ruslan-hut

ruslan-hut/UnisystemФискальныйРегистратор

Created Oct 5, 2020
Star
Embed
What would you like to do?
Learn more about clone URLs
Download ZIP
Обработчик драйвера фискального регистратора МИНИ-ФП
Raw
UnisystemФискальныйРегистратор
// общая функция через которую выполняется вызов методов
//
функция ВыполнитьМетодБиблиотеки(объектДрайвера, ИмяМетода, Параметры = неопределено)
Результат = Истина;
ОписаниеОшибки = "";
СтрокаВызова=СокрЛП(имяМетода)+";";
Если ИмяМетода = "open_port" Тогда
СтрокаВызова = СтрокаВызова + строка(Параметры.Порт) + ";115200;";
ИначеЕсли ИмяМетода = "cashier_registration" Тогда
СтрокаВызова = СтрокаВызова + "1;0;";
ИначеЕсли ИмяМетода = "execute_Z_report" ИЛИ ИмяМетода = "execute_X_report" Тогда
СтрокаВызова = СтрокаВызова + "12321;";
Иначе
Если Параметры = Неопределено тогда
Параметры = новый Структура;
конецЕсли;
Для Каждого ЭлементПараметра из Параметры цикл
СтрокаВызова = СтрокаВызова + строка(ЭлементПараметра.Значение)+";";
КонецЦикла;
КонецЕсли;
//--- Вызов метода библиотеки ---
Если имяМетода = "open_port" тогда
объектДрайвера.T400me("set_error_log;0");
объектДрайвера.T400me(СтрокаВызова);
Если НЕ Число(объектДрайвера.get_last_error) = 0 тогда // --- 2 попытка
объектДрайвера.T400me(СтрокаВызова);
get_last_error = Число(объектДрайвера.get_last_error);
Если НЕ get_last_error = 0 тогда
Результат = Ложь;
СообщитьПредставлениеОшибки(ИмяМетода, get_last_error);
КонецЕсли;
КонецЕсли;
иначе //--- собственно сам вызов метода ---
объектДрайвера.T400me(СтрокаВызова);
get_last_error = Число(объектДрайвера.get_last_error);
Если НЕ get_last_error = 0 тогда // --- 2 раз
Результат = Ложь;
СообщитьПредставлениеОшибки(ИмяМетода, get_last_error);
КонецЕсли;
КонецЕсли;
Возврат Результат;
Конецфункции
Процедура СообщитьПредставлениеОшибки(ИмяМетода, Значение)
//--- по номеру ошибки выводим ее описание ---
Если Значение = 0 Тогда ТекстОшибки = "Нет ошибок";
ИначеЕсли Значение = 1 Тогда ТекстОшибки = "Ошибки канала связи РРО №1 нет возможности запустить команду";
ИначеЕсли Значение = 2 Тогда ТекстОшибки = "Ошибки канала связи РРО №2 'невозможно обработать команду '";
ИначеЕсли Значение = 3 Тогда ТекстОшибки = "Ошибки канала связи РРО №3 'код команды отсутствует '";
ИначеЕсли Значение = 4 Тогда ТекстОшибки = "Ошибки канала связи РРО №4 'много данных в команде '";
ИначеЕсли Значение = 5 Тогда ТекстОшибки = "Ошибки канала связи РРО №5 'недостаточно данных в команде '";
ИначеЕсли Значение = 6 Тогда ТекстОшибки = "Ошибки канала связи РРО №6 'ошибка при приеме данных '";
ИначеЕсли Значение = 7 Тогда ТекстОшибки = "Ошибки канала связи РРО №7 'недопустимый идентификатор команды '";
ИначеЕсли Значение = 8 Тогда ТекстОшибки = "Ошибки канала связи РРО №8 'невозможно выполнить команду '";
ИначеЕсли Значение = 10 Тогда ТекстОшибки = "Ошибки канала связи РРО №10 'Ошибка ввода '";
ИначеЕсли Значение = 11 Тогда ТекстОшибки = "Ошибки обработки команды РРО №11 'необходимо снять z1 отчет '";
ИначеЕсли Значение = 12 Тогда ТекстОшибки = "Ошибки обработки команды РРО №12 'скидки/наценки запрещены '";
ИначеЕсли Значение = 13 Тогда ТекстОшибки = "Ошибки обработки команды РРО №13 'переполнение по чеку '";
ИначеЕсли Значение = 14 Тогда ТекстОшибки = "Ошибки обработки команды РРО №14 'команда запрещена '";
ИначеЕсли Значение = 15 Тогда ТекстОшибки = "Ошибки обработки команды РРО №15 'кассир не зарегистрирован '";
ИначеЕсли Значение = 16 Тогда ТекстОшибки = "Ошибки обработки команды РРО №16 'отрицательная сумма '";
ИначеЕсли Значение = 17 Тогда ТекстОшибки = "Ошибки обработки команды РРО №17 'количество товара отрицательное '";
ИначеЕсли Значение = 18 Тогда ТекстОшибки = "Ошибки обработки команды РРО №18 'время смены исчерпано '";
ИначеЕсли Значение = 19 Тогда ТекстОшибки = "Ошибки обработки команды РРО №19 'неверный тип оплаты '";
ИначеЕсли Значение = 20 Тогда ТекстОшибки = "Ошибки обработки команды РРО №20 'неправильная или отсутствующая цена '";
ИначеЕсли Значение = 21 Тогда ТекстОшибки = "Ошибки обработки команды РРО №21 'неверный параметр на входе команды '";
ИначеЕсли Значение = 22 Тогда ТекстОшибки = "Ошибки обработки команды РРО №22 'товар находится в открытом чеке, нельзя редактировать '";
ИначеЕсли Значение = 23 Тогда ТекстОшибки = "Ошибки обработки команды РРО №23 'некорректно запрограммированный товар '";
ИначеЕсли Значение = 24 Тогда ТекстОшибки = "Ошибки обработки команды РРО №24 'неверный или отсутствующий штрих-код товара '";
ИначеЕсли Значение = 27 Тогда ТекстОшибки = "Ошибки обработки команды РРО №27 'неверный или отсутствующий код товара '";
ИначеЕсли Значение = 28 Тогда ТекстОшибки = "Ошибки обработки команды РРО №28 'товар не весовой(штучный) '";
ИначеЕсли Значение = 29 Тогда ТекстОшибки = "Ошибки обработки команды РРО №29 'ФП почти заполнена '";
ИначеЕсли Значение = 30 Тогда ТекстОшибки = "Ошибки обработки команды РРО №30 'ФП заполнена '";
ИначеЕсли Значение = 31 Тогда ТекстОшибки = "Ошибки обработки команды РРО №31 'память инициализаций заполнена '";
ИначеЕсли Значение = 32 Тогда ТекстОшибки = "Ошибки обработки команды РРО №32 'есть отложенная операция, оплата запрещена '";
ИначеЕсли Значение = 33 Тогда ТекстОшибки = "Ошибки обработки команды РРО №33 'карточка клиента не принята '";
ИначеЕсли Значение = 34 Тогда ТекстОшибки = "Ошибки обработки команды РРО №34 'не хватает денег на сдачу '";
ИначеЕсли Значение = 35 Тогда ТекстОшибки = "Ошибки обработки команды РРО №35 'запрещена комбинированная оплата '";
ИначеЕсли Значение = 36 Тогда ТекстОшибки = "Ошибки обработки команды РРО №36 'неправильный номер кассира '";
ИначеЕсли Значение = 37 Тогда ТекстОшибки = "Ошибки обработки команды РРО №37 'места недостаточно '";
ИначеЕсли Значение = 38 Тогда ТекстОшибки = "Ошибки обработки команды РРО №38 'нет места в Журнале '";
ИначеЕсли Значение = 39 Тогда ТекстОшибки = "Ошибки обработки команды РРО №39 'нет места в базе товаров '";
ИначеЕсли Значение = 40 Тогда ТекстОшибки = "Ошибки обработки команды РРО №40 'нет места в Архиве '";
ИначеЕсли Значение = 41 Тогда ТекстОшибки = "Ошибки обработки команды РРО №41 'запрещено, товар является комплексом '";
ИначеЕсли Значение = 42 Тогда ТекстОшибки = "Ошибки обработки команды РРО №42 'код не принадлежит комплексу '";
ИначеЕсли Значение = 43 Тогда ТекстОшибки = "Ошибки обработки команды РРО №43 'ЭККА занят и не может выполнить команду '";
ИначеЕсли Значение = 44 Тогда ТекстОшибки = "Ошибки обработки команды РРО №44 'необходимо снять 501 отчет '";
ИначеЕсли Значение = 45 Тогда ТекстОшибки = "Ошибки обработки команды РРО №45 'неправильный пароль кассира '";
ИначеЕсли Значение = 46 Тогда ТекстОшибки = "Ошибки обработки команды РРО №46 'комплекс невозможно продать '";
ИначеЕсли Значение = 47 Тогда ТекстОшибки = "Ошибки обработки команды РРО №47 'цена товара определена '";
ИначеЕсли Значение = 48 Тогда ТекстОшибки = "Ошибки обработки команды РРО №48 'отмена запрещена '";
ИначеЕсли Значение = 49 Тогда ТекстОшибки = "Ошибки обработки команды РРО №49 'продажа товара запрещена '";
ИначеЕсли Значение = 50 Тогда ТекстОшибки = "Ошибки обработки команды РРО №50 'ошибка чтения ФП '";
ИначеЕсли Значение = 51 Тогда ТекстОшибки = "Ошибки обработки команды РРО №51 'номер производителя неверен '";
ИначеЕсли Значение = 52 Тогда ТекстОшибки = "Ошибки обработки команды РРО №52 'ошибка записи во флеш '";
ИначеЕсли Значение = 54 Тогда ТекстОшибки = "Ошибки обработки команды РРО №54 'удаление товара запрещено '";
ИначеЕсли Значение = 55 Тогда ТекстОшибки = "Ошибки обработки команды РРО №55 'нет данных в фискальной памяти '";
ИначеЕсли Значение = 56 Тогда ТекстОшибки = "Ошибки обработки команды РРО №56 'неправильный пароль налогового инспектора '";
ИначеЕсли Значение = 57 Тогда ТекстОшибки = "Ошибки обработки команды РРО №57 'не готов выполнить команду '";
ИначеЕсли Значение = 58 Тогда ТекстОшибки = "Ошибки обработки команды РРО №58 'неправильный пароль администратора '";
ИначеЕсли Значение = 60 Тогда ТекстОшибки = "Ошибки обработки команды РРО №60 'РРО заблокирован (72 часа не было передачи данных) '";
ИначеЕсли Значение = 61 Тогда ТекстОшибки = "Ошибки обработки команды РРО №61 'РРО не персонализован '";
ИначеЕсли Значение = 70 Тогда ТекстОшибки = "Ошибки обработки команды РРО №70 'отсутсвует вал термоголовки '";
ИначеЕсли Значение = 79 Тогда ТекстОшибки = "Ошибки обработки команды РРО №79 'дата сервисного обслуживания превышена '";
ИначеЕсли Значение = 80 Тогда ТекстОшибки = "Ошибки обработки команды РРО №80 'ошибка записи в ФП '";
ИначеЕсли Значение = 81 Тогда ТекстОшибки = "Ошибки обработки команды РРО №81 'ошибка часов '";
ИначеЕсли Значение = 82 Тогда ТекстОшибки = "Ошибки обработки команды РРО №82 'ошибка данных в интерфейсе '";
ИначеЕсли Значение = 86 Тогда ТекстОшибки = "Ошибки обработки команды РРО №82 'отсутствует индикатор клиента '";
ИначеЕсли Значение = 97 Тогда ТекстОшибки = "Ошибки обработки команды РРО №97 'отсутствует бумага '";
ИначеЕсли Значение = 300 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №300 'неверная команда '";
ИначеЕсли Значение = 301 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №301 'ошибка порта '";
ИначеЕсли Значение = 302 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №302 'неверные параметры '";
ИначеЕсли Значение = 303 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №303 'неверное количество параметров '";
ИначеЕсли Значение = 304 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №304 'ошибка данных '";
ИначеЕсли Значение = 305 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №305 'порт закрыт '";
ИначеЕсли Значение = 306 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №306 'нет данных '";
ИначеЕсли Значение = 307 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №307 'не поддерживается '";
ИначеЕсли Значение = 308 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №308 'касса не доступна '";
ИначеЕсли Значение = 309 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №309 'неизвестный код ошибки '";
ИначеЕсли Значение = 310 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №310 'запись запрещена '";
ИначеЕсли Значение = 311 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №311 'ошибка чтения '";
ИначеЕсли Значение = 312 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №312 'ошибка записи '";
ИначеЕсли Значение = 313 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №313 'неправильная запись НДС '";
ИначеЕсли Значение = 314 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №314 'операция отменена '";
ИначеЕсли Значение = 315 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №315 'неправильная модель кассового аппарата '";
ИначеЕсли Значение = 316 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №316 'данные не существуют '";
ИначеЕсли Значение = 317 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №317 'кассовый аппарат отключен '";
ИначеЕсли Значение = 318 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №318 'файл не найден '";
ИначеЕсли Значение = 319 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №319 'присутствует ошибка '";
ИначеЕсли Значение = 320 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №320 'неверные данные '";
ИначеЕсли Значение = 321 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №321 'команда отключена '";
ИначеЕсли Значение = 322 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №322 'будет доступно в следующих версиях '";
ИначеЕсли Значение = 323 Тогда ТекстОшибки = "Ошибки DLL-библиотеки №323 'принтер не готов '";
Иначе ТекстОшибки = "код " + строка(Значение);
КонецЕсли;
ТекстОшибки = "Ошибка выполнения команды '" + ИмяМетода + "': " + ТекстОшибки;
Сообщить(ТекстОшибки, СтатусСообщения.Важное);
КонецПроцедуры
Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ";") Экспорт
МассивСтрок = Новый Массив();
Если Разделитель = " " Тогда
Стр = СокрЛП(Стр);
Пока Истина Цикл
Поз = Найти(Стр,Разделитель);
Если Поз=0 Тогда
МассивСтрок.Добавить(Стр);
Возврат МассивСтрок;
КонецЕсли;
МассивСтрок.Добавить(Лев(Стр,Поз-1));
Стр = СокрЛ(Сред(Стр,Поз));
КонецЦикла;
Иначе
ДлинаРазделителя = СтрДлина(Разделитель);
Пока Истина Цикл
Поз = Найти(Стр,Разделитель);
Если Поз=0 Тогда
МассивСтрок.Добавить(Стр);
Возврат МассивСтрок;
КонецЕсли;
МассивСтрок.Добавить(Лев(Стр,Поз-1));
Стр = Сред(Стр,Поз+ДлинаРазделителя);
КонецЦикла;
КонецЕсли;
КонецФункции
Функция ОставитьТолькоЦифры(стр_)
Стр = "0";
Для а = 1 По СтрДлина(стр_) Цикл
КодСимвола = КодСимвола(Сред(стр_, а, 1));
Цифра = Сред(стр_, а, 1);
Если (КодСимвола >= 48 И КодСимвола <= 57) Тогда
Стр = Стр + Цифра;
КонецЕсли;
КонецЦикла;
Возврат Формат(Число(Стр),"ЧГ=");;
КонецФункции
Функция РазностьВремени(Время1, Время2);
Разность = Время1 - Время2;
Если Разность > 0 Тогда
Часов = Цел(Разность / 3600);
Минут = Цел((Разность - Часов * 3600) / 60);
Возврат Дата(1, 1, 1, Часов, Минут, 0);
Иначе
Возврат Дата(1,1,1,0,0,0);
КонецЕсли;
КонецФункции
функция РегистрацияКассира(объектДрайвера, Параметры)
Результат = ВыполнитьМетодБиблиотеки(объектДрайвера,"open_port",Параметры);
Если Результат Тогда
Результат = ВыполнитьМетодБиблиотеки(объектДрайвера,"cashier_registration",Параметры);
Если НЕ Результат Тогда
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cancel_receipt");
Если Результат Тогда
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cut_paper");
КонецЕсли;
КонецЕсли;
КонецЕсли;
//-- порт открывается только в момент вызова методов
ВыполнитьМетодБиблиотеки(объектДрайвера,"close_port");
Возврат Результат;
КонецФункции
///////////////////////////////////////////////////////////////////////////////
// ПРОГРАММНЫЙ ИНТЕРФЕЙС
// Функция возвращает возможность работы модуля в асинхронном режиме.
// Стандартные команды модуля:
// - ПодключитьУстройство
// - ОтключитьУстройство
// - ВыполнитьКоманду
// Команды модуля для работы асинхронном режиме (должны быть определены):
// - НачатьПодключениеУстройства
// - НачатьОтключениеУстройства
// - НачатьВыполнениеКоманды
//
Функция ПоддержкаАсинхронногоРежима() Экспорт
Возврат Ложь;
КонецФункции
///////////////////////////////////////////////////////////////////////////////
// ПРОГРАММНЫЙ ИНТЕРФЕЙС
// Функция осуществляет подключение устройства.
//
// Параметры:
// ОбъектДрайвера - <*>
// - ОбъектДрайвера драйвера торгового оборудования.
//
// Возвращаемое значение:
// <Булево> - Результат работы функции.
//
Функция ПодключитьУстройство(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры) Экспорт
ВыходныеПараметры = Новый Массив();
ПараметрыПодключения.Вставить("ИДУстройства", Неопределено);
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если НЕ Результат Тогда
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
КонецЕсли;
Возврат Результат;
КонецФункции
// Функция осуществляет отключение устройства.
//
// Параметры:
// ОбъектДрайвера - <*>
// - ОбъектДрайвера драйвера торгового оборудования.
//
// Возвращаемое значение:
// <Булево> - Результат работы функции.
//
Функция ОтключитьУстройство(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры) Экспорт
Результат = Истина;
ВыходныеПараметры = Новый Массив();
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Возврат Результат;
КонецФункции
// Функция получает, обрабатывает и перенаправляет на исполнение команду к драйверу
//
Функция ВыполнитьКоманду(Команда, ВходныеПараметры = Неопределено, ВыходныеПараметры = Неопределено,
ОбъектДрайвера, Параметры, ПараметрыПодключения) Экспорт
Перем ТипШтрихКода;
Результат = Истина;
ВыходныеПараметры = Новый Массив();
// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩИЕ ДЛЯ ВСЕХ ТИПОВ ДРАЙВЕРОВ
// Тестирование устройства
Если Команда = "ТестУстройства" ИЛИ Команда = "CheckHealth" Тогда
Результат = ТестУстройства(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Получение версии драйвера
ИначеЕсли Команда = "ПолучитьВерсиюДрайвера" ИЛИ Команда = "GetVersion" Тогда
Результат = ПолучитьВерсиюДрайвера(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Получение описание драйвера
ИначеЕсли Команда = "ПолучитьОписаниеДрайвера" ИЛИ Команда = "GetDescription" Тогда
Результат = ПолучитьОписаниеДрайвера(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩИЕ ДЛЯ РАБОТЫ С ФИСКАЛЬНЫМИ РЕГИСТРАТОРАМИ
// Открыть смену
ИначеЕсли Команда = "OpenShift" ИЛИ Команда = "OpenDay" ИЛИ Команда = "ОткрытьСмену" Тогда
Результат = ОткрытьСмену(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
ИначеЕсли Команда = "CloseShift" ИЛИ Команда = "ЗакрытьСмену" Тогда
Результат = НапечататьОтчетСГашением(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Печать отчета без гашения
ИначеЕсли Команда = "PrintXReport" ИЛИ Команда = "НапечататьОтчетБезГашения" Тогда
Результат = НапечататьОтчетБезГашения(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Печать отчета с гашением
ИначеЕсли Команда = "PrintZReport" ИЛИ Команда = "НапечататьОтчетСГашением" Тогда
Результат = НапечататьОтчетСГашением(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Печать чека
ИначеЕсли Команда = "PrintReceipt" ИЛИ Команда = "ПечатьЧека" Тогда
Результат = ПечатьЧека(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВходныеПараметры, ВыходныеПараметры);
// Печать слип чека
ИначеЕсли Команда = "PrintText" ИЛИ Команда = "ПечатьТекста" Тогда
СтрокаТекста = ВходныеПараметры[0];
Результат = ПечатьТекста(ОбъектДрайвера, Параметры, ПараметрыПодключения,
СтрокаТекста, ВыходныеПараметры);
// Отменить открытый чек
ИначеЕсли Команда = "OpenCheck" ИЛИ Команда = "ОткрытьЧек" Тогда
ЧекВозврата = ВходныеПараметры[0];
ФискальныйЧек = ВходныеПараметры[1];
Результат = ОткрытьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ЧекВозврата, ФискальныйЧек, ВыходныеПараметры);
// Отменить открытый чек
ИначеЕсли Команда = "CancelCheck" ИЛИ Команда = "ОтменитьЧек" Тогда
Результат = ОтменитьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Печать чека внесения/выемки
ИначеЕсли Команда = "Encash" ИЛИ Команда = "Инкассация" Тогда
ТипИнкассации = ?(ВходныеПараметры.Свойство("ТипИнкассации"), ВходныеПараметры.ТипИнкассации, 0);
Сумма = ?(ВходныеПараметры.Свойство("Сумма"), ВходныеПараметры.Сумма, 0);
Результат = Инкассация(ОбъектДрайвера, Параметры, ПараметрыПодключения, ТипИнкассации, Сумма, ВыходныеПараметры);
ИначеЕсли Команда = "PrintBarCode" ИЛИ Команда = "ПечатьШтрихкода" Тогда
ТипШтрихКода = ВходныеПараметры[0];
ШтрихКод = ВходныеПараметры[1];
Результат = ПечатьШтрихкода(ОбъектДрайвера, Параметры, ПараметрыПодключения, ТипШтрихКода, ШтрихКод, ВыходныеПараметры);
// Открытие денежного ящика
ИначеЕсли Команда = "OpenCashDrawer" ИЛИ Команда = "ОткрытьДенежныйЯщик" Тогда
Результат = ОткрытьДенежныйЯщик(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Получение ширины строки в символах
ИначеЕсли Команда = "GetLineLength" ИЛИ Команда = "ПолучитьШиринуСтроки" Тогда
Результат = ПолучитьШиринуСтроки(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Печать переодического отчета по датам
ИначеЕсли Команда = "PrintPReportDate" ИЛИ Команда = "НапечататьПериодическийОтчетПоДатам" Тогда
Результат = НапечататьПериодическийОтчетПоДатам(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВходныеПараметры, ВыходныеПараметры);
// Печать периодического отчета по номерам
ИначеЕсли Команда = "PrintPReportNumber" ИЛИ Команда = "НапечататьПериодическийОтчетПоНомерам" Тогда
Результат = НапечататьПериодическийОтчетПоНомерам(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВходныеПараметры, ВыходныеПараметры);
// Печать нулевого чека
ИначеЕсли Команда = "PrintNullReceipt" ИЛИ Команда = "НапечататьНулевойЧек" Тогда
Результат = НапечататьНулевойЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Печать отчета о проданных товарах
ИначеЕсли Команда = "PrintSoldReport" ИЛИ Команда = "НапечататьОтчетОПроданныхТоварах" Тогда
Результат = НапечататьОтчетОПроданныхТоварах(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Вывод информации на дисплей
ИначеЕсли Команда = "DisplayText" ИЛИ Команда = "ВывестиИнформациюНаДисплейПокупателя" Тогда
Результат = ВывестиИнформациюНаДисплейПокупателя(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВходныеПараметры, ВыходныеПараметры);
// Очистка дисплея
ИначеЕсли Команда = "ClearText" ИЛИ Команда = "ОчиститьДисплейПокупателя" Тогда
Результат = ОчиститьДисплейПокупателя(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// Указанная команда не поддерживается данным драйвером
Иначе
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Команда ""%Команда%"" не поддерживается данным драйвером.';uk='Команда ""%Команда%"" не підтримується цим драйвером.'"));
ВыходныеПараметры[1] = СтрЗаменить(ВыходныеПараметры[1], "%Команда%", Команда);
Результат = Ложь;
//>
КонецЕсли;
Возврат Результат;
КонецФункции
///////////////////////////////////////////////////////////////////////////////
// Процедуры и функции общие для работы с фискальными регистраторами
// Функция осуществляет открытие смены
//
Функция ОткрытьСмену(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
ВыходныеПараметры.Очистить();
ОписаниеОшибки = "";
Результат = РегистрацияКассира(объектДрайвера, Параметры);
Если НЕ Результат Тогда
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
Иначе
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Возврат Результат;
КонецФункции
// Осуществляет печать фискального чека
//
Функция ПечатьЧека(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВходныеПараметры, ВыходныеПараметры)
//Возврат МенеджерОборудованияКлиентПереопределяемый.ПечатьЧека(UnisystemФискальныйРегистратор,
// ОбъектДрайвера, Параметры, ПараметрыПодключения, ВходныеПараметры, ВыходныеПараметры);
ОбщиеПараметры = ВходныеПараметры[2];
ТаблицаНоменклатуры = ВходныеПараметры[0];
ТаблицаОплат = ВходныеПараметры[1];
ТаблицаДопРеквизитов = Новый Массив;
ТаблицаДопРеквизитов.Добавить(Новый Массив);
//ТипРасчета = МенеджерОборудованияКлиентСервер.КодРасчетаДенежнымиСредствами(ВходныеПараметры.ТипРасчета);
ТипЧека = ОбщиеПараметры[0] = 1;
Результат = Истина;
// Открываем чек
Результат = ОткрытьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения,
ТипЧека, Истина, ВыходныеПараметры);
// Печатаем строки чека
Если Результат Тогда
ОшибкаПриПечатиСтроки = Ложь;
// Печатаем строки чека
Для ИндексМассива = 0 По ТаблицаНоменклатуры.Количество() - 1 Цикл
Наименование = ТаблицаНоменклатуры[ИндексМассива][0].Значение;
Количество = ТаблицаНоменклатуры[ИндексМассива][5].Значение;
Цена = ТаблицаНоменклатуры[ИндексМассива][4].Значение;
ПроцентСкидки = ТаблицаНоменклатуры[ИндексМассива][8].Значение;
Сумма = ТаблицаНоменклатуры[ИндексМассива][9].Значение;
НомерСекции = ТаблицаНоменклатуры[ИндексМассива][3].Значение;
СтавкаНДС = ТаблицаНоменклатуры[ИндексМассива][12].Значение;
ТаблицаДопРеквизитов[0].Очистить();
ТаблицаДопРеквизитов[0].Добавить(ТаблицаНоменклатуры[ИндексМассива][17].Значение);
ТаблицаДопРеквизитов[0].Добавить(ТаблицаНоменклатуры[ИндексМассива][18].Значение);
ДопРеквизиты = МенеджерОборудованияВызовСервера.СформироватьТаблицуДопРеквизитов(ТаблицаДопРеквизитов);
Если НЕ НапечататьФискальнуюСтроку(ОбъектДрайвера, Параметры, ПараметрыПодключения,
Наименование, Количество, Цена, ПроцентСкидки, Сумма,
НомерСекции, СтавкаНДС, ДопРеквизиты, ВыходныеПараметры) Тогда
ОшибкаПриПечатиСтроки = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Если НЕ ОшибкаПриПечатиСтроки Тогда
// Закрываем чек
Результат = ЗакрытьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ТаблицаОплат, ВыходныеПараметры, Истина);
Иначе
Результат = Ложь;
КонецЕсли;
КонецЕсли;
Возврат Результат;
КонецФункции
// Осуществляет печать текста
//
Функция ПечатьТекста(ОбъектДрайвера, Параметры, ПараметрыПодключения,
СтрокаТекста, ВыходныеПараметры)
Результат = Истина;
//
//// Открываем чек
//Результат = ОткрытьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, Ложь, Ложь, ВыходныеПараметры);
//
//// Печатаем строки чека
//Если Результат Тогда
// Для НомерСтроки = 1 По СтрЧислоСтрок(СтрокаТекста) Цикл
// ВыделеннаяСтрока = СтрПолучитьСтроку(СтрокаТекста, НомерСтроки);
//
// Если (Найти(ВыделеннаяСтрока, "[отрезка]") > 0)
// Или (Найти(ВыделеннаяСтрока, "[cut]") > 0) Тогда
// ТаблицаОплат = Новый Массив();
// Результат = ЗакрытьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ТаблицаОплат, ВыходныеПараметры, Ложь);
// Результат = ОткрытьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, Ложь, Ложь, ВыходныеПараметры);
// Иначе
// Если НЕ НапечататьНефискальнуюСтроку(ОбъектДрайвера, Параметры, ПараметрыПодключения,
// ВыделеннаяСтрока, ВыходныеПараметры, Ложь) Тогда
// Прервать;
// КонецЕсли;
// КонецЕсли;
//
// КонецЦикла;
//КонецЕсли;
//
//// Закрываем чек
//Если Результат Тогда
// ТаблицаОплат = Новый Массив();
// Результат = ЗакрытьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ТаблицаОплат, ВыходныеПараметры, Ложь);
//КонецЕсли;
Возврат Результат;
КонецФункции
// Функция осуществляет открытие нового чека
//
Функция ОткрытьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ЧекВозврата, ФискальныйЧек, ВыходныеПараметры) Экспорт
Результат = Истина;
НомерСмены = 0;
НомерЧека = 0;
Результат = РегистрацияКассира(объектДрайвера, Параметры);
Попытка
//--- порт закроется только после закрытия чека
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
стрПараметров = новый структура("открытьЧекПродажиВозврата", ?(ЧекВозврата, 1, 0));
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_receipt", стрПараметров);
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
Иначе
// Заполнение выходных параметров
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(НомерСмены);
ВыходныеПараметры.Добавить(НомерЧека);
ВыходныеПараметры.Добавить(0); // Номер документа
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.ОткрытьЧек>:';uk='Помилка виклику методу <ОбъектДрайвера.ОткрытьЧек>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет закрытие ранее открытого чека
//
Функция ЗакрытьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ТаблицаОплат, ВыходныеПараметры, ФискальныйЧек = Истина) Экспорт
Результат = Истина;
СуммаНаличнойОплаты = 0;
СуммаБезналичнойОплаты = 0;
Для ИндексОплаты = 0 По ТаблицаОплат.Количество() - 1 Цикл
Если ТаблицаОплат[ИндексОплаты][0].Значение = 0 Тогда
СуммаНаличнойОплаты = СуммаНаличнойОплаты + ТаблицаОплат[ИндексОплаты][1].Значение;
ИначеЕсли ТаблицаОплат[ИндексОплаты][0].Значение = 1 Тогда
СуммаБезналичнойОплаты = СуммаБезналичнойОплаты + ТаблицаОплат[ИндексОплаты][1].Значение;
ИначеЕсли ТаблицаОплат[ИндексОплаты][0].Значение = 2 Тогда
СуммаБезналичнойОплаты = СуммаБезналичнойОплаты + ТаблицаОплат[ИндексОплаты][1].Значение;
Иначе
СуммаБезналичнойОплаты = СуммаБезналичнойОплаты + ТаблицаОплат[ИндексОплаты][1].Значение;
КонецЕсли;
КонецЦикла;
Попытка
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port", Параметры);
Если СуммаНаличнойОплаты <> 0 И Результат Тогда
стрПараметров = новый структура("ТипОплаты,СуммаОплаты",0,СокрЛП(Формат(число(СуммаНаличнойОплаты),"ЧГ=0;ЧН=0")));
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"pay", стрПараметров);
КонецЕсли;
Если СуммаБезналичнойОплаты <> 0 И Результат Тогда
стрПараметров = новый структура("ТипОплаты,СуммаОплаты",2,СокрЛП(Формат(число(СуммаБезналичнойОплаты),"ЧГ=0;ЧН=0")));
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"pay", стрПараметров);
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
ОтменитьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
КонецЕсли
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.ЗакрытьЧек>:';uk='Помилка виклику методу <ОбъектДрайвера.ЗакрытьЧек>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет отмену ранее открытого чека.
//
Функция ОтменитьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры) Экспорт
Результат = Истина;
Попытка
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cancel_receipt");
Если Результат Тогда
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cut_paper");
КонецЕсли;
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.ОтменитьЧек>:';uk='Помилка виклику методу <ОбъектДрайвера.ОтменитьЧек>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет снятие отчета без гашения
//
Функция НапечататьОтчетБезГашения(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
РегистрацияКассира(объектДрайвера, Параметры);
Попытка
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"execute_X_report");
//Если Результат Тогда
// //---- для того чтоб увидеть когда передавался в налоговую отчет
// стрПараметров = новый структура("айди,Двойка","id",2);
// Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"execute_report",стрПараметров);
// //--- команда распечатать после Х отчета данны об отправке в ДПС ---
// стрПараметров = новый структура("ТипОперации",3);
// ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"dps",стрПараметров);
// ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cut_paper");
//КонецЕсли;
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
Иначе
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьОтчетБезГашения>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьОтчетБезГашения>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет снятие отчета с гашением
//
Функция НапечататьОтчетСГашением(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
РегистрацияКассира(объектДрайвера, Параметры);
Попытка
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"execute_Z_report");
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
Иначе
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьОтчетСГашением>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьОтчетСГашением>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет печать фискальной строки
//
Функция НапечататьФискальнуюСтроку(ОбъектДрайвера, Параметры, ПараметрыПодключения,
Наименование, Количество, Цена, ПроцентСкидки, Сумма,
НомерСекции, СтавкаНДС, ДопРеквизиты, ВыходныеПараметры) Экспорт
Результат = Истина;
ТаблицаСоответствий = Новый Массив;
Отдел = "1";
КодТовара = ТекущаяДата()-НачалоДня(ТекущаяДата());
Если Параметры.Свойство("КодТовара") ТОгда
КодТовара = Параметры.КодТовара + 1;
КонецЕсли;
Параметры.Вставить("КодТовара",КодТовара);
//КодТовара = UnisystemФискальныйРегистраторВызовСервера.ПолучитьКодНоменклатурыПоНаименованию(Наименование) ;
Наименование = СтрЗаменить(Наименование,";"," ");
СуммоваяСкидка = Окр(Количество*Цена - Сумма, 2);
// вычисление значений Налоговой группы для продажи товара
НалоговаяГруппа = 0;
ДопРеквизиты = МенеджерОборудованияВызовСервера.ПолучитьТаблицуДопРеквизитов(ДопРеквизиты);
Параметры.Свойство("ТаблицаСоответствийНалоговыхГрупп", ТаблицаСоответствий);
Для каждого Строка из ТаблицаСоответствий Цикл
Если Строка[1] = ДопРеквизиты[0] И Строка[2] = ДопРеквизиты[1] Тогда
НалоговаяГруппа = Строка[0];
Прервать;
КонецЕсли;
КонецЦикла;
ПОПЫТКА
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
//---- продажа товара
стрПараметров = новый структура("КодТовара,НалСтав,ШтучВес,РазрЗапрПрод,РазрЗапрПодсчет,ОдинПродЗапрет,Отдел,Цена,Штрихкод,Наименование,КоличествоОстаток",
Формат(КодТовара,"ЧГ=0;"), НалоговаяГруппа,0,0,1,0,Отдел,0,0,Наименование,0);
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"add_plu",стрПараметров);
Если Результат Тогда
стрПараметров = новый структура("ДобавОтмена,ПродКодШтрихкод,ПродПоОткрытЦене,Количество,кодТовара,ЦенаТовара",
0,0,1,СокрЛП(Формат(число(Количество),"ЧГ=0;ЧН=0")),Формат(КодТовара,"ЧГ=0;"),СокрЛП(Формат(число(Цена),"ЧГ=0;ЧН=0")));
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"sale_plu",стрПараметров);
Если Результат И СуммоваяСкидка>0 Тогда
стрПараметров = новый структура("ТипОперации,ВидОперации,ЗнакОперации,ЗначениеСкидки",0,0,1,Формат(СуммоваяСкидка,"ЧГ=0;ЧН=0"));
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"discount_surcharge",стрПараметров);
КонецЕсли;
Если НЕ Результат Тогда
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cancel_receipt");
КонецЕсли;
КонецЕсли;
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
ПолучитьОшибку(ОбъектДрайвера, ВыходныеПараметры[1]);
ОтменитьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьФискСтроку>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьФискСтроку>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет печать нефискальной строки
//
Функция НапечататьНефискальнуюСтроку(ОбъектДрайвера, Параметры, ПараметрыПодключения, СтрокаТекста, ВыходныеПараметры, ФискальныйЧек = Ложь) Экспорт
Результат = Истина;
//Попытка
// Ответ = ПодключаемоеОборудованиеАртСофтФискальныйРегистраторИнтерфейсВК.НапечататьНефискСтроку(ОбъектДрайвера, СтрокаТекста, ФискальныйЧек);
// Если НЕ Ответ Тогда
// Результат = Ложь;
// ВыходныеПараметры.Очистить();
// ВыходныеПараметры.Добавить(999);
// ВыходныеПараметры.Добавить("");
// ПодключаемоеОборудованиеАртСофтФискальныйРегистраторИнтерфейсВК.ПолучитьОшибку(ОбъектДрайвера, ВыходныеПараметры[1]);
// ОтменитьЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
// КонецЕсли;
//Исключение
// Результат = Ложь;
// ВыходныеПараметры.Очистить();
// ВыходныеПараметры.Добавить(999);
// ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьНефискСтроку>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьНефискСтроку>:'") + ОписаниеОшибки());
//КонецПопытки;
//
Возврат Результат;
КонецФункции
// Функция осуществляет внесение или выемку суммы
//
Функция Инкассация(ОбъектДрайвера, Параметры, ПараметрыПодключения, ТипИнкассации, Сумма, ВыходныеПараметры)
Результат = Истина;
РегистрацияКассира(объектДрайвера, Параметры);
Попытка
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
стрПараметров = новый структура("ТипОплаты,ФлагЗаменыТекстаСообщения,ФлагКомментария,СлужебныйвносВынос,Сумма, Комментарий,СтрокаОписания",0,0,0,ТипИнкассации,СокрЛП(Формат(число(Сумма),"ЧГ=0;ЧН=0")),"");
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"in_out",стрПараметров);
Если Результат Тогда
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cut_paper");
КонецЕсли;
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
Иначе
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьЧекВнесенияВыемки>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьЧекВнесенияВыемки>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет печать штрихкода
//
Функция ПечатьШтрихкода(ОбъектДрайвера, Параметры, ПараметрыПодключения, ТипШтрихКода, ШтрихКод, ВыходныеПараметры)
Результат = Истина;
//Попытка
// Ответ = ПодключаемоеОборудованиеАртСофтФискальныйРегистраторИнтерфейсВК.НапечататьШтрихКод(ОбъектДрайвера, ТипШтрихКода, ШтрихКод);
// Если НЕ Ответ Тогда
// Результат = Ложь;
// ВыходныеПараметры.Очистить();
// ВыходныеПараметры.Добавить(999);
// ВыходныеПараметры.Добавить("");
// ПодключаемоеОборудованиеАртСофтФискальныйРегистраторИнтерфейсВК.ПолучитьОшибку(ОбъектДрайвера, ВыходныеПараметры[1]);
// КонецЕсли;
//Исключение
// Результат = Ложь;
// ВыходныеПараметры.Очистить();
// ВыходныеПараметры.Добавить(999);
// ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьШтрихКод>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьШтрихКод>:'") + ОписаниеОшибки());
//КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет открытие денежного ящика
//
Функция ОткрытьДенежныйЯщик(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
Попытка
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"Результат");
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.ОткрытьДенежныйЯщик>:';uk='Помилка виклику методу <ОбъектДрайвера.ОткрытьДенежныйЯщик>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция получает ширину строки в символах
//
Функция ПолучитьШиринуСтроки(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
ШиринаСтроки = 34;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(ШиринаСтроки);
Возврат Результат;
КонецФункции
// Функция осуществляет печать периодического отчёта по датам.
//
Функция НапечататьПериодическийОтчетПоДатам(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВходныеПараметры, ВыходныеПараметры)
Результат = Истина;
РегистрацияКассира(объектДрайвера, Параметры);
Попытка
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
стрПараметров = новый структура("КодОтчета,ПарольСтКассира, ДатаНачала, ДатаОкончания",
"702","36963",
Формат(ВходныеПараметры[0], "ДФ=dd/MM/yyyy"),
Формат(ВходныеПараметры[1], "ДФ=dd/MM/yyyy"));
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"execute_report",стрПараметров);
Если Результат Тогда
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cut_paper");
КонецЕсли;
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
Иначе
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьОтчетСГашением>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьОтчетСГашением>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет печать периодического отчёта по номерам дневных отчетов.
//
Функция НапечататьПериодическийОтчетПоНомерам(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВходныеПараметры, ВыходныеПараметры)
Результат = Истина;
РегистрацияКассира(объектДрайвера, Параметры);
Попытка
//Ответ = ПодключаемоеОборудованиеАртСофтФискальныйРегистраторИнтерфейсВК.НапечататьПериодическийОтчетПоНомерам(ОбъектДрайвера, ВходныеПараметры[0], ВходныеПараметры[1], Ложь);
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
стрПараметров = новый структура("КодОтчета,ПарольСтКассира, НачНомер, КонНомер",
"704","36963",
Формат(ВходныеПараметры[0], "ЧН=0; ЧГ=0"),
Формат(ВходныеПараметры[1], "ЧН=0; ЧГ=0"));
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"execute_report",стрПараметров);
Если Результат Тогда
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cut_paper");
КонецЕсли;
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
ПолучитьОшибку(ОбъектДрайвера, ВыходныеПараметры[1]);
Иначе
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьОтчетСГашением>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьОтчетСГашением>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет печать нулевого чека.
//
Функция НапечататьНулевойЧек(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
РегистрацияКассира(объектДрайвера, Параметры);
Попытка
//Ответ = ПодключаемоеОборудованиеАртСофтФискальныйРегистраторИнтерфейсВК.НапечататьНулевойЧек(ОбъектДрайвера);
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"print_empty_receipt");
Если Результат Тогда
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cut_paper");
КонецЕсли;
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
Иначе
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьОтчетСГашением>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьОтчетСГашением>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет печать отчёта о проданных товарах.
//
Функция НапечататьОтчетОПроданныхТоварах(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
РегистрацияКассира(объектДрайвера, Параметры);
Попытка
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
стрПараметров = новый структура("КодОтчета,ПарольСтКассира,НачКод,КонКод",
"Z3","36963","1", "999999");
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"execute_report",стрПараметров);
Если Результат Тогда
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"cut_paper");
КонецЕсли;
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
Иначе
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.НапечататьОтчетСГашением>:';uk='Помилка виклику методу <ОбъектДрайвера.НапечататьОтчетСГашением>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет вывод информации на дисплей покупателя.
//
Функция ВывестиИнформациюНаДисплейПокупателя(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВходныеПараметры, ВыходныеПараметры)
Результат = Истина;
ДлинаПоля = ?(Параметры.Модель="501",16,20); // 16 для модели МІНІ-ФП54.01
СтрокаТекста = ВходныеПараметры[0];
//СтрокаСуммы = ?(ВходныеПараметры.Количество() >= 2, ВходныеПараметры[1], "0");
МассивСтрок = Новый Массив();
МассивСтрок.Добавить(МенеджерОборудованияКлиентСервер.ПостроитьПоле(СтрПолучитьСтроку(СтрокаТекста, 1), ДлинаПоля));
МассивСтрок.Добавить(МенеджерОборудованияКлиентСервер.ПостроитьПоле(СтрПолучитьСтроку(СтрокаТекста, 2), ДлинаПоля));
Попытка
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
стрПараметров = новый структура("Строка1,Строка2",МассивСтрок[0], МассивСтрок[1]);
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"indicate",стрПараметров);
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если НЕ Результат Тогда
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить("");
ПолучитьОшибку(ОбъектДрайвера, ВыходныеПараметры[1]);
Иначе
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(0);
ВыходныеПараметры.Добавить(ОбщегоНазначенияКлиент.ДатаСеанса());
КонецЕсли;
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.ВывестиСтрокуНаДисплейПокупателя>:';uk='Помилка виклику методу <ОбъектДрайвера.ВывестиСтрокуНаДисплейПокупателя>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция осуществляет очистку дисплея покупателя.
//
Функция ОчиститьДисплейПокупателя(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"open_port",Параметры);
Если Результат Тогда
стрПараметров = новый структура("Строка1,Строка2","", "");
Результат = ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"indicate",стрПараметров);
КонецЕсли;
ВыполнитьМетодБиблиотеки(ОбъектДрайвера,"close_port");
Если Не Результат Тогда
Результат = Ложь;
ОбъектДрайвера.ПолучитьОшибку(ОбъектДрайвера.ОписаниеОшибки);
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(ОбъектДрайвера.ОписаниеОшибки);
КонецЕсли;
Возврат Результат;
КонецФункции
//////////////////////////////////////////////////////////////////////////////
// Процедуры и функции общие для всех типов драйверов
// Функция осуществляет тестирование устройства.
//
Функция ТестУстройства(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
РезультатТеста = "";
АктивированДемоРежим = "";
Попытка
Результат = ПодключитьУстройство(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры);
Если Результат Тогда
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(0);
Иначе
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
КонецЕсли;
ВыходныеПараметры.Добавить(РезультатТеста);
ВыходныеПараметры.Добавить(АктивированДемоРежим);
Исключение
Результат = Ложь;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Ошибка вызова метода <ОбъектДрайвера.ТестУстройства>:';uk='Помилка виклику методу <ОбъектДрайвера.ТестУстройства>:'") + ОписаниеОшибки());
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция возвращает версию установленного драйвера
//
Функция ПолучитьВерсиюДрайвера(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
ВыходныеПараметры.Добавить(НСтр("ru='Установлен';uk='Встановлений'"));
ВыходныеПараметры.Добавить(НСтр("ru='Не определена';uk='Не визначена'"));
Попытка
ВыходныеПараметры[1] = "0.1";
Исключение
Результат = Ложь;
КонецПопытки;
Возврат Результат;
КонецФункции
// Функция возвращает описание установленного драйвера
//
Функция ПолучитьОписаниеДрайвера(ОбъектДрайвера, Параметры, ПараметрыПодключения, ВыходныеПараметры)
Результат = Истина;
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(НСтр("ru='Установлен';uk='Встановлений'"));
ВыходныеПараметры.Добавить(НСтр("ru='Не определена';uk='Не визначена'"));
ВыходныеПараметры.Добавить(НСтр("ru='Не определено';uk='Не визначено'"));
ВыходныеПараметры.Добавить(НСтр("ru='Не определено';uk='Не визначено'"));
ВыходныеПараметры.Добавить(НСтр("ru='Не определено';uk='Не визначено'"));
ВыходныеПараметры.Добавить(Неопределено);
ВыходныеПараметры.Добавить(Неопределено);
ВыходныеПараметры.Добавить(Неопределено);
ВыходныеПараметры.Добавить(Неопределено);
ВыходныеПараметры.Добавить(Неопределено);
ВыходныеПараметры.Добавить(Неопределено);
НаименованиеДрайвера = "";
ОписаниеДрайвера = "";
ТипОборудования = "";
ИнтеграционнаяБиблиотека = "";
ОсновнойДрайверУстановлен = "";
РевизияИнтерфейса = "";
URLЗагрузкиДрайвера = "";
ПараметрыДрайвера = "";
ДополнительныеДействия = "";
Попытка
// Получаем версию драйвера
ВерсияДрайвера = "0.1";
ВыходныеПараметры[1] = ВерсияДрайвера;
// Получаем описание драйвера
ПолучитьОписание(ОбъектДрайвера,
НаименованиеДрайвера,
ОписаниеДрайвера,
ТипОборудования,
РевизияИнтерфейса,
ИнтеграционнаяБиблиотека,
ОсновнойДрайверУстановлен,
URLЗагрузкиДрайвера);
ВыходныеПараметры[2] = НаименованиеДрайвера;
ВыходныеПараметры[3] = ОписаниеДрайвера;
ВыходныеПараметры[4] = ТипОборудования;
ВыходныеПараметры[5] = РевизияИнтерфейса;
ВыходныеПараметры[6] = ИнтеграционнаяБиблиотека;
ВыходныеПараметры[7] = ОсновнойДрайверУстановлен;
ВыходныеПараметры[8] = URLЗагрузкиДрайвера;
// Получаем описание драйвера
ВыходныеПараметры[9] = "";
// Получаем дополнительные действия
ВыходныеПараметры[10] = "";
Исключение
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Ошибка получения описания драйвера';uk='Помилка отримання опису драйвера'"));
КонецПопытки;
Возврат Результат;
КонецФункции
Функция ПолучитьОписание(ОбъектДрайвера, Наименование, Описание, ТипОборудования, РевизияИнтерфейса, ИнтеграционнаяБиблиотека, ОсновнойДрайверУстановлен, ПолучитьURLCкачивания) Экспорт
Наименование = "Unisystem: Универсальный драйвер фискальных регистраторов";
Описание = "OLE-сервер Unisystem Универсальный драйвер РРО – предназначена для работы прикладных программ с украинскими фискальными регистраторами в операционных системах MS Windows";
ТипОборудования = "ФискальныйРегистратор";
ИнтеграционнаяБиблиотека = "ecrT400.dll";
РевизияИнтерфейса = "1.0";
ОсновнойДрайверУстановлен = Истина;
ПолучитьURLCкачивания = "http://unisystem.ua/wp-content/uploads/2016/11/OLE_ecrT400_dll_v1_3_24_720.zip";
КонецФункции
Функция ПолучитьОшибку(ОбъектДрайвера, ОписаниеОшибки)
ОписаниеОшибки = "";
Возврат ОбъектДрайвера.get_last_error;
КонецФункции
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment