diff --git a/app/panels/eqs_prfrm/eqs_prfrm.js b/app/panels/eqs_prfrm/eqs_prfrm.js index d16350a..8cdfcc7 100644 --- a/app/panels/eqs_prfrm/eqs_prfrm.js +++ b/app/panels/eqs_prfrm/eqs_prfrm.js @@ -32,7 +32,9 @@ import { P8PDataGrid, P8P_DATA_GRID_SIZE } from "../../components/p8p_data_grid" import { P8P_DATA_GRID_CONFIG_PROPS } from "../../config_wrapper"; //Подключение компонентов к настройкам приложения import { BackEndСtx } from "../../context/backend"; //Контекст взаимодействия с сервером import { ApplicationСtx } from "../../context/application"; //Контекст приложения +import { MessagingСtx } from "../../context/messaging"; //Контекст сообщений import { headCellRender, dataCellRender, groupCellRender, DIGITS_REG_EXP, MONTH_NAME_REG_EXP, DAY_NAME_REG_EXP } from "./layouts"; //Дополнительная разметка и вёрстка клиентских элементов +import { TEXTS } from "../../../app.text"; //Тектовые ресурсы и константы //----------- //Тело модуля @@ -49,74 +51,55 @@ const EqsPrfrm = () => { reload: false }); + // Состояние информации о трудоёмкости + const [info, setInfo] = useState({ cntP: 0, sumP: 0, cntF: 0, sumF: 0 }); + + // Состояние фильтра (для отладки) + // const [filter, setFilter] = useState({ + // belong: "Демопример", + // prodObj: "Карьер", + // techServ: "", + // respDep: "", + // fromMonth: 1, + // fromYear: 2024, + // toMonth: 12, + // toYear: 2024 + // }); + + // Состояние фильтра const [filter, setFilter] = useState({ - belong: "Демопример", - prodObj: "К2", + belong: "", + prodObj: "", techServ: "", respDep: "", fromMonth: 1, - fromYear: 2024, - toMonth: 12, - toYear: 2024 + fromYear: 1990, + toMonth: 1, + toYear: 1990 }); - - // const [filter, setFilter] = useState({ - // belong: "", - // prodObj: "", - // techServ: "", - // respDep: "", - // fromMonth: "", - // fromYear: "", - // toMonth: "", - // toYear: ""}); - - const [info, setInfo] = useState({ cntP: 0, sumP: 0, cntF: 0, sumF: 0 }); - - //Подключение к контексту приложения - const { pOnlineShowDictionary } = useContext(ApplicationСtx); - - const [filterOpen, setFilterOpen] = useState(false); - + // Состояние открытия фильтра + const [filterOpen, setFilterOpen] = useState(true); + // Состояние данных по умолчанию для фильтра (true - для отладки) + const [defaultLoaded, setDefaultLoaded] = useState(false); + // Состояние хранения копии фильтра const [filterCopy, setFilterCopy] = useState({ ...filter }); - + // Состояние ограничения редактирования фильтра const [filterLock, setFilterLock] = useState(false); - const openFilter = () => { - setFilterOpen(true); - }; + // Состояние ячейки заголовка даты (по раскрытию/скрытию) + const [activeRef, setActiveRef] = useState(); + // Состояние актуальности ссылки на ячейку + const [refIsDeprecated, setRidFlag] = useState(true); - const closeFilter = e => { - if (filterLock && e != undefined) setFilter(filterCopy); - setFilterOpen(false); - }; - - const clearFilter = () => { - setFilter({ - belong: "", - prodObj: "", - techServ: "", - respDep: "", - fromMonth: "", - fromYear: "", - toMonth: "", - toYear: "" - }); - }; - - let yearArray = []; - let today = new Date(); - - const getYearArray = () => { - for (let i = 1990; i <= today.getFullYear(); i++) { - yearArray.push(i); - } - }; - - const monthArray = ["Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь"]; + //Подключение к контексту приложения + const { pOnlineShowDictionary, pOnlineShowUnit } = useContext(ApplicationСtx); //Подключение к контексту взаимодействия с сервером const { executeStored } = useContext(BackEndСtx); + //Подключение к контексту сообщений + const { showMsgErr } = useContext(MessagingСtx); + //Загрузка данных таблицы с сервера const loadData = useCallback(async () => { if (dataGrid.reload) { @@ -144,12 +127,15 @@ const EqsPrfrm = () => { data.XROWS.map(row => { properties = []; Object.entries(row).forEach(([key, value]) => properties.push({ name: key, data: value })); - if (properties[1].data == "Факт" || properties[2].data == "План") { - if (properties[2].data == "План") { + let info2 = properties.find(element => { + return element.name === "SINFO2"; + }); + if (info2 != undefined) { + if (info2.data == "План") { properties.map(p => { if (DAY_NAME_REG_EXP.test(p.name)) cP = cP + 1; }); - } else if (properties[1].data == "Факт") { + } else if (info2.data == "Факт") { properties.map(p => { if (DAY_NAME_REG_EXP.test(p.name)) cF = cF + 1; }); @@ -184,26 +170,133 @@ const EqsPrfrm = () => { } }, [dataGrid.reload, filter, executeStored]); - //пользовательский параметр JuridicalPerson системы - const getJurPers = useCallback(async () => { + //Загрузка значений фильра по умолчанию + const loadDefaultFilter = useCallback(async () => { const data = await executeStored({ - stored: "PKG_P8PANELS_EQUIPSRV.GET_JUR_PERS_PRM", - respArg: "CRES" + stored: "PKG_P8PANELS_EQUIPSRV.GET_DEFAULT_FP", + respArg: "COUT" }); - setFilter(pv => ({ ...pv, belong: data })); + + setFilter(pv => ({ ...pv, belong: data.JURPERS, fromMonth: data.MONTH, fromYear: data.YEAR, toMonth: data.MONTH, toYear: data.YEAR })); + setDefaultLoaded(true); }, [executeStored]); + //пользовательский параметр JuridicalPerson системы + // const getJurPers = useCallback(async () => { + // const data = await executeStored({ + // stored: "PKG_P8PANELS_EQUIPSRV.GET_JUR_PERS_PRM", + // respArg: "CRES" + // }); + // setFilter(pv => ({ ...pv, belong: data })); + // }, [executeStored]); + + // Отбор документа (ТОиР или Ремонтных ведомостей) по ячейке даты + const showEquipSrv = async ({ date, workType, info }) => { + const [techName, servKind] = info.split("_"); + let type; + + if (workType == "План") type = 0; + else type = 1; + + let [year, month, day] = date.substring(1).split("_"); + + //if (day == undefined) day = null; + + const data = await executeStored({ + stored: "PKG_P8PANELS_EQUIPSRV.SELECT_EQUIPSRV", + args: { + SBELONG: filter.belong, + SPRODOBJ: filter.prodObj, + STECHSERV: filter.techServ ? filter.techServ : null, + SRESPDEP: filter.respDep ? filter.respDep : null, + STECHNAME: techName, + SSRVKIND: servKind, + NYEAR: Number(year), + NMONTH: Number(month), + NDAY: day ? Number(day) : null, + NWORKTYPE: type + } + }); + if (data.NIDENT) { + if (type == 0) pOnlineShowUnit({ unitCode: "EquipTechServices", inputParameters: [{ name: "in_SelectList_Ident", value: data.NIDENT }] }); + else pOnlineShowUnit({ unitCode: "EquipRepairSheets", inputParameters: [{ name: "in_Ident", value: data.NIDENT }] }); + } else showMsgErr(TEXTS.NO_DATA_FOUND); + }; + + // Открыть фильтр + const openFilter = () => { + setFilterOpen(true); + }; + + // Закрыть фильтр + const closeFilter = e => { + if (filterLock && e != undefined) setFilter(filterCopy); + setFilterOpen(false); + }; + + // Очистить фильтр + const clearFilter = () => { + setFilter({ + belong: "", + prodObj: "", + techServ: "", + respDep: "", + fromMonth: "", + fromYear: "", + toMonth: "", + toYear: "" + }); + }; + + // Отработка события скрытия/раскрытия ячейки даты + const handleClick = (e, ref) => { + const curCell = ref.current; + + if (e.target.type == "button" || e.target.offsetParent.type == "button") { + setActiveRef(curCell); + setRidFlag(false); + } + }; + + // При необходимости обновить данные таблицы + useEffect(() => { + loadData(); + }, [loadData, dataGrid.reload]); + + // При открытом фильтре useEffect(() => { if (filterOpen) { - setFilterCopy({ ...filter }); + { + setFilterCopy({ ...filter }); + if (!defaultLoaded) loadDefaultFilter(); + } } // eslint-disable-next-line react-hooks/exhaustive-deps }, [filterOpen]); - //При необходимости обновить данные таблицы + // При нажатии скрытии/раскрытии ячейки даты, фокус на неё useEffect(() => { - loadData(); - }, [loadData, dataGrid.reload]); + if (!refIsDeprecated) { + if (activeRef) { + var cellRect = activeRef.getBoundingClientRect(); + //console.log(window.scrollX + cellRect.left + activeRef.clientWidth / 2 - window.innerWidth / 2); + window.scrollTo(window.scrollX + cellRect.left + activeRef.clientWidth / 2 - window.innerWidth / 2, 0); + setRidFlag(true); + } + } + // eslint-disable-next-line react-hooks/exhaustive-deps + }, [refIsDeprecated]); + + let yearArray = []; + const monthArray = ["Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь"]; + let today = new Date(); + + // Получение списка лет + const getYearArray = () => { + for (let i = 1990; i <= today.getFullYear(); i++) { + yearArray.push(i); + } + }; //Генерация содержимого return ( @@ -254,26 +347,11 @@ const EqsPrfrm = () => { aria-describedby="belong-outlined-helper-text" label="Принадлежность" /> - - - {filter.belong ? null : ( - - *Обязательное поле - - )} - - - - Значение по умолчанию - - - + {filter.belong ? null : ( + + *Обязательное поле + + )} @@ -498,10 +576,10 @@ const EqsPrfrm = () => { closeFilter(); }} > - Сформировать отчёт + Сформировать @@ -536,8 +614,10 @@ const EqsPrfrm = () => { rows={dataGrid.rows} size={P8P_DATA_GRID_SIZE.LARGE} reloading={dataGrid.reload} - headCellRender={prms => headCellRender({ ...prms }, filter.techServ, info.cntP, info.sumP, info.cntF, info.sumF)} - dataCellRender={prms => dataCellRender({ ...prms })} + headCellRender={prms => + headCellRender({ ...prms }, handleClick, filter.techServ, info.cntP, info.sumP, info.cntF, info.sumF) + } + dataCellRender={prms => dataCellRender({ ...prms }, showEquipSrv)} groupCellRender={prms => groupCellRender({ ...prms })} showCellRightBorder={true} /> diff --git a/app/panels/eqs_prfrm/layouts.js b/app/panels/eqs_prfrm/layouts.js index ed11f27..00efdac 100644 --- a/app/panels/eqs_prfrm/layouts.js +++ b/app/panels/eqs_prfrm/layouts.js @@ -7,8 +7,8 @@ //Подключение библиотек //--------------------- +import React, { createRef } from "react"; //Классы React import { Grid, Stack } from "@mui/material"; -import React from "react"; //Классы React //--------- //Константы @@ -25,6 +25,7 @@ let x = 0; //----------- //Тело модуля //----------- + const formatDate = date => { const [year, month, day] = date.substring(1).split("_"); let nd; @@ -33,76 +34,96 @@ const formatDate = date => { return nd; }; -export const headCellRender = ({ columnDef }, podr, cntP, sumP, cntF, sumF) => { +// eslint-disable-next-line no-unused-vars +export const headCellRender = ({ columnDef }, hClick, podr, cntP, sumP, cntF, sumF) => { let cellStyle = { border: "1px solid rgba(0, 0, 0)", textAlign: "center" }; let cellProps = {}; + let stackStyle = {}; let data = columnDef.caption; if (columnDef.expandable) { - // поменять расположение + для развёртывания + const ref = createRef(); + cellStyle = { ...cellStyle, padding: "5px" }; + cellProps = { + ...cellProps, + ref: ref, + onClick: e => { + hClick(e, ref); + } + }; + + stackStyle = { flexDirection: "column" }; } if (columnDef.name == "STEST") cellStyle = { display: "none" }; if (columnDef.name == "SINFO" || columnDef.name == "SINFO2") { cellProps = { colSpan: 2 }; - if (columnDef.name == "SINFO") { - cellStyle = { ...cellStyle, padding: "unset" }; - data = ( - - - - Подразделение: - - - {podr} - - - Кол-во ремонтов, план: - - - {cntP} - - - Трудоемкость, час. план: - - - {sumP} - - - Кол-во ремонтов, факт: - - - {cntF} - - - Трудоемкость, час. факт: - - - {sumF} - - - - ); - } + if (columnDef.name == "SINFO") cellProps = { ...cellProps, rowSpan: 2 }; + //if (columnDef.name == "SINFO") { + //cellStyle = { display: "none" }; + // cellStyle = { ...cellStyle, padding: "unset" }; + // data = ( + // + // + // + // Подразделение: + // + // + // {podr} + // + // + // Кол-во ремонтов, план: + // + // + // {cntP} + // + // + // Трудоемкость, час. план: + // + // + // {sumP} + // + // + // Кол-во ремонтов, факт: + // + // + // {cntF} + // + // + // Трудоемкость, час. факт: + // + // + // {sumF} + // + // + // + // ); + //} } + if (columnDef.name == "SINFO2") cellStyle = { display: "none" }; + if (columnDef.visible && DAY_NAME_REG_EXP.test(columnDef.name)) { - cellStyle = { ...cellStyle, paddingLeft: "5px", paddingRight: "5px", minWidth: "25px", maxWidth: "25px" }; + cellStyle = { ...cellStyle, padding: "5px", minWidth: "25px", maxWidth: "25px" }; + stackStyle = { justifyContent: "center" }; } - return { cellStyle, cellProps, data }; + return { cellStyle, cellProps, stackStyle, data }; }; -export const dataCellRender = ({ row, columnDef }) => { +export const dataCellRender = ({ row, columnDef }, showEquipSrv) => { let cellStyle = { padding: "2px", - border: "1px solid rgba(0, 0, 0)", + border: "1px solid rgba(0, 0, 0) !important", textAlign: "center" }; let cellProps = {}; let data = " "; if (row["SINFO2"] == undefined) { - if (columnDef.name == "STEST") cellProps = { colSpan: 2 }; + if (columnDef.name == "STEST") { + cellProps = { colSpan: 2 }; + cellStyle = { ...cellStyle, textAlign: "right", fontWeight: "bold" }; + } if (columnDef.name == "SINFO2") cellStyle = { display: "none" }; if (columnDef.parent == "" && columnDef.expandable == true && columnDef.expanded == false) { curParent = columnDef.name; @@ -130,16 +151,31 @@ export const dataCellRender = ({ row, columnDef }) => { switch (row[columnDef.name]) { case "blue": - cellStyle = { ...cellStyle, backgroundColor: "royalblue", border: "1px solid rgba(0, 0, 0)" }; - cellProps = { title: formatDate(columnDef.name) }; + cellStyle = { ...cellStyle, backgroundColor: "lightblue", border: "1px solid rgba(0, 0, 0) !important" }; + cellProps = { + title: formatDate(columnDef.name), + onClick: () => { + showEquipSrv({ date: columnDef.name, workType: row["SINFO2"], info: row["groupName"] }); + } + }; return { cellStyle, cellProps, data }; case "green": - cellStyle = { ...cellStyle, backgroundColor: "lawngreen", border: "1px solid rgba(0, 0, 0)" }; - cellProps = { title: formatDate(columnDef.name) }; + cellStyle = { ...cellStyle, backgroundColor: "green", border: "1px solid rgba(0, 0, 0) !important" }; + cellProps = { + title: formatDate(columnDef.name), + onClick: () => { + showEquipSrv({ date: columnDef.name, workType: row["SINFO2"], info: row["groupName"] }); + } + }; return { cellStyle, cellProps, data }; case "red": - cellStyle = { ...cellStyle, backgroundColor: "crimson", border: "1px solid rgba(0, 0, 0)" }; - cellProps = { title: formatDate(columnDef.name) }; + cellStyle = { ...cellStyle, backgroundColor: "crimson", border: "1px solid rgba(0, 0, 0) !important" }; + cellProps = { + title: formatDate(columnDef.name), + onClick: () => { + showEquipSrv({ date: columnDef.name, workType: row["SINFO2"], info: row["groupName"] }); + } + }; return { cellStyle, cellProps, data }; case "green red": case "red green": @@ -148,10 +184,20 @@ export const dataCellRender = ({ row, columnDef }) => { data = ( - + showEquipSrv({ date: columnDef.name, workType: row["SINFO2"], info: row["groupName"] })} + >

