Работа с USB-портом

Для наглядности из дока:

//**************************************************************************************************
Процедура ОткрытиеПортов()

ИмяПорта1 = "COM3";
Попытка
КомПорт1 = Новый("AddIn.vk_rs232");
КомПорт1.ОткрытьПорт(ИмяПорта1);
КомПорт1.КонецСтроки = Символ(13);
//КомПорт1.ПерехватКлавиатуры(1);
Сообщить("Был открыт порт: " + ИмяПорта1);
Исключение
Сообщить("Не был открыт порт: " + ИмяПорта1);
КонецПопытки;

ИмяПорта2 = "COM4";
Попытка
КомПорт2 = Новый("AddIn.vk_rs232");
КомПорт2.ОткрытьПорт(ИмяПорта2);
КомПорт2.КонецСтроки = Символ(13);
//КомПорт2.ПерехватКлавиатуры(1);
Сообщить("Был открыт порт: " + ИмяПорта2);
Исключение
Сообщить("Не был открыт порт: " + ИмяПорта2);
КонецПопытки;

ИмяПорта3 = "COM5";
Попытка
КомПорт3 = Новый("AddIn.vk_rs232");
КомПорт3.ОткрытьПорт(ИмяПорта2);
КомПорт3.КонецСтроки = Символ(13);
//КомПорт2.ПерехватКлавиатуры(1);
Сообщить("Был открыт порт: " + ИмяПорта3);
Исключение
Сообщить("Не был открыт порт: " + ИмяПорта3);
КонецПопытки;

Сообщить("-");

КонецПроцедуры // ОткрытиеПортов()
//**************************************************************************************************
Функция ОбрСтроки(перСтрока)

Результат = СокрЛП(перСтрока);
Результат = СтрЗаменить(Результат,",",".");
Результат = СтрЗаменить(Результат,"я","Я");
Возврат Результат;

КонецФункции // ОбрСтроки(перСтрока)
//**************************************************************************************************
Функция СтрокаПараметров(перНомерУпаковки,перМассаБрутто,перМассаТары,перМассаКонусов,перМассаНетто,перМассаКондиции)

Результат = ОбрСтроки(перНомерУпаковки) + "," // Номер упаковочного места
+ ОбрСтроки(Наименование1) + " " + ОбрСтроки(Наименование2) + "," // Наименование пряжи
+ ОбрСтроки(ТексПряжи.Сокращение) + "," // Текс пряжи
+ "," // Пропущенное значение
+ ОбрСтроки(НоменПряжи.Код) + "," // Артикул пряжи
+ ОбрСтроки(СоставПряжи.Наименование) + "," // Состав пряжи
+ Лев(СортПряжи,1) + "," // Сорт пряжи
+ ОбрСтроки(ЦветПряжи.Наименование) + "," // Цвет пряжи
+ ОбрСтроки(УстойОкраски.Сокращение) + "," // Группа устойчивости окраски
+ ОбрСтроки(КолтвоЕдиниц) + "," // Количество единиц продукции
+ ОбрСтроки(ПартияПряжи.Наименование) + "," // Номер партии пряжи
+ ОбрСтроки(Формат(ВлажностьНорма,ФорматВлажности)) + "," // Нормированная влажность
+ ОбрСтроки(Формат(ВлажностьФакт,ФорматВлажности)) + "," // Фактическая влажность
+ ОбрСтроки(Формат(перМассаБрутто,ФорматМасс)) + "," // Масса брутто
+ ОбрСтроки(Формат(перМассаТары,ФорматМасс)) + "," // Масса тары
+ ОбрСтроки(Формат(перМассаКонусов,ФорматМасс)) + "," // Масса конусов
+ ОбрСтроки(Формат(перМассаНетто,ФорматМасс)) + "," // Масса нетто
+ ОбрСтроки(Формат(перМассаКондиции,ФорматМасс)) + "," // Кондиционная масса
+ ОбрСтроки(Формат(Дата,"ДФ=dd.MM.yyyy")) + "," // Дата упаковывания
+ ОбрСтроки(ИспытаниеПряжи.ВидПаковки.Сокращение) + "," // Вид единицы продукции
+ ОбрСтроки(Упаковщик.ТабНомер) + "," // Таб.номер упаковщика
+ "№ " + СокрЛП(ИспытаниеПряжи.Номер) + "," // Номер паспорта качества
+ "от " + Формат(ИспытаниеПряжи.Дата,"ДФ=dd.MM.yyyy") + "," // Дата паспорта качества
+ ОбрСтроки(Норматив1) + "," // Норматив (стандарт) № 1
+ ОбрСтроки(Норматив2) + "," // Норматив (стандарт) № 2
+ "24" + Формат(перНомерУпаковки,"ЧЦ=10; ЧДЦ=0; ЧВН=; ЧГ=0") + "," // Штрихкод (12 символов)
+ СокрЛП(Техусловие.ВидЭтикетки) + "," // Код вида этикетки (в принтере)
+ ОбрСтроки(Примечание) + "," // Примечание
+ ","; // Дополнительная строка
Возврат Результат;

КонецФункции // СтрокаПараметров()
//**************************************************************************************************
Процедура ЗакрытиеПортов()

Сообщить("-");

Попытка
КомПорт1.ЗакрытьПорт();
Сообщить("Был закрыт порт: " + ИмяПорта1);
Исключение
Сообщить("Не был закрыт порт: " + ИмяПорта1);
КонецПопытки;

Попытка
КомПорт2.ЗакрытьПорт();
Сообщить("Был закрыт порт: " + ИмяПорта2);
Исключение
Сообщить("Не был закрыт порт: " + ИмяПорта2);
КонецПопытки;

Попытка
КомПорт3.ЗакрытьПорт();
Сообщить("Был закрыт порт: " + ИмяПорта3);
Исключение
Сообщить("Не был закрыт порт: " + ИмяПорта3);
КонецПопытки;

КонецПроцедуры // Процедура ЗакрытиеПортов()
//**************************************************************************************************
Процедура МенюУпаковокЗапустить(Кнопка)

ОчиститьСообщения();
ОткрытиеПортов();

Заползло = Ложь;
Напечатано = Ложь;

Режим = РежимДиалогаВопрос.ОК;
Текст = "ПРЕРВАТЬ ВЫПОЛНЕНИЕ ОПЕРАЦИИ ?";
Пока Вопрос(Текст, Режим, 4,,"ИДЕТ ПРОЦЕСС !!!") = КодВозвратаДиалога.Таймаут Цикл

ПерЗначение = Символ(2) + "1,1,Строка данных 1,Строка данных 2,Строка данных 3,Строка данных 4,Строка данных 5,Строка данных 6" + Символ(3);
КомПорт3.ЗаписатьСтроку(ПерЗначение);
Сообщить("Передано на " + ИмяПорта3 + ": " + ПерЗначение);

ПерЗначение = Символ(2) + Символ(5) + Символ(3);
КомПорт2.ЗаписатьСтроку(ПерЗначение);
Сообщить("Передано на " + ИмяПорта2 + ": " + ПерЗначение);

Если Заползло Тогда
ПерЗначение = Символ(27) + Символ(5) + Символ(13);
КомПорт1.ЗаписатьСтроку(ПерЗначение);
Сообщить("Передано на " + ИмяПорта1 + ": " + ПерЗначение);
КонецЕсли;

КонецЦикла;
ЗакрытиеПортов();

КонецПроцедуры // МенюУпаковокЗапустить(Кнопка)
//**************************************************************************************************
Процедура ВнешнееСобытие(Источник, Событие, Данные)

ПолЗначение = СокрЛП(Данные);
Сообщить("Получены данные: " + ПолЗначение);

ПервыСимвол = Лев(ПолЗначение,1);
Если ПервыСимвол = "0" Тогда
Заползло = Ложь;
Напечатано = Ложь;
ИначеЕсли ПервыСимвол = "1" Тогда
Заползло = Истина;
ИначеЕсли ПервыСимвол = "$" Тогда
Если Заползло Тогда
Если не Напечатано Тогда

СпрШтрихКоды = Справочники.ШтрихкодыУпаковок13;
НовШтрихкод = СпрШтрихКоды.СоздатьЭлемент();
НовШтрихкод.Записать();
Штрихкод12 = глПрефиксУпаковок + Формат(НовШтрихкод.Код,"ЧЦ=10;ЧВН=;ЧГ=0");
НовШтрихкод.Наименование = ШтрихКод12 + глШтрихкод.КонтрСимволEAN13(ШтрихКод12);
НовШтрихкод.Записать();

КонстМасс = Перечисления.КратныеКонстанты.МассыУпаковок;
КонстСумм = Перечисления.КратныеКонстанты.УчетныеСуммы;

НовУпаковка = Упаковки.Добавить();
НовУпаковка.НомерУпаковки = НовШтрихкод.Код;
НовУпаковка.ШтрихкодУпаковки13 = НовШтрихкод.Ссылка;
НовУпаковка.КолЕдиниц = КолтвоЕдиниц;
НовУпаковка.МассаБрутто = Число(Сред(ПолЗначение,2,7));
Если (НовУпаковка.МассаБрутто = 0) или (НовУпаковка.КолЕдиниц = 0) Тогда
НовУпаковка.НамотМасса = 0;
НовУпаковка.УпакМасса = 0;
НовУпаковка.ПаковМасса = 0;
НовУпаковка.ПеремМасса = 0;
НовУпаковка.МассаНетто = 0;
НовУпаковка.КондМасса = 0;
НовУпаковка.УчетСумма = 0;
Иначе
НовУпаковка.НамотМасса = глБазовые.Округлить(КонстМасс,ТараНамоточная.МассаТары*НовУпаковка.КолЕдиниц,Дата);
НовУпаковка.УпакМасса = глБазовые.Округлить(КонстМасс,ТараУпаковочная.МассаТары*НовУпаковка.КолЕдиниц,Дата);
НовУпаковка.ПаковМасса = глБазовые.Округлить(КонстМасс,ТараПаковальная.МассаТары,Дата);
МассаНеттоУпаковки = НовУпаковка.МассаБрутто - НовУпаковка.НамотМасса - НовУпаковка.УпакМасса - НовУпаковка.ПаковМасса;
НовУпаковка.МассаНетто = глБазовые.Округлить(КонстМасс,МассаНеттоУпаковки,Дата);
НовУпаковка.КондМасса = глБазовые.Округлить(КонстМасс,НовУпаковка.МассаНетто*КоэфВлажности,Дата);
НовУпаковка.УчетСумма = глБазовые.Округлить(КонстСумм,НовУпаковка.КондМасса*НоменПряжи.УчетнаяЦена,Дата);
КонецЕсли;

ПодсчетИтоговыхЗначений();
Записать(РежимЗаписиДокумента.Запись);

ПерЗначение = Символ(2) + "1,1,"
+ СтрокаПараметров (НовУпаковка.НомерУпаковки,
НовУпаковка.МассаБрутто,
НовУпаковка.УпакМасса + НовУпаковка.ПаковМасса,
НовУпаковка.НамотМасса,
НовУпаковка.МассаНетто,
НовУпаковка.КондМасса)
+ Символ(3);
КомПорт2.ЗаписатьСтроку(ПерЗначение);
Сообщить("Передано на " + ИмяПорта2 + ": " + ПерЗначение);
Напечатано = Истина;

КонецЕсли;
КонецЕсли;
КонецЕсли;

КонецПроцедуры // ВнешнееСобытие(Источник, Событие, Данные)
//**************************************************************************************************