Прогресс бар в статус строке для неуправляемых форм

03.04.14

Разработка - Работа с интерфейсом

Мой вариант реализации прогресс бара в статусной строке для неуправляемых форм 1С 8.х

Скачать файлы

Наименование Файл Версия Размер
Пример использования на форме
.epf 6,76Kb
6
.epf 6,76Kb 6 Скачать

 

Привожу код тестовой обработки, содержащей функции реализации прогресс бара:

Перем СтатусИтерация, СтатусМаксимум, СтатусРасшифровка;

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

//------------------------------------------------------------------------------
// Статус строка
//------------------------------------------------------------------------------
Процедура СтатусСтрока() //Отрисовка прогресбара в статус строке
	Процент = ?(СтатусМаксимум>0,Окр(СтатусИтерация/СтатусМаксимум*100),0);	
	сс="----------------------------------------------------------------------------------------------------";
	ссл=Лев(сс,Процент);сср=Прав(сс,100-Процент);
	ссл=СтрЗаменить(ссл,"-","]");
	сс=ссл+сср;
	Состояние(""+СтатусРасшифровка+": "+сс+" "+Процент+"%");	
КонецПроцедуры
Процедура ПрогрессБарСброс(СтТекст="") //Сбрасывает прогресбар с статус строке
//При указании параметра - устанавливаем текстовое значение прогресс бара
	СтатусРасшифровка = СтТекст;
	СтатусИтерация=0;
	СтатусМаксимум=0;
	Состояние("");	
КонецПроцедуры
Процедура ПрогрессБар(ДобавитьИтерацию=1,ДобавитьМаксимум=0) //шаг итерации
// ПрогрессБар() - увеличивает шаг на 1
// ПрогрессБар(0,Максимальное значение) - устанавливает максимум для значения прогресс бара
	СтатусИтерация=СтатусИтерация+ДобавитьИтерацию;
	СтатусМаксимум=СтатусМаксимум+ДобавитьМаксимум;
	СтатусСтрока();
КонецПроцедуры

ПыСы: в коде пришлось вставить другие, упрощенные символы формирования полосы прогрессбара. В фото и гифке использовал символы из стандартной таблицы символов Windows. А вообще можете подобрать на свое усмотрение.

Прогресс бар Статус строка Индикатор

См. также

Богатый редактор картинок, хранимых в базе, с возможностью РИСОВАНИЯ. Редактор внешних файлов картинок. Объект, расширяющий возможности работы с картинками из встроенного языка (Три в одном) + Обработка «Стандартизация картинок»

Работа с интерфейсом Рабочее место Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Обработка предназначена для редактирования картинок в режиме «Предприятие», с возможностью РИСОВАТЬ на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Также обработка может быть использована из встроенного языка как объект для редактирования картинок. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Данная обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015    61795    43    59    

80

[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

5000 руб.

14.01.2016    54402    16    21    

42

Управление дашбордами

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020    16697    21    4    

35

Новогоднее оформление для 1С

Работа с интерфейсом Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)

Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.

27.12.2023    10736    750    elcoan    45    

106

Конструктор HTML, CSS и javascript

Инструментарий разработчика Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Подходит для создания web-страниц для замены управляемых форм 1С, красивых отчетов, интерфейса мобильного приложения на платформе 1С и для простых страниц веб-сайтов.

2 стартмани

10.04.2023    9613    151    acces969    31    

118

Модель состояния для MVC

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022    3665    kalyaka    2    

27

Табло очереди заказов на экран телевизора

WEB-интеграция Работа с интерфейсом Платформа 1С v8.3 1С:Розница 2 Платные (руб)

Связка из веб-приложения и расширения для 1С: Розница 2.3.

3600 руб.

29.04.2022    12080    1    5    

10
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. anig99 2843 03.04.14 17:58 Сейчас в теме
Честно говоря, боян, но симпатишный
2. denis_aka_wolf 79 03.04.14 19:05 Сейчас в теме
Производительность будет минимальной...
Не имеет смысла использовать данный метод при обработке больших объемов данных
3. Созинов 03.04.14 20:08 Сейчас в теме
Плюс за оригинальность отображения, возьму на заметку. С производительностью - да плохо. Но индикацию попробую прикрутить к своей индикации. (кстати когда-то брал здесь же Эффективная индикация в 8.2 и Правильная индикация прогресса цикла)
4. anig99 2843 04.04.14 09:04 Сейчас в теме
(3) идея не оригинальна. Тут уже было несколько таких, правда давно.
(2)(3) и да... давно уже доказано, что индикация процесса ОЧЕНЬ тормозит работу. Чтобы сократить этот эффект статус надо выводить раз в сколько-то тактов или раз в минуту.
5. endryu 36 04.04.14 10:34 Сейчас в теме
Согласен с тем, что отображать каждый шаг - не рационально.
Перем СтатусВремя;
...
...
...
Процедура ПрогрессБарСброс(СтТекст="") //Сбрасывает прогресбар с статус строке
//При указании параметра - устанавливаем текстовое значение прогресс бара
	СтатусРасшифровка = СтТекст;
	СтатусИтерация=0;
	СтатусМаксимум=0;
	СтатусВремя = ТекущаяДата();
	Состояние("");	