g

 - + showEquipSrv({ date: columnDef.name, workType: row["SINFO2"], info: row["groupName"] })} + >

r

 diff --git a/db/PKG_P8PANELS_EQUIPSRV.pck b/db/PKG_P8PANELS_EQUIPSRV.pck index 05183ee..7593cb7 100644 --- a/db/PKG_P8PANELS_EQUIPSRV.pck +++ b/db/PKG_P8PANELS_EQUIPSRV.pck @@ -1,48 +1,80 @@ create or replace package PKG_P8PANELS_EQUIPSRV as - /* Получение значения системного параметра "JuridicalPerson" */ - procedure GET_JUR_PERS_PRM + /* Получение параметров фильтра по умолчанию */ + procedure GET_DEFAULT_FP ( - CRES out clob -- Значение параметра "JuridicalPerson" (null - если не нашли) + COUT out clob -- XML с параметрами фильтра по умолчанию ); + /* Формирование строки с кол-вом часов */ function HOURS_STR ( - NHOURS in number -- Кол-во часов - ) return varchar2; + NHOURS in number -- Кол-во часов + ) return varchar2; -- Результат работы + + /* Отбор документов (ТОиР или Графики ремонтов) по дате */ + procedure SELECT_EQUIPSRV + ( + SBELONG in varchar2, -- Принадлежность к Юр. лицу + SPRODOBJ in varchar2, -- Производственный объект + STECHSERV in varchar2 := null, -- Техническая служба + SRESPDEP in varchar2 := null, -- Ответственное подразделение + STECHNAME in varchar2, -- Наименование объекта ремонта + SSRVKIND in varchar2, -- Код вида ремонта + NYEAR in number, -- Год + NMONTH in number, -- Месяц + NDAY in number := null, -- День + NWORKTYPE in number, -- Тип работы (0 - план, 1 - факт) + NIDENT out number -- Идентификатор буфера подобранных (списка отмеченных записей, null - не найдено) + ); /* Выполнение работ по ТОиР */ procedure EQUIPSRV_GRID ( - SBELONG in varchar2, -- Принадлежность к Юр. лицу - SPRODOBJ in varchar2, -- Производственный объект - STECHSERV in varchar2, -- Техническая служба - SRESPDEP in varchar2, -- Ответственное подразделение - NFROMMONTH in number, -- Месяц начала периода - NFROMYEAR in number, -- Год начала периода - NTOMONTH in number, -- Месяц окончания периода - NTOYEAR in number, -- Год окончания периода - COUT out clob -- График проектов + SBELONG in varchar2, -- Принадлежность к Юр. лицу + SPRODOBJ in varchar2, -- Производственный объект + STECHSERV in varchar2 := null, -- Техническая служба + SRESPDEP in varchar2 := null, -- Ответственное подразделение + NFROMMONTH in number, -- Месяц начала периода + NFROMYEAR in number, -- Год начала периода + NTOMONTH in number, -- Месяц окончания периода + NTOYEAR in number, -- Год окончания периода + COUT out clob -- График проектов ); + end PKG_P8PANELS_EQUIPSRV; / create or replace package body PKG_P8PANELS_EQUIPSRV as - /* Получение значения системного параметра "JuridicalPerson" */ - procedure GET_JUR_PERS_PRM + /* Получение параметров фильтра по умолчанию */ + procedure GET_DEFAULT_FP ( - CRES out clob -- Значение параметра "JuridicalPerson" (null - если не нашли) + COUT out clob -- XML с параметрами фильтра по умолчанию ) is NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации - SPARAMCODE PKG_STD.TSTRING := 'JuridicalPerson'; -- Код параметра + SJUR_PERS PKG_STD.TSTRING := null; -- Юр. лицо (наименование) + NJUR_PERS PKG_STD.TREF := null; -- Юр. лицо (идентификатор) begin - CRES := GET_OPTIONS_STR(SCODE => SPARAMCODE, - NCOMP_VERS => NCOMPANY); - if (CRES is null) then - P_EXCEPTION(0, 'Пользовательский параметр не указан.'); - end if; - end GET_JUR_PERS_PRM; + /* Находим юр. лицо */ + FIND_JURPERSONS_MAIN(NFLAG_SMART => 1, NCOMPANY => NCOMPANY, SJUR_PERS => SJUR_PERS, NJUR_PERS => NJUR_PERS); + /* Формируем XML */ + PKG_XFAST.PROLOGUE(ITYPE => PKG_XFAST.CONTENT_); + PKG_XFAST.DOWN_NODE(SNAME => 'DATA'); + PKG_XFAST.DOWN_NODE(SNAME => 'JURPERS'); + PKG_XFAST.VALUE(SVALUE => SJUR_PERS); + PKG_XFAST.UP(); + PKG_XFAST.DOWN_NODE(SNAME => 'MONTH'); + PKG_XFAST.VALUE(NVALUE => EXTRACT(month from sysdate)); + PKG_XFAST.UP(); + PKG_XFAST.DOWN_NODE(SNAME => 'YEAR'); + PKG_XFAST.VALUE(NVALUE => EXTRACT(year from sysdate)); + PKG_XFAST.UP(); + PKG_XFAST.UP(); + /* Сериализуем в clob */ + COUT := PKG_XFAST.SERIALIZE_TO_CLOB(); + PKG_XFAST.EPILOGUE(); + end GET_DEFAULT_FP; /* Формирование строки с кол-вом часов */ function HOURS_STR @@ -50,28 +82,136 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as NHOURS in number -- Кол-во часов ) return varchar2 -- Строка с кол-вом часов is - SRESULT PKG_STD.tSTRING; -- Строка результат + SRESULT PKG_STD.TSTRING; -- Строка результат begin - if (MOD(NHOURS, 10) = 1 and MOD(NHOURS, 100) != 11) then + if ((mod(NHOURS, 10) = 1) and (mod(NHOURS, 100) != 11)) then SRESULT := NHOURS || ' час'; - elsif ((MOD(NHOURS, 10) = 2 and MOD(NHOURS, 100) != 12) - or (MOD(NHOURS, 10) = 3 and MOD(NHOURS, 100) != 13) - or (MOD(NHOURS, 10) = 4 and MOD(NHOURS, 100) != 14)) then + elsif (((mod(NHOURS, 10) = 2) and (mod(NHOURS, 100) != 12)) or ((mod(NHOURS, 10) = 3) and (mod(NHOURS, 100) != 13)) or + ((mod(NHOURS, 10) = 4) and (mod(NHOURS, 100) != 14))) then SRESULT := NHOURS || ' часа'; else SRESULT := NHOURS || ' часов'; end if; - /* Возвращаем результат */ return SRESULT; end HOURS_STR; + + /* Отбор документов (ТОиР или Графики ремонтов) по дате */ + procedure SELECT_EQUIPSRV + ( + SBELONG in varchar2, -- Принадлежность к Юр. лицу + SPRODOBJ in varchar2, -- Производственный объект + STECHSERV in varchar2 := null, -- Техническая служба + SRESPDEP in varchar2 := null, -- Ответственное подразделение + STECHNAME in varchar2, -- Наименование объекта ремонта + SSRVKIND in varchar2, -- Код вида ремонта + NYEAR in number, -- Год + NMONTH in number, -- Месяц + NDAY in number := null, -- День + NWORKTYPE in number, -- Тип работы (0 - план, 1 - факт) + NIDENT out number -- Идентификатор буфера подобранных (списка отмеченных записей, null - не найдено) + ) + is + NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации + NSELECTLIST PKG_STD.TREF; -- Рег. номер добавленной записи буфера подобранных + SDATE PKG_STD.TSTRING; -- Строка даты + begin + /* Проверка на дату с днём */ + if (NDAY is not null) then + SDATE := LPAD(TO_CHAR(NDAY), 2, '0') || '.' || LPAD(TO_CHAR(NMONTH), 2, '0') || '.' || NYEAR; + else + SDATE := LPAD(TO_CHAR(NMONTH), 2, '0') || '.' || NYEAR; + end if; + /* Если графики ТОиР */ + if (NWORKTYPE = 0) then + for C in (select T.RN, + T.COMPANY + from EQTCHSRV T, + JURPERSONS J, + EQTECSRVKIND SK, + EQCONFIG C1, + EQCONFIG C2, + INS_DEPARTMENT DS, + INS_DEPARTMENT DR + where T.STATE in (1, 2) + and T.COMPANY = NCOMPANY + and T.JUR_PERS = J.RN + and J.CODE = SBELONG + and T.EQCONFIG = C1.RN + and C1.CODE = SPRODOBJ + and T.DEPTTCSRV = DS.RN + and (DS.CODE = STECHSERV or STECHSERV is null) + and T.DEPTRESP = DR.RN + and (DR.CODE = SRESPDEP or SRESPDEP is null) + and T.EQCONFIG_TECH = C2.RN + and C2.NAME = STECHNAME + and T.EQTECSRVKIND = SK.RN + and SK.CODE = SSRVKIND + and ((NDAY is not null and TO_DATE(SDATE, 'dd.mm.yyyy') between TRUNC(T.DATEPRD_BEG) and + TRUNC(T.DATEPRD_END)) or (NDAY is null and (SDATE = TO_CHAR(T.DATEPRD_BEG, 'mm.yyyy') or + SDATE = TO_CHAR(T.DATEPRD_END, 'mm.yyyy'))))) + loop + /* Сформируем идентификатор буфера */ + if (NIDENT is null) then + NIDENT := GEN_IDENT(); + end if; + /* Добавим подобранное в список отмеченных записей */ + P_SELECTLIST_BASE_INSERT(NIDENT => NIDENT, + NCOMPANY => C.COMPANY, + NDOCUMENT => C.RN, + SUNITCODE => 'EquipTechServices', + SACTIONCODE => null, + NCRN => null, + NDOCUMENT1 => null, + SUNITCODE1 => null, + SACTIONCODE1 => null, + NRN => NSELECTLIST); + end loop; + /* Иначе ремонтные ведомости */ + else + for C in (select T.RN, + T.COMPANY + from EQRPSHEETS T, + JURPERSONS J, + EQTECSRVKIND SK, + EQCONFIG C + where T.STATE in (0, 2, 3) + and T.COMPANY = NCOMPANY + and T.JURPERSONS = J.RN + and J.CODE = SBELONG + and T.EQCONFIG = C.RN + and C.NAME = STECHNAME + and T.TECSRVKIND = SK.RN + and SK.CODE = SSRVKIND + and ((NDAY is not null and TO_DATE(SDATE, 'dd.mm.yyyy') between TRUNC(T.DATEFACT_BEG) and + TRUNC(T.DATEFACT_END)) or (NDAY is null and (SDATE = TO_CHAR(T.DATEFACT_BEG, 'mm.yyyy') or + SDATE = TO_CHAR(T.DATEFACT_END, 'mm.yyyy'))))) + loop + /* Сформируем идентификатор буфера */ + if (NIDENT is null) then + NIDENT := GEN_IDENT(); + end if; + /* Добавим подобранное в список отмеченных записей */ + P_SELECTLIST_BASE_INSERT(NIDENT => NIDENT, + NCOMPANY => C.COMPANY, + NDOCUMENT => C.RN, + SUNITCODE => 'EquipRepairSheets', + SACTIONCODE => null, + NCRN => null, + NDOCUMENT1 => null, + SUNITCODE1 => null, + SACTIONCODE1 => null, + NRN => NSELECTLIST); + end loop; + end if; + end SELECT_EQUIPSRV; /* Выполнение работ по ТОиР */ procedure EQUIPSRV_GRID ( SBELONG in varchar2, -- Принадлежность к Юр. лицу SPRODOBJ in varchar2, -- Производственный объект - STECHSERV in varchar2, -- Техническая служба - SRESPDEP in varchar2, -- Ответственное подразделение + STECHSERV in varchar2 := null, -- Техническая служба + SRESPDEP in varchar2 := null, -- Ответственное подразделение NFROMMONTH in number, -- Месяц начала периода NFROMYEAR in number, -- Год начала периода NTOMONTH in number, -- Месяц окончания периода @@ -86,41 +226,36 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as RDG_ROW0 PKG_P8PANELS_VISUAL.TROW; -- Строка таблицы0 RDG_ROW PKG_P8PANELS_VISUAL.TROW; -- Строка таблицы RDG_ROW2 PKG_P8PANELS_VISUAL.TROW; -- Строка таблицы2 - NCURYEAR PKG_STD.tNUMBER; -- Текущий год - NCURMONTH PKG_STD.tNUMBER; -- Текущий месяц - NTOTALDAYS PKG_STD.tNUMBER; -- Дней в текущем месяце + NCURYEAR PKG_STD.TNUMBER; -- Текущий год + NCURMONTH PKG_STD.TNUMBER; -- Текущий месяц + NTOTALDAYS PKG_STD.TNUMBER; -- Дней в текущем месяце SCURTECHOBJ PKG_STD.TSTRING := null; -- Текущий технический объект SCURTSKCODE PKG_STD.TSTRING := null; -- Текущий вид ремонта - NFROMDATE date := TO_DATE('01.' - || LPAD(TO_CHAR(NFROMMONTH), 2, '0') - || '.' || TO_CHAR(NFROMYEAR), - 'dd.mm.yyyy'); -- Дата начала периода - NTODATE date := LAST_DAY(TO_DATE('01.' - || LPAD(TO_CHAR(NTOMONTH), 2, '0') - || '.' || TO_CHAR(NTOYEAR), - 'dd.mm.yyyy')); -- Дата конца периода - NMS PKG_STD.tNUMBER; -- Месяц начала в цикле года - NME PKG_STD.tNUMBER; -- Месяц окончания в цикле года - NYEAR_PLAN PKG_STD.tNUMBER; -- Год план - NMONTH_PLAN PKG_STD.tNUMBER; -- Месяц план - NDAY_PLAN PKG_STD.tNUMBER; -- День план - NYEAR_FACT PKG_STD.tNUMBER; -- Год факт - NMONTH_FACT PKG_STD.tNUMBER; -- Месяц факт - NDAY_FACT PKG_STD.tNUMBER; -- День факт + NFROMDATE PKG_STD.TLDATE; -- Дата начала периода + NTODATE PKG_STD.TLDATE; -- Дата конца периода + NMS PKG_STD.TNUMBER; -- Месяц начала в цикле года + NME PKG_STD.TNUMBER; -- Месяц окончания в цикле года + NYEAR_PLAN PKG_STD.TNUMBER; -- Год план + NMONTH_PLAN PKG_STD.TNUMBER; -- Месяц план + NDAY_PLAN PKG_STD.TNUMBER; -- День план + NYEAR_FACT PKG_STD.TNUMBER; -- Год факт + NMONTH_FACT PKG_STD.TNUMBER; -- Месяц факт + NDAY_FACT PKG_STD.TNUMBER; -- День факт SPERIODNAME PKG_STD.TSTRING; -- Имя периода SFACT_CLR PKG_STD.TSTRING; -- Цвет закрашивания фактических дат - NROWS PKG_STD.tNUMBER := 0; -- Кол-во строк в курсоре - NWORKPERDAY PKG_STD.tNUMBER(17,2) := null; -- Работы в день - CR PKG_STD.TSTRING; - SGROUP_FILLED PKG_STD.tLSTRING; -- Группы, заполненные строками план/факт - SCOLS PKG_STD.tLSTRING; -- Заполнение периодов работ - YM PKG_CONTVALLOC1S.tCONTAINER; -- Коллекция для подсчёта работ за месяц - MCLR PKG_CONTVALLOC1S.tCONTAINER; -- Коллекция для закрашивания месяцев + NROWS PKG_STD.TNUMBER := 0; -- Кол-во строк в курсоре + NWORKPERDAY PKG_STD.TNUMBER(17,2) := null; -- Работы в день + SGROUP_FILLED PKG_STD.TLSTRING; -- Группы, заполненные строками план/факт + SCOLS PKG_STD.TLSTRING; -- Заполнение периодов работ + YM PKG_CONTVALLOC1S.TCONTAINER; -- Коллекция для подсчёта работ за месяц + MCLR PKG_CONTVALLOC1S.TCONTAINER; -- Коллекция для закрашивания месяцев + CR PKG_STD.TSTRING; -- Текущий ключ коллекции MCLR + /* Курсор с работами ТОиР */ cursor C1 is - select TT.NEQV_RN, - TT.NEQS_RN, - TT.NWRK_RN NRN, + select TT.NEQV_RN, + TT.NEQS_RN, + TT.NWRK_RN NRN, TT.COMPANY NCOMPANY, TT.NAME_WORK SWORKNAME, EC2.CODE STECHOBJCODE, @@ -135,63 +270,60 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as EQJ.DATEFACT_END DDATEFACTEND, EK.CODE STECSRVKINDCODE, EK.NAME STECSRVKINDNAME, - coalesce(EW.NSUM, - (TT.DATEPRD_END - TT.DATEPRD_BEG) * 24) NSUMWORKPLAN, - coalesce(EWJ.NSUMF, - (EQJ.DATEFACT_END - EQJ.DATEFACT_BEG) * 24) NSUMWORKFACT - from - (select B.*, - C.RN nWRK_RN, - C.PRN nWRK_PRN, - C.NAME_WORK, - C.DATEPLAN_BEG, - C.DATEPLAN_END, - C.TECSRVKIND, - C.EQCONFIG, - C.DEPTPERF, - C.DEPTTCSRV, - C.RESP_AGN - from (select EQV.RN nEQV_RN, - EQV.COMPANY, - EQV.JUR_PERS, - EQV.STATE, - EQV.DATEPRD_BEG, - EQV.DATEPRD_END, - EQS.RN nEQS_RN - from EQTCHSRV EQV, -- Графики ТОиР - DOCLINKS DL, - EQRPSHEETS EQS -- Ремонтные ведомости - where EQV.RN = DL.IN_DOCUMENT (+) - and DL.OUT_UNITCODE (+) = 'EquipRepairSheets' - and DL.OUT_DOCUMENT = EQS.RN (+)) B, + COALESCE(EW.NSUM, (TT.DATEPRD_END - TT.DATEPRD_BEG) * 24) NSUMWORKPLAN, + COALESCE(EWJ.NSUMF, (EQJ.DATEFACT_END - EQJ.DATEFACT_BEG) * 24) NSUMWORKFACT + from (select B.*, + C.RN NWRK_RN, + C.PRN NWRK_PRN, + C.NAME_WORK, + C.DATEPLAN_BEG, + C.DATEPLAN_END, + C.TECSRVKIND, + C.EQCONFIG, + C.DEPTPERF, + C.DEPTTCSRV, + C.RESP_AGN + from (select EQV.RN NEQV_RN, + EQV.COMPANY, + EQV.JUR_PERS, + EQV.STATE, + EQV.DATEPRD_BEG, + EQV.DATEPRD_END, + EQS.RN NEQS_RN + from EQTCHSRV EQV, + DOCLINKS DL, + EQRPSHEETS EQS + where EQV.RN = DL.IN_DOCUMENT(+) + and DL.OUT_UNITCODE(+) = 'EquipRepairSheets' + and DL.OUT_DOCUMENT = EQS.RN(+)) B, EQTCHSRWRK C - where B.nEQV_RN = C.PRN (+) - union all - select B.*, - C.RN nWRK_RN, - C.PRN nWRK_PRN, - C.NAME_WORK, - C.DATEPLAN_BEG, - C.DATEPLAN_END, - C.TECSRVKIND, - C.EQCONFIG, - C.DEPTPERF, - null DEPTTCSRV, - C.RESP_AGN - from (select null nEQV_RN, - EQS.COMPANY, - EQS.JURPERSONS JUR_PERS, - EQS.STATE, - EQS.DATEPLAN_BEG, - EQS.DATEPLAN_END, - EQS.RN nEQS_RN - from EQRPSHEETS EQS -- Ремонтные ведомости - where not exists (select 1 - from DOCLINKS DL - where DL.OUT_DOCUMENT = EQS.RN - and DL.IN_UNITCODE = 'EquipTechServices')) B, + where B.NEQV_RN = C.PRN(+) + union all + select B.*, + C.RN NWRK_RN, + C.PRN NWRK_PRN, + C.NAME_WORK, + C.DATEPLAN_BEG, + C.DATEPLAN_END, + C.TECSRVKIND, + C.EQCONFIG, + C.DEPTPERF, + null DEPTTCSRV, + C.RESP_AGN + from (select null NEQV_RN, + EQS.COMPANY, + EQS.JURPERSONS JUR_PERS, + EQS.STATE, + EQS.DATEPLAN_BEG, + EQS.DATEPLAN_END, + EQS.RN NEQS_RN + from EQRPSHEETS EQS + where not exists (select 1 + from DOCLINKS DL + where DL.OUT_DOCUMENT = EQS.RN + and DL.IN_UNITCODE = 'EquipTechServices')) B, EQRPSHWRK C - where B.nEQS_RN = C.PRN (+)) TT, + where B.NEQS_RN = C.PRN(+)) TT, EQTECSRVKIND EK, JURPERSONS JP, EQCONFIG EC1, @@ -200,49 +332,55 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as INS_DEPARTMENT DR, DOCLINKS DL, EQTECSRVJRNL EQJ, - (select t.prn, - sum(t.Worktimeplan * t.perform_quant) NSUM - from EQTCHSRWRC t - group by t.prn) EW, - (select t.prn, - sum(t.worktimefact * t.quantfact) NSUMF - from EQTCHSRJRNLWRC t - group by t.prn) EWJ + (select T.PRN, + sum(T.WORKTIMEPLAN * T.PERFORM_QUANT) NSUM + from EQTCHSRWRC T + group by T.PRN) EW, + (select T.PRN, + sum(T.WORKTIMEFACT * T.QUANTFACT) NSUMF + from EQTCHSRJRNLWRC T + group by T.PRN) EWJ where TT.COMPANY = NCOMPANY - and ((TT.state in (1,2) and nEQV_RN is not null) or (TT.state in (0,2,3) and nEQV_RN is null)) + and ((TT.STATE in (1, 2) and NEQV_RN is not null) or (TT.STATE in (0, 2, 3) and NEQV_RN is null)) and TT.DATEPRD_BEG >= NFROMDATE and TT.DATEPRD_END <= NTODATE and JP.CODE = SBELONG and EC1.CODE = SPRODOBJ and (DS.CODE = STECHSERV or STECHSERV is null) and (DR.CODE = SRESPDEP or SRESPDEP is null) - and TT.EQCONFIG = EC2.RN (+) - and TT.DEPTPERF = DR.RN (+) - and TT.DEPTTCSRV = DS.RN (+) - and TT.NWRK_RN = EW.PRN (+) - and EQJ.RN = EWJ.PRN (+) - and TT.TECSRVKIND = EK.RN (+) - and TT.NWRK_RN = DL.IN_DOCUMENT (+) - and ((DL.OUT_UNITCODE = 'EquipTechServiceJournal' and DL.RN is not null) or (DL.OUT_UNITCODE is null and DL.RN is null)) - and DL.OUT_DOCUMENT = EQJ.RN (+) - order by EC2.NAME, EK.CODE; + and TT.EQCONFIG = EC2.RN(+) + and TT.DEPTPERF = DR.RN(+) + and TT.DEPTTCSRV = DS.RN(+) + and TT.NWRK_RN = EW.PRN(+) + and EQJ.RN = EWJ.PRN(+) + and TT.TECSRVKIND = EK.RN(+) + and TT.NWRK_RN = DL.IN_DOCUMENT(+) + and ((DL.OUT_UNITCODE = 'EquipTechServiceJournal' and DL.RN is not null) or + (DL.OUT_UNITCODE is null and DL.RN is null)) + and DL.OUT_DOCUMENT = EQJ.RN(+) + order by EC2.NAME, + EK.CODE; begin + /* Определим дату начала периода */ + NFROMDATE := TO_DATE('01.' || LPAD(TO_CHAR(NFROMMONTH), 2, '0') || '.' || TO_CHAR(NFROMYEAR), 'dd.mm.yyyy'); + /* Определим дату конца периода */ + NTODATE := LAST_DAY(TO_DATE('01.' || LPAD(TO_CHAR(NTOMONTH), 2, '0') || '.' || TO_CHAR(NTOYEAR), 'dd.mm.yyyy')); /* Инициализируем таблицу данных */ RDG := PKG_P8PANELS_VISUAL.TDATA_GRID_MAKE(); /* Формируем структуру заголовка */ PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG, SNAME => 'STEST', - SCAPTION => 'ТЕСТ', + SCAPTION => 'ТЕСТ', SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR); PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG, SNAME => 'SINFO', - SCAPTION => 'Информация', + SCAPTION => 'Объект ремонта', SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR); PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG, SNAME => 'SINFO2', SCAPTION => 'Объект ремонта', SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, - SPARENT => 'SINFO'); + SPARENT => 'SINFO'); PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG, SNAME => 'NRN', SCAPTION => 'Рег. номер', @@ -317,15 +455,15 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as SNAME => 'STECSRVKINDNAME', SCAPTION => 'Наименование типа работы', SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, - BVISIBLE => false); - /* Очистка коллекций */ - PKG_CONTVALLOC1S.PURGE(YM); - PKG_CONTVALLOC1S.PURGE(MCLR); - + BVISIBLE => false); + /* Очистка коллекций */ + PKG_CONTVALLOC1S.PURGE(RCONTAINER => YM); + PKG_CONTVALLOC1S.PURGE(RCONTAINER => MCLR); + /* Текущий год */ NCURYEAR := EXTRACT(year from sysdate); - NCURMONTH := EXTRACT(month from sysdate); - - /* Цикл по годам периода */ + /* Текущий месяц */ + NCURMONTH := EXTRACT(month from sysdate); + /* Цикл по годам периода */ for Y in NFROMYEAR .. NTOYEAR loop if (NFROMYEAR = NTOYEAR) then @@ -335,220 +473,249 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as if (Y = NFROMYEAR) then NMS := NFROMMONTH; NME := 12; - elsif (NFROMYEAR < Y and Y < NTOYEAR) then + elsif ((NFROMYEAR < Y) and (Y < NTOYEAR)) then NMS := 1; NME := 12; elsif (Y = NTOYEAR) then NMS := 1; - NME := NTOMONTH; + NME := NTOMONTH; end if; end if; - /* Цикл по месяцам года */ for M in NMS .. NME loop - - PKG_CONTVALLOC1S.PUTN(YM, '_' || TO_CHAR(Y) || '_' || TO_CHAR(M) || '_P', 0); - PKG_CONTVALLOC1S.PUTN(YM, '_' || TO_CHAR(Y) || '_' || TO_CHAR(M) || '_F', 0); - - if (Y = NCURYEAR and M = NCURMONTH) then + PKG_CONTVALLOC1S.PUTN(RCONTAINER => YM, SROWID => '_' || TO_CHAR(Y) || '_' || TO_CHAR(M) || '_P', NVALUE => 0); + PKG_CONTVALLOC1S.PUTN(RCONTAINER => YM, SROWID => '_' || TO_CHAR(Y) || '_' || TO_CHAR(M) || '_F', NVALUE => 0); + /* Находим текущий месяц и делаем его развёрнутым по дням */ + if ((Y = NCURYEAR) and (M = NCURMONTH)) then BEXPANDED := true; else BEXPANDED := false; end if; - - PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG, - SNAME => '_' || TO_CHAR(Y) || '_' || TO_CHAR(M), - SCAPTION => LPAD(TO_CHAR(M), 2, '0') || ' ' || TO_CHAR(Y), - SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, + PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG, + SNAME => '_' || TO_CHAR(Y) || '_' || TO_CHAR(M), + SCAPTION => LPAD(TO_CHAR(M), 2, '0') || ' ' || TO_CHAR(Y), + SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, BEXPANDABLE => true, - BEXPANDED => BEXPANDED); - NTOTALDAYS := to_number(to_char(LAST_DAY(TO_DATE('01.' || LPAD(TO_CHAR(M), 2, '0') || '.' || TO_CHAR(Y), 'dd.mm.yyyy')),'dd'), '99'); + BEXPANDED => BEXPANDED); + /* Подсчёт кол-ва дней в месяце */ + NTOTALDAYS := TO_NUMBER(TO_CHAR(LAST_DAY(TO_DATE('01.' || LPAD(TO_CHAR(M), 2, '0') || '.' || TO_CHAR(Y), + 'dd.mm.yyyy')), + 'dd'), + '99'); /* Цикл по дням месяца */ for D in 1 .. NTOTALDAYS loop PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG, - SNAME => '_' || TO_CHAR(Y) || '_' || TO_CHAR(M) || '_' || TO_CHAR(D), + SNAME => '_' || TO_CHAR(Y) || '_' || TO_CHAR(M) || '_' || + TO_CHAR(D), SCAPTION => TO_CHAR(D, '99'), SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, SPARENT => '_' || TO_CHAR(Y) || '_' || TO_CHAR(M)); end loop; - end loop; + end loop; end loop; - - /* Подсчёт кол-ва записей в курсоре */ + /* Подсчёт кол-ва записей в курсоре */ for Q1 in C1 loop NROWS := NROWS + 1; end loop; - /* Цикл по курсору */ for QQ in C1 loop NROWS := NROWS - 1; - if (SCURTECHOBJ != QQ.STECHOBJNAME or SCURTECHOBJ is null) then + /* Если новый объект ремонта */ + if ((SCURTECHOBJ != QQ.STECHOBJNAME) or (SCURTECHOBJ is null)) then + /* Если строка с трудоёмкостью по объекту ремонта сформирована */ if (RDG_ROW0.RCOLS is not null) then - /* Цикл по годам периода */ + /* Цикл по годам периода */ for Y in NFROMYEAR .. NTOYEAR loop + /* Если отчёт в пределах года */ if (NFROMYEAR = NTOYEAR) then NMS := NFROMMONTH; NME := NTOMONTH; + /* Иначе вычисляем кол-во месяцев в каждом году периода отчёта*/ else if (Y = NFROMYEAR) then NMS := NFROMMONTH; NME := 12; - elsif (NFROMYEAR < Y and Y < NTOYEAR) then + elsif ((NFROMYEAR < Y) and (Y < NTOYEAR)) then NMS := 1; NME := 12; elsif (Y = NTOYEAR) then NMS := 1; - NME := NTOMONTH; + NME := NTOMONTH; end if; end if; - - /* Цикл по месяцам года */ + /* Цикл по месяцам года, заполнение трудоёмкости с привязкой к месяцу */ for M in NMS .. NME loop SPERIODNAME := '_' || TO_CHAR(Y) || '_' || TO_CHAR(M); - PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW0, - SNAME => SPERIODNAME, - SVALUE => 'план: ' || HOURS_STR(PKG_CONTVALLOC1S.GETN(YM, SPERIODNAME || '_P')) || ' факт: ' || HOURS_STR(PKG_CONTVALLOC1S.GETN(YM, SPERIODNAME || '_F'))); - PKG_CONTVALLOC1S.PUTN(YM, SPERIODNAME || '_P', 0); - PKG_CONTVALLOC1S.PUTN(YM, SPERIODNAME || '_F', 0); - end loop; + PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW0, + SNAME => SPERIODNAME, + SVALUE => 'план: ' || + HOURS_STR(PKG_CONTVALLOC1S.GETN(YM, SPERIODNAME || '_P')) || + ' факт: ' || + HOURS_STR(PKG_CONTVALLOC1S.GETN(YM, SPERIODNAME || '_F'))); + /* Добавление в коллекцию трудоёмкость план */ + PKG_CONTVALLOC1S.PUTN(RCONTAINER => YM, SROWID => SPERIODNAME || '_P', NVALUE => 0); + /* Добавление в коллекцию трудоёмкость факт */ + PKG_CONTVALLOC1S.PUTN(RCONTAINER => YM, SROWID => SPERIODNAME || '_F', NVALUE => 0); + end loop; end loop; - + /* Добавление строки с трудоёмкостью */ PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW0); end if; - SCURTECHOBJ := QQ.STECHOBJNAME; + /* Добавление группы с объектом ремонта */ + SCURTECHOBJ := QQ.STECHOBJNAME; SPRJ_GROUP_NAME := SCURTECHOBJ; PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_GROUP(RDATA_GRID => RDG, SNAME => SPRJ_GROUP_NAME, SCAPTION => QQ.STECHOBJNAME, - BEXPANDABLE => false); + BEXPANDABLE => false); RDG_ROW0 := PKG_P8PANELS_VISUAL.TROW_MAKE(SGROUP => SPRJ_GROUP_NAME); - PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW0, SNAME => 'STEST', SVALUE => SCURTECHOBJ); + PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW0, SNAME => 'STEST', SVALUE => SCURTECHOBJ); end if; /* Формируем имя группы для вида ремонта */ SCURTSKCODE := SCURTECHOBJ || '_' || QQ.STECSRVKINDCODE; /* Если по данной группе еще нет строк плана и факта */ - if (STRIN(sSUBSTR => SCURTSKCODE, sSOURCE => SGROUP_FILLED, sDELIM => ';') = 0) then + if (STRIN(SSUBSTR => SCURTSKCODE, SSOURCE => SGROUP_FILLED, SDELIM => ';') = 0) then /* Добавляем строку плана */ if (RDG_ROW.RCOLS is not null) then PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW); end if; /* Добавляем строку факта */ if (RDG_ROW2.RCOLS is not null) then - CR := PKG_CONTVALLOC1S.FIRST_(MCLR); + CR := PKG_CONTVALLOC1S.FIRST_(RCONTAINER => MCLR); /* Цикл по коллекции для закрашивания месяцев */ - for Z in 1 .. PKG_CONTVALLOC1S.COUNT_(MCLR) + for Z in 1 .. PKG_CONTVALLOC1S.COUNT_(RCONTAINER => MCLR) loop - PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW2, SNAME => CR, SVALUE => PKG_CONTVALLOC1S.GETS(MCLR, CR)); - CR := PKG_CONTVALLOC1S.NEXT_(MCLR, CR); + PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW2, + SNAME => CR, + SVALUE => PKG_CONTVALLOC1S.GETS(RCONTAINER => MCLR, SROWID => CR)); + CR := PKG_CONTVALLOC1S.NEXT_(RCONTAINER => MCLR, SROWID => CR); end loop; PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW2); end if; - PKG_CONTVALLOC1S.PURGE(MCLR); + PKG_CONTVALLOC1S.PURGE(RCONTAINER => MCLR); /* Добвим группу для вида ремонта */ SPRJ_GROUP_NAME := SCURTSKCODE; PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_GROUP(RDATA_GRID => RDG, SNAME => SPRJ_GROUP_NAME, SCAPTION => QQ.STECSRVKINDCODE, BEXPANDABLE => false); - RDG_ROW := PKG_P8PANELS_VISUAL.TROW_MAKE(SGROUP => SPRJ_GROUP_NAME); + /* Строка плана */ + RDG_ROW := PKG_P8PANELS_VISUAL.TROW_MAKE(SGROUP => SPRJ_GROUP_NAME); PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => 'STEST', SVALUE => QQ.STECSRVKINDCODE); - PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => 'SINFO2', SVALUE => 'План'); - RDG_ROW2 := PKG_P8PANELS_VISUAL.TROW_MAKE(SGROUP => SPRJ_GROUP_NAME); + PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => 'SINFO2', SVALUE => 'План'); + /* Строка факта */ + RDG_ROW2 := PKG_P8PANELS_VISUAL.TROW_MAKE(SGROUP => SPRJ_GROUP_NAME); PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW2, SNAME => 'SINFO2', SVALUE => 'Факт'); /* Добавляем в заполненные группы */ SGROUP_FILLED := SGROUP_FILLED || SPRJ_GROUP_NAME || ';'; - end if; /* Плановые работы */ if (QQ.NEQV_RN is not null) then - for x in 0 .. trunc(QQ.DDATEPLANEND) - trunc(QQ.DDATEPLANBEG) + /* Цикл по периоду */ + for X in 0 .. TRUNC(QQ.DDATEPLANEND) - TRUNC(QQ.DDATEPLANBEG) loop - NYEAR_PLAN := EXTRACT(year from QQ.DDATEPLANBEG + x); - NMONTH_PLAN := EXTRACT(month from QQ.DDATEPLANBEG + x); - NDAY_PLAN := EXTRACT(day from QQ.DDATEPLANBEG + x); - - if (x = 0) then + NYEAR_PLAN := EXTRACT(year from QQ.DDATEPLANBEG + X); + NMONTH_PLAN := EXTRACT(month from QQ.DDATEPLANBEG + X); + NDAY_PLAN := EXTRACT(day from QQ.DDATEPLANBEG + X); + /* Если первый день периода */ + if (X = 0) then SPERIODNAME := '_' || TO_CHAR(NYEAR_PLAN) || '_' || NMONTH_PLAN; - + /* Подсчёт трудоёмкости за месяц */ if (QQ.NSUMWORKPLAN is not null) then - PKG_CONTVALLOC1S.PUTN(YM, SPERIODNAME || '_P', PKG_CONTVALLOC1S.GETN(YM, SPERIODNAME || '_P') + QQ.NSUMWORKPLAN); + PKG_CONTVALLOC1S.PUTN(RCONTAINER => YM, + SROWID => SPERIODNAME || '_P', + NVALUE => PKG_CONTVALLOC1S.GETN(RCONTAINER => YM, SROWID => SPERIODNAME || '_P') + + QQ.NSUMWORKPLAN); end if; - - if (STRIN(sSUBSTR => SPRJ_GROUP_NAME || ' ' || SPERIODNAME || ' PLAN', sSOURCE => SCOLS, sDELIM => ';') = 0) then + /* Закрашивание месяца плана синим */ + if (STRIN(SSUBSTR => SPRJ_GROUP_NAME || ' ' || SPERIODNAME || ' PLAN', SSOURCE => SCOLS, SDELIM => ';') = 0) then PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => SPERIODNAME, SVALUE => 'blue'); - SCOLS := SCOLS || SPRJ_GROUP_NAME || ' ' || SPERIODNAME || ' PLAN;'; + SCOLS := SCOLS || SPRJ_GROUP_NAME || ' ' || SPERIODNAME || ' PLAN;'; end if; end if; SPERIODNAME := '_' || TO_CHAR(NYEAR_PLAN) || '_' || TO_CHAR(NMONTH_PLAN) || '_' || TO_CHAR(NDAY_PLAN); - if (STRIN(sSUBSTR => SPRJ_GROUP_NAME || ' ' || SPERIODNAME || ' PLAN', sSOURCE => SCOLS, sDELIM => ';') = 0) then + /* Закрашивание дня плана синим */ + if (STRIN(SSUBSTR => SPRJ_GROUP_NAME || ' ' || SPERIODNAME || ' PLAN', SSOURCE => SCOLS, SDELIM => ';') = 0) then PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => SPERIODNAME, SVALUE => 'blue'); - SCOLS := SCOLS || SPRJ_GROUP_NAME || ' ' || SPERIODNAME || ' PLAN;'; - end if; + SCOLS := SCOLS || SPRJ_GROUP_NAME || ' ' || SPERIODNAME || ' PLAN;'; + end if; end loop; end if; - /* Фактические и внеплановые работы */ - if (QQ.DDATEFACTEND is not null and QQ.DDATEFACTBEG is not null) then - if (QQ.nEQV_RN is not null) then + if ((QQ.DDATEFACTEND is not null) and (QQ.DDATEFACTBEG is not null)) then + /* Фактические - зелёный, внеплановые - красный */ + if (QQ.NEQV_RN is not null) then SFACT_CLR := 'green'; else SFACT_CLR := 'red'; - end if; - + end if; NWORKPERDAY := null; + /* Если период не в одном месяце, то считаем трудоёмкость в день */ if (EXTRACT(month from QQ.DDATEFACTBEG) != EXTRACT(month from QQ.DDATEFACTEND)) then - NWORKPERDAY := QQ.NSUMWORKFACT/(round(QQ.DDATEFACTEND - QQ.DDATEFACTBEG) + 1); - NCURMONTH := EXTRACT(month from QQ.DDATEFACTBEG); - end if; - - for x in 0 .. trunc(QQ.DDATEFACTEND) - trunc(QQ.DDATEFACTBEG) + NWORKPERDAY := QQ.NSUMWORKFACT / (ROUND(QQ.DDATEFACTEND - QQ.DDATEFACTBEG) + 1); + NCURMONTH := EXTRACT(month from QQ.DDATEFACTBEG); + end if; + /* Цикл по периоду */ + for X in 0 .. TRUNC(QQ.DDATEFACTEND) - TRUNC(QQ.DDATEFACTBEG) loop - NYEAR_FACT := EXTRACT(year from QQ.DDATEFACTBEG + x); - NMONTH_FACT := EXTRACT(month from QQ.DDATEFACTBEG + x); - NDAY_FACT := EXTRACT(day from QQ.DDATEFACTBEG + x); - - if (x = 0 or NCURMONTH != NMONTH_FACT) then + NYEAR_FACT := EXTRACT(year from QQ.DDATEFACTBEG + X); + NMONTH_FACT := EXTRACT(month from QQ.DDATEFACTBEG + X); + NDAY_FACT := EXTRACT(day from QQ.DDATEFACTBEG + X); + /* Если первый день периода или следующий месяц периода */ + if ((X = 0) or (NCURMONTH != NMONTH_FACT)) then + /* Обновляется текущий месяц */ if (NCURMONTH != NMONTH_FACT) then NCURMONTH := NMONTH_FACT; end if; SPERIODNAME := '_' || TO_CHAR(NYEAR_FACT) || '_' || NMONTH_FACT; - - if (QQ.NSUMWORKFACT is not null and NWORKPERDAY is null) then - PKG_CONTVALLOC1S.PUTN(YM, SPERIODNAME || '_F', PKG_CONTVALLOC1S.GETN(YM, SPERIODNAME || '_F') + QQ.NSUMWORKFACT); + /* Подсчёт трудоёмкости за месяц если период в одном месяце */ + if ((QQ.NSUMWORKFACT is not null) and (NWORKPERDAY is null)) then + PKG_CONTVALLOC1S.PUTN(RCONTAINER => YM, + SROWID => SPERIODNAME || '_F', + NVALUE => PKG_CONTVALLOC1S.GETN(RCONTAINER => YM, SROWID => SPERIODNAME || '_F') + + QQ.NSUMWORKFACT); end if; - /* Добавление в коллекцию окрашивания месяца */ - if (PKG_CONTVALLOC1S.EXISTS_(rCONTAINER => MCLR, sROWID => SPERIODNAME) = false) then - PKG_CONTVALLOC1S.PUTS(MCLR, SPERIODNAME, SFACT_CLR); + if (PKG_CONTVALLOC1S.EXISTS_(RCONTAINER => MCLR, SROWID => SPERIODNAME) = false) then + PKG_CONTVALLOC1S.PUTS(RCONTAINER => MCLR, SROWID => SPERIODNAME, SVALUE => SFACT_CLR); else + /* Если второй цвет для месяца */ if (STRIN(trim(SFACT_CLR), trim(PKG_CONTVALLOC1S.GETS(MCLR, SPERIODNAME))) = 0) then - PKG_CONTVALLOC1S.PUTS(MCLR, SPERIODNAME, PKG_CONTVALLOC1S.GETS(MCLR, SPERIODNAME) || ' ' || SFACT_CLR); + PKG_CONTVALLOC1S.PUTS(RCONTAINER => MCLR, + SROWID => SPERIODNAME, + SVALUE => PKG_CONTVALLOC1S.GETS(RCONTAINER => MCLR, SROWID => SPERIODNAME) || ' ' || + SFACT_CLR); end if; end if; end if; + /* Подсчёт трудоёмкости за месяц если период не в одном месяце */ if (NWORKPERDAY is not null) then - PKG_CONTVALLOC1S.PUTN(YM, SPERIODNAME || '_F', PKG_CONTVALLOC1S.GETN(YM, SPERIODNAME || '_F') + NWORKPERDAY); + PKG_CONTVALLOC1S.PUTN(RCONTAINER => YM, + SROWID => SPERIODNAME || '_F', + NVALUE => PKG_CONTVALLOC1S.GETN(RCONTAINER => YM, SROWID => SPERIODNAME || '_F') + + NWORKPERDAY); end if; SPERIODNAME := '_' || TO_CHAR(NYEAR_FACT) || '_' || TO_CHAR(NMONTH_FACT) || '_' || TO_CHAR(NDAY_FACT); - /* Добавление окрашивания дней факта */ - if (PKG_CONTVALLOC1S.EXISTS_(rCONTAINER => MCLR, sROWID => SPERIODNAME) = false) then - PKG_CONTVALLOC1S.PUTS(MCLR, SPERIODNAME, SFACT_CLR); + /* Добавление в коллекцию окрашивания дней факта */ + if (PKG_CONTVALLOC1S.EXISTS_(RCONTAINER => MCLR, SROWID => SPERIODNAME) = false) then + PKG_CONTVALLOC1S.PUTS(RCONTAINER => MCLR, SROWID => SPERIODNAME, SVALUE => SFACT_CLR); else - if (trim(PKG_CONTVALLOC1S.GETS(MCLR, SPERIODNAME)) = 'green' and trim(SFACT_CLR) = 'red') then - PKG_CONTVALLOC1S.PUTS(MCLR, SPERIODNAME, SFACT_CLR); + /* Если второй цвет для месяца */ + if ((trim(PKG_CONTVALLOC1S.GETS(RCONTAINER => MCLR, SROWID => SPERIODNAME)) = 'green') and + (trim(SFACT_CLR) = 'red')) then + PKG_CONTVALLOC1S.PUTS(RCONTAINER => MCLR, SROWID => SPERIODNAME, SVALUE => SFACT_CLR); end if; - end if; + end if; end loop; - end if; - - if (RDG_ROW0.RCOLS is not null and NROWS = 0) then - /* Цикл по годам периода */ + end if; + if ((RDG_ROW0.RCOLS is not null) and (NROWS = 0)) then + /* Цикл по годам периода */ for Y in NFROMYEAR .. NTOYEAR loop if (NFROMYEAR = NTOYEAR) then @@ -558,45 +725,51 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as if (Y = NFROMYEAR) then NMS := NFROMMONTH; NME := 12; - elsif (NFROMYEAR < Y and Y < NTOYEAR) then + elsif ((NFROMYEAR < Y) and (Y < NTOYEAR)) then NMS := 1; NME := 12; elsif (Y = NTOYEAR) then NMS := 1; - NME := NTOMONTH; + NME := NTOMONTH; end if; end if; - /* Цикл по месяцам года */ for M in NMS .. NME loop SPERIODNAME := '_' || TO_CHAR(Y) || '_' || TO_CHAR(M); - PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW0, - SNAME => SPERIODNAME, - SVALUE => 'план: ' || HOURS_STR(PKG_CONTVALLOC1S.GETN(YM, SPERIODNAME || '_P')) || ' факт: ' || HOURS_STR(PKG_CONTVALLOC1S.GETN(YM, SPERIODNAME || '_F'))); - end loop; + PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW0, + SNAME => SPERIODNAME, + SVALUE => 'план: ' || + HOURS_STR(NHOURS => PKG_CONTVALLOC1S.GETN(RCONTAINER => YM, + SROWID => SPERIODNAME || '_P')) || + ' факт: ' || + HOURS_STR(NHOURS => PKG_CONTVALLOC1S.GETN(RCONTAINER => YM, + SROWID => SPERIODNAME || '_F'))); + end loop; end loop; - PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW0); end if; - /* План для последней записи */ - if (RDG_ROW.RCOLS is not null and NROWS = 0) then + /* План для последней записи */ + if ((RDG_ROW.RCOLS is not null) and (NROWS = 0)) then PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW); end if; /* Факт для последней записи */ - if (RDG_ROW2.RCOLS is not null and NROWS = 0) then - CR := PKG_CONTVALLOC1S.FIRST_(MCLR); - for Z in 1 .. PKG_CONTVALLOC1S.COUNT_(MCLR) + if ((RDG_ROW2.RCOLS is not null) and (NROWS = 0)) then + CR := PKG_CONTVALLOC1S.FIRST_(RCONTAINER => MCLR); + for Z in 1 .. PKG_CONTVALLOC1S.COUNT_(RCONTAINER => MCLR) loop - PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW2, SNAME => CR, SVALUE => PKG_CONTVALLOC1S.GETS(MCLR, CR)); - CR := PKG_CONTVALLOC1S.NEXT_(MCLR, cr); + PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW2, + SNAME => CR, + SVALUE => PKG_CONTVALLOC1S.GETS(RCONTAINER => MCLR, SROWID => CR)); + CR := PKG_CONTVALLOC1S.NEXT_(RCONTAINER => MCLR, SROWID => CR); end loop; PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW2); - end if; + end if; end loop; /* Сериализуем описание */ COUT := PKG_P8PANELS_VISUAL.TDATA_GRID_TO_XML(RDATA_GRID => RDG, NINCLUDE_DEF => 1); - PKG_CONTVALLOC1S.PURGE(YM); + PKG_CONTVALLOC1S.PURGE(RCONTAINER => YM); end EQUIPSRV_GRID; + end PKG_P8PANELS_EQUIPSRV; /