ПодключитьОбработчикОжидания(<ИмяПроцедуры>, <Интервал>, <Однократно>)    

 ОтключитьОбработчикОжидания(<ИмяПроцедуры>)    

  

&НаКлиенте

Процедура  ОболочкаОбработчика ()

ОбработатьОжидание();

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

 

 

&НаСервере

Процедура ОбработатьОжидание()

// делаем всё, что требуется

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

 

//....

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

 ПодключитьОбработчикОжидания(<ИмяПроцедуры>, <Интервал>, <Однократно>)   

 Процедура ОтчетОпродажахЗаДень()

// ...

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



//...

ПодключитьОбработчикОжидания("ОтчетОпродажахЗаДень", 60); // каждую минуту    

 // В типовых проверка дин. обновления конфигурации каждые 20 мин.

	ПодключитьОбработчикОжидания("ОбработчикОжиданияПроверкиДинамическогоИзмененияИБ", 20 * 60);

// подключим обработчик обменов данными

ПодключитьОбработчикОжидания("ПроверкаОбменаДанными", глЗначениеПеременной("глКоличествоСекундОпросаОбмена"));

///

ПодключитьОбработчикОжидания("ПроверитьОтветыНаЗаявленияНаПодключение", 86400); // = 24(ч) * 60(мин) * 60(сек) = 1 сутки		

   

 ПодключитьОбработчикОжидания(<ИмяПроцедуры>, <Интервал>, <Однократно>)    

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

 Форма.мИнтервалАвтосохранения = 300; // 5 минут

	Если Форма.мИнтервалАвтосохранения <> 0 Тогда

		Форма.ПодключитьОбработчикОжидания("ОбработчикСобытияПоТаймеру", Цел(Форма.мИнтервалАвтосохранения * 60));

	КонецЕсли;   

 ОбработкаОжидания("ОбновитьСчетчик_",1);  

 Форма.ОбработкаОжидания("ОбновитьСчетчик_",1); 

 Форма.ОбработкаОжидания("ИмяПроцедуры",ВремяЗапуска)   

 Форма.ОбработкаОжидания("ИмяПроцедуры",0)   

 Процедура М_МонтажПриИзменении(Элемент)

ЭлементыФормы.М_Монтажник.Видимость = М_Монтаж;

ЭлементыФормы.М_ДатаМонтажа.Видимость = М_Монтаж;

ЭлементыФормы.НадписьМ_Монтажник.Видимость = М_Монтаж;

ЭлементыФормы.НадписьМ_ДатаМонтажа.Видимость = М_Монтаж;

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

 // Движения по документу

Если Не Отказ Тогда

 ДвиженияПоРегистрам(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаПоУслугам, ТаблицаПоТаре, Отказ, Заголовок);

 Если М_Монтаж тогда

  РаботаСДиалогами.ПроверитьЗадачиПоОбъекту(Ссылка);

 КонецЕсли;

КонецЕсли;    

 Процедура ПроверитьЗадачиПоОбъекту(ОбъектЗадачи) Экспорт



Запрос = Новый Запрос;

Запрос.Текст = "

|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1

| *

|ИЗ

| Задача.ЗадачиПользователя.ЗадачиПоИсполнителю(

| &ТекПользователь,

| Выполнена = ЛОЖЬ И Объект = &ОбъектЗадачи)

|";

Запрос.УстановитьПараметр("ТекПользователь", ПараметрыСеанса.ТекущийПользователь);

Запрос.УстановитьПараметр("ОбъектЗадачи" , ОбъектЗадачи);

РезультатЗапроса = Запрос.Выполнить();

Если НЕ РезультатЗапроса.Пустой() Тогда

Выполнение = Вопрос("Обнаружены незавершенные задачи по заданному объекту!" + Символы.ПС + " Желаете просмотреть список этих задач вместо создания новой?", РежимДиалогаВопрос.ДаНет, 0);

Если Выполнение = КодВозвратаДиалога.Да Тогда

 ОткрытьЗадачиТекущегоПользователя(ОбъектЗадачи);

 Возврат;

 КонецЕсли;

КонецЕсли;



// Сознание Задачи

НоваяЗадача = Задачи.ЗадачиПользователя.СоздатьЗадачу();

НоваяЗадача.Объект = ОбъектЗадачи;

НоваяЗадача.Оповещение = Истина;



Если ТипЗнч(ОбъектЗадачи) = Тип("ДокументСсылка.ЗаказПокупателя") тогда

 Если ОбъектЗадачи.М_Монтаж тогда

  НоваяЗадача.Наименование = "Напоминание менеджеру о сборке комплекта по: " + ОбъектЗадачи.Метаданные().Синоним;

  НоваяЗадача.Дата = ТекущаяДата();

  НоваяЗадача.СрокОповещения = ОбъектЗадачи.М_ДатаМонтажа;

  НоваяЗадача.Инициатор = ОбъектЗадачи.Ответственный;

  НоваяЗадача.Исполнитель = ОбъектЗадачи.Ответственный;

  НоваяЗадача.Записать();



  //   Напоминание мастеру

  НоваяЗадача = Задачи.ЗадачиПользователя.СоздатьЗадачу();

  НоваяЗадача.Дата = ТекущаяДата();

  НоваяЗадача.Объект = ОбъектЗадачи;

  НоваяЗадача.Инициатор = ОбъектЗадачи.Ответственный;

  НоваяЗадача.Оповещение = Истина;

  НоваяЗадача.Исполнитель = ОбъектЗадачи.М_Монтажник;

  НоваяЗадача.Наименование = "Напоминание мастеру о сборке комплекта по: " + ОбъектЗадачи.Метаданные().Синоним;

  НоваяЗадача.СрокОповещения = ОбъектЗадачи.М_ДатаМонтажа - 24 * 60 * 60;

  НоваяЗадача.Записать();

 КонецЕСли;

Иначе

 НоваяЗадача.Наименование = "Напоминание по объекту: " + ОбъектЗадачи.Метаданные().Синоним;

 ФормаНовой = НоваяЗадача.ПолучитьФорму();

 ФормаНовой.Открыть();

КонецЕсли;

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

  // Укажем период	

ДатаН = Дата(2008,1,1);

ДатаК = Дата(2009,12,31);







// В Список значений поместим перебором каждую дату за период

СписокДат = Новый СписокЗначений;

ТекДата = ДатаН;

Пока ТекДата < ДатаК Цикл

	СписокДат.Добавить(ТекДата);

	// Увеличение ровно на одни сутки

	ТекДата = ТекДата + 60 * 60 * 24; 	

КонецЦикла;

СписокДат.Добавить(ТекДата);







//В Массив добавим каждый первый день месяца за период

МассивДат = Новый Массив;

ТекДата = ДатаН;

Пока ТекДата < ДатаК Цикл

	МассивДат.Добавить(ТекДата);

	//  Для получения даты следющего месяца на Конец Дня,

	// получаем дату конца месяца текущей даты и плюс одни сутки

	//ТекДата = КонецМесяца(ТекДата) + 60 * 60 * 24;

	//  Для получения даты следющего месяца на Начало Дня,

	// получаем дату конца месяца текущей даты и плюс один

	ТекДата = КонецМесяца(ТекДата) + 1; 	

КонецЦикла;