КонецПроцедуры
Процедура ПрогрессБар(ДобавитьИтерацию=1,ДобавитьМаксимум=0) //шаг итерации
// ПрогрессБар() - увеличивает шаг на 1
// ПрогрессБар(0,Максимальное значение) - устанавливает максимум для значения прогресс бара
	СтатусИтерация=СтатусИтерация+ДобавитьИтерацию;
	СтатусМаксимум=СтатусМаксимум+ДобавитьМаксимум;
	Если (ТекущаяДата()-СтатусВремя)>1 тогда
		СтатусВремя = ТекущаяДата();
		СтатусСтрока();		
	КонецЕсли;
КонецПроцедуры
Показать


Вот так будет выводить раз в секунду. А выводить каждую N-нную итерацию считаю не верным, ибо цикл может работать по 10-20 секунд один обход, а может и долю секунды.
6. 1cprogr_nsk 106 09.04.14 11:31 Сейчас в теме
А зачем это нужно? на крайний случай в форме можно разместить стандартный объект "индикатор", а в статус баре выводить основные этапы исполнения кода:
Выполняется Запрос....
Формирование табличного документа...
и т.д.
7. 1cprogr_nsk 106 09.04.14 12:02 Сейчас в теме
Или вообще, можно сделать общую форму с индикатором, передавать в нее все необходимые данные и открыть в любом месте окна, хоть вертикально.
8. user676376_tp7273 27.10.17 10:21 Сейчас в теме
Спасибо за идею!
Немного модифицировал для использования в общих модулей, без объявления переменных.
Передаю эти переменные через структуру


Процедура СтатусСтрока(структураСтатус) ЭКСПОРТ //Отрисовка прогресбара в статус строке
    Процент = ?(структураСтатус.СтатусМаксимум>0,Окр(структураСтатус.СтатусИтерация/структураСтатус.СтатусМаксимум*100),0);    
    сс="----------------------------------------------------------------------------------------------------";
    ссл=Лев(сс,Процент);сср=Прав(сс,100-Процент);
    ссл=СтрЗаменить(ссл,"-","]");
    сс=ссл+сср;
    Состояние(""+структураСтатус.СтатусРасшифровка+": "+сс+" "+Процент+"%");    
КонецПроцедуры
Процедура ПрогрессБарСброс(СтТекст="",структураСтатус) ЭКСПОРТ//Сбрасывает прогресбар с статус строке
//При указании параметра - устанавливаем текстовое значение прогресс бара
	структураСтатус = новый структура;
	структураСтатус.Вставить("СтатусРасшифровка",СтТекст);
    //структураСтатус.СтатусРасшифровка = СтТекст;
	структураСтатус.Вставить("СтатусИтерация",0);
	//структураСтатус.СтатусИтерация=0;
	структураСтатус.Вставить("СтатусМаксимум",0);
	//структураСтатус.СтатусМаксимум=0;
    Состояние("");    
КонецПроцедуры
Процедура ПрогрессБар(ДобавитьИтерацию=1,ДобавитьМаксимум=0,структураСтатус) ЭКСПОРТ //шаг итерации
// ПрогрессБар() - увеличивает шаг на 1
// ПрогрессБар(0,Максимальное значение) - устанавливает максимум для значения прогресс бара
    структураСтатус.СтатусИтерация=структураСтатус.СтатусИтерация+ДобавитьИтерацию;
    структураСтатус.СтатусМаксимум=структураСтатус.СтатусМаксимум+ДобавитьМаксимум;
    СтатусСтрока(структураСтатус);
КонецПроцедуры
Показать


Вызовы будут выглядеть так:

	СТАТ = "";
	ВашМодуль.ПрогрессБарСброс("Ищем контрагентов",СТАТ); //Сброс и установка текста статуса.
        ВашМодуль.ПрогрессБар(0,КоличествоИтераций,СТАТ); 
	ВашМодуль.ПрогрессБар(,,СТАТ); 
10. Xershi 1474 05.01.24 13:33 Сейчас в теме
(9) как раз подготовка УПП к переезду в КА2. Скопировал и прогресс пошел с таймером!
Оставьте свое сообщение