&НаСервере
Процедура КнопкаВыполнитьНаСервере()
	жж=0;
	Для ии=1 По 30000 Цикл
		жж=ии+жж;
	КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура КнопкаВыполнить(Команда)

	ОткрытьФорму("ВнешняяОбработка.ТипаПрогрессБар.Форма.ПБ",,ЭтаФорма);
	Для ии=1 По 100 Цикл

		КнопкаВыполнитьНаСервере();
		Оповестить("Инкримент",ии);
	КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
	Элементы.ПБ.Видимость=Истина;
	Элементы.ПБ.МаксимальноеЗначение=100;
	Если ИмяСобытия="Инкримент" Тогда
		ПБ=Параметр;
	КонецЕсли;
	ЭтаФорма.ОбновитьОтображениеДанных();

КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	Параметры.Свойство("Инкр",ПБ);
КонецПроцедуры