&НаСервере
Процедура ЗафиксироватьВыполнениеНаСервере()
    
    ЗадачаОбъект = Задача.Ссылка.ПолучитьОбъект();
    
    ЗадачаОбъект.ВыполнитьЗадачу();
    
КонецПроцедуры   

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

 //Самый простой и доступный способ - использовать диалог "Предупреждение"
// с заданным в качестве параметра необходимым таймаутом:
Предупреждение("Пауза!",60);
// или
Если Вопрос("Перепроведение?", РежимДиалогаВопрос.ОКОтмена, 60) = КодВозвратаДиалога.Отмена Тогда
   Возврат;
КонецЕсли;   

 // А если мы не хотим выводить пользователю ни каких сообщений
// Установим паузу в 5 минут, т.е. 300 секунд
сек = 300;
КонДата = ТекущаяДата() + сек;
  Пока ТекущаяДата() < КонДата Цикл
      // ждемссс....
  КонецЦикла;
   

 Процедура глПауза(Сек)
scr = Новый COMОбъект("WScript.Shell");
scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);
КонецПроцедуры;   

 Процедура глПауза(Сек)
    scr = СоздатьОбъект("WScript.Shell");
    scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);
КонецПроцедуры;

 Режим = РежимДиалогаВопрос.ДаНетОтмена;
Ответ = Вопрос("Выполнить?", Режим, 0);
   
Если Ответ =КодВозвратаДиалога.Да Тогда
        Сообщить("Выполнено");
ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда
        Сообщить("Не выполнено");
КонецЕсли;   

 
Режим = РежимДиалогаВопрос.ДаНет;
Ответ = Вопрос("Сохранить текст?", Режим,0) ;
Если Ответ = КодВозвратаДиалога.Нет Тогда
	ТекДок.Записать(ПутьКФайлу);
КонецЕсли ;

//Свойства РежимДиалогаВопрос:
//ДаНет (YesNo)
//ДаНетОтмена (YesNoCancel)
//ОК (OK)
//ОКОтмена (OKCancel)
//ПовторитьОтмена (RetryCancel)
//ПрерватьПовторитьПропустить (AbortRetryIgnore)

//Свойства КодВозвратаДиалога:
//Да (Yes)
//Нет (No)
//ОК (OK)
//Отмена (Cancel)
//Повторить (Retry)
//Прервать (Abort)
//Пропустить (Ignore)
//Таймаут (Timeout)    
   

 
// Зададим вопрос, и варианты ДА, НЕТ
Рез = Вопрос("Вы получили данное сообщение?", 4); 
// При нажатии Да - Рез=6, Нет- Рез=6 

//Можно и так:
Если Вопрос("Сохранить?", "Да+Нет") = "Да" Тогда
	 ТекДок.Записать(ПутьКФайлу);
КонецЕсли;  

//Вопрос(Текст_вопроса, Режим, Таймаут) - Вывести окно вопроса и получить ответ.
//Возвращает ответную реакцию в виде числа или строки, в соответствии с заданием параметра <Режим>:
//-1 или 'Таймаут' ('Timeout'), если закончилось время ожидания ответа;
//1 или 'ОК' ('ОК'), если если нажата кнопка OK;
//2 или 'Отмена' ('Cancel'), если нажата кнопка Отмена;
//3 или 'Стоп' ('Abort'), если нажата кнопка Стоп;
//4 или 'Повтор' ('Retry'), если нажата кнопка Повтор;
//5 или 'Пропустить' ('Ignore'), если нажата кнопка Пропустить;
//6 или 'Да' ('Yes'), если нажата кнопка Да;
//7 или 'Нет' ('No'), если нажата кнопка Нет.
//	
//Параметры:
//Текст_вопроса - cтрока текста вопроса;
//Режим - определяет набор кнопок диалога в виде числа или строки (в скобках английское написание):
//  0 или 'ОК' ('ОК') - кнопка OK;
//  1 или 'ОК+Отмена' ('OK+Cancel') - кнопки OK и Отмена;
//  2 или 'Стоп+Повтор+Пропустить' ('Abort+Retry+Ignore') - кнопки Стоп, Повтор, Пропустить;
//  3 или 'Да+Нет+Отмена' ('Yes+No+Cancel') - кнопки Да, Нет, Отмена;
//  4 или 'Да+Нет' ('Yes+No') - кнопки Да, Нет;
//  5 или 'Повтор+Отмена' ('Retry+Cancel') - кнопки Повтор, Отмена;
//  (любое другое значение или отсутствие параметра равносильно  0);
//Таймаут - число секунд времени ожидания ответа (если опущен или 0, то без ограничения).

 
//Функция Проверяет наличие каталога на диске и предлагает создать, если каталога не существует.
//
// Параметры
//  ИмяКаталога  – Строка, содержащая путь к каталогу файла на диске.
//
// Возвращаемое значение:
//   Булево – Истина, если каталог существует или создан, Ложь, если каталога нет.
//
Функция ПроверитьСуществованиеКаталога(ИмяКаталога) Экспорт

	КаталогНаДиске = Новый Файл(ИмяКаталога);
	Если КаталогНаДиске.Существует() Тогда
		Возврат Истина;
	Иначе
		Ответ = Вопрос("Указанный каталог не существует. Создать каталог?", РежимДиалогаВопрос.ОКОтмена);
		Если Ответ = КодВозвратаДиалога.ОК Тогда
			СоздатьКаталог(ИмяКаталога);
			Возврат Истина;
		Иначе
			Возврат Ложь;
		КонецЕсли;
	КонецЕсли;

КонецФункции