Асинхронные процессы

//Модуль формы
Перем КлючИндикатор1, КлючИндикатор2; //Или кнопок - как тебе удобнее
 
Процедура ЗаполнитьИндикатор1() //просто заполняет индикатор на форме, демонстрируя, что все работает.
    
    ФильтрОтбора = Новый Структура("Ключ,Наименование,Состояние", КлючИндикатор1, "Тестовое ФЗ", СостояниеФоновогоЗадания.ЗавершеноАварийно);
    МассивЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(ФильтрОтбора);
    
    Если МассивЗаданий.Количество() > 0 И НЕ МассивЗаданий[0].ИнформацияОбОшибке.Описание = "" Тогда
        //получили данные из Фонового задания, поместили их в Табличное поле
        СчетчикСтрокой = МассивЗаданий[0].ИнформацияОбОшибке.Описание;
        ЭлементыФормы.Индикатор1.Значение = Число(СчетчикСтрокой);
        ОтключитьОбработчикОжидания("ЗаполнитьИндикаторы1");
        Если ЭлементыФормы.Индикатор1.Значение < 100 Тогда 
            ВыполнитьОбработкуФормы1();
        КонецЕсли; 
    КонецЕсли;
    
КонецПроцедуры
 
Процедура ЗаполнитьИндикатор2() //просто заполняет ТабличноеПоле на форме, демонстрируя, что все работает.
    
    ФильтрОтбора = Новый Структура("Ключ,Наименование,Состояние", КлючИндикатор2, "Тестовое ФЗ", СостояниеФоновогоЗадания.ЗавершеноАварийно);
    МассивЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(ФильтрОтбора);
    
    Если МассивЗаданий.Количество() > 0 И НЕ МассивЗаданий[0].ИнформацияОбОшибке.Описание = "" Тогда
        //получили данные из Фонового задания, поместили их в Табличное поле
        СчетчикСтрокой = МассивЗаданий[0].ИнформацияОбОшибке.Описание;
        ЭлементыФормы.Индикатор2.Значение = Число(СчетчикСтрокой);
        ОтключитьОбработчикОжидания("ЗаполнитьИндикаторы2");
        Если ЭлементыФормы.Индикатор2.Значение < 100 Тогда 
            ВыполнитьОбработкуФормы2();
        КонецЕсли; 
    КонецЕсли; 
    
КонецПроцедуры
 
 
Процедура ВыполнитьОбработкуФормы1()
    
    КлючИндикатор1 = Новый УникальныйИдентификатор;
    //размерность массива - по числу параметров запускаемой в фоновом режиме процедуры
    МассивПараметров1 = Новый Массив(1);
    МассивПараметров1[0] = ЭлементыФормы.Индикатор1.Значение;
    
    //внимание! Первый параметр - полный путь к запускаемой процедуре, включая имя общего модуля, в котором она находится.
    ФоновыеЗадания.Выполнить("Модуль.ФоноваяПроцедура", МассивПараметров1, КлючИндикатор1, "Тестовое ФЗ"); // запуск
 
    ПодключитьОбработчикОжидания("ЗаполнитьИндикатор1", 1); //ждем, пока ФЗ нам что-то вернет.
    
КонецПроцедуры
 
Процедура ВыполнитьОбработкуФормы2()
    
    КлючИндикатор2 = Новый УникальныйИдентификатор;
    //размерность массива - по числу параметров запускаемой в фоновом режиме процедуры
    МассивПараметров2 = Новый Массив(1);
    МассивПараметров2[0] = ЭлементыФормы.Индикатор2.Значение;
    
    //внимание! Первый параметр - полный путь к запускаемой процедуре, включая имя общего модуля, в котором она находится.
    ФоновыеЗадания.Выполнить("Модуль.ФоноваяПроцедура", МассивПараметров2, КлючИндикатор2, "Тестовое ФЗ");
 
    ПодключитьОбработчикОжидания("ЗаполнитьИндикатор2", 1); //ждем, пока ФЗ нам что-то вернет.
    
КонецПроцедуры
 
Процедура Кнопка1Нажатие(Элемент)
    
    ЭлементыФормы.Индикатор1.Значение = 0;
    ВыполнитьОбработкуФормы1();
    
КонецПроцедуры
 
Процедура Кнопка2Нажатие(Элемент)
    
    ЭлементыФормы.Индикатор2.Значение = 0;
    ВыполнитьОбработкуФормы2();
    
КонецПроцедуры
 
//Общий модуль
//Пример без сохранения результата в базе что бы выиграть чуть чуть во времени
//Параметр - Вход должен иметь тип число
Процедура ФоноваяПроцедура(Вход) Экспорт
    
   Результат = Строка(Вход+1);
   
   ВызватьИсключение Результат; //самое главное, обманем систему, сказав, что возникла ошибка, и в качестве описания ошибки подсунем возвращаемое значение
    
КонецПроцедуры

&НаКлиенте
Процедура Тест()
    Реквизит1=Реквизит1+1;
    if Реквизит1=10 then
        ОтключитьОбработчикОжидания("Тест");
    endif;  
КонецПроцедуры
 
&НаКлиенте
Процедура Тест1()
    Реквизит2=Реквизит2+1;
    if Реквизит2=10 then
        ОтключитьОбработчикОжидания("Тест1");
    endif;  
КонецПроцедуры
 
&НаКлиенте
Процедура Команда1(Команда)
    Элементы.Поле1.МаксимальноеЗначение=10;
    Элементы.Поле1.ОтображатьПроценты=Истина;
    Элементы.Поле1.Видимость=Истина;
    Реквизит1=0;
    ПодключитьОбработчикОжидания("Тест",1,Ложь);
КонецПроцедуры
 
&НаКлиенте
Процедура Команда2(Команда)
    Элементы.Поле2.МаксимальноеЗначение=10;
    Элементы.Поле2.ОтображатьПроценты=Истина;
    Элементы.Поле2.Видимость=Истина;
    Реквизит2=0;
    ПодключитьОбработчикОжидания("Тест1",1,Ложь);
КонецПроцедуры

ПодключитьОбработчикОжидания("ЗаполнитьИндикатор1", 1);