96
ЭлементУО.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", ИСТИНА);
ЭлементУО.Оформление.УстановитьЗначениеПараметра("ЦветФОна",Цвет);
КонецПроцедуры
&НаСервере
Процедура ТипЗаявкиУстановитьПриОткрытии(ТипЗаявки)
УО = Список.УсловноеОформление;
УО.Элементы.Очистить();
Раскрасить(УО,перечисления.ТипЗаявки.Исполнена,WebЦвета.Серый);
Раскрасить(УО,перечисления.ТипЗаявки.Выполнена,WebЦвета.Серый);
КонецПроцедуры
&НаКлиенте
Процедура ТипЗаявкиПриОткрытии(Отказ)
УстановитьПриОткрытии();
УcтановитьОтбор();
КонецПроцедуры
&НаКлиенте
Процедура ТипЗаявкиПриИзменении(Элемент)
УcтановитьОтбор();
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.Расчеты.Записывать = Истина;
Движения.Расчеты.Очистить();
если ЭтапЗаявки = перечисления.ЭтапЗаявки.Исполнена тогда
Движение = Движения.Расчеты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Клиент = Клиент;
Движение.Сумма = ИтогСуммаУслуги;
Конецесли;
Движения.РегистрацияЗаявки.Записывать = Истина;
Движение = Движения.РегистрацияЗаявки.Добавить();
Движение.ЭтапЗаявки = ЭтапЗаявки;
Движение.Клиент = Клиент;
Движение.Документ = ссылка;
Движения.ДеньгиВПерспективе.Записывать = Истина;
97
Движения.ДеньгиВПерспективе.Очистить();
если ЭтапЗаявки <> перечисления.ЭтапЗаявки.Исполнена тогда
Движение = Движения.ДеньгиВПерспективе.Добавить();
Движение.ЭтапЗаявки = ЭтапЗаявки;
Движение.Клиент = Клиент;
Движение.Сумма = ИтогСуммаУслуги;
Конецесли;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.Расчеты.Записывать = Истина;
Движение = Движения.Расчеты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Клиент = Клиент;
Движение.Сумма = ИтогСуммаУслуги;
КонецПроцедуры
&НаСервере
Процедура УстановитьСортировку()
Список.Порядок.Элементы.Очистить();
НовыйПорядок =
Список.Порядок.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных"));
НовыйПорядок.Поле = Новый ПолеКомпоновкиДанных("ДатаИсполнения");
НовыйПорядок.Использование = Истина;
НовыйПорядок.РежимОтображения =
РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный;
НовыйПорядок.ТипУпорядочивания =
НаправлениеСортировкиКомпоновкиДанных.Возр;
Элементы.Список.Обновить();
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
УстановитьСортировку();
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
98
Если ПараметрКоманды = Неопределено Тогда
Предупреждение(НСтр("ru = 'Не выбрана задача.'"));
Возврат;
КонецЕсли;
если не НапоминаниеСервер.СостояниеВыводаЗадача() тогда
НапоминаниеСервер.УстановитьВыполнениеЗадачи(ПараметрыВыполненияКоман
ды.Источник.ТекущийЭлемент.ТекущиеДанные.Номер,Истина);
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
Если ПараметрКоманды = Неопределено Тогда
Предупреждение(НСтр("ru = 'Не выбрана задача.'"));
Возврат;
КонецЕсли;
если не НапоминаниеСервер.СостояниеВыводаЗадача() тогда
НапоминаниеСервер.УстановитьВыполнениеЗадачи(ПараметрыВыполненияКоман
ды.Источник.ТекущийЭлемент.ТекущиеДанные.Номер,ложь);
КонецЕсли;
КонецПроцедуры
процедура Напоминания() экспорт
МасСообщ = НапоминаниеСервер.ВывестиНапоминаниеСервер();
Напоминание.ВывестиНапоминание(МасСообщ);
Конецпроцедуры
Процедура РассчитатьСуммуТабЧасти(СтрокаТабличнойЧасти) Экспорт
СтрокаТабличнойЧасти.СуммаУслуги=СтрокаТабличнойЧасти.ЦенаУслуги*СтрокаТабли
чнойЧасти.КоличествоОб;
КонецПроцедуры
Процедура РассчитатьСуммуТабЧастиУслуг(СтрокаТабличнойЧасти) Экспорт
СтрокаТабличнойЧасти.ОбщаяСумма=СтрокаТабличнойЧасти.Цена*СтрокаТабличнойЧа
сти.Количество;
КонецПроцедуры
Процедура Пауза(Секунд=2) экспорт
Если Секунд = 0 Тогда
Возврат;
КонецЕсли;
99
ТекДата = ТекущаяДата();
Если (ТекДата >= (НачалоДня(ТекДата) + 9*3600)) И (ТекДата <
(НачалоДня(ТекДата) + 18*3600)) Тогда Запросов = Секунд + 1;
cmdLine= "ping -n "+Формат(Запросов, "ЧГ=0")+" -w 1 127.0.0.1";
WshShell = Новый COMОбъект("WScript.Shell");
WshShell.Run(cmdLine, 0, -1);
КонецЕсли;
КонецПроцедуры
Процедура УстановитьВыполнениеЗадачи(номер,признак) экспорт
задач =
задачи.Напоминание.НайтиПоНомеру(номер).ПолучитьОбъект();
задач.Выполнена = признак;
задач.Записать();
КонецПроцедуры
функция ВывестиНапоминаниеСервер() экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
Напоминание.Выполнена,
Напоминание.ДатаИсполнения,
Напоминание.Ссылка
ИЗ
Задача.Напоминание КАК Напоминание
ГДЕ
НЕ Напоминание.Выполнена
И Напоминание.ДатаИсполнения < &Дата
СГРУППИРОВАТЬ ПО
Напоминание.Ссылка,
Напоминание.Выполнена,
Напоминание.ДатаИсполнения";
Запрос.УстановитьПараметр("Дата", ТекущаяДата());
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
ПараметрыЗадачиМассив = Новый Массив;
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
100
ПараметрыЗадачи = Новый Структура;
ПараметрыЗадачи.Вставить("НавигационнаяСсылка",
ПолучитьНавигационнуюСсылку(ВыборкаДетальныеЗаписи.Ссылка));
ПараметрыЗадачи.Вставить("Задача", ВыборкаДетальныеЗаписи.Ссылка);
ПараметрыЗадачиМассив.Добавить(ПараметрыЗадачи);
Сообщение = Новый СообщениеПользователю();
/Сообщение.Текст = "Напоминание: " +
ВыборкаДетальныеЗаписи.Ссылка.наименование;
Сообщение.УстановитьДанные(ВыборкаДетальныеЗаписи.Ссылка.получитьобъект
());
Сообщение.Сообщить();
КонецЦикла;
Возврат ПараметрыЗадачиМассив;
КонецФункции
Процедура ВыводитсяЗадача(параметр) экспорт
константы.ВыводитсяЗадача.Установить(параметр);
КонецПроцедуры
функция СостояниеВыводаЗадача() экспорт
возврат константы.ВыводитсяЗадача.Получить();
Конецфункции
&НаКлиенте
процедура ВывестиНапоминание(ПараметрыЗадачиСтруктура) экспорт
КоличествоЭлементов = ПараметрыЗадачиСтруктура.Количество();
если КоличествоЭлементов > 0 тогда
Для Каждого Задача Из ПараметрыЗадачиСтруктура Цикл
НапоминаниеСервер.ВыводитсяЗадача(истина);
ПоказатьОповещениеПользователя("Напоминание : ",
Задача.НавигационнаяСсылка ,Задача.Задача);
НапоминаниеСервер.ВыводитсяЗадача(ложь);
КонецЦикла;
Конецесли;
Конецпроцедуры