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

03.04.14

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Пример использования на форме .epf 6,76Kb 6	6	Скачать (1 SM)	Купить за 1 850 руб.

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

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

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

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

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

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

+14 –

См. также

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

Работа с интерфейсом Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия Платные (руб)

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

5000 руб.

14.01.2016 55630 17 23

Универсальный редактор картинок 1С, хранимых в базе, с возможностью рисования

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

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

6000 руб.

16.01.2015 63945 45 60

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

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)

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

2400 руб.

29.06.2020 19937 28 6

Дизайн Гайд для создания форм на 1С. Когда и как использовать различные элементы, примеры и антипримеры по использованию

Работа с интерфейсом Программист Стажер Платформа 1С v8.3 Бесплатно (free)

Это инструкция по дизайну форм в среде 1С. Гайд охватывает рекомендации и стандарты для оптимизации пользовательского интерфейса. В гайде содержатся указания по использованию элементов интерфейса, включая как основные, так и продвинутые аспекты. Предоставляются также примеры и антипримеры для наглядного понимания принципов дизайна

20.08.2024 23480 mrXoxot 44

130

Прогресс-бар в поле динамического списка

Работа с интерфейсом Программист Платформа 1С v8.3 Бесплатно (free)

Пример простого и симпатичного прогресс-бара в динамическом списке, без картинок, используя редактирование запроса.

27.05.2024 12028 smielka 37

105

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

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

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

27.12.2023 18359 1228 elcoan 53

125

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

Инструментарий разработчика Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

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

3 стартмани

10.04.2023 12890 167 acces969 31

126

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

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

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

1 стартмани

05.07.2022 7990 kalyaka 6

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. anig99 2853 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 2853 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 110 09.04.14 11:31 Сейчас в теме

А зачем это нужно? на крайний случай в форме можно разместить стандартный объект "индикатор", а в статус баре выводить основные этапы исполнения кода:
Выполняется Запрос....
Формирование табличного документа...
и т.д.

7. 1cprogr_nsk 110 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,КоличествоИтераций,СТАТ); 
	ВашМодуль.ПрогрессБар(,,СТАТ);