Работа с весами:
1. BTA-60/..-5, BTA-60/..-5-A, BTA-60/..-6-A (Торговые весы).
2. BH-..-A-PK, BH-..-1D-A-PK (Блоки ВН- з житко-кристаличний индикатором).
3. BH-..-A-CI, BH-..-1D-A-CI, BH-..- 220B (Блоки ВН- светодиодными индикаторами).
Обработка подходит для любой конфигурации на упр. формах. Для работы на обычных формах нужно доработать обычную форму или установить в конфигурации совместимость с упр. формами.
Данная обработка самодостаточна, необходимость в драйверах отсутствует. В производителей весов был взят "ехе" файл и запакован в обработку в "Макет" - Двоичные данные. Таким образом обработка при взвешивании распаковывает файл из макета, запускает "ехе" и обрабатывает результат.
&НаКлиенте
Процедура Вес(Команда)
ИмяФайла = ПолучитьМакетНовый();
WshShell = Новый COMОбъект("WScript.Shell");
WshShell.Run(ИмяФайла+" 3 COM3 9600 1 1", 0, True);
//КомандаСистемы(ИмяФайла+" 3 COM3 9600 1 1");
ПрочитатьТХТИУдалитьФайлы(ИмяФайла);
КонецПроцедуры
&НаСервере
Функция ПолучитьМакетНовый()
Об = РеквизитФормыВЗначение("Объект");
ДвоичныеДанные = Об.ПолучитьМакет("Макет_Драйвер");
//Файл ЕХЕ
ИмяФайла = КаталогВрем+ФайлЕХЕ;
ФайлНаДиске = Новый Файл(ИмяФайла);
КаталогНаДиске = Новый Файл(ФайлНаДиске.Путь);
Если Не КаталогНаДиске.Существует() Тогда
СоздатьКаталог(ФайлНаДиске.Путь);
КонецЕсли;
ДвоичныеДанные.Записать(ИмяФайла);
Возврат ИмяФайла;
КонецФункции
&НаСервере
Процедура ПрочитатьТХТИУдалитьФайлы(ИмяФайла)
//Файл текстовий
ТФ = Новый ТекстовыйДокумент;
ТФ.Прочитать(КаталогВрем+ФайлТХТ);
КолСтрок = ТФ.КоличествоСтрок();
К = 4;
ЗначВеса = 0;
Для Н = 1 По КолСтрок Цикл
Если Н = К Тогда
Попытка
ЗначВеса = ТФ.ПолучитьСтроку(Н);
Прервать;
Исключение
КонецПопытки;
КонецЕсли;
КонецЦикла;
Вес = ЗначВеса;
Попытка
УдалитьФайлы(ИмяФайла);
УдалитьФайлы(КаталогВрем+ФайлТХТ);
Исключение
КонецПопытки;
КонецПроцедуры
П.С. Можно переписать таким образом, чтобы файл создавался на момент открытия формы и удалялся на момент закрытия, таким образом оптимизировать.
Вступайте в нашу телеграмм-группу Инфостарт
