Имя: Пароль:
1C
1С v8
Подключение дисплея покупателя Flytech (Firich FV-2029M),(CipherLAB VFD-220FC)
0 popcorn
 
14.07.11
10:46
Не пойму что за хрень с драйверами. Бесплатные выводят на экран кроме информации еще и служебные команды типа: ХС1ХС1Итог:100,00
Из платных нашел только Атол, но они сильно дорогие, в три раза дороже чем сам дисплей!
Неужели нет нормальных бесплатных с обработкой под восьмерку? Или что-то надо поколупать чтобы заработало?
Пробовал все обработки ТО который на сайте 1С доступны.
1 popcorn
 
14.07.11
10:59
ап
2 popcorn
 
14.07.11
11:30
никто не подключал дисплей?
3 popcorn
 
14.07.11
11:46
Хелп
4 popcorn
 
14.07.11
12:40
плеХ
5 Ork
 
14.07.11
12:47
В семерке делал так :

//**** Проверка доступности компорта и объекта управления
Процедура ПодключитьДисплей(Порт)
   Перем Спр;
   Попытка
       ДисплейПокупателя=CreateObject("MSCOMMLib.MSComm");
       Попытка
       ДисплейПокупателя.CommPort=Порт;
       Если ДисплейПокупателя.portOpen=False Тогда
           ДисплейПокупателя.portOpen=True;
       КонецЕсли;
       ДисплейПриветствие();
            Исключение
       Предупреждение(ОписаниеОшибки());
        КонецПопытки;
   Исключение
   Предупреждение(ОписаниеОшибки());
   КонецПопытки;
КонецПроцедуры

//**** вывести на дисплей строку
//поз - номер строки дисплея
//Стр - текст
Процедура ВывестиСтрокуДисплея(поз, Стр) Экспорт
   Если ДисплейПодключен()=1 Тогда
   ДисплейПокупателя.Output=Симв(27)+?(поз=1,"QA","QB")+AnsiToOem(Стр)+Симв(13);
   КонецЕсли;
КонецПроцедуры

Функция ДисплейПодключен() Экспорт
   Если ПустоеЗначение(ДисплейПокупателя)=1 Тогда
   Возврат 0;
   КонецЕсли;
   Если ДисплейПокупателя.portOpen=False Тогда
   Возврат 0;
   КонецЕсли;
   Возврат 1;
КонецФункции
6 popcorn
 
14.07.11
13:04
(5) без драйверов вообще? Круто. Я люблю без всяких сторонних приложений...
7 popcorn
 
15.07.11
08:53
(5) Посылаю эту строку, он ее не правильно понимает:
Симв(27)+?(поз=1,"QA","QB")+AnsiToOem(Стр)+Симв(13);
не задается номер строки дисплея, вместо этого на экран попадает буква после Q (A или B)
8 popcorn
 
15.07.11
11:24
Короче вот так сделал:

   Текст = Новый ЗаписьТекста("\\.\Com2",КодировкаТекста.OEM);
   Текст.ЗаписатьСтроку(Символы.ВК+"Ежевика: 100,00"+Символы.ПС+"Итог: 250,00");
   Текст.Закрыть();

И никаких дров АТОЛовских не надо. Пользуйтесь бесплатно
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.