Добавление собственного виджета в 1С:Документооборот

//Добавляемый код

Если ПолучитьФункциональнуюОпцию("ИспользоватьОтсутствия") Тогда
   ДоступныеВиджеты.Добавить(Справочники.Виджеты.Отсутствия);
КонецЕсли;

// Заполняет виджет Отсутствия в форме Текущие дела.
//
// Параметры:
//   Параметры - Структура
//                  - Форма - УправляемаяФорма - форма Текущие дела.
//                  - ИндексВиджета - Строка - индекс виджета в форме.
//                  - ТекущаяДатаСеанса - Дата - текущая дата сеанса.
//                  - ТекущийПользователь - СправочникСсылка.Пользователи - Ссылка на текущего пользователя.
Процедура пп_ЗаполнитьВиджетОтсутствия(Параметры) 
	
	Форма = Параметры.Форма;
	ИндексВиджета = Параметры.ИндексВиджета;
	ТекущаяДата = Параметры.ТекущаяДатаСеанса;
	ТекущийПользователь = Параметры.ТекущийПользователь;
	
	ЦветТекста_Обычный = ЦветТекста_Обычный();
	ЦветаВиджета = ЦветаВиджета(ИндексВиджета);
	
	Запрос = Новый Запрос; 	
	Запрос.Текст = "ВЫБРАТЬ
	|	КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Отсутствие.Ссылка) КАК КоличествоОтсутствий
	|ИЗ
	|	Документ.Отсутствие КАК Отсутствие
	|ГДЕ
	|	Отсутствие.ДатаНачала <= &ДатаОкончания И Отсутствие.ДатаОкончания >= &ДатаНачала
	|	И Отсутствие.ПометкаУдаления = ЛОЖЬ";
	
	//За месяц
	Запрос.УстановитьПараметр("ДатаНачала", НачалоМесяца(ТекущаяДата));
	Запрос.УстановитьПараметр("ДатаОкончания", КонецМесяца(ТекущаяДата));
	
	Выборка = Запрос.Выполнить().Выбрать();
	Выборка.Следующий();
	КоличествоЗаТекущийМесяц = Выборка.КоличествоОтсутствий;
	
	//За текущую неделю
	Запрос.УстановитьПараметр("ДатаНачала", НачалоНедели(ТекущаяДата));
	Запрос.УстановитьПараметр("ДатаОкончания", КонецНедели(ТекущаяДата));
	
	Выборка = Запрос.Выполнить().Выбрать();
	Выборка.Следующий();
	КоличествоЗаТекущуюНеделю = Выборка.КоличествоОтсутствий;
	
	//За текущий день
	Запрос.УстановитьПараметр("ДатаНачала", НачалоДня(ТекущаяДата));
	Запрос.УстановитьПараметр("ДатаОкончания", НачалоДня(ТекущаяДата));
	
	Выборка = Запрос.Выполнить().Выбрать();
	Выборка.Следующий();
	КоличествоЗаТекущийДень = Выборка.КоличествоОтсутствий;
	
	ЗначенияПоказателей = Новый Массив;
	
	ОтсутствияЗаТекущийМесяц = СтруктураПоказателя();
	ОтсутствияЗаТекущийМесяц.Заголовок = НСтр("ru = 'Месяц'");
	ОтсутствияЗаТекущийМесяц.ЦветЗаголовка = ЦветаВиджета.ЦветПодписи;
	ОтсутствияЗаТекущийМесяц.Значение = КоличествоЗаТекущийМесяц; 
	ОтсутствияЗаТекущийМесяц.Ссылка = "Отсутствия_ЗаТекущийМесяц";
	ОтсутствияЗаТекущийМесяц.ИмяПоказателя = "Отсутствия_ЗаТекущийМесяц";
	ЗначенияПоказателей.Добавить(ОтсутствияЗаТекущийМесяц);
	
	ОтсутствияЗаТекущуюНеделю = СтруктураПоказателя();
	ОтсутствияЗаТекущуюНеделю.Заголовок = НСтр("ru = 'Неделя'");
	ОтсутствияЗаТекущуюНеделю.ЦветЗаголовка = ЦветаВиджета.ЦветПодписи;
	ОтсутствияЗаТекущуюНеделю.Значение = КоличествоЗаТекущуюНеделю; 
	ОтсутствияЗаТекущуюНеделю.Ссылка = "Отсутствия_ЗаТекущуюНеделю";
	ОтсутствияЗаТекущуюНеделю.ИмяПоказателя = "Отсутствия_ЗаТекущуюНеделю";
	ЗначенияПоказателей.Добавить(ОтсутствияЗаТекущуюНеделю);
	
	ОтсутствияЗаТекущийДень = СтруктураПоказателя();
	ОтсутствияЗаТекущийДень.Заголовок = НСтр("ru = 'Сегодня'");
	ОтсутствияЗаТекущийДень.ЦветЗаголовка = ЦветаВиджета.ЦветПодписи;
	ОтсутствияЗаТекущийДень.Значение = КоличествоЗаТекущийДень; 
	ОтсутствияЗаТекущийДень.Ссылка = "Отсутствия_ЗаТекущийДень";
	ОтсутствияЗаТекущийДень.ИмяПоказателя = "Отсутствия_ЗаТекущийДень";
	ЗначенияПоказателей.Добавить(ОтсутствияЗаТекущийДень);

	УстановитьЦветЗначениямПоказателей(Справочники.Виджеты.Отсутствия, ЗначенияПоказателей);
	
	ЗаголовокВиджета = ЗаголовокВиджета("Отсутствия",0,
	"Отсутствия",ЦветТекста_Обычный,ЦветТекста_Обычный);
	
	ТелоВиджета = ТелоВиджетаОбластями(ЗначенияПоказателей);
		
	Форма["HTML" + ИндексВиджета] = HTMLПредставлениеВиджета(
	ЗаголовокВиджета,
	,
	ТелоВиджета,
	ЦветаВиджета.ЦветФона,
	ЦветаВиджета.ЦветРамкиТаблицы);
	
	Форма["СсылкиОбластей" + ИндексВиджета] = СтруктураСсылокОбластейВиджета(
	ОтсутствияЗаТекущийМесяц.Ссылка,
	ОтсутствияЗаТекущуюНеделю.Ссылка,
	ОтсутствияЗаТекущийДень.Ссылка);
	
КонецПроцедуры

//Типовой код
.............
.............

//Доработка
ИначеЕсли ТекущийВиджет = Справочники.Виджеты.Отсутствия Тогда
	пп_ЗаполнитьВиджетОтсутствия(Параметры);
Иначе
	Форма["HTML" + ИндексВиджета] = HTMLПредставлениеПустогоВиджета;
КонецЕсли;

//Типовой код
.............
.............

//Доработка
ИначеЕсли СтрЗаканчиваетсяНа(Ссылка,"Отсутствия_ЗаТекущуюНеделю") Тогда
		
	ПараметрыФормы = Новый Структура;
		
	УсловияОтбора = Новый Структура;
		
	Период = Новый СтандартныйПериод;
		
	ТекущаяДата = ТекущаяДата();
		
	Период.ДатаНачала = НачалоНедели(ТекущаяДата);
	Период.ДатаОкончания = КонецНедели(ТекущаяДата);
		
	УсловияОтбора.Вставить("Период",Период);
		
	ПараметрыФормы.Вставить("Отбор",УсловияОтбора);
	ПараметрыФормы.Вставить("СформироватьПриОткрытии", Истина);
	ПараметрыФормы.Вставить("КлючВарианта", "ДинамикаОтсутствий");
		
	ОткрытьФорму("Отчет.Отсутствия.Форма",ПараметрыФормы,форма);
		
ИначеЕсли СтрЗаканчиваетсяНа(Ссылка,"Отсутствия_ЗаТекущийМесяц") Тогда
		
	ПараметрыФормы = Новый Структура;
		
	УсловияОтбора = Новый Структура;
		
	Период = Новый СтандартныйПериод;
		
	ТекущаяДата = ТекущаяДата();
		
	Период.ДатаНачала = НачалоМесяца(ТекущаяДата);
	Период.ДатаОкончания = КонецМесяца(ТекущаяДата);
		
	УсловияОтбора.Вставить("Период",Период);
		
	ПараметрыФормы.Вставить("Отбор",УсловияОтбора);
	ПараметрыФормы.Вставить("СформироватьПриОткрытии", Истина);
	ПараметрыФормы.Вставить("КлючВарианта", "ДинамикаОтсутствий");
		
	ОткрытьФорму("Отчет.Отсутствия.Форма",ПараметрыФормы,форма);
		
ИначеЕсли СтрЗаканчиваетсяНа(Ссылка,"Отсутствия_ЗаТекущийДень") Тогда
		
	ОткрытьФорму("Документ.Отсутствие.Форма.ФормаСписка");
		
ИначеЕсли СтрЗаканчиваетсяНа(Ссылка,"Отсутствия") Тогда
		
	ОткрытьФорму("Документ.Отсутствие.Форма.ФормаСписка");
		
КонецЕсли;