|
Кассовый аппарат 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
|
Тема закрыта.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |