Билет 9 (стр. 7 )

                               Прервать;

                       Иначе

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

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

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

                               Иначе        

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

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

                               КонецЕсли;

                       КонецЕсли;

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

               КонецЕсли;

       КонецЦикла;

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

       

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

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

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

               Запись. ГрафикРаботы =ГрафикРаботы;

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

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

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

               Иначе        

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

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

               КонецЕсли;

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

       КонецЦикла;

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

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

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

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

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

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

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

ВР	формула	Вытесн	Базов	Ведущ
Оклад	БО *факт(час)	Больничный	-	-	осн
Больничный	Оклад(за день)*факт(днях)	-	Оклад	Оклад	осн

Управляемые формы

Со слов сдающих: Фотография в справочнике «Сотрудники» - выбирать фотку из файла и сохранять в самой базе.

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

Справочник «Физические лица»

Рекв: Файл(ХранилищеЗначений), ИмяФайла(Строка(0)), ХранитьВБазе(Булево)

На форме добавляем рекв: АдресФайла(Строка) вид Поле картинки и кнопку ВыбратьФайл.

&НаКлиенте

Процедура ВыбратьФайл(Команда)

       АдресФайла = "";

       Если ПоместитьФайл(АдресФайла, Объект. ИмяФайла, Объект. ИмяФайла, Истина, УникальныйИдентификатор) Тогда

               Модифицированность = Истина;

       КонецЕсли;

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

&НаКлиенте

Процедура ПриОткрытии(Отказ)

       Если Объект. ХранитьВБазе Тогда

               АдресФайла = ПолучитьНавигационнуюСсылку(Объект. Ссылка, "Файл");

       ИначеЕсли ЗначениеЗаполнено(Объект. ИмяФайла) Тогда

               Попытка

                       ПоместитьФайл(АдресФайла, Объект. ИмяФайла, Объект. ИмяФайла, Ложь, УникальныйИдентификатор);

               Исключение

                       Сообщение = Новый СообщениеПользователю;

                       Сообщение. Текст = "Файл не найден " + Объект. ИмяФайла;

                       Сообщение. Сообщить();

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

       КонецЕсли;

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

&НаСервере

Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

       Если Объект. ХранитьВБазе Тогда

               ТекущийОбъект. ИмяФайла = "";

               Если ЭтоАдресВременногоХранилища(АдресФайла) Тогда

                       ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресФайла);

                       ТекущийОбъект. Файл = Новый ХранилищеЗначения(ДвоичныеДанные, новый СжатиеДанных(9));

                       АдресФайла = ПолучитьНавигационнуюСсылку(ТекущийОбъект. Ссылка, "Файл");

               КонецЕсли;

       Иначе

               ТекущийОбъект. Файл = Неопределено;

       КонецЕсли;

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