Автор Тема: Загрузка из ТСД CipherLAB 8300 дополнительных полей.  (Прочитано 4149 раз)

Оффлайн alex_r@rambler.ru

  • Newbie
  • *
  • Сообщений: 4
Добрый день.

Доработал задачу в ТСД, и помимо весового ШК при сканировании добавляю дополнительные параметры.
в момент считывания из ТСД используется метод
Объект.Драйвер.ЗагрузитьТаблицу() куда передается Уникальный номер устройства, Тип источника загрузки данных, Номер источника загрузки данных и ТаблицаЗагрузки.
тип источника = база, номер источника = 1.

на выходе получаю ТаблицаЗагрузки с 2-я полями ШК иколичество,
ВОПРОС  - как получить дополнительные поля.

предварительно в обработке ТОСервер идет создание Таблицы значений
Функция ЗагрузитьТаблицуТСД
ТаблицаЗагрузки = Новый ТаблицаЗначений;
ТаблицаЗагрузки.Колонки.Добавить("Штрихкод");
ТаблицаЗагрузки.Колонки.Добавить("Количество");
туда добавил еще кучу колонок. результата нет
« Последнее редактирование: 19.05.2015, 14:35:07 от Антон Романков »

Оффлайн alex_r@rambler.ru

  • Newbie
  • *
  • Сообщений: 4
Ответ на мой вопрос )))

ScanCityCipherLabPDT_v2.epf
Функция ЗагрузитьТаблицу(Объект, ТаблицаЗагрузки) Экспорт
......
в функции начале добавить
Ответ = Ложь;
ТаблицаЗагрузки.Колонки.Добавить("Поле3");
ТаблицаЗагрузки.Колонки.Добавить("Поле4");
ТаблицаЗагрузки.Колонки.Добавить("Поле5");
ТаблицаЗагрузки.Колонки.Добавить("Поле6");
ТаблицаЗагрузки.Колонки.Добавить("Поле7");
ТаблицаЗагрузки.Колонки.Добавить("Поле8");
Заменить
//Ответ = Объект.Драйвер.ЗагрузитьТаблицу(Объект.ИДУстройства,                     // Уникальный номер устройства
//?(мИсточникЗагрузки = "Документ", 0, 1), // Тип источника загрузки данных
//?(мИсточникЗагрузки = "Документ",        // Номер источника загрузки данных
//Объект.Параметры.НомерДокумента,
//Объект.Параметры.НомерБазы),
//ТаблицаЗагрузки);

ТипИсточника = ?(мИсточникЗагрузки = "Документ", 0, 1);
НомерИсточника = ?(мИсточникЗагрузки =Документ",Объект.Параметры.НомерДокумента,Объект.Параметры.НомерБазы);
КодОшибки = Объект.Драйвер.НачатьЧтение(ТипИсточника,НомерИсточника);
Если КодОшибки = 0 ТОгда
Пока Объект.Драйвер.ЧитатьЗапись() > 0 Цикл
СтрокаТаблицаЗагрузки = ТаблицаЗагрузки.Добавить();
ЗаполнитьЗначенияСвойств(СтрокаТаблицаЗагрузки,Объект.Драйвер);
СтрокаТаблицаЗагрузки.Штрихкод = Объект.Драйвер.Поле1;
СтрокаТаблицаЗагрузки.Количество = Объект.Драйвер.Поле2;
//
КонецЦикла;
Ответ = Истина;
Объект.Драйвер.ЗавершитьЧтение();
Иначе
Ответ = Ложь;
КонецЕсли;

аналогично с вызовом ниже + доработать механизм где нужно загружать данные...
« Последнее редактирование: 19.05.2015, 14:35:47 от Антон Романков »

Оффлайн Антон Романков

  • Sr. Member
  • ****
  • Сообщений: 261
  • Ведущий инженер технической поддержки
Спасибо за ценную информацию!