Оперативный учет (стр. 11 )

                                       Запись. ЗначениеВДнях = 0;

                               Иначе        

                                       Запись. Значение = 8;

                                       Запись. ЗначениеВДнях = 1;

                               КонецЕсли;

                       КонецЕсли;

                       Дат = Дат + ЧислоСекундВСутках;

               КонецЕсли;

       КонецЦикла;

       Набор. Записать();

       

       Пока Дат <= ДатаОкончания Цикл

               Запись = Набор. Добавить();

               Запись. Дата = Дат;

               Если Найти(ВыходныеДни, Строка(ДеньНедели(Дат))) Тогда

                       Запись. Значение = 0;

                       Запись. ЗначениеВДнях = 0;

               Иначе        

                       Запись. Значение = 8;

                       Запись. ЗначениеВДнях = 1;

               КонецЕсли;

               Дат = Дат + ЧислоСекундВСутках;

       КонецЦикла;

       Набор. Записать();

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

ПВР «ОсновныеНачисления»

ПВР «ДополнительныеНачисления»

ПВР «Удержания»

РС «ГрафикиРаботы» (непериод, независ)

РС «СведенияОСотрудниках» (день, независ)

РС «ПроцентПремии» (месяц, независ)

РН «ОтработанныеЧасы» (Остатки)

Изм: Сотрудник Рес: Значение

РР «ОсновныеНачисления»

Измерения и реквизиты связать с графиком

РР «ДополнительныеНачисления»

РР «Удержания»

ВР	формула	вытесн	ведущ	базов
Оклад	БО*факт(час)	Прогул	-	-	осн
Прогул	-	-	-	-	осн
Компенсация	Оклад*%	-	оклад	оклад	доп
Штраф	5000*Прогул(день)	прогул	прогул	удержание

Бизнес-процесс

Сотрудник	Подразделение	Должность
Васина	Бухгалтерия	Кассир
Мишина	Бухгалтерия	Кассир
Мишина	Бухгалтерия	Бухгалтер
Кротов	Бухгалтерия	Бухгалтер
Иванов	Бухгалтерия	Гл. бухгалтер
Степанов	Отдел внедрения	Начальник отдела
Петров	Отдел внедрения	Руководитель проекта
Федорова	Отдел внедрения	Руководитель проекта
Федорова	Отдел внедрения	Ведущий специалист
Васин	Отдел внедрения	Ведущий специалист
Головлев	Отдел внедрения	Специалист
Кротова	Отдел внедрения	Специалист
Мишин	Отдел внедрения	Специалист

***********************************************************************************

1) ПараметрыСеанса: ТекущийПользователь

В модуле Сеанса:

Процедура УстановкаПараметровСеанса(ТребуемыеПараметры)

       ТекПользователь = Справочники. ФизическиеЛица. НайтиПоНаименованию(ИмяПользователя(),Истина);

       Если ТекПользователь = Справочники. ФизическиеЛица. ПустаяСсылка() Тогда

               НовыйЭлемент = Справочники. ФизическиеЛица. СоздатьЭлемент();

               НовыйЭлемент. Наименование = ИмяПользователя();

               НовыйЭлемент. Записать();

               ТекПользователь = НовыйЭлемент;

       КонецЕсли;

       ПараметрыСеанса. ТекущийПользователь = ТекПользователь;

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

2) Роль: ПолныеПрава

Добавить разрешение на все объекты

3) Добавляем пользователя

указываем роль полные права

4) РС «РегистрАдресации»

4) Создаем Задачу «Задача»

Связываем задачу (РеквизитыАдресации) и РС (в свойствах)

Создаем ФормуСписка:

Для списка меняем таблицу: «ПоИсполнителю»

Добавляем команду «Все задачи»

&НаСервере

Процедура ВсеЗадачиНаСервере()

       Если Список. ОсновнаяТаблица = "Задача. Задача. ЗадачиПоИсполнителю" Тогда

               Список. ОсновнаяТаблица = "Задача. Задача";

               Заголовок = "Все задачи";

               ЭтаФорма. Элементы. ФормаВсеЗадачи. Заголовок = "По исполнителю";

       Иначе

               Список. ОсновнаяТаблица = "Задача. Задача. ЗадачиПоИсполнителю";

               Заголовок = "Задачи пользователя";

               ЭтаФорма. Элементы. ФормаВсеЗадачи. Заголовок = "Все задачи";

       КонецЕсли;

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

&НаКлиенте

Процедура ВсеЗадачи(Команда)

       ВсеЗадачиНаСервере();

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

5) Справочник «Должности», заполняем предопределенные

6) Создаем БП «ВыплатаЗарплаты» связываем с задачей

7) Рисуем карту БП (назначаем адресацию)

8)Создаем форму Бизнес-процесса

На форму добавляем рекв: КартаМаршрута(ГрафическаяСхема) и команду «ОбновитьКарту»

&НаСервере

Процедура ОбновитьКартуНаСервере()

       БизнесПроцесс = РеквизитФормыВЗначение("Объект");

       КартаМаршрута = БизнесПроцесс. ПолучитьКартуМаршрута();

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

&НаКлиенте

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

       ОбновитьКартуНаСервере();

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

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

       ОбновитьКартуНаСервере();

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

9)Составляем таблицу адресации, заносим в регистр адресации

10)Выносим ФормуСписка Задачи на рабочую область начальной страницы

Действие	Сотрудник	Подразделение	Должность
Отчет	Степанов	Отдел внедрения
Петров	Отдел внедрения
Федорова	Отдел внедрения
Федорова	Отдел внедрения
Васин	Отдел внедрения
Головлев	Отдел внедрения
Кротова	Отдел внедрения
Мишин	Отдел внедрения
Начисление	Васина	Бухгалтерия
Мишина	Бухгалтерия
Мишина	Бухгалтерия
Кротов	Бухгалтерия
Иванов	Бухгалтерия
Выплата	Иванов