Дипломная работа: Автоматизация обработки заявок в ООО «АйТи-Студио»

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
128
&НаСервере
Функция УжеЕстьВТаблице(Выбор)
МассивНайденныхСтрок = Объект.Исполнители.НайтиСтроки(Новый
Структура("Исполнитель",Выбор));
Возврат МассивНайденныхСтрок.Количество();
КонецФункции
//ввод новой строки в ТЧ Исполнители - запрет копирования (не может быть
двух одинаковых строк)
&НаКлиенте
Процедура ИсполнителиПередНачаломДобавления(Элемент, Отказ,
Копирование, Родитель, Группа, Параметр)
Если Копирование = Истина Тогда // запрет копирования
Отказ = Истина;
КонецЕсли;
КонецПроцедуры
//ввод новой строки в ТЧ Исполнители - автоматически рассчитать процент
&НаКлиенте
Процедура ИсполнителиПриНачалеРедактирования(Элемент, НоваяСтрока,
Копирование)
Если НоваяСтрока = Истина Тогда
Процентов = 0;
Для Каждого СтрокаИсполнитель Из Объект.Исполнители Цикл
Процентов = Процентов + СтрокаИсполнитель.Процент;
КонецЦикла;
Если Процентов > 100 Тогда
Процентов = 100;
КонецЕсли;
СтрокаИсполнитель = Элемент.ТекущиеДанные;
СтрокаИсполнитель.Процент = 100-Процентов;
СтрокаИсполнитель.Задание = Объект.Наименование;
КонецЕсли;
КонецПроцедуры
//-------------------------------------------------------------------------------
// ЗАКЛАДКА ПОДЗАДАЧИ
&НаКлиенте
Процедура ВывестиПанельПодзадач() // первоначальное заполнение дерева
подзадач
129
ЭтотОбъект.Элементы.ДеревоПодзадач.НачальноеОтображениеДерева =
НачальноеОтображениеДерева.РаскрыватьВерхнийУровень;
КонецПроцедуры
// заполнить дерево подзадач
&НаСервере
Процедура ЗаполнитьДеревоПодзадач()
ЭтаФорма.Прочитать(); // перечитать данные формы
ДеревоОбъект = РеквизитФормыВЗначение("ДеревоПодзадач");
ДеревоОбъект.Строки.Очистить(); // удалить все подзадачи
// сформировать корень - текущая задача
Голова = ДеревоОбъект.Строки.Добавить();
Голова.ПодЗадача = Объект.Ссылка;
Голова.Выполнена = Объект.Проведен;
Голова.Наименование = "ЭТА ЗАДАЧА";
Голова.Пометка = УстановитьПометку(Объект); //
отметка исполнения
// по всем подзадачам табличной части
Для Каждого СтрокаПодЗадача Из Объект.Подзадачи Цикл
ЗаполнитьПодЗадачу(СтрокаПодЗадача, Голова); // вызвать для
корня и далее для каждой строки дерева
КонецЦикла;
ЗначениеВРеквизитФормы(ДеревоОбъект, "ДеревоПодзадач");
КонецПроцедуры
// рекурсивное заполнение одной подзадачи
&НаСервере
Процедура ЗаполнитьПодЗадачу(СтрокаПодЗадача, Узел)
// фильтр по проведенным и не проведенным
Если (ФильтрПроведенные = 0) Или (ФильтрПроведенные = 1) Тогда
Если Не Число(СтрокаПодЗадача.ПодЗадача.Проведен) =
ФильтрПроведенные Тогда
Возврат;
КонецЕсли;
КонецЕсли;
// // фильтр по теущему значению
//Если ФильтрЗначение <> Неопределено Тогда
// Если ФильтрКолонка = "Наименование" Тогда
130
// Если Найти(СтрокаПодЗадача.ПодЗадача.Наименование,
ФильтрЗначение) = 0 Тогда
// Возврат;
// КонецЕсли;
// ИначеЕсли ФильтрКолонка = "Комментарий" Тогда
// Если Найти(СтрокаПодЗадача.Комментарий,
ФильтрЗначение) = 0 Тогда
// Возврат;
// КонецЕсли;
// ИначеЕсли ФильтрКолонка = "Описание" Тогда
// Если Найти(СтрокаПодЗадача.ПодЗадача.КраткоеОписание,
ФильтрЗначение) = 0 Тогда
// Возврат;
// КонецЕсли;
// ИначеЕсли ФильтрКолонка = "Статус" Тогда
// Если СтрокаПодЗадача.ПодЗадача.Статус <> ФильтрЗначение
Тогда
// Возврат;
// КонецЕсли;
// ИначеЕсли ФильтрКолонка = "ДатаПостановки" Тогда
// Если НачалоДня(СтрокаПодЗадача.ПодЗадача.Дата) <>
НачалоДня(ФильтрЗначение) Тогда
// Возврат;
// КонецЕсли;
// ИначеЕсли ФильтрКолонка = "ДатаОжидаемая" Тогда
// Если
НачалоДня(СтрокаПодЗадача.ПодЗадача.ДатаОкончания) <>
НачалоДня(ФильтрЗначение) Тогда
// Возврат;
// КонецЕсли;
// КонецЕсли;
//КонецЕсли;
// создать новый узел дерева
НовыйУзел = Узел.Строки.Добавить();
НовыйУзел.ПодЗадача = СтрокаПодЗадача.ПодЗадача;
НовыйУзел.Выполнена =
СтрокаПодЗадача.ПодЗадача.Проведен;
НовыйУзел.НомерВТабЧасти =
СтрокаПодЗадача.НомерСтроки;
НовыйУзел.Наименование =
Строка(СтрокаПодЗадача.ПодЗадача.Номер) + " " +
СтрокаПодЗадача.ПодЗадача.Наименование;
131
НовыйУзел.Статус =
СтрокаПодЗадача.ПодЗадача.Статус;
НовыйУзел.Дата =
СтрокаПодЗадача.ПодЗадача.Дата;
НовыйУзел.ДатаОжидаемая =
СтрокаПодЗадача.ПодЗадача.ОжидаемаяДатаВыполнения;
НовыйУзел.Комментарий =
СтрокаПодЗадача.Комментарий;
НовыйУзел.Пометка =
УстановитьПометку(СтрокаПодЗадача.ПодЗадача);
//НовыйУзел.Картинка = БиблиотекаКартинок.ДебетКредит;
// теперь рекурсивно для каждого поддрева
Для Каждого СтрокаПодЗадача Из
СтрокаПодЗадача.ПодЗадача.Подзадачи Цикл
ЗаполнитьПодЗадачу(СтрокаПодЗадача, НовыйУзел);
КонецЦикла;
КонецПроцедуры // ЗаполнитьПодЗадачу
// признак выполнения задачи
Функция УстановитьПометку(Задача)
Возврат Число(Задача.Проведен);
//Если Задача.Проведен Тогда
// Возврат 1;
//КонецЕсли;
//
//Для Каждого СтрокаПодЗадача Из Задача.Подзадачи Цикл
// Если НЕ Задача.Проведен Тогда
// Возврат 2;
// КонецЕсли;
//КонецЦикла;
//
//Возврат 0;
КонецФункции
//пройти по массиву Путь (хранит ссылки на подзадачи) начиная с головы и
вернуть ИД последнего узла
&НаКлиенте
Функция СпозиционироватьсяВДеревеПодзадач(Вдереве, Путь, Й)
Если Путь.Количество() = 0 Тогда
Возврат 0;
132
КонецЕсли;
Ключ = Путь[Й];
Для Каждого ТекущаяСтрока Из Вдереве.ПолучитьЭлементы() Цикл
Если ТекущаяСтрока.Подзадача = Ключ Тогда
Если Й = 0 Тогда
Возврат ТекущаяСтрока.ПолучитьИдентификатор();
Иначе
Возврат СпозиционироватьсяВДеревеПодзадач(ТекущаяСтрока,
Путь, Й-1);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецФункции
// перехват выбора (двойной щелчок) - открыть текущую подзадачу
&НаКлиенте
Процедура ДеревоПодзадачВыбор(Элемент, ВыбраннаяСтрока, Поле,
СтандартнаяОбработка)
Если Не ((Поле.Имя = "ДеревоПодзадачКомментарий") Или (Поле.Имя =
"ДеревоПодзадачПодзадача")) Тогда // эти поля - для собственного
редактирования
ОткрытьПодзадачу();
КонецЕсли;
КонецПроцедуры
// перехват стандартной команды Добавить - добавить в дерево существующую
задачу
// открыть форму выбора и после выбора добавить выбранную задачу в дерево
&НаКлиенте
Процедура ДеревоПодзадачПередНачаломДобавления(Элемент, Отказ,
Копирование, Родитель, Группа, Параметр)
Отказ = Истина;
Если Не Копирование Тогда // копирование невозможно
ДобавитьСуществующуюПодзадачу();
КонецЕсли;
КонецПроцедуры
// перехват стандартной команды Изменить - открыть подзадачу
&НаКлиенте
Процедура ДеревоПодзадачПередНачаломИзменения(Элемент, Отказ)
Источник: https://baza.diplomsite.ru/previewfile/1865

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
- Описание типа СЭТ7009
- Программа ГПИ
'Заповит' Рейнгольда Глиэра: стилистические особенности
'Просвещенный абсолютизм' Екатерины II и его влияние на развитие русской культуры
'Создание и продвижение интернет - платформы реферальной системы' на примере компании Бартер–кард