Обработка для работы с торговыми весами ВН, ВТА

Работа с весами:
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 По КолСтрок Цикл
Если Н = К Тогда
Попытка
ЗначВеса = ТФ.ПолучитьСтроку(Н);
Прервать;
Исключение
КонецПопытки;
КонецЕсли;
КонецЦикла;

Вес = ЗначВеса;

Попытка
УдалитьФайлы(ИмяФайла);
УдалитьФайлы(КаталогВрем+ФайлТХТ);
Исключение
КонецПопытки;

КонецПроцедуры

П.С. Можно переписать таким образом, чтобы файл создавался на момент открытия формы и удалялся на момент закрытия, таким образом оптимизировать.