|
0
sergei123654
01.12.11
✎
10:42
|
Привет всем!
возникла задача связать весы METTLER TOLEDO TIGER P с 1С. Конфигурация 1С не УТ.
с драйверами пришла обработка для 1С 7, ее пытался переписать для 1С 8,1
понаписал:
Функция ДобавитьТовар(ТекВесы, ПЛУНом=0,Арт=0,ПЛУИмя="",Цена=0,ГруппаНом=0) //Добавить товары
ТекВесы.ДобавитьПЛУР(ПЛУНом,Арт,ГруппаНом,Цена,0,0,0,0,0,0,0,0,0,0);
возврат 1;
КонецФункции //Команда207
Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ВесыТоварыВВесах.Ссылка,
| ВесыТоварыВВесах.НомерСтроки,
| ВесыТоварыВВесах.Номенклатура,
| ВесыТоварыВВесах.Номенклатура.Код КАК КодТовара,
| ВесыТоварыВВесах.PLU,
| ВесыТоварыВВесах.Цена,
| ВесыТоварыВВесах.Загружать,
| ВесыТоварыВВесах.Код
|ИЗ
| Справочник.Весы.ТоварыВВесах КАК ВесыТоварыВВесах
|ГДЕ
| ВесыТоварыВВесах.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка",Весы);
ТаблицаЗапроса = Запрос.Выполнить().Выбрать();
Если ТаблицаЗапроса.Количество() = 0 тогда
Сообщить("Нет данных для заполнения!");
Возврат;
КонецЕсли;
Попытка
ЗагрузитьВнешнююКомпоненту("Mettler.dll");
Исключение
Сообщить("КОмпонента Mettler.dll не загружена");
Возврат;
КонецПопытки;
Попытка
ТекВесы = Новый("AddIn.SPCT");
Исключение
Сообщить("Неопределены весы AddIn.SPCT");
Возврат;
КонецПопытки;
Пока ТаблицаЗапроса.Следующий() Цикл
ТекВесы.НовыйПакет();
ДобавитьТовар(ТекВесы, ТаблицаЗапроса.PLU, ТаблицаЗапроса.КодТовара, СокрЛП(ТаблицаЗапроса.Номенклатура), ТаблицаЗапроса.Цена);
ТекВесы.Передать();
КонецЦикла;
КонецПроцедуры
дважды вылетела ошибка - ключ не найден(от весов)
а на ДобавитьПЛУР() сказала "Поле не доступно для записи"
Кто нибудь потключал METTLER TOLEDO TIGER P к 1С? Как получилось подключить?
|
|
