\n\n
1С «Программирование.Примеры» — CodeGid
Перейти к содержимому
- Процедура ВыполнитьЗапросСервер()
- Запрос=Новый Запрос;
- Запрос.УстановитьПараметр(«Дата», Дата);
- Запрос.Текст = «ВЫБРАТЬ
- | ЧекККМ.Ссылка КАК Ссылка
- |ИЗ
- | Документ.ЧекККМ КАК ЧекККМ
- |ГДЕ
- | ЧекККМ.Дата < &Дата»;
- РезультатЗапроса=Запрос.Выполнить();
- Выборка = РезультатЗапроса.Выбрать();
- ВсегоСтрок=Выборка.Количество();
- Элементы.Индикатор.ОтображатьПроценты = истина;
- Инд = 0;
- Пока Выборка.Следующий() Цикл
- Инд = Инд + 1;
- Индикатор = Инд*100/ВсегоСтрок;
- //обращение к полям
- Сообщить(Выборка.Ссылка.Дата);
- КонецЦикла;
- КонецПроцедуры
- &НаКлиенте
- Процедура ВыполнитьЗадание(Команда)
- ВсегоСтрок=10000;
- Элементы.Индикатор.ОтображатьПроценты = истина;
- Инд = 0;
- Пока Инд < ВсегоСтрок Цикл
- Инд = Инд + 1;
- Индикатор = Инд*100/ВсегоСтрок;
- КонецЦикла;
- КонецПроцедуры