|
Кассовый аппарат MINI-T 400ME 4101-2. OLE Сервер и 1с. |
☑ |
0
Пришел в тапках
04.07.13
✎
13:50
|
Здравствуйте. Молю о помощи.
Предистория:
Вручили данный аппарат, сказали: "На! Он должен печатать чеки из 1С". Чтоб их скрутило.
Теперь по теме:
Скачал с сайте производителя юнисистем оле сервер, зарегил dll - ecrT400.dll
Вопрос: как создать ком объект чтобы посылать на него команды?
То бишь КомОбъект = ЗагрузитьВнешнююКомпоненту("ecrT400.dll"); не катит
КомОбъект = Новый ComОбъект("Воттутчтописать????");
p.s.
Заранее спасибо. Если кому надо схема подкючения кабеля интерфейсного могу поделиться.
|
|
1
Пришел в тапках
04.07.13
✎
14:25
|
Не получается подключиться никак у меня, кто нить сталкивался?
|
|
2
George Wheels
04.07.13
✎
14:36
|
Попробуй полный путь к ecrT400.dll
|
|
3
Пришел в тапках
04.07.13
✎
15:34
|
(2) Ок, спасибо, попробую.
|
|
4
Пришел в тапках
04.07.13
✎
15:34
|
хотя зарегистрировал regsvr32 ecrT400.dll
|
|
5
Пришел в тапках
04.07.13
✎
15:43
|
В мануале к длл ничего толкового нету, только описание команд.
|
|
6
Пришел в тапках
04.07.13
✎
17:21
|
Нашел в реестре запись в классах, удалось создать ком объект: КомОбъект = Новый COMОбъект("ecrmini.t400");
|
|
7
Пришел в тапках
04.07.13
✎
17:22
|
Но открыть порт не смог
|
|
8
Пришел в тапках
05.07.13
✎
13:26
|
Ага, немного покурочив VB файлы разшифровал как посылать на него команды, сегодня попробую - отпишусь, дескать на будущее внукам.
|
|
9
ivanenkoa
05.07.13
✎
13:58
|
Соединение = Новый COMОбъект("ecrmini.t400");
Удачно = Соединение.t400me("open_port;"+Строка(Номер)+";115200;");
Если Не Удачно Тогда
Команда=Соединение.get_last_error();
Сообщить("Ошибка соединения",СтатусСообщения.Внимание);
Сообщить("Код ошибки - "+Команда+"! Подробнее в описании к Аппарату.",СтатусСообщения.Важное);
КонецЕсли;
|
|
10
ivanenkoa
05.07.13
✎
14:00
|
СтрокаКоманды = "add_plu;"+Формат(текСтрока.КодРРО,"ЧГ=0")+";0;0;0;0;0;1;"+Формат(Цена,"ЧДЦ=2; ЧРД=.; ЧГ=0")+";0;"+текСтрока.НаименованиеКраткое+";0;";
Удачно = Соединение.t400me(СтрокаКоманды);
Если НЕ Удачно Тогда
Команда=Соединение.get_last_error();
Сообщить("Ошибка добавления товара - "+Команда+"! Подробнее в описании к аппарату.",СтатусСообщения.Важное);
Сообщить ("Товар "+текСтрока.НаименованиеКраткое+" не добавлен.",СтатусСообщения.Важное );
КонецЕсли;
Состояние("Закрытие");
Удачно = Соединение.t400me("close_port;");
Если Не Удачно Тогда
Сообщить("Ошибка закрытия порта",СтатусСообщения.Внимание);
Команда=Соединение.get_last_error();
Сообщить("Код ошибки - "+Команда+"! Подробнее в описании к аппарату.",СтатусСообщения.Важное);
КонецЕсли;
|
|
11
Пришел в тапках
05.07.13
✎
15:27
|
Да, я так и понял, спасибо огромное, ибо в инете вообще информации нету. Всем пригодится, спасибо. (10)
|
|
12
Пришел в тапках
05.07.13
✎
15:28
|
Тема закрыта.
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший