v8: Изменение расписания регламентированного задания программно.

 



Процедура ЗаписатьНажатие(Элемент)

	ТекущееРегламентноеЗадание = НайтиРегламентноеЗаданиеПоНастройке(ЭлементыФормы.НастройкаВыполненияОбменаСсылка.Значение.РегламентноеЗадание);				

	ТекущееРегламентноеЗадание.Ключ = Ключ;

	ТекущееРегламентноеЗадание.КоличествоПовторовПриАварийномЗавершении = 1;

	ТекущееРегламентноеЗадание.ИнтервалПовтораПриАварийномЗавершении = 10;

	СтруктураРасписания = ОбщегоНазначенияКлиентСервер.РасписаниеВСтруктуру(ТекущееРегламентноеЗадание.Расписание);

	ВремяНачала = Дата("00010101073004");

	СтруктураРасписания.ВремяНачала=ВремяНачала;

	ДетальныеРасписанияДня = Новый Массив;

	ДетальныеРасписанияДня.Добавить(СтруктураРасписания);

	СтруктураРасписания.Вставить("ДетальныеРасписанияДня", ДетальныеРасписанияДня);

	ТекущееРегламентноеЗадание.Расписание = ОбщегоНазначенияКлиентСервер.СтруктураВРасписание(СтруктураРасписания);

	ТекущееРегламентноеЗадание.Записать();

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





Функция НайтиРеглЗаданиеПоПараметру(УникальныйНомерЗадания)

	

	Попытка

		

		Если НЕ ПустаяСтрока(УникальныйНомерЗадания) Тогда

			

			УникальныйИдентификаторЗадания = Новый УникальныйИдентификатор(УникальныйНомерЗадания);

			ТекущееРегламентноеЗадание = РегламентныеЗадания.НайтиПоУникальномуИдентификатору(УникальныйИдентификаторЗадания);

			

		Иначе

			

			ТекущееРегламентноеЗадание = Неопределено;

			

		КонецЕсли;

		

	Исключение

		

		ТекущееРегламентноеЗадание = Неопределено;

		

    КонецПопытки;

	

	Возврат ТекущееРегламентноеЗадание;

	

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





Функция НайтиРегламентноеЗаданиеПоНастройке(РегламентноеЗадание) Экспорт

	

	ТекущееРегламентноеЗадание = НайтиРеглЗаданиеПоПараметру(РегламентноеЗадание);

	

	Возврат ТекущееРегламентноеЗадание;

	

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