vypolnenie_procedury_v_fone_cherez_dlitelnye_operacii [wiki.hostingcloud.com.ua]

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.
**Блок с фоновым заданием**

Первая вызываемая функция на клиенте.
  * "Элементы.ИндикаторОбработкиExcel" - это элемент на форме типа "индикатор". В качестве источника данных у него реквизит формы "ИндикаторОбработкиExcel"
  * "ИндикаторОбработкиExcel" - реквизит формы. чило. туда будем закидывать число

<code>
&НаКлиенте
Процедура ЗапуститьВыгрузкНаСервере(РезультатВопроса, параметры) Экспорт 	
	Если РезультатВопроса = КодВозвратаДиалога.ok Тогда
		Элементы.ИндикаторОбработкиExcel.Видимость=Истина;
		ИндикаторОбработкиExcel	=	0;
		ВыполнитьФоновоеПолнуюВыгрузкуНаСервере();
		ПодключитьОбработчикОжидания("ПроверитьВыполнениеЗадания1", 1);
	КонецЕсли;
КонецПроцедуры
</code>



----

"ID_ФоновогоЗадания" - ревизит формы или объекта. Будет хранить в себе ГУИД фонового задания чтобы потом можно было по нему обращаться к фоновому заданию и проверять его состояние
<code>
&НаСервере
Процедура ВыполнитьФоновоеПолнуюВыгрузкуНаСервере()
	
	ID_ФоновогоЗадания = Неопределено;
	ПолнаяВыгрузкаВФоновом(ID_ФоновогоЗадания);
	Объект.ID_ФоновогоЗадания1 = ID_ФоновогоЗадания; 
	
	Мсооб	=	новый СообщениеПользователю;
	Мсооб.Текст	=	""+ТекущаяДата()+": Запущенна выгрузка в фоновом режиме. Вы можете продолжать работать. Прогресс будет отображаться в этом окне.";
	Мсооб.Сообщить();	
	
КонецПроцедуры
</code>

----
<code>
&НаСервере
Процедура ПолнаяВыгрузкаВФоновом(ID_ФоновогоЗадания)
	
	//Если нужно передат параметры в фоновое задание - формируем его в структуре
        СтруктураПараметров = Новый Структура;
	СтруктураПараметров.Вставить("УИДНастройки",ОбщийМодульОбменСPromUa.ПолучитьУИДобъекта(Объект.Ссылка));
	СтруктураПараметров.Вставить("РучнойВызов",истина);
	
	ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(ЭтаФорма.УникальныйИдентификатор);
	ПараметрыВыполнения.ЗапуститьВФоне   = Истина;
	ПараметрыВыполнения.ЗапуститьНеВФоне = Ложь;
	ПараметрыВыполнения.НаименованиеФоновогоЗадания  = "ПолнаяВыгрузка_ВызовСФормы";
	ПараметрыВыполнения.ОжидатьЗавершение   = Ложь;	

	//тут путь уже непосредственно к самой процедуре которую нужно выполить в фоне**
        СтрокаЗапуска="ОбщийМодульОбменСPromUa.ОбменСPromUa_толькотовары";
	СтруктураЗадания = ДлительныеОперации.ВыполнитьВФоне(СтрокаЗапуска,СтруктураПараметров,ПараметрыВыполнения);
	
	ID_ФоновогоЗадания = СтруктураЗадания.ИдентификаторЗадания;
	
КонецПроцедуры

</code>

----
**Блок с проверкой на каком этапе это фоновое задание**

<code>
&НаКлиенте
Процедура ПроверитьВыполнениеЗадания1()
	
	ПоследняяОбработаннаяСтрока = Неопределено;
	
	ОбработаннаяСтрока  = ПоследняяОбработаннаяСтрока;
	
	ОбработаннаяСтрока  = ПроверитьФоновыеЗадания(Объект.ID_ФоновогоЗадания1);
	
	Если ОбработаннаяСтрока = Неопределено Тогда
		
		ПрекратитьВыполнениеНаСервере(Объект.ID_ФоновогоЗадания);          
		ОтключитьОбработчикОжидания("ПроверитьВыполнениеЗадания1");
		
		Элементы.ИндикаторОбработкиExcel.Видимость=ложь;
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Ошибка при выполнении задания ....";   	
		Сообщение.Сообщить();
		
	КонецЕсли; 
	ЧислоСтрокВТаблице = 100;
	Если ТипЗнч(ОбработаннаяСтрока) = Тип("Число") Тогда
		
		ПоследняяОбработаннаяСтрока =  ОбработаннаяСтрока;		
		Процент =  ПоследняяОбработаннаяСтрока/ЧислоСтрокВТаблице*100;	
		Состояние("Обработано " + Строка(ПоследняяОбработаннаяСтрока),Процент,"из " + Строка(ЧислоСтрокВТаблице));
		
	Иначе
		
		Если ОбработаннаяСтрока = Истина Тогда
			
			ОтключитьОбработчикОжидания("ПроверитьВыполнениеЗадания1");
			
			Элементы.ИндикаторОбработкиExcel.Видимость=ложь;
			Сообщение = Новый СообщениеПользователю;
			Сообщение.Текст = ""+ТекущаяДата()+": Задание выполнено";   	
			Сообщение.Сообщить();
			
			
		КонецЕсли;
		
	КонецЕсли;
	
