|
Подключение дисплея покупателя 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");
Текст.Закрыть();
И никаких дров АТОЛовских не надо. Пользуйтесь бесплатно
|
|