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