Имя: Пароль:
1C
 
ТСД Opticon CLK - 3000
0 antihacker
 
05.08.16
07:41
Всем привет ! Кто сталкивался с данной техникой ?  Когда читаю памят ТСД, то моя прога начинает читать все подряд из справочника. Есть количество на них нет все равно. А как можно прочесть те позиции где есть количество ?

Терминал.DeviceEnabled = истина;

Терминал.FormNumber=0;
Терминал.BeginReport();
КоличествоЗаписей=Терминал.ReportRecordCount;
КоличествоПолей=Терминал.ReportFieldCount;
//---Аппаратное сообщение-----------
//Если Терминал.ResultDescription<>"Ошибок нет" Тогда
сообщить(Терминал.ResultDescription);
//КонецЕсли;
сообщить( Терминал.ReportRecordCount );

Для i = 1 ПО Терминал.ReportRecordCount Цикл
Терминал.GetRecord();

//----Количество----------------------------------
Терминал.ReportFieldIndex = i;

Если Терминал.Количество = 0 Тогда Продолжить; КонецЕсли;

НоваяСтрока = Товары.Добавить();
НоваяСтрока.Количество=Терминал.ReportField;

НоваяСтрока=Товары.Добавить();
//----Штрих код--------
НоваяСтрока.ШтрихКод= Терминал.ReportField;
//---Ищем в регистре сведении по штрих коду---------
Запрос=Новый Запрос;
Запрос.УстановитьПараметр("Штрихкод", Терминал.ReportField);
Запрос.Текст=
"ВЫБРАТЬ
| Штрихкоды.Штрихкод КАК Штрихкод,
| Штрихкоды.Владелец
|ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
| Штрихкоды.Штрихкод = &Штрихкод";
//--------------------------------------------------
Результат=Запрос.Выполнить().Выгрузить();

Если Запрос.Выполнить().Выбрать().Количество()>0 Тогда
Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл
НоваяСтрока.Номенклатура=ОМПрочее.НомИлиШтрих("НЕОПРЕДЕЛЕН",Терминал.ReportField).Номенклатура;
КонецЦикла;

КонецЕсли;


КонецЦикла;
Терминал.EndReport();

Терминал.DeviceEnabled = Ложь;