Имя: Пароль:
1C
1С v8
Кассовый аппарат 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
Тема закрыта.
Закон Брукера: Даже маленькая практика стоит большой теории.