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 = Ложь;
|
|