КонецПроцедуры

</code>

<code>
&НаСервере
Функция  ПроверитьФоновыеЗадания(ИдЗадания)

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

      ВыполненыВсеЗадания = Истина;
	  
	  Сообщение = Новый СообщениеПользователю;
	  Сообщение.Текст = "Выполнено!";
	  Сообщение.Сообщить();
      
    ИначеЕсли Состояние = СостояниеФоновогоЗадания.ЗавершеноАварийно Тогда

      ОшибкаЗадания = Задание.ИнформацияОбОшибке;
      Если ОшибкаЗадания <> Неопределено Тогда
        ЗаписьЖурналаРегистрации(НСтр("ru = 'Длительная операция'"),
        УровеньЖурналаРегистрации.Ошибка,,,
        ПодробноеПредставлениеОшибки(ОшибкаЗадания));
      Иначе
        ЗаписьЖурналаРегистрации(НСтр("ru = 'Длительная операция'"),
        УровеньЖурналаРегистрации.Ошибка,,,
        НСтр("ru = 'Задание завершилось с неизвестной ошибкой.'"));
      КонецЕсли;
      
      МассивСообщений = Задание.ПолучитьСообщенияПользователю(Истина);
      Если МассивСообщений = Неопределено Тогда
        //Ничего нет
      Иначе
        Если МассивСообщений.Количество() > 0 Тогда
          ПоследняяЗапись = МассивСообщений.Количество()-1;
        КонецЕсли;
        
        ЗаписьЖурналаРегистрации(НСтр("ru = 'Длительная операция'"),
        УровеньЖурналаРегистрации.Ошибка,,,
        Строка(ПоследняяЗапись));// + " Количество строк в задании: " +Строка(СтрокаТаблицы.КоличествоСтрокВЗадании));
		
		//Выведем ошибку пользователю
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = ПодробноеПредставлениеОшибки(ОшибкаЗадания);
		Сообщение.Сообщить();

      КонецЕсли;          
            ВыполненыВсеЗадания = Ложь;
      Возврат Неопределено;

    Иначе
      
      МассивСообщений = Задание.ПолучитьСообщенияПользователю(Истина);
      Если МассивСообщений = Неопределено Тогда
        //Ничего нет
      Иначе
        Если МассивСообщений.Количество() > 0 Тогда
          
          ПоследняяЗапись = МассивСообщений.Количество()-1;
          
		  Для Каждого Сообщ Из МассивСообщений Цикл    
			  
			  Если СтрНайти(Сообщ.Текст,"Не определен режим запуска приложения")>0 ИЛИ
				  СтрНайти(Сообщ.Текст,"Запуск выбранного драйвера не поддерживается в текущем режиме")>0 Тогда 
				  //Ничего не выводим	  
			  ИначеЕсли СтрНайти(Сообщ.Текст,"%")>0 Тогда 
				  //Выводим проценты
				  попытка
					  ИндикаторОбработкиExcel	=	число(СтрЗаменить(Сообщ.Текст,"%",""));
				  Исключение
				  КонецПопытки;
			  Иначе 
				  Сообщение = Новый СообщениеПользователю;
				  Сообщение.Текст = Сообщ.Текст;//МассивСообщений[ПоследняяЗапись].Текст;
				  Сообщение.Сообщить();
			  КонецЕсли;
			  
		  КонецЦикла;
            
        КонецЕсли; 
      КонецЕсли;
      ВыполненыВсеЗадания = Ложь;
      
    КонецЕсли;
  
  Возврат ВыполненыВсеЗадания;

КонецФункции
</code>

<code>
&НаСервере
Процедура ПрекратитьВыполнениеНаСервере(ИдЗадания)
  
  //Для каждого СтрокаТаблицы Из ТаблицаИдентификаторовЗаданий Цикл
    Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ИдЗадания);  
    Задание.Отменить();
  //КонецЦикла;
  
КонецПроцедуры
</code>