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