Подключение электронных весов cas без покупки драйвера

0. 278 27.09.19 14:15 Сейчас в теме
Подключение электронных весов cas, при помощи бесплатного драйвера ap.dll.

Перейти к публикации

Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. a_titeev 24 29.09.19 04:36 Сейчас в теме
2012 год
https://www.paltusov.ru/forum/viewtopic.php?t=1372
Оно?
Имхо, нарушает права разработчиков cas.
2. tigrandis 278 30.09.19 10:15 Сейчас в теме
(1) а в чем нарушение ? драйвер бесплатный же ?
3. user1336970 02.03.20 18:55 Сейчас в теме
Подскажите подойдет ли данная обработка для УНФ 1.6?
4. tigrandis 278 02.03.20 20:43 Сейчас в теме
(3) не тестировал, вряд ли (
5. sayae 40 17.06.20 15:11 Сейчас в теме
При нажатии на кнопку Connect в тестере ничего не происходит, а на кнопку read выдает Connection Error
порт Com4. Другой драйвер весы видит. Библиотека зарегестрирована.Есть подводные камни?
6. tigrandis 278 18.06.20 10:27 Сейчас в теме
(5) в подключаемой оборудование не нужно ничего добавлять, просто в расширении пишем ком порт и на этом все =)
7. erutan 86 05.08.20 16:03 Сейчас в теме
(6) Здравствуйте. В тестовой программе (APTest) поведение, как в комментарии 5.
То есть это даже не в 1С.
Есть что-то еще, на что надо обратить внимание?
DLL зарегистрирована
8. erutan 86 05.08.20 17:12 Сейчас в теме
(7) отвечаю сам .. оказывается, у некоторых cas-весов (а может, и у всех) нестандартная распайка rs232, и, потому, с "неподходящим" кабелем нет связи.

Админ выдал другой кабель - все соединилось.

DLL взял из темы.

А прикручиваю к бухгалтерии 3 (к перемещению, через расширение).

Данные пока дергаю так

&НаКлиенте
Процедура Рш_ТОПринятьОтвесПосле(Команда)
	НастройкаВесовComPort = "6";
	Вес = -1000;
		Попытка
			Весы = Новый COMОбъект("APScale.APScale");
			Весы.Connect("COM" + Строка(НастройкаВесовComPort));
			НомерСимвола = СтрНайти(Весы.Data,"S");
			Вес = Число(Лев(Весы.Data,НомерСимвола-2));
			Весы.DisConnect(); 	
		Исключение
			Сообщить("Не удалось получить вес!");
		КонецПопытки;
	сообщить(Вес);
КонецПроцедуры
Показать
dvsidelnikov; +1 Ответить
16. Nik_1c_bitrix 182 30.03.21 13:01 Сейчас в теме
(8) Весы Cas PR II с USB переключил в режим Fn+M5, чтобы было "rS-PC" и заработало. Спасибо!

НомерСимвола = СтрНайти(Весы.Data,"S"); - тут S - означает стабильный вес, можно получать и не стабильный по моему U, это можно легко отследить добавив троку сообщить(Весы.Data); - там все ясно.
У меня УНФ - в тонком клиенте
9. boris.danilin 48 10.09.20 07:26 Сейчас в теме
В рмк не получает вес. В чем может быть проблема? тест проходит через утилиту!
Платформа, редакция розницы и Модель весов точно такие же.
10. tigrandis 278 10.09.20 10:18 Сейчас в теме
(9) настройках 1С поставили ком порт?
11. user659546_foreverbest2008 08.11.20 13:11 Сейчас в теме
Как отправить цену в весы?
12. tigrandis 278 08.11.20 15:52 Сейчас в теме
(11) эти весы передают только вес, цена задана в 1С
13. user659546_foreverbest2008 08.11.20 18:14 Сейчас в теме
Ну в весах есть цена и стоимость, и с 1С надо передавать эти данные
14. AlexSV_68 23.03.21 09:22 Сейчас в теме
Данное расширение будет получать вес товара в РМК Розница 2.3 без доработок или необходимы дополнительные настройки?
15. tigrandis 278 23.03.21 11:27 Сейчас в теме
Оставьте свое сообщение
Вакансии
Ведущий аналитик-разработчик 1С
Москва
зарплата от 230 000 руб. до 270 000 руб.
Полный день

1С:Эксперт по производительности
Москва
зарплата от 400 000 руб. до 950 000 руб.
Полный день

Ведущий аналитик 1С (ERP, ЗУП)
Краснодар
зарплата от 150 000 руб.
Полный день

Разработчик 1С
Тверь
зарплата от 150 000 руб. до 250 000 руб.
Полный день

Программист, аналитик, эксперт 1С
Санкт-Петербург
По совместительству