ЦИТК-791 - Панель "Выполнение работ по ТОиР"
This commit is contained in:
Mikhail Chechnev
parent
22ccf61e73
commit
ca5e9b24ae
@ -7,7 +7,32 @@
|
|||||||
//Подключение библиотек
|
//Подключение библиотек
|
||||||
//---------------------
|
//---------------------
|
||||||
|
|
||||||
import React from "react"; //Классы React
|
import React, { useState, useContext, useCallback, useEffect } from "react"; //Классы React
|
||||||
|
import {
|
||||||
|
Grid,
|
||||||
|
Paper,
|
||||||
|
Box,
|
||||||
|
Link,
|
||||||
|
Button,
|
||||||
|
Dialog,
|
||||||
|
DialogActions,
|
||||||
|
DialogContent,
|
||||||
|
DialogTitle,
|
||||||
|
InputLabel,
|
||||||
|
FormControl,
|
||||||
|
OutlinedInput,
|
||||||
|
InputAdornment,
|
||||||
|
IconButton,
|
||||||
|
Icon,
|
||||||
|
Select,
|
||||||
|
MenuItem,
|
||||||
|
FormHelperText
|
||||||
|
} from "@mui/material";
|
||||||
|
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 { headCellRender, dataCellRender, groupCellRender, DIGITS_REG_EXP, MONTH_NAME_REG_EXP, DAY_NAME_REG_EXP } from "./layouts"; //Дополнительная разметка и вёрстка клиентских элементов
|
||||||
|
|
||||||
//-----------
|
//-----------
|
||||||
//Тело модуля
|
//Тело модуля
|
||||||
@ -15,8 +40,514 @@ import React from "react"; //Классы React
|
|||||||
|
|
||||||
//Корневая панель выполнения работ
|
//Корневая панель выполнения работ
|
||||||
const EqsPrfrm = () => {
|
const EqsPrfrm = () => {
|
||||||
|
//Собственное состояние - таблица данных
|
||||||
|
const [dataGrid, setDataGrid] = useState({
|
||||||
|
dataLoaded: false,
|
||||||
|
columnsDef: [],
|
||||||
|
groups: [],
|
||||||
|
rows: [],
|
||||||
|
reload: false
|
||||||
|
});
|
||||||
|
|
||||||
|
const [filter, setFilter] = useState({
|
||||||
|
belong: "Демопример",
|
||||||
|
prodObj: "К2",
|
||||||
|
techServ: "",
|
||||||
|
respDep: "",
|
||||||
|
fromMonth: 1,
|
||||||
|
fromYear: 2024,
|
||||||
|
toMonth: 12,
|
||||||
|
toYear: 2024
|
||||||
|
});
|
||||||
|
|
||||||
|
// 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 [filterCopy, setFilterCopy] = useState({ ...filter });
|
||||||
|
|
||||||
|
const [filterLock, setFilterLock] = useState(false);
|
||||||
|
|
||||||
|
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: ""
|
||||||
|
});
|
||||||
|
};
|
||||||
|
|
||||||
|
let yearArray = [];
|
||||||
|
let today = new Date();
|
||||||
|
|
||||||
|
const getYearArray = () => {
|
||||||
|
for (let i = 1990; i <= today.getFullYear(); i++) {
|
||||||
|
yearArray.push(i);
|
||||||
|
}
|
||||||
|
};
|
||||||
|
|
||||||
|
const monthArray = ["Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь"];
|
||||||
|
|
||||||
|
//Подключение к контексту взаимодействия с сервером
|
||||||
|
const { executeStored } = useContext(BackEndСtx);
|
||||||
|
|
||||||
|
//Загрузка данных таблицы с сервера
|
||||||
|
const loadData = useCallback(async () => {
|
||||||
|
if (dataGrid.reload) {
|
||||||
|
const data = await executeStored({
|
||||||
|
stored: "PKG_P8PANELS_EQUIPSRV.EQUIPSRV_GRID",
|
||||||
|
args: {
|
||||||
|
SBELONG: filter.belong,
|
||||||
|
SPRODOBJ: filter.prodObj,
|
||||||
|
STECHSERV: filter.techServ,
|
||||||
|
SRESPDEP: filter.respDep,
|
||||||
|
NFROMMONTH: filter.fromMonth,
|
||||||
|
NFROMYEAR: filter.fromYear,
|
||||||
|
NTOMONTH: filter.toMonth,
|
||||||
|
NTOYEAR: filter.toYear
|
||||||
|
},
|
||||||
|
respArg: "COUT",
|
||||||
|
attributeValueProcessor: (name, val) => (["caption", "name", "parent"].includes(name) ? undefined : val)
|
||||||
|
});
|
||||||
|
let cP = 0;
|
||||||
|
let sP = 0;
|
||||||
|
let cF = 0;
|
||||||
|
let sF = 0;
|
||||||
|
let properties = [];
|
||||||
|
if (data.XROWS != null) {
|
||||||
|
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 == "План") {
|
||||||
|
properties.map(p => {
|
||||||
|
if (DAY_NAME_REG_EXP.test(p.name)) cP = cP + 1;
|
||||||
|
});
|
||||||
|
} else if (properties[1].data == "Факт") {
|
||||||
|
properties.map(p => {
|
||||||
|
if (DAY_NAME_REG_EXP.test(p.name)) cF = cF + 1;
|
||||||
|
});
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
properties.map(p => {
|
||||||
|
if (MONTH_NAME_REG_EXP.test(p.name)) {
|
||||||
|
let str = p.data;
|
||||||
|
let m = [];
|
||||||
|
let i = 0;
|
||||||
|
while ((m = DIGITS_REG_EXP.exec(str)) != null) {
|
||||||
|
if (i == 0) sP = sP + Number(m[0].replace(",", "."));
|
||||||
|
else {
|
||||||
|
sF = sF + Number(m[0].replace(",", "."));
|
||||||
|
}
|
||||||
|
i++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
});
|
||||||
|
}
|
||||||
|
});
|
||||||
|
}
|
||||||
|
setInfo({ cntP: cP, sumP: sP, cntF: cF, sumF: sF });
|
||||||
|
setDataGrid(pv => ({
|
||||||
|
...pv,
|
||||||
|
columnsDef: data.XCOLUMNS_DEF ? [...data.XCOLUMNS_DEF] : pv.columnsDef,
|
||||||
|
rows: [...(data.XROWS || [])],
|
||||||
|
groups: [...(data.XGROUPS || [])],
|
||||||
|
dataLoaded: true,
|
||||||
|
reload: false
|
||||||
|
}));
|
||||||
|
}
|
||||||
|
}, [dataGrid.reload, filter, 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]);
|
||||||
|
|
||||||
|
useEffect(() => {
|
||||||
|
if (filterOpen) {
|
||||||
|
setFilterCopy({ ...filter });
|
||||||
|
}
|
||||||
|
// eslint-disable-next-line react-hooks/exhaustive-deps
|
||||||
|
}, [filterOpen]);
|
||||||
|
|
||||||
|
//При необходимости обновить данные таблицы
|
||||||
|
useEffect(() => {
|
||||||
|
loadData();
|
||||||
|
}, [loadData, dataGrid.reload]);
|
||||||
|
|
||||||
//Генерация содержимого
|
//Генерация содержимого
|
||||||
return <div>Выполнение работ ТОиР</div>;
|
return (
|
||||||
|
<div>
|
||||||
|
{getYearArray()}
|
||||||
|
<Dialog open={filterOpen} onClose={closeFilter}>
|
||||||
|
<DialogTitle>Фильтр отбора</DialogTitle>
|
||||||
|
<IconButton
|
||||||
|
aria-label="close"
|
||||||
|
onClick={closeFilter}
|
||||||
|
sx={{
|
||||||
|
position: "absolute",
|
||||||
|
right: 8,
|
||||||
|
top: 8,
|
||||||
|
color: theme => theme.palette.grey[500]
|
||||||
|
}}
|
||||||
|
>
|
||||||
|
<Icon>close</Icon>
|
||||||
|
</IconButton>
|
||||||
|
<DialogContent>
|
||||||
|
<Paper>
|
||||||
|
<Box component="section" sx={{ p: 1 }}>
|
||||||
|
<FormControl readOnly fullWidth variant="outlined">
|
||||||
|
<InputLabel htmlFor="belong-outlined">Принадлежность</InputLabel>
|
||||||
|
<OutlinedInput
|
||||||
|
error={filter.belong ? false : true}
|
||||||
|
id="belong-outlined"
|
||||||
|
value={filter.belong}
|
||||||
|
endAdornment={
|
||||||
|
<InputAdornment position="end">
|
||||||
|
<IconButton
|
||||||
|
aria-label="belong select"
|
||||||
|
onClick={() => {
|
||||||
|
pOnlineShowDictionary({
|
||||||
|
unitCode: "JuridicalPersons",
|
||||||
|
callBack: res =>
|
||||||
|
res.success === true
|
||||||
|
? setFilter(pv => ({ ...pv, belong: res.outParameters.out_CODE }))
|
||||||
|
: null
|
||||||
|
});
|
||||||
|
}}
|
||||||
|
edge="end"
|
||||||
|
>
|
||||||
|
<Icon>list</Icon>
|
||||||
|
</IconButton>
|
||||||
|
</InputAdornment>
|
||||||
|
}
|
||||||
|
aria-describedby="belong-outlined-helper-text"
|
||||||
|
label="Принадлежность"
|
||||||
|
/>
|
||||||
|
<Grid container>
|
||||||
|
<Grid item xs={6}>
|
||||||
|
{filter.belong ? null : (
|
||||||
|
<FormHelperText id="belong-outlined-helper-text" sx={{ color: "red" }}>
|
||||||
|
*Обязательное поле
|
||||||
|
</FormHelperText>
|
||||||
|
)}
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={6} sx={{ textAlign: "end" }}>
|
||||||
|
<Link
|
||||||
|
component="button"
|
||||||
|
variant="body2"
|
||||||
|
id="belong-outlined-link-btn"
|
||||||
|
sx={{ fontSize: "0.75rem", marginRight: "35px" }}
|
||||||
|
onClick={getJurPers}
|
||||||
|
>
|
||||||
|
Значение по умолчанию
|
||||||
|
</Link>
|
||||||
|
</Grid>
|
||||||
|
</Grid>
|
||||||
|
</FormControl>
|
||||||
|
</Box>
|
||||||
|
<Box component="section" sx={{ p: 1 }}>
|
||||||
|
<FormControl readOnly fullWidth>
|
||||||
|
<InputLabel htmlFor="prodObj-outlined">Производственный объект</InputLabel>
|
||||||
|
<OutlinedInput
|
||||||
|
error={filter.prodObj ? false : true}
|
||||||
|
id="prodObj-outlined"
|
||||||
|
value={filter.prodObj}
|
||||||
|
endAdornment={
|
||||||
|
<InputAdornment position="end">
|
||||||
|
<IconButton
|
||||||
|
aria-label="prodObj select"
|
||||||
|
onClick={() => {
|
||||||
|
pOnlineShowDictionary({
|
||||||
|
unitCode: "EquipConfiguration",
|
||||||
|
callBack: res =>
|
||||||
|
res.success === true
|
||||||
|
? setFilter(pv => ({ ...pv, prodObj: res.outParameters.out_CODE }))
|
||||||
|
: null
|
||||||
|
});
|
||||||
|
}}
|
||||||
|
edge="end"
|
||||||
|
>
|
||||||
|
<Icon>list</Icon>
|
||||||
|
</IconButton>
|
||||||
|
</InputAdornment>
|
||||||
|
}
|
||||||
|
aria-describedby="prodObj-outlined-helper-text"
|
||||||
|
label="Производственный объект"
|
||||||
|
/>
|
||||||
|
{filter.prodObj ? null : (
|
||||||
|
<FormHelperText id="prodObj-outlined-helper-text" sx={{ color: "red" }}>
|
||||||
|
*Обязательное поле
|
||||||
|
</FormHelperText>
|
||||||
|
)}
|
||||||
|
</FormControl>
|
||||||
|
</Box>
|
||||||
|
<Box component="section" sx={{ p: 1 }}>
|
||||||
|
<FormControl readOnly fullWidth>
|
||||||
|
<InputLabel htmlFor="techServ-outlined">Техническая служба</InputLabel>
|
||||||
|
<OutlinedInput
|
||||||
|
id="techServ-outlined"
|
||||||
|
value={filter.techServ}
|
||||||
|
endAdornment={
|
||||||
|
<InputAdornment position="end">
|
||||||
|
<IconButton
|
||||||
|
aria-label="techServ select"
|
||||||
|
onClick={() => {
|
||||||
|
pOnlineShowDictionary({
|
||||||
|
unitCode: "INS_DEPARTMENT",
|
||||||
|
callBack: res =>
|
||||||
|
res.success === true
|
||||||
|
? setFilter(pv => ({ ...pv, techServ: res.outParameters.out_CODE }))
|
||||||
|
: null
|
||||||
|
});
|
||||||
|
}}
|
||||||
|
edge="end"
|
||||||
|
>
|
||||||
|
<Icon>list</Icon>
|
||||||
|
</IconButton>
|
||||||
|
</InputAdornment>
|
||||||
|
}
|
||||||
|
label="Техническая служба"
|
||||||
|
/>
|
||||||
|
</FormControl>
|
||||||
|
</Box>
|
||||||
|
<Box component="section" sx={{ p: 1 }}>
|
||||||
|
<FormControl readOnly fullWidth>
|
||||||
|
<InputLabel htmlFor="respDep-outlined">Ответственное подразделение</InputLabel>
|
||||||
|
<OutlinedInput
|
||||||
|
id="respDep-outlined"
|
||||||
|
value={filter.respDep}
|
||||||
|
endAdornment={
|
||||||
|
<InputAdornment position="end">
|
||||||
|
<IconButton
|
||||||
|
aria-label="respDep select"
|
||||||
|
onClick={() => {
|
||||||
|
pOnlineShowDictionary({
|
||||||
|
unitCode: "INS_DEPARTMENT",
|
||||||
|
callBack: res =>
|
||||||
|
res.success === true
|
||||||
|
? setFilter(pv => ({ ...pv, respDep: res.outParameters.out_CODE }))
|
||||||
|
: null
|
||||||
|
});
|
||||||
|
}}
|
||||||
|
edge="end"
|
||||||
|
>
|
||||||
|
<Icon>list</Icon>
|
||||||
|
</IconButton>
|
||||||
|
</InputAdornment>
|
||||||
|
}
|
||||||
|
label="Ответственное подразделение"
|
||||||
|
/>
|
||||||
|
</FormControl>
|
||||||
|
</Box>
|
||||||
|
<Box component="section" sx={{ p: 1 }}>
|
||||||
|
<Grid container spacing={2}>
|
||||||
|
<Grid textAlign={"center"} item xs={4}>
|
||||||
|
Начало периода:
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={4}>
|
||||||
|
<FormControl fullWidth>
|
||||||
|
<InputLabel id="from-month-select-label">Месяц</InputLabel>
|
||||||
|
<Select
|
||||||
|
error={filter.fromMonth ? false : true}
|
||||||
|
labelId="from-month-select-label"
|
||||||
|
id="from-month-select"
|
||||||
|
value={filter.fromMonth}
|
||||||
|
aria-describedby="from-month-select-helper-text"
|
||||||
|
label="Месяц"
|
||||||
|
onChange={e => setFilter(pv => ({ ...pv, fromMonth: e.target.value }))}
|
||||||
|
>
|
||||||
|
{monthArray.map((item, i) => (
|
||||||
|
<MenuItem key={i + 1} value={i + 1}>
|
||||||
|
{item}
|
||||||
|
</MenuItem>
|
||||||
|
))}
|
||||||
|
</Select>
|
||||||
|
{filter.fromMonth ? null : (
|
||||||
|
<FormHelperText id="from-month-select-helper-text" sx={{ color: "red" }}>
|
||||||
|
*Обязательное поле
|
||||||
|
</FormHelperText>
|
||||||
|
)}
|
||||||
|
</FormControl>
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={4}>
|
||||||
|
<FormControl fullWidth>
|
||||||
|
<InputLabel id="from-year-select-label">Год</InputLabel>
|
||||||
|
<Select
|
||||||
|
error={filter.fromYear ? false : true}
|
||||||
|
labelId="from-year-select-label"
|
||||||
|
id="from-year-select"
|
||||||
|
value={filter.fromYear}
|
||||||
|
aria-describedby="from-year-select-helper-text"
|
||||||
|
label="Год"
|
||||||
|
onChange={e => setFilter(pv => ({ ...pv, fromYear: e.target.value }))}
|
||||||
|
>
|
||||||
|
{yearArray.map((item, i) => (
|
||||||
|
<MenuItem key={i} value={item}>
|
||||||
|
{item}
|
||||||
|
</MenuItem>
|
||||||
|
))}
|
||||||
|
</Select>
|
||||||
|
{filter.fromYear ? null : (
|
||||||
|
<FormHelperText id="from-year-select-helper-text" sx={{ color: "red" }}>
|
||||||
|
*Обязательное поле
|
||||||
|
</FormHelperText>
|
||||||
|
)}
|
||||||
|
</FormControl>
|
||||||
|
</Grid>
|
||||||
|
</Grid>
|
||||||
|
</Box>
|
||||||
|
<Box component="section" sx={{ p: 1 }}>
|
||||||
|
<Grid container spacing={2}>
|
||||||
|
<Grid textAlign={"center"} item xs={4}>
|
||||||
|
Конец периода:
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={4}>
|
||||||
|
<FormControl fullWidth>
|
||||||
|
<InputLabel id="to-month-select-label">Месяц</InputLabel>
|
||||||
|
<Select
|
||||||
|
error={filter.toMonth ? false : true}
|
||||||
|
labelId="to-month-select-label"
|
||||||
|
id="to-month-select"
|
||||||
|
value={filter.toMonth}
|
||||||
|
aria-describedby="to-month-select-helper-text"
|
||||||
|
label="Месяц"
|
||||||
|
onChange={e => setFilter(pv => ({ ...pv, toMonth: e.target.value }))}
|
||||||
|
>
|
||||||
|
{monthArray.map((item, i) => (
|
||||||
|
<MenuItem key={i + 1} value={i + 1}>
|
||||||
|
{item}
|
||||||
|
</MenuItem>
|
||||||
|
))}
|
||||||
|
</Select>
|
||||||
|
{filter.toMonth ? null : (
|
||||||
|
<FormHelperText id="to-month-select-helper-text" sx={{ color: "red" }}>
|
||||||
|
*Обязательное поле
|
||||||
|
</FormHelperText>
|
||||||
|
)}
|
||||||
|
</FormControl>
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={4}>
|
||||||
|
<FormControl fullWidth>
|
||||||
|
<InputLabel id="to-year-select-label">Год</InputLabel>
|
||||||
|
<Select
|
||||||
|
error={filter.toYear ? false : true}
|
||||||
|
labelId="to-year-select-label"
|
||||||
|
id="to-year-select"
|
||||||
|
value={filter.toYear}
|
||||||
|
aria-describedby="to-year-select-helper-text"
|
||||||
|
label="Год"
|
||||||
|
onChange={e => setFilter(pv => ({ ...pv, toYear: e.target.value }))}
|
||||||
|
>
|
||||||
|
{yearArray.map((item, i) => (
|
||||||
|
<MenuItem key={i} value={item}>
|
||||||
|
{item}
|
||||||
|
</MenuItem>
|
||||||
|
))}
|
||||||
|
</Select>
|
||||||
|
{filter.toYear ? null : (
|
||||||
|
<FormHelperText id="to-year-select-helper-text" sx={{ color: "red" }}>
|
||||||
|
*Обязательное поле
|
||||||
|
</FormHelperText>
|
||||||
|
)}
|
||||||
|
</FormControl>
|
||||||
|
</Grid>
|
||||||
|
</Grid>
|
||||||
|
</Box>
|
||||||
|
</Paper>
|
||||||
|
</DialogContent>
|
||||||
|
<DialogActions>
|
||||||
|
<Button
|
||||||
|
variant="contained"
|
||||||
|
disabled={
|
||||||
|
filter.belong && filter.prodObj && filter.fromMonth && filter.fromYear && filter.toMonth && filter.toYear ? false : true
|
||||||
|
}
|
||||||
|
onClick={() => {
|
||||||
|
setFilterLock(true);
|
||||||
|
setDataGrid({ reload: true });
|
||||||
|
closeFilter();
|
||||||
|
}}
|
||||||
|
>
|
||||||
|
Сформировать отчёт
|
||||||
|
</Button>
|
||||||
|
<Button variant="contained" onClick={clearFilter}>
|
||||||
|
Очистить фильтр
|
||||||
|
</Button>
|
||||||
|
<Button
|
||||||
|
variant="contained"
|
||||||
|
onClick={() => {
|
||||||
|
setFilter(filterCopy);
|
||||||
|
}}
|
||||||
|
>
|
||||||
|
Отменить изменения
|
||||||
|
</Button>
|
||||||
|
</DialogActions>
|
||||||
|
</Dialog>
|
||||||
|
<Link component="button" variant="body2" textAlign={"left"} onClick={openFilter}>
|
||||||
|
Фильтр отбора: {filter.belong ? `Принадлежность: ${filter.belong}` : ""}{" "}
|
||||||
|
{filter.prodObj ? `Производственный объект: ${filter.prodObj}` : ""} {filter.techServ ? `Техническая служба: ${filter.techServ}` : ""}{" "}
|
||||||
|
{filter.respDep ? `Ответственное подразделение: ${filter.respDep}` : ""}{" "}
|
||||||
|
{filter.fromMonth && filter.fromYear
|
||||||
|
? `Начало периода: ${filter.fromMonth < 10 ? "0" + filter.fromMonth : filter.fromMonth}.${filter.fromYear}`
|
||||||
|
: ""}{" "}
|
||||||
|
{filter.toMonth && filter.toYear
|
||||||
|
? `Конец периода: ${filter.toMonth < 10 ? "0" + filter.toMonth : filter.toMonth}.${filter.toYear}`
|
||||||
|
: ""}
|
||||||
|
</Link>
|
||||||
|
{dataGrid.dataLoaded ? (
|
||||||
|
<Paper variant="outlined">
|
||||||
|
<Grid container spacing={1}>
|
||||||
|
<Grid item xs={12}>
|
||||||
|
<Box p={1}>
|
||||||
|
<P8PDataGrid
|
||||||
|
{...P8P_DATA_GRID_CONFIG_PROPS}
|
||||||
|
columnsDef={dataGrid.columnsDef}
|
||||||
|
groups={dataGrid.groups}
|
||||||
|
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 })}
|
||||||
|
groupCellRender={prms => groupCellRender({ ...prms })}
|
||||||
|
showCellRightBorder={true}
|
||||||
|
/>
|
||||||
|
</Box>
|
||||||
|
</Grid>
|
||||||
|
</Grid>
|
||||||
|
</Paper>
|
||||||
|
) : null}
|
||||||
|
</div>
|
||||||
|
);
|
||||||
};
|
};
|
||||||
|
|
||||||
//----------------
|
//----------------
|
||||||
|
|||||||
167
app/panels/eqs_prfrm/layouts.js
Normal file
167
app/panels/eqs_prfrm/layouts.js
Normal file
@ -0,0 +1,167 @@
|
|||||||
|
/*
|
||||||
|
Парус 8 -
|
||||||
|
Дополнительная разметка и вёрстка клиентских элементов
|
||||||
|
*/
|
||||||
|
|
||||||
|
//---------------------
|
||||||
|
//Подключение библиотек
|
||||||
|
//---------------------
|
||||||
|
|
||||||
|
import { Grid, Stack } from "@mui/material";
|
||||||
|
import React from "react"; //Классы React
|
||||||
|
|
||||||
|
//---------
|
||||||
|
//Константы
|
||||||
|
//---------
|
||||||
|
|
||||||
|
//Шаблон чисел и имён ячеек дат
|
||||||
|
export const DIGITS_REG_EXP = /\d+,?\d*/g;
|
||||||
|
export const MONTH_NAME_REG_EXP = /_\d{4}_\d{1,2}/;
|
||||||
|
export const DAY_NAME_REG_EXP = /_\d{4}_\d{1,2}_\d{1,2}/;
|
||||||
|
|
||||||
|
let curParent = "";
|
||||||
|
let x = 0;
|
||||||
|
|
||||||
|
//-----------
|
||||||
|
//Тело модуля
|
||||||
|
//-----------
|
||||||
|
const formatDate = date => {
|
||||||
|
const [year, month, day] = date.substring(1).split("_");
|
||||||
|
let nd;
|
||||||
|
if (day == null) nd = `${month < 10 ? "0" + month : month}.${year}`;
|
||||||
|
else nd = `${day < 10 ? "0" + day : day}.${month < 10 ? "0" + month : month}.${year}`;
|
||||||
|
return nd;
|
||||||
|
};
|
||||||
|
|
||||||
|
export const headCellRender = ({ columnDef }, podr, cntP, sumP, cntF, sumF) => {
|
||||||
|
let cellStyle = { border: "1px solid rgba(0, 0, 0)", textAlign: "center" };
|
||||||
|
let cellProps = {};
|
||||||
|
let data = columnDef.caption;
|
||||||
|
|
||||||
|
if (columnDef.expandable) {
|
||||||
|
// поменять расположение + для развёртывания
|
||||||
|
}
|
||||||
|
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 = (
|
||||||
|
<Stack sx={{ justifyContent: "center" }} direction="row" width={300}>
|
||||||
|
<Grid container>
|
||||||
|
<Grid item xs={4}>
|
||||||
|
Подразделение:
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={8}>
|
||||||
|
{podr}
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={4}>
|
||||||
|
Кол-во ремонтов, план:
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={2}>
|
||||||
|
{cntP}
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={4}>
|
||||||
|
Трудоемкость, час. план:
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={2}>
|
||||||
|
{sumP}
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={4}>
|
||||||
|
Кол-во ремонтов, факт:
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={2}>
|
||||||
|
{cntF}
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={4}>
|
||||||
|
Трудоемкость, час. факт:
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={2}>
|
||||||
|
{sumF}
|
||||||
|
</Grid>
|
||||||
|
</Grid>
|
||||||
|
</Stack>
|
||||||
|
);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (columnDef.visible && DAY_NAME_REG_EXP.test(columnDef.name)) {
|
||||||
|
cellStyle = { ...cellStyle, paddingLeft: "5px", paddingRight: "5px", minWidth: "25px", maxWidth: "25px" };
|
||||||
|
}
|
||||||
|
|
||||||
|
return { cellStyle, cellProps, data };
|
||||||
|
};
|
||||||
|
|
||||||
|
export const dataCellRender = ({ row, columnDef }) => {
|
||||||
|
let cellStyle = {
|
||||||
|
padding: "2px",
|
||||||
|
border: "1px solid rgba(0, 0, 0)",
|
||||||
|
textAlign: "center"
|
||||||
|
};
|
||||||
|
let cellProps = {};
|
||||||
|
let data = " ";
|
||||||
|
|
||||||
|
if (row["SINFO2"] == undefined) {
|
||||||
|
if (columnDef.name == "STEST") cellProps = { colSpan: 2 };
|
||||||
|
if (columnDef.name == "SINFO2") cellStyle = { display: "none" };
|
||||||
|
if (columnDef.parent == "" && columnDef.expandable == true && columnDef.expanded == false) {
|
||||||
|
curParent = columnDef.name;
|
||||||
|
return { cellStyle: { ...cellStyle, height: "25px" }, data };
|
||||||
|
} else if (columnDef.name != "SINFO2" && columnDef.parent != "" && columnDef.expandable == false && columnDef.expanded == true) {
|
||||||
|
if (columnDef.name.endsWith("_1")) {
|
||||||
|
curParent = columnDef.parent;
|
||||||
|
const [year, month] = curParent.substring(1).split("_");
|
||||||
|
x = new Date(year, month, 0).getDate();
|
||||||
|
cellProps = { colSpan: x };
|
||||||
|
data = row[curParent];
|
||||||
|
return { cellStyle, cellProps, data };
|
||||||
|
} else {
|
||||||
|
cellStyle = { display: "none" };
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (columnDef.name == "STEST" && row["SINFO2"] == "План") {
|
||||||
|
cellStyle = { ...cellStyle };
|
||||||
|
cellProps = { rowSpan: 2 };
|
||||||
|
}
|
||||||
|
if (columnDef.name == "STEST" && row["SINFO2"] == "Факт") {
|
||||||
|
cellStyle = { display: "none" };
|
||||||
|
}
|
||||||
|
|
||||||
|
switch (row[columnDef.name]) {
|
||||||
|
case "blue":
|
||||||
|
cellStyle = { ...cellStyle, backgroundColor: "royalblue", border: "1px solid rgba(0, 0, 0)" };
|
||||||
|
cellProps = { title: formatDate(columnDef.name) };
|
||||||
|
return { cellStyle, cellProps, data };
|
||||||
|
case "green":
|
||||||
|
cellStyle = { ...cellStyle, backgroundColor: "lawngreen", border: "1px solid rgba(0, 0, 0)" };
|
||||||
|
cellProps = { title: formatDate(columnDef.name) };
|
||||||
|
return { cellStyle, cellProps, data };
|
||||||
|
case "red":
|
||||||
|
cellStyle = { ...cellStyle, backgroundColor: "crimson", border: "1px solid rgba(0, 0, 0)" };
|
||||||
|
cellProps = { title: formatDate(columnDef.name) };
|
||||||
|
return { cellStyle, cellProps, data };
|
||||||
|
case "green red":
|
||||||
|
case "red green":
|
||||||
|
cellStyle = { ...cellStyle, padding: "unset" };
|
||||||
|
cellProps = { title: formatDate(columnDef.name) };
|
||||||
|
data = (
|
||||||
|
<Stack sx={{ justifyContent: "center" }} direction="row">
|
||||||
|
<Grid container maxHeight="100%">
|
||||||
|
<Grid item xs={6} sx={{ backgroundColor: "lawngreen" }}>
|
||||||
|
<p style={{ display: "none" }}>g</p>
|
||||||
|
</Grid>
|
||||||
|
<Grid item xs={6} sx={{ backgroundColor: "crimson" }}>
|
||||||
|
<p style={{ display: "none" }}>r</p>
|
||||||
|
</Grid>
|
||||||
|
</Grid>
|
||||||
|
</Stack>
|
||||||
|
);
|
||||||
|
}
|
||||||
|
return { cellStyle, cellProps };
|
||||||
|
};
|
||||||
|
|
||||||
|
export const groupCellRender = () => {
|
||||||
|
let cellStyle = { display: "none" };
|
||||||
|
return { cellStyle };
|
||||||
|
};
|
||||||
602
db/PKG_P8PANELS_EQUIPSRV.pck
Normal file
602
db/PKG_P8PANELS_EQUIPSRV.pck
Normal file
@ -0,0 +1,602 @@
|
|||||||
|
create or replace package PKG_P8PANELS_EQUIPSRV as
|
||||||
|
|
||||||
|
/* Получение значения системного параметра "JuridicalPerson" */
|
||||||
|
procedure GET_JUR_PERS_PRM
|
||||||
|
(
|
||||||
|
CRES out clob -- Значение параметра "JuridicalPerson" (null - если не нашли)
|
||||||
|
);
|
||||||
|
|
||||||
|
function HOURS_STR
|
||||||
|
(
|
||||||
|
NHOURS in number -- Кол-во часов
|
||||||
|
) return varchar2;
|
||||||
|
|
||||||
|
/* Выполнение работ по ТОиР */
|
||||||
|
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 -- График проектов
|
||||||
|
);
|
||||||
|
end PKG_P8PANELS_EQUIPSRV;
|
||||||
|
/
|
||||||
|
create or replace package body PKG_P8PANELS_EQUIPSRV as
|
||||||
|
|
||||||
|
/* Получение значения системного параметра "JuridicalPerson" */
|
||||||
|
procedure GET_JUR_PERS_PRM
|
||||||
|
(
|
||||||
|
CRES out clob -- Значение параметра "JuridicalPerson" (null - если не нашли)
|
||||||
|
)
|
||||||
|
is
|
||||||
|
NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации
|
||||||
|
SPARAMCODE PKG_STD.TSTRING := 'JuridicalPerson'; -- Код параметра
|
||||||
|
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;
|
||||||
|
|
||||||
|
/* Формирование строки с кол-вом часов */
|
||||||
|
function HOURS_STR
|
||||||
|
(
|
||||||
|
NHOURS in number -- Кол-во часов
|
||||||
|
) return varchar2 -- Строка с кол-вом часов
|
||||||
|
is
|
||||||
|
SRESULT PKG_STD.tSTRING; -- Строка результат
|
||||||
|
begin
|
||||||
|
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
|
||||||
|
SRESULT := NHOURS || ' часа';
|
||||||
|
else
|
||||||
|
SRESULT := NHOURS || ' часов';
|
||||||
|
end if;
|
||||||
|
/* Возвращаем результат */
|
||||||
|
return SRESULT;
|
||||||
|
end HOURS_STR;
|
||||||
|
|
||||||
|
/* Выполнение работ по ТОиР */
|
||||||
|
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 -- График проектов
|
||||||
|
)
|
||||||
|
is
|
||||||
|
NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации
|
||||||
|
SPRJ_GROUP_NAME PKG_STD.TSTRING; -- Наименование группы для проекта
|
||||||
|
BEXPANDED boolean; -- Флаг раскрытости уровня
|
||||||
|
RDG PKG_P8PANELS_VISUAL.TDATA_GRID; -- Описание таблицы
|
||||||
|
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; -- Дней в текущем месяце
|
||||||
|
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; -- День факт
|
||||||
|
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; -- Коллекция для закрашивания месяцев
|
||||||
|
|
||||||
|
cursor C1 is
|
||||||
|
select TT.NEQV_RN,
|
||||||
|
TT.NEQS_RN,
|
||||||
|
TT.NWRK_RN NRN,
|
||||||
|
TT.COMPANY NCOMPANY,
|
||||||
|
TT.NAME_WORK SWORKNAME,
|
||||||
|
EC2.CODE STECHOBJCODE,
|
||||||
|
EC2.NAME STECHOBJNAME,
|
||||||
|
JP.CODE SBELONG,
|
||||||
|
EC1.CODE SPRODOBJ,
|
||||||
|
DS.CODE STECHSERV,
|
||||||
|
DR.CODE SRESPDEP,
|
||||||
|
TT.DATEPRD_BEG DDATEPLANBEG,
|
||||||
|
TT.DATEPRD_END DDATEPLANEND,
|
||||||
|
EQJ.DATEFACT_BEG DDATEFACTBEG,
|
||||||
|
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,
|
||||||
|
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,
|
||||||
|
EQRPSHWRK C
|
||||||
|
where B.nEQS_RN = C.PRN (+)) TT,
|
||||||
|
EQTECSRVKIND EK,
|
||||||
|
JURPERSONS JP,
|
||||||
|
EQCONFIG EC1,
|
||||||
|
EQCONFIG EC2,
|
||||||
|
INS_DEPARTMENT DS,
|
||||||
|
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
|
||||||
|
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.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;
|
||||||
|
begin
|
||||||
|
/* Инициализируем таблицу данных */
|
||||||
|
RDG := PKG_P8PANELS_VISUAL.TDATA_GRID_MAKE();
|
||||||
|
/* Формируем структуру заголовка */
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'STEST',
|
||||||
|
SCAPTION => 'ТЕСТ',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'SINFO',
|
||||||
|
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');
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'NRN',
|
||||||
|
SCAPTION => 'Рег. номер',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'SWORKNAME',
|
||||||
|
SCAPTION => 'Наименование работы',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'STECHOBJCODE',
|
||||||
|
SCAPTION => 'Код тех. объекта',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'STECHOBJNAME',
|
||||||
|
SCAPTION => 'Наименование тех. объекта',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'SBELONG',
|
||||||
|
SCAPTION => 'Принадлежность',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'SPRODOBJ',
|
||||||
|
SCAPTION => 'Производственный объект',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'STECHSERV',
|
||||||
|
SCAPTION => 'Тех. служба',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'SRESPDEP',
|
||||||
|
SCAPTION => 'Отвественное подразделение',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'STECSERVCODE',
|
||||||
|
SCAPTION => 'Вид ремонта',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'DDATEPLANBEG',
|
||||||
|
SCAPTION => 'Начало работы (план)',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_DATE,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'DDATEPLANEND',
|
||||||
|
SCAPTION => 'Окончание работы (план)',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_DATE,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'DDATEFACTBEG',
|
||||||
|
SCAPTION => 'Начало работы (факт)',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_DATE,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'DDATEFACTEND',
|
||||||
|
SCAPTION => 'Окончание работы (факт)',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_DATE,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'STECSRVKINDCODE',
|
||||||
|
SCAPTION => 'Код типа работы',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'STECSRVKINDNAME',
|
||||||
|
SCAPTION => 'Наименование типа работы',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
/* Очистка коллекций */
|
||||||
|
PKG_CONTVALLOC1S.PURGE(YM);
|
||||||
|
PKG_CONTVALLOC1S.PURGE(MCLR);
|
||||||
|
|
||||||
|
NCURYEAR := EXTRACT(year from sysdate);
|
||||||
|
NCURMONTH := EXTRACT(month from sysdate);
|
||||||
|
|
||||||
|
/* Цикл по годам периода */
|
||||||
|
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
|
||||||
|
NMS := 1;
|
||||||
|
NME := 12;
|
||||||
|
elsif (Y = NTOYEAR) then
|
||||||
|
NMS := 1;
|
||||||
|
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
|
||||||
|
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,
|
||||||
|
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');
|
||||||
|
/* Цикл по дням месяца */
|
||||||
|
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),
|
||||||
|
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;
|
||||||
|
|
||||||
|
/* Подсчёт кол-ва записей в курсоре */
|
||||||
|
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 (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
|
||||||
|
NMS := 1;
|
||||||
|
NME := 12;
|
||||||
|
elsif (Y = NTOYEAR) then
|
||||||
|
NMS := 1;
|
||||||
|
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;
|
||||||
|
end loop;
|
||||||
|
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW0);
|
||||||
|
end if;
|
||||||
|
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);
|
||||||
|
RDG_ROW0 := PKG_P8PANELS_VISUAL.TROW_MAKE(SGROUP => SPRJ_GROUP_NAME);
|
||||||
|
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 (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);
|
||||||
|
/* Цикл по коллекции для закрашивания месяцев */
|
||||||
|
for Z in 1 .. PKG_CONTVALLOC1S.COUNT_(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);
|
||||||
|
end loop;
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW2);
|
||||||
|
end if;
|
||||||
|
PKG_CONTVALLOC1S.PURGE(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);
|
||||||
|
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_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)
|
||||||
|
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
|
||||||
|
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);
|
||||||
|
end if;
|
||||||
|
|
||||||
|
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;
|
||||||
|
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
|
||||||
|
PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => SPERIODNAME, SVALUE => 'blue');
|
||||||
|
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
|
||||||
|
SFACT_CLR := 'green';
|
||||||
|
else
|
||||||
|
SFACT_CLR := 'red';
|
||||||
|
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)
|
||||||
|
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
|
||||||
|
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);
|
||||||
|
end if;
|
||||||
|
|
||||||
|
/* Добавление в коллекцию окрашивания месяца */
|
||||||
|
if (PKG_CONTVALLOC1S.EXISTS_(rCONTAINER => MCLR, sROWID => SPERIODNAME) = false) then
|
||||||
|
PKG_CONTVALLOC1S.PUTS(MCLR, SPERIODNAME, 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);
|
||||||
|
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);
|
||||||
|
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);
|
||||||
|
else
|
||||||
|
if (trim(PKG_CONTVALLOC1S.GETS(MCLR, SPERIODNAME)) = 'green' and trim(SFACT_CLR) = 'red') then
|
||||||
|
PKG_CONTVALLOC1S.PUTS(MCLR, SPERIODNAME, SFACT_CLR);
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
end loop;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
if (RDG_ROW0.RCOLS is not null and NROWS = 0) 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
|
||||||
|
NMS := 1;
|
||||||
|
NME := 12;
|
||||||
|
elsif (Y = NTOYEAR) then
|
||||||
|
NMS := 1;
|
||||||
|
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;
|
||||||
|
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
|
||||||
|
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)
|
||||||
|
loop
|
||||||
|
PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW2, SNAME => CR, SVALUE => PKG_CONTVALLOC1S.GETS(MCLR, CR));
|
||||||
|
CR := PKG_CONTVALLOC1S.NEXT_(MCLR, cr);
|
||||||
|
end loop;
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW2);
|
||||||
|
end if;
|
||||||
|
end loop;
|
||||||
|
/* Сериализуем описание */
|
||||||
|
COUT := PKG_P8PANELS_VISUAL.TDATA_GRID_TO_XML(RDATA_GRID => RDG, NINCLUDE_DEF => 1);
|
||||||
|
PKG_CONTVALLOC1S.PURGE(YM);
|
||||||
|
end EQUIPSRV_GRID;
|
||||||
|
end PKG_P8PANELS_EQUIPSRV;
|
||||||
|
/
|
||||||
@ -1,3 +1,4 @@
|
|||||||
grant execute on PKG_P8PANELS to public;
|
grant execute on PKG_P8PANELS to public;
|
||||||
grant execute on PKG_P8PANELS_PROJECTS to public;
|
grant execute on PKG_P8PANELS_PROJECTS to public;
|
||||||
grant execute on PKG_P8PANELS_SAMPLES to public;
|
grant execute on PKG_P8PANELS_SAMPLES to public;
|
||||||
|
grant execute on PKG_P8PANELS_EQUIPSRV to public;
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user