MAGAZKA

Нужно чтоб при подборе товара в документы 1с происходил опрос и считывания с весов информации. Драйвер Атоловский не подходит. Есть драйвер для весов , весы через ком порт подключены и установлены на компьютере. Есть также код для 1С от разработчиков драйвера принтера. А вот куда этот код вставлять , вопрос?

"Код для 1С" это что ? весы марка какая ?

весы марка ВТА-60,если это чем то поможет. Код для 1С 7,7 поставляемый с драйвером:

// Для удачного копирования текста в конфигуратор 1С 7.7
// в программе и в конфигураторе выберите раскладку "RU".
//версия платформы 1С 7.7
Перем Весы Экспорт;
Перем Рез; // переменная в которую записываеся сообщение о ошибке
Перем ИмяВесов;

Процедура КнопкаПолучитьВесНажатие()
Перем Вес; // вес в граммах (или в килограммах, если весы больше тонны)
Перем Цена; // поддерживаются не все типы весов (только торговые)
Перем Стоимость; // поддерживаются не все типы весов (только торговые)
Перем ВесСтабильный; // если 1 = вес на весах успокоился, 0 = не успокоился

//Получаем вес с весов
Рез = Весы.GetWeight(ИмяВесов, Вес, Цена, Стоимость, ВесСтабильный );

Если Рез <> 0 Тогда
Сообщить ( "Ошибка: "+ Строка( Рез ));
Иначе
Сообщить ( "Вес: "+ Строка(Вес) +
" Цена: "+ Строка(Цена) +
" Стоимость: "+ Строка(Стоимость)+
" Вес стабильный: "+ Строка(ВесСтабильный));
КонецЕсли;
КонецПроцедуры


Процедура КнопкаНажатьТАРАНажатие()
Рез = Весы.PressT( ИмяВесов );
Если Рез <> 0 Тогда
Сообщить ( "Ошибка: "+ Строка( Рез ));
КонецЕсли;
КонецПроцедуры


Процедура КнопкаОтправитьЦенуНажатие()
Рез = Весы.SetPrice( ИмяВесов, 12345 );
Если Рез <> 0 Тогда
Сообщить ( "Ошибка: "+ Строка( Рез ));
КонецЕсли;
КонецПроцедуры


///////////////////////////////////////////////////////////////////////
//Инициализация при открытии обработки
ИмяВесов = "1";

// Подключаем к 1С СОМ-обьект для работы с весами
Попытка
ПодключитьВнешнююКомпоненту("AddIn.UniproScalesComSrv");
//если драйвер не зарегистрирован с помощью regsvr32, тогда так:
//ЗагрузитьВнешнююКомпоненту("C:\ScalesComSrv\v3.3.1\UniproScalesComServer.dll");
//////////////////
// Создаем объект "ВЕСЫ"
Весы = СоздатьОбъект ("AddIn.UniproScalesComSrv");
Исключение
Сообщить("Компонента для работы з весами НЕ загружена", "!!");
КонецПопытки;