Настройка вкладки "Экспертная группа" |
Порядок настройки пресета "Экспертная группа: просмотр"
С помощью команды "Создать новый пресет" создайте пресет "Экспертиза: Экспертная группа". На вкладке "Строки" формы "Настройка пресетов" добавьте строку (коллекцию данных) "Документ дополнительная запись" и переименуйте её в "помощник ведущего эксперта". Рис. 2512 Установите настройки: - изображение обозначающее строку; - отключить использование перекрестных фильтров (в данной конфигурации настроек уменьшает скорость загрузки данных) Сохраните настройки пресета. Подробно о настройке строк смотри раздел "Вкладка "Строки" формы "Настройка пресетов" или раздел "Настройка пресета в форме "Настройка пресетов". На вкладке "Строки" формы "Настройка пресетов" добавьте строку (коллекцию данных) "Документ дополнительная запись" и переименуйте её в "ведущий эксперт". Рис. 2513 Установите настройки: - изображение обозначающее строку; - отключить использование перекрестных фильтров (в данной конфигурации настроек уменьшает скорость загрузки данных) Сохраните настройки пресета. На вкладке "Строки" формы "Настройка пресетов" добавьте строку (коллекцию данных) "Документ дополнительная запись" и переименуйте её в "Помощник руководителя экспертного отдела". Рис. 2514 Установите настройки: - изображение обозначающее строку; - отключить использование перекрестных фильтров (в данной конфигурации настроек уменьшает скорость загрузки данных) Сохраните настройки пресета. На вкладке "Строки" формы "Настройка пресетов" добавьте строку (коллекцию данных) "Документ дополнительная запись" и переименуйте её в "Руководитель экспертного отдела". Рис. 2515 Установите настройки: - изображение обозначающее строку; - отключить использование перекрестных фильтров (в данной конфигурации настроек уменьшает скорость загрузки данных) Сохраните настройки пресета. На вкладке "Строки" формы "Настройка пресетов" добавьте строку (коллекцию данных) "Документ дополнительная запись" и переименуйте её в "Раздел". Рис. 2516 Установите настройки: - изображение обозначающее строку; - отключить использование перекрестных фильтров (в данной конфигурации настроек уменьшает скорость загрузки данных)
Далее необходимо указать параметры выбранных нами коллекции данных (типов данных) (атрибуты). На вкладке "Колонки" формы "Настройка пресетов" добавьте вычисляемую колонку, переименуйте в "Роль в экспертной группе" и настройте как показано на рис. 2517 Рис. 2517 Сохраните изменения в пресете. Подробно о настройке колонок смотри раздел "Вкладка "Колонки" формы "Настройка пресетов" или в разделе "Настройка пресета в форме "Настройка пресетов". Добавьте типовую колонку "Проверка плановая/внеплановая/Производство по делу прекратить, документа", переименуйте в "Внештатный сотрудник" и настройте как показано на рис. 2518 Рис. 2518 Сохраните изменения в пресете. Добавьте вычисляемую колонку, переименуйте в "ФИО" и настройте как показано на рис. 2519 Рис. 2519 Сохраните изменения в пресете. Добавьте вычисляемую колонку, переименуйте в "Отдел" и настройте как показано на рис. 2520 Рис. 2520 Сохраните изменения в пресете. Добавьте типовую колонку "Проверка плановая/внеплановая/Производство по делу прекратить, документа", переименуйте в "Направление деятельности" и настройте как показано на рис. 2521 Рис. 2521 Сохраните изменения в пресете. Добавьте вычисляемую колонку, переименуйте в "Плановая дата подготовки локального заключения" и настройте как показано на рис. 2522 Рис. 2522 Сохраните изменения в пресете. Добавьте вычисляемую колонку, переименуйте в "Фактическая дата подготовки локального заключения" и настройте как показано на рис. 2523 Рис. 2523 Сохраните изменения в пресете. Добавьте вычисляемую колонку, переименуйте в "Плановая дата подготовки уведомления" и настройте как показано на рис. 2524 Рис. 2524 Сохраните изменения в пресете. Добавьте вычисляемую колонку, переименуйте в "Фактическая дата подготовки уведомления" и настройте как показано на рис. 2525 Рис. 2525 Сохраните изменения в пресете. Добавьте вычисляемую колонку, переименуйте в "Плановая дата подготовки заключения" и настройте как показано на рис. 2526 Рис. 2526 Сохраните изменения в пресете. Добавьте вычисляемую колонку, переименуйте в "Фактическая дата подготовки заключения" и настройте как показано на рис. 2527 Рис. 2527 Сохраните изменения в пресете. Все 11 добавленных колонок являются видимыми (свойство - Показать/скрыть и как использовать колонку в иерархичном списке) и как правило являются вычисляемыми, т.е. значение колоном является результатом действий динамического кода (скриптов), а не значение из базы данных. Далее в список колонок будут добавляться типовые колонки из различных коллекций данных (типов данных), которые будут скрыты (свойство - Показать/скрыть и как использовать колонку в иерархичном списке). Добавьте коллекцию данных для колонки "Документ: дополнительная запись" и настройте как показано на рис. 1828 Рис. 2528 также установите настройки свойства "Отключить использование перекрестных ссылок" Рис. 2529 Сохраните изменения в пресете. После настройки коллекции данных "Документ: дополнительная запись" в колонке с коллекцией данных "Документ" в строке "Раздел" необходимо выбрать атрибуты (колонки) коллекции данных "Документ: дополнительная запись" для обработки скриптом в пресете.
Рис. 2530 Сохраните изменения в пресете. Далее будет описана настройка фильтра по экспертам соисполнителям. Далее для работы скрипта необходимы значения "ФИО не экспертов", для чего используется типовая колонка "Дополнительные записи документов: Название записи [Nazvanie]" Рис. 2531 и отдел не экспертов, для чего используется типовая колонка "Дополнительные записи документов: Место записи [MestoRaboty]" Рис. 2532 Сохраните изменения в пресете. Далее для обработки информации о локальных заключений динамическим кодом пресета добавьте в колонку коллекцию данных "Документ" переименуйте её в "Локальное заключение" (для дальнейшего наложения фильтра по типу документа "Локальное заключение") и настройте связь между коллекцией данных "документ" в колонке и коллекцией данных "Документ" в строке "Раздел" Рис. 2533 Сохраните изменения в пресете. Для обработки свойства эксперта "штатный/внештатный сотрудник" подготовившего локальное заключение (смотрите колонку 2 "Внештатный сотрудник", где используется типовая колонка "Документы: Целое число документа [iPlanovyj], например: Проверка плановая/внеплановая | Производство по делу прекратить, документа" ) скриптом пресета выведите свойство "Целое число документа [iPlanovyj], например: Проверка плановая/внеплановая | Производство по делу прекратить, документа" коллекции данных "Документ" как показано на рис. 2534 Рис. 2534 Сохраните изменения в пресете. Далее для обработки контрольных событий подготовки локального заключения выведите в колонку коллекцию данных "Задание", которая и являются контрольными событиями, переименуйте в "Редакция эксперта" и настройте связи между коллекциями данных "Документ" с фильтрацией по локальным заключениям и "Задание" как показано на рис. 2535 Рис. 2535 также настройте свойства - Отключить использование текущего и родительского фильтра из родительской записи; - Отключить использование родительского фильтра из родительской записи; - Отключить использование связанных строковых фильтров для текущей колонки; - Отключить использование перекрестных фильтров Рис. 2536 Сохраните изменения в пресете. После настройки коллекции данных "Задание" (Редакция эксперта) в колонке с коллекцией данных "Документ" в колонке "Раздел" необходимо выбрать атрибуты (колонки) коллекции данных "Задание" (Редакция эксперта) для обработки скриптом в пресете.
РИс. 2537 Сохраните изменения в пресете. Далее для обработки информации о событиях связанных с участниками экспертной группы необходимо обработать информацию в данных экспертизы проектно-сметной документации, для этого добавьте в колонку коллекцию данных "Документ" переименуйте её в "Экспертиза" и настройте: - связь между коллекцией данных "документ" в колонке и коллекцией данных "Документ: дополнительная запись" в строке "ведущий эксперт"; - связь между коллекцией данных "документ" в колонке и коллекцией данных "Документ: дополнительная запись" в строке "руководитель экспертного отдела" Рис. 2538 Для ускорения вывода данных необходимо настроить свойства - Отключить использование связанных строковых фильтров для текущей колонки; - Отключить использование перекрестных фильтров Рис. 2539 Сохраните изменения в пресете. Далее для обработки контрольных событий в комплектах документации направленных на экспертизу выведите в колонку коллекцию данных "Документ" и являются переименуйте в "Комплект" и настройте связи с родительской строкой как на рис. 2540 Рис. 2540 Сохраните изменения в пресете. Для обработки свойства эксперта "штатный/внештатный сотрудник" имеющего отношение к комплекту проектной документации (смотрите колонку 2 "Внештатный сотрудник", где используется типовая колонка "Документы: Целое число документа [iPlanovyj], например: Проверка плановая/внеплановая | Производство по делу прекратить, документа" ) скриптом пресета выведите свойство "Целое число документа [iPlanovyj], например: Проверка плановая/внеплановая | Производство по делу прекратить, документа" коллекции данных "Документ" как показано на рис. 2541 Рис. 2541 Сохраните изменения в пресете. С комплектом проектной документации связан документ "Пакет локальных заключений". Для отражения этой связи добавьте в колонку коллекцию данных "Документ", переименуйте её в "Пакет локальных заключений" (для того чтобы не перепутать дальнейшее наложение фильтра по типу документа) и настройте родительскую связь с Комплектом проектной документации как показано на рис. 2542 Рис. 2542 Сохраните изменения в пресете. Далее для обработки контрольных событий в пакете локальных заключений комплекта проектной документации (например, прием комплекта на ознакомление) выведите в колонку коллекцию данных "Задание", которая и являются контрольными событиями, переименуйте в "Подготовка Пакет локальных заключений" и настройте связи с родительской строкой "Пакет локальных заключений" на рис. 2543 Рис. 2543 Сохраните изменения в пресете. После настройки коллекции данных "Задание" (Подготовка Пакет локальных заключений) необходимо выбрать атрибуты (колонки) коллекции данных "Задание" (Подготовка Пакет локальных заключений) для обработки скриптом в пресете.
и настроить фильтр для строки "Руководитель экспертного отдела" как на рис. 2544 Рис. 2544 и рис. 2545 Рис. 2545 Сохраните изменения в пресете. С комплектом проектной документации связан документ "Уведомление о несоответствии требованиям регламентов". Для отражения этой связи добавьте в колонку коллекцию данных "Документ", переименуйте её в "Уведомление о несоответствии требованиям регламентов" (для того чтобы не перепутать дальнейшее наложение фильтра по типу документа) и настройте родительскую связь с Комплектом проектной документации как показано на рис. 2546 Рис. 2546 Сохраните изменения в пресете. Далее для обработки контрольных событий в уведомлении о несоответствии требованиям регламентов (например, подписание уведомления ведущим экспертом) выведите в колонку коллекцию данных "Задание", которая и являются контрольными событиями, переименуйте в "Редакция Ведущий Уведомление" и настройте связи с родительской строкой "Уведомление о несоответствии требованиям" на рис. 2547 Рис. 2547 Сохраните изменения в пресете. После настройки коллекции данных "Задание" (Редакция Ведущий Уведомление) необходимо выбрать атрибуты (колонки) коллекции данных "Задание" (Редакция Ведущий Уведомление) для обработки скриптом в пресете.
и настроить фильтр для строки "ведущий эксперт" как на рис. 2548 Рис. 2548 и рис. 2549 Рис. 2549 Сохраните изменения в пресете. Далее для обработки контрольных событий в уведомлении о несоответствии требованиям регламентов (например, подписание уведомления ведущим экспертом) выведите в колонку коллекцию данных "Задание", которая и являются контрольными событиями, переименуйте в "Редакция руководитель Уведомление" и настройте связи с родительской строкой "Уведомление о несоответствии требованиям" на рис. 2550 Рис. 2550 Сохраните изменения в пресете. После настройки коллекции данных "Задание" (Редакция руководитель Уведомление) необходимо выбрать атрибуты (колонки) коллекции данных "Задание" (Редакция руководитель Уведомление) для обработки скриптом в пресете.
и настроить фильтр для строки "Руководитель экспертного отдела" как на рис. 2551 Рис. 2551 и рис. 2552 Рис. 2552 Сохраните изменения в пресете. С комплектом проектной документации связан документ "Заключение". Для отражения этой связи добавьте в колонку коллекцию данных "Документ", переименуйте её в "Заключение" (для того чтобы не перепутать дальнейшее наложение фильтра по типу документа) и настройте родительскую связь с Комплектом проектной документации как показано на рис. 2553 Рис. 2553 Сохраните изменения в пресете. Далее для обработки контрольных событий в заключении (например, подписание редакции заключения ведущим экспертом) выведите в колонку коллекцию данных "Задание", которая и являются контрольными событиями, переименуйте в "Редакция Ведущий Заключение" и настройте связи с родительской строкой "Заключение" на рис. 2554 Рис. 2554 Сохраните изменения в пресете. После настройки коллекции данных "Задание" (Редакция Ведущий Заключение) необходимо выбрать атрибуты (колонки) коллекции данных "Задание" (Редакция Ведущий Заключение) для обработки скриптом в пресете.
и настроить фильтр для строки "ведущий эксперт" как на рис. 2555 Рис. 2555 и рис. 2556 Рис. 2556 Сохраните изменения в пресете. Далее для обработки контрольных событий в заключении экспертизы (например, подписание редакции руководителем отдела экспертизы) выведите в колонку коллекцию данных "Задание", которая и являются контрольными событиями, переименуйте в "Редакция руководитель Заключение" и настройте связи с родительской строкой "Заключение" на рис. 2557 Рис. 2557 Сохраните изменения в пресете. После настройки коллекции данных "Задание" (Редакция руководитель Заключение) необходимо выбрать атрибуты (колонки) коллекции данных "Задание" (Редакция руководитель Заключение) для обработки скриптом в пресете.
и настроить фильтр для строки "Руководитель экспертного отдела" как на рис. 2558 Рис. 2558 и рис. 2559 Рис. 2559 Создана структура данных из строк и колонок в которой находится вся информация о экспертизах, экспертах, локальных экспертных заключениях, контрольных событиях и т.д. Для упорядочения работы необходимо на созданную структуру данных наложить фильтры. Настройте фильтр по текущей записи документа для строк (см. строки - это коллекции данных "Документ"). Фильтр будет выводить информацию по документам связанных с текущей записью. Рис. 2560 Также настройте фильтр по текущей записи документ для коллекции данных в колонках "Экспертиза" и для ускорения загрузки данных настройте свойство "Не загружать данные при отсутствии данных для текущего фильтра - Отмечено" как показано на рис. 2461 Рис. 2561 Сохраните изменения в пресете. Подробно о настройке фильтров смотри раздел "Вкладка "Фильтры" формы "Настройка пресетов" или в разделе "Настройка пресета в форме "Настройка пресетов". Далее настройте фильтр по документу "Раздел гос. экспертизы" Рис. 2562 Сохраните изменения в пресете. Далее необходимо на строку "помощник ведущего эксперта" с коллекцией данных "Документ: дополнительная запись" наложить фильтр по свойству "018. Организация/физическое лицо, ответственное за документ, помощник ведущего эксперта: Типы дополнительных записей документа" как показано на рис. 2563 Рис. 2563 Сохраните изменения в пресете. Далее необходимо на строку "ведущий эксперт" с коллекцией данных "Документ: дополнительная запись" наложить фильтр по свойству "031. Организация/физическое лицо, внесшее проект документа, ведущий эксперт: Типы дополнительных записей документа" как показано на рис. 2564 Рис. 2564 Сохраните изменения в пресете. Далее необходимо на строку "помощники руководителя экспертного отдела" с коллекцией данных "Документ: дополнительная запись" наложить фильтр по свойству "098. Организация/физическое лицо, эксперт, коллеги по документу, помощники руководителей экспертных отделов: Типы дополнительных записей документа" как показано на рис. 2565 Рис. 2565 Сохраните изменения в пресете. Далее необходимо на строку "руководитель экспертного отдела" с коллекцией данных "Документ: дополнительная запись" наложить фильтр по свойству "162. Организация/физическое лицо, согласовавшее проект документа, руководители экспертных отделов: Типы дополнительных записей документа" как показано на рис. 2566 Рис. 2566 Сохраните изменения в пресете. Далее необходимо на колонке "Локальное заключение" с коллекцией данных "Документ" наложить фильтр по типу документа "Локальное заключение" как показано на рис. 2567 Рис. 2567 Сохраните изменения в пресете. Далее необходимо на колонке "Редакция эксперта" с коллекцией данных "Задания" наложить фильтр по типу задания "Задание эксперта" Рис. 2568 как показано на рис. 2569 Рис. 2569 Сохраните изменения в пресете. Для фильтрации соисполнителей по разделам экспертизы на строку "Документ: дополнительная запись" с коллекцией данных "Документ: дополнительная запись" наложить фильтр по свойству "042. Эксперт соисполнитель: Типы дополнительных записей документа" как показано на рис. 2570 Рис. 2570 Сохраните изменения в пресете. Далее необходимо на колонке "Пакет локальных заключений" с коллекцией данных "Документ" наложить фильтр по типу документа "Пакет локальных заключений" как показано на рис. 2571 Рис. 2571 Сохраните изменения в пресете. Далее необходимо на колонке "Комплект" с коллекцией данных "Документ" наложить фильтр по типу документа "Комплект документации на экспертизу" как показано на рис. 2572 Рис. 2572 Сохраните изменения в пресете. Далее необходимо на колонке "Уведомление о несоответствии требованиям регламентов" с коллекцией данных "Документ" наложить фильтр по типу документа "Уведомление о несоответствии требованиям регламентов" как показано на рис. 2573 Рис. 2573 Сохраните изменения в пресете. Далее необходимо на колонке "Заключение" с коллекцией данных "Документ" наложить фильтр по типу документа "Заключение гос. экспертизы" как показано на рис. 2574 Рис. 2574 Сохраните изменения в пресете. Далее необходимо на колонкам "Редакция. Ведущий. Уведомление" и "Редакция. Ведущий. Заключение" с коллекцией данных "Задания" наложить фильтр по типу задания "Редакция ведущего эксперта" как показано на рис. 2575 Рис. 2575 Сохраните изменения в пресете. Далее необходимо на колонкам "Редакция руководитель. Уведомление" и "Редакция руководитель. Заключение" с коллекцией данных "Задания" наложить фильтр по типу задания "Редакция руководителей экспертных отделов" как показано на рис. 2576 Рис. 2576 Сохраните изменения в пресете. Далее необходимо на колонке "Подготовка. Пакет локальных заключений" с коллекцией данных "Задания" наложить фильтр по типу задания "Подготовка пакета локальных заключений" как показано на рис. 2577 Рис. 2577 Сохраните изменения в пресете. Далее необходимо наложить фильтр по числам для следующих колонок "Проверка плановая/внеплановая/Производство по делу прекратить, документа", "Локальное заключение", "Проверка плановая/внеплановая/Производство по делу прекратить, документа" и "Комплект" как показано на рис. 2578 Рис. 2578 Далее для вывода необходимой информации о контрольных событиях в видимые колонки необходимо создать динамический код обработки информации (скрипт). Выберите язык программирования свойства "Язык скрипта" как показано на рис. 2579 Рис. 2579 Сохраните изменения. Откройте свойство "Содержимое скрипта" и укажите его содержание
Imports System Imports System.Text Imports System.Data Imports System.Drawing Imports System.Xml Imports System.Collections Imports System.Collections.Generic Imports System.ComponentModel Imports System.Reflection Imports System.IO Imports System.Text.RegularExpressions Imports System.Windows.Forms Imports Microsoft.VisualBasic Imports CommonLibrary
Namespace SFExpressionEvaluator
Public Class CSFScript4CommandManagerData
'SFScriptExecute - скрипт, который вызывается программой Стройформ для команд управления Public Function SFScriptExecute(ByRef pSOANR As CSelectedObject2AddNewRecordByCommand) As Object Dim ID As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("ID")) ' ID строки Dim ParentID As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("ParentID")) ' ID родительской строки Dim CurrentObjectID As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("CurrentObjectID")) ' ID записи в базе данных Dim iObjectType As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("iObjectType")) ' Тип записи Dim iType As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("Type")) ' Тип записи 'Dim IsCurrent As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("IsCurrent")) ' Выбранная в данный момент строка 'Dim IsChecked As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("IsChecked")) ' Отмеченные флажком записи 'Dim IsVisible As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("IsVisible")) ' Видимость строк 'Dim FullSubject As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("FullSubject")) ' Обозначение записи расширенное 'Dim IDBCODestRow As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("IDBCODestRow")) ' ID строки в базе данных равный уникальному ID строки из пресета 'Dim CustomCol__16 As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("CustomCol__16")) ' Роль 'Dim PaperTable_Nazvanie__8 As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("PaperTable_Nazvanie__8")) ' ФИО 'Dim PaperTable_MestoRaboty__10 As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("PaperTable_MestoRaboty__10")) ' Отдел 'Dim Paper_Genplan As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("Paper_Genplan")) ' Направление деятельности Dim Paper_iPlanovyj As Long = CommonLibrary.SF.Convert.ToLong(pSOANR.pCurrentRow("Paper_iPlanovyj")) ' Внештатный сотрудник
'Dim CustomCol__18 As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("CustomCol__18")) ' ФИО 'Dim PaperTable_Nazvanie__8 As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("PaperTable_Nazvanie__8")) ' ФИО экспертов 'Dim PaperTable_MestoRaboty__10 As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("PaperTable_MestoRaboty__10")) ' Отдел 'Dim Paper_Genplan As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("Paper_Genplan")) ' Направление деятельности 'Dim PaperTable_Nazvanie As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("PaperTable_Nazvanie")) ' ФИО не экспертов 'Dim CustomCol__35 As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("CustomCol__35")) ' Плановая дата подготовки локального заключения 'Dim CustomCol__36 As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("CustomCol__36")) ' Фактическая дата подготовки локального заключения Dim WorkPlan_DateTo__23 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateTo__23")) ' Окончание плановое, задания Dim WorkPlan_DateStop__24 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateStop__24")) ' Окончание фактическое, задания 'Dim WorkPlan_Znachenie__27 As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("WorkPlan_Znachenie__27")) ' Основание для выполнения задания 'Dim Paper_iPlanovyj__34 As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("Paper_iPlanovyj__34")) ' Проверка плановая/внеплановая | Производство по делу прекратить, документа Dim Paper_DateTo__29 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateTo__55")) ' Дата окончания / Срок действия, документа Dim Paper_DateStop__30 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateStop__56")) ' Дата окончания2 / Дата анулирования, документа
'Dim CustomCol__49 As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("CustomCol__49")) ' Плановая дата подготовки уведомления 'Dim CustomCol__50 As String = CommonLibrary.SF.Convert.ToString(pSOANR.pCurrentRow("CustomCol__50")) ' Фактическая дата подготовки уведомления Dim WorkPlan_DateTo__41 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateTo__41")) ' Окончание плановое, Редакция Ведущий Dim WorkPlan_DateStop__42 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateStop__42")) ' Окончание фактическое, Редакция Ведущий Dim WorkPlan_DateTo__47 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateTo__47")) ' Окончание плановое, Редакция руководитель Dim WorkPlan_DateStop__48 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateStop__48")) ' Окончание фактическое, Редакция руководитель
Dim WorkPlan_DateTo__61 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateTo__61")) ' Окончание плановое, Редакция Ведущий Dim WorkPlan_DateStop__62 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateStop__62")) ' Окончание фактическое, Редакция Ведущий Dim WorkPlan_DateTo__65 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateTo__65")) ' Окончание плановое, Редакция руководитель Dim WorkPlan_DateStop__66 As Date = CommonLibrary.SF.Convert.ToDate(pSOANR.pCurrentRow("WorkPlan_DateStop__66")) ' Окончание фактическое, Редакция руководитель
Select Case iObjectType Case eObjectType.tPaperTable pSOANR.pCurrentRow("CustomCol__18") = pSOANR.pCurrentRow("PaperTable_Nazvanie") pSOANR.pCurrentRow("CustomCol__20") = pSOANR.pCurrentRow("PaperTable_MestoRaboty")
Select Case iType Case ePaperTableType.OtvetstvennyjFIO pSOANR.pCurrentRow(pSOANR.pCurrentColumn) = "Помощник ведущего эксперта" Case ePaperTableType.MainExpert pSOANR.pCurrentRow(pSOANR.pCurrentColumn) = "Ведущий эксперт" pSOANR.pCurrentRow("CustomCol__49") = DateToShortString(WorkPlan_DateTo__41) pSOANR.pCurrentRow("CustomCol__50") = DateToShortString(WorkPlan_DateStop__42) pSOANR.pCurrentRow("CustomCol__67") = DateToShortString(WorkPlan_DateTo__61) pSOANR.pCurrentRow("CustomCol__68") = DateToShortString(WorkPlan_DateStop__62) Case ePaperTableType.ListCollegiCompanyFIO pSOANR.pCurrentRow(pSOANR.pCurrentColumn) = "Помощник руководителя экспертного отдела" Case ePaperTableType.ListPaperSoglasovatel pSOANR.pCurrentRow(pSOANR.pCurrentColumn) = "Руководитель экспертного отдела" pSOANR.pCurrentRow("CustomCol__35") = DateToShortString(Paper_DateTo__29) pSOANR.pCurrentRow("CustomCol__36") = DateToShortString(Paper_DateStop__30) pSOANR.pCurrentRow("CustomCol__49") = DateToShortString(WorkPlan_DateTo__47) pSOANR.pCurrentRow("CustomCol__50") = DateToShortString(WorkPlan_DateStop__48) pSOANR.pCurrentRow("CustomCol__67") = DateToShortString(WorkPlan_DateTo__65) pSOANR.pCurrentRow("CustomCol__68") = DateToShortString(WorkPlan_DateStop__66) End Select
Case eObjectType.tPaper pSOANR.pCurrentRow(pSOANR.pCurrentColumn) = "Эксперт" pSOANR.pCurrentRow("CustomCol__18") = pSOANR.pCurrentRow("PaperTable_Nazvanie__8") pSOANR.pCurrentRow("CustomCol__20") = pSOANR.pCurrentRow("PaperTable_MestoRaboty__10") pSOANR.pCurrentRow("CustomCol__35") = DateToShortString(WorkPlan_DateTo__23) pSOANR.pCurrentRow("CustomCol__36") = DateToShortString(WorkPlan_DateStop__24)
If Paper_iPlanovyj <> 0 Then pSOANR.pCurrentRow(pSOANR.pCurrentColumn) = "Эксперт: внештатный" Else pSOANR.pCurrentRow(pSOANR.pCurrentColumn) = "Эксперт: штатный" End If
End Select
If ((Not IsDefaultDate(WorkPlan_DateTo__23)) AndAlso (IsDefaultDate(WorkPlan_DateStop__24)) AndAlso (WorkPlan_DateTo__23 < Now.AddDays(7))) _ OrElse ((Not IsDefaultDate(Paper_DateTo__29)) AndAlso (IsDefaultDate(Paper_DateStop__30)) AndAlso (Paper_DateTo__29 < Now.AddDays(7))) Then Dim pPropertyGridAppearanceCol As New SFPropertyGrid.CSFPropertyGridAppearance(0, 0) 'pPropertyGridAppearanceCol.BackColor = Drawing.Color.Blue 'pPropertyGridAppearanceCol.IsInit_BackColor = True pPropertyGridAppearanceCol.ForeColor = Drawing.Color.OrangeRed pPropertyGridAppearanceCol.IsInit_ForeColor = True
pSOANR.pCRMDK.arrCellAppearance(pSOANR.IDRow)("CustomCol__35") = pPropertyGridAppearanceCol End If
If ((Not IsDefaultDate(WorkPlan_DateTo__23)) AndAlso (IsDefaultDate(WorkPlan_DateStop__24)) AndAlso (WorkPlan_DateTo__23 < Now)) _ OrElse ((Not IsDefaultDate(Paper_DateTo__29)) AndAlso (IsDefaultDate(Paper_DateStop__30)) AndAlso (Paper_DateTo__29 < Now)) Then Dim pPropertyGridAppearanceCol As New SFPropertyGrid.CSFPropertyGridAppearance(0, 0) pPropertyGridAppearanceCol.BackColor = Drawing.Color.Red pPropertyGridAppearanceCol.IsInit_BackColor = True pPropertyGridAppearanceCol.ForeColor = Drawing.Color.White pPropertyGridAppearanceCol.IsInit_ForeColor = True
pSOANR.pCRMDK.arrCellAppearance(pSOANR.IDRow)("CustomCol__35") = pPropertyGridAppearanceCol End If 'If FIO_Nazvanie__6 <> "" Then 'Dim pPropertyGridAppearanceCol As New SFPropertyGrid.CSFPropertyGridAppearance(0, 0) 'pPropertyGridAppearanceCol.BackColor = Drawing.Color.Blue 'pPropertyGridAppearanceCol.IsInit_BackColor = True 'pPropertyGridAppearanceCol.ForeColor = Drawing.Color.Red 'pPropertyGridAppearanceCol.IsInit_ForeColor = True
'pSOANR.pCRMDK.arrCellAppearance(pSOANR.IDRow)(pSOANR.pCurrentColumn.ColumnName) = pPropertyGridAppearanceCol 'End If
Return Nothing End Function End Class End Namespace
Сохраните изменения в пресете. Подробно о написании скрипта смотри раздел "Написание скриптов при настройке пресета". ВНИМАНИЕ! Указанный скрипт написан на языке Microsoft Visual Basic Для настройки внешнего вида формы "Управление данными" во вкладку "Графики" добавьте запись "Основной список данных" Рис. 2579 и выполните настройку высоты заголовка и автоподбор ширины колонок как на рис. 2580 Рис. 2580 Сохраните изменения в пресете. Удалите из формы "Управление данными" текстовый фильтр, для этого во вкладку "Графики" формы "Настройка пресетов" добавьте запись "Фильтр по тексту и датам" и выполните настройку как на рис. 2581 Рис. 2581 Сохраните изменения в пресете. Удалите из формы "Управление данными" информационную строку, для этого во вкладку "Графики" формы "Настройка пресетов" добавьте запись "Информационная строка" и выполните настройку как на рис. 2582 Рис. 2582 Сохраните изменения в пресете. Далее необходимо настроить команды в текущем пресете. Текущий пресет является отчетом о состоянии контрольных событий у членов экспертной группы, поэтому в текущем необходима только одна команда на переход в пресет "Экспертная группа: редактирование" для формирования экспертной группы. Для обновления текущего пресета "Экспертная группа: просмотр" еще добавим команду обновления формы. Для реализации сказанного во вкладке "Действия" формы "Настройка пресета" добавьте запись "Панель" (боковая панель команд во вкладках) Рис. 2583 и настройте как показано на рис. 2584 Рис. 2584 Сохраните изменения в пресете. Далее во вкладке "Действия" формы "Настройка пресета" добавьте запись "Старые команды управления данными" и настройте как показано на рис. 2585 Рис. 2585 Сохраните изменения в пресете. Во вкладке "Действия" формы "Настройка пресета" добавьте запись "Старые последние используемые команды" и настройте как показано на рис. 2586 Рис. 2586 Сохраните изменения в пресете. Во вкладке "Действия" формы "Настройка пресета" добавьте запись "Настройка внешнего вида 915" и настройте как показано на рис. 2587 Рис. 2587 Сохраните изменения в пресете. Во вкладке "Действия" формы "Настройка пресета" добавьте запись "Кнопка показать/скрыть панель выбора пресетов" и настройте как показано на рис. 2588 Рис. 2588 Сохраните изменения в пресете. Во вкладке "Действия" формы "Настройка пресета" добавьте запись "Панель", переименуйте её в "ПанельВидов" и настройте как показано на рис. 2589 Рис. 2589 Сохраните изменения в пресете. Далее добавьте новое действие (команду) в панель "панельВидов", переименуйте её в "Экспертная группа: просмотр" и настройте как показано на рис. 2590 Рис. 2590 Сохраните изменения в пресете. Далее добавьте новое действие (команду) в панель "панельВидов", переименуйте её в "Экспертная группа: редактирование" и настройте как показано на рис. 2591 Рис. 2591 Сохраните изменения в пресете. При вызове команды "Экспертная группа: редактирование" во вкладке "Экспертная группа" произойдет вызов пресета "Экспертная группа: добавление".
Порядок настройки пресета "Экспертная группа: добавление" смотри в разделе "Настройка пресета "Экспертная группа: добавление"
|
Руководство пользователя версия 7.4.2013.51, скачать в формате HelpFile.chm, HelpFile.pdf, HelpFile.doc При полном или частичном использовании материалов сайта, ссылка на сайты www.stroyform.ru и www.stroyform.su обязательна support@stroyform.ru. |