CITKParus/P8-Panels
2
0
Fork 2
Code Issues Pull Requests 1 Projects Releases Wiki Activity

Compare commits

base: CITKParus:11f29bcf0c653169deae80a55bb4048087326e21
Branches Tags
CITKParus:main
..
compare: CITKParus:2672bcd8bedbd1cf4088114fe8642387c75e7639
Branches Tags
CITKParus:main

No commits in common. "11f29bcf0c653169deae80a55bb4048087326e21" and "2672bcd8bedbd1cf4088114fe8642387c75e7639" have entirely different histories.
11f29bcf0c ... 2672bcd8be

4 changed files with 208 additions and 500 deletions
Show Stats Expand all files Collapse all files

120
app/panels/rrp_conf_editor/components/rrp_section.js
View File

@ -9,23 +9,7 @@
import React, { useState } from "react"; //Классы React import React, { useState } from "react"; //Классы React
import PropTypes from "prop-types"; //Контроль свойств компонента import PropTypes from "prop-types"; //Контроль свойств компонента
import { import { Box, IconButton, Icon, Dialog, DialogTitle, DialogContent, Typography, List, ListItem } from "@mui/material"; //Интерфейсные элементы
Box,
IconButton,
Icon,
Dialog,
DialogTitle,
DialogContent,
Button,
Typography,
List,
ListItem,
Select,
FormControl,
InputLabel,
MenuItem,
DialogActions
} from "@mui/material"; //Интерфейсные элементы
import { P8PDataGrid, P8P_DATA_GRID_SIZE } from "../../../components/p8p_data_grid"; //Таблица данных import { P8PDataGrid, P8P_DATA_GRID_SIZE } from "../../../components/p8p_data_grid"; //Таблица данных
import { P8P_DATA_GRID_CONFIG_PROPS } from "../../../config_wrapper"; //Подключение компонентов к настройкам приложения import { P8P_DATA_GRID_CONFIG_PROPS } from "../../../config_wrapper"; //Подключение компонентов к настройкам приложения
import { SectionTabPanel } from "./section_tab_panel"; //Компонент вкладки раздела import { SectionTabPanel } from "./section_tab_panel"; //Компонент вкладки раздела
@ -83,8 +67,7 @@ const STYLES = {
}, },
HELP_LIST_ITEM_DESC: { HELP_LIST_ITEM_DESC: {
fontSize: "inherit" fontSize: "inherit"
}, }
DIALOG_ACTIONS: { justifyContent: "end", paddingRight: "24px", paddingLeft: "24px" }
}; };
//------------------------------------ //------------------------------------
@ -153,89 +136,6 @@ HelpDialog.propTypes = {
handleOpenHelpChange: PropTypes.func.isRequired handleOpenHelpChange: PropTypes.func.isRequired
}; };
//Диалог сортировки
const SortDialog = ({ init, handleOpenSortChange, onOrderChange }) => {
//Собственное состояние сортировки
const [order, setOrder] = useState({ row: init.rowOrder ? init.rowOrder : 0, column: init.columnOrder ? init.columnOrder : 0 });
//Изменеие сортировки
const handleOrderChange = e => setOrder(pv => ({ ...pv, [e.target.name]: e.target.value }));
//Нажатие на кнопку Ok
const handleOk = () => {
onOrderChange({ rowOrder: order.row, columnOrder: order.column });
handleOpenSortChange();
};
//Кнопка "Очистить", значения по умолчанию
const handleClear = () => {
setOrder({ row: 0, column: 0 });
};
//Кнопка "Отмена"
const handleCancel = () => {
handleOpenSortChange();
};
//Генерация содержимого
return (
<Dialog open onClose={handleOpenSortChange}>
<DialogTitle>
<Box display="flex" alignItems="center">
<Box flexGrow={1} textAlign="center">
Сортировка
</Box>
<Box>
<IconButton aria-label="close" onClick={handleCancel}>
<Icon>close</Icon>
</IconButton>
</Box>
</Box>
</DialogTitle>
<DialogContent>
<Box component="section" p={1}>
<FormControl variant="standard" fullWidth>
<InputLabel id="row-label">Строки</InputLabel>
<Select labelId="row-label" id="row" name="row" value={order.row} label="Строки" onChange={handleOrderChange}>
<MenuItem value={0}>Номер</MenuItem>
<MenuItem value={1}>Код</MenuItem>
<MenuItem value={2}>Мнемокод</MenuItem>
</Select>
</FormControl>
</Box>
<Box component="section" p={1}>
<FormControl variant="standard" fullWidth>
<InputLabel id="column-label">Графы</InputLabel>
<Select labelId="column-label" id="column" name="column" value={order.column} label="Графы" onChange={handleOrderChange}>
<MenuItem value={0}>Номер</MenuItem>
<MenuItem value={1}>Код</MenuItem>
<MenuItem value={2}>Мнемокод</MenuItem>
</Select>
</FormControl>
</Box>
</DialogContent>
<DialogActions sx={STYLES.DIALOG_ACTIONS}>
<Button variant="text" onClick={handleOk}>
ОК
</Button>
<Button variant="text" onClick={handleClear}>
Очистить
</Button>
<Button variant="text" onClick={handleCancel}>
Отмена
</Button>
</DialogActions>
</Dialog>
);
};
//Контроль свойств - Диалог сортировки
SortDialog.propTypes = {
init: PropTypes.object.isRequired,
handleOpenSortChange: PropTypes.func.isRequired,
onOrderChange: PropTypes.func.isRequired
};
//----------- //-----------
//Тело модуля //Тело модуля
//----------- //-----------
@ -245,8 +145,6 @@ const SectionTab = ({
section, section,
tabValue, tabValue,
index, index,
order,
onOrderChange,
containerProps, containerProps,
handleMarkAdd, handleMarkAdd,
handleReload, handleReload,
@ -263,14 +161,6 @@ const SectionTab = ({
setOpenHelp(!openHelp); setOpenHelp(!openHelp);
}; };
//Состояние - диалог сортировки
const [openSort, setOpenSort] = useState(false);
//Изменение состояния диалога сортировки
const handleOpenSortChange = () => {
setOpenSort(!openSort);
};
//Генерация содержимого //Генерация содержимого
return ( return (
<> <>
@ -285,9 +175,6 @@ const SectionTab = ({
</IconButton> </IconButton>
</Box> </Box>
<Box> <Box>
<IconButton onClick={() => handleOpenSortChange()}>
<Icon>sort</Icon>
</IconButton>
<IconButton onClick={() => handleOpenHelpChange()}> <IconButton onClick={() => handleOpenHelpChange()}>
<Icon>help</Icon> <Icon>help</Icon>
</IconButton> </IconButton>
@ -330,7 +217,6 @@ const SectionTab = ({
</Box> </Box>
) : null} ) : null}
</SectionTabPanel> </SectionTabPanel>
{openSort ? <SortDialog init={order} handleOpenSortChange={handleOpenSortChange} onOrderChange={onOrderChange} /> : null}
{openHelp ? <HelpDialog handleOpenHelpChange={handleOpenHelpChange} /> : null} {openHelp ? <HelpDialog handleOpenHelpChange={handleOpenHelpChange} /> : null}
</> </>
); );
@ -341,8 +227,6 @@ SectionTab.propTypes = {
section: PropTypes.object.isRequired, section: PropTypes.object.isRequired,
tabValue: PropTypes.number, tabValue: PropTypes.number,
index: PropTypes.number, index: PropTypes.number,
order: PropTypes.object.isRequired,
onOrderChange: PropTypes.func.isRequired,
containerProps: PropTypes.object, containerProps: PropTypes.object,
handleMarkAdd: PropTypes.func, handleMarkAdd: PropTypes.func,
handleReload: PropTypes.func, handleReload: PropTypes.func,

200
app/panels/rrp_conf_editor/hooks.js
View File

@ -39,7 +39,7 @@ const useWindowResize = () => {
}; };
//Хук для настройки регламентированного отчета //Хук для настройки регламентированного отчета
const useConf = (currentTab, handleSectionChange, order) => { const useConf = (currentTab, handleSectionChange) => {
//Собственное состояние - таблица данных //Собственное состояние - таблица данных
const dataGrid = { const dataGrid = {
rn: 0, rn: 0,
@ -58,7 +58,6 @@ const useConf = (currentTab, handleSectionChange, order) => {
const [rrpConf, setRrpConf] = useState({ const [rrpConf, setRrpConf] = useState({
docLoaded: false, docLoaded: false,
sections: [], sections: [],
orderChanged: false,
reload: true reload: true
}); });
@ -77,116 +76,103 @@ const useConf = (currentTab, handleSectionChange, order) => {
}, []); }, []);
//Загрузка данных разделов регламентированного отчёта //Загрузка данных разделов регламентированного отчёта
const loadData = useCallback( const loadData = useCallback(async () => {
async () => { if (rrpConf.reload) {
if (rrpConf.reload) { //Переменная номера раздела с фокусом
//Переменная номера раздела с фокусом let tabFocus = currentTab ? currentTab : 0;
let tabFocus = currentTab ? currentTab : 0; const data = await executeStored({
const data = await executeStored({ stored: "PKG_P8PANELS_RRPCONFED.RRPCONF_GET_SECTIONS",
stored: "PKG_P8PANELS_RRPCONFED.RRPCONF_GET_SECTIONS", args: {
args: { NRN_RRPCONF: Number(getNavigationSearch().NRN)
NRN_RRPCONF: Number(getNavigationSearch().NRN), },
NROW_ORDER: Number(order.rowOrder), respArg: "COUT"
NCOL_ORDER: Number(order.columnOrder) });
}, //Флаг первой загрузки данных
respArg: "COUT" let firstLoad = dataGrids.length == 0 ? true : false;
//Копирование массива уже загруженных разделов
let cloneDGs = dataGrids.slice();
//Массив из нескольких разделов и из одного
const sections = data.SECTIONS ? (data.SECTIONS.length ? data.SECTIONS : [data.SECTIONS]) : [];
//Заполнение очередного раздела по шаблону
sections.map(s => {
let dg = {};
Object.assign(dg, dataGrid, {
...s.XDATA.XDATA_GRID,
rn: s.NRN,
code: s.SCODE,
name: s.SNAME,
delete_allow: s.NDELETE_ALLOW,
dataLoaded: true,
columnsDef: [...(s.XDATA.XDATA_GRID.columnsDef || [])],
groups: [...(s.XDATA.XDATA_GRID.groups || [])],
rows: [...(s.XDATA.XDATA_GRID.rows || [])],
reload: false
}); });
//Флаг первой загрузки данных //Если раздел имеет составы показателей
let firstLoad = dataGrids.length == 0 ? true : false; if (s.MARK_CNS.MARK_CN) {
//Копирование массива уже загруженных разделов //Обходим строки раздела
let cloneDGs = dataGrids.slice(); dg.rows.map(row => {
//Массив из нескольких разделов и из одного //Цикл по ключам строки
const sections = data.SECTIONS ? (data.SECTIONS.length ? data.SECTIONS : [data.SECTIONS]) : []; for (let key in row) {
//Заполнение очередного раздела по шаблону //Если это ключ для группы составов показателей
sections if (key.match(/MARK_CNS_.*/)) {
.sort((a, b) => a.SCODE - b.SCODE) //Считываем рег. номер показателя
.map(s => { let markRn = key.substring(9);
let dg = {}; //Переносим из раздела
Object.assign(dg, dataGrid, { row[key] = Array.isArray(s.MARK_CNS.MARK_CN)
...s.XDATA.XDATA_GRID, ? [...s.MARK_CNS.MARK_CN].filter(el => el.NPRN === row[`NMARK_RN_${markRn}`])
rn: s.NRN, : s.MARK_CNS.MARK_CN.NPRN === row[`NMARK_RN_${markRn}`]
code: s.SCODE, ? [s.MARK_CNS.MARK_CN]
name: s.SNAME, : null;
delete_allow: s.NDELETE_ALLOW,
dataLoaded: true,
columnsDef: [...(s.XDATA.XDATA_GRID.columnsDef || [])],
groups: [...(s.XDATA.XDATA_GRID.groups || [])],
rows: [...(s.XDATA.XDATA_GRID.rows || [])],
reload: false
});
//Если раздел имеет составы показателей
if (s.MARK_CNS.MARK_CN) {
//Обходим строки раздела
dg.rows.map(row => {
//Цикл по ключам строки
for (let key in row) {
//Если это ключ для группы составов показателей
if (key.match(/MARK_CNS_.*/)) {
//Считываем рег. номер показателя
let markRn = key.substring(9);
//Переносим из раздела
row[key] = Array.isArray(s.MARK_CNS.MARK_CN)
? [...s.MARK_CNS.MARK_CN].filter(el => el.NPRN === row[`NMARK_RN_${markRn}`])
: s.MARK_CNS.MARK_CN.NPRN === row[`NMARK_RN_${markRn}`]
? [s.MARK_CNS.MARK_CN]
: null;
}
}
});
}
//Ищем загружен ли уже раздел с таким же ид.
const dgItem = dataGrids.find(x => x.rn === dg.rn);
//Его индекс, если нет соответствия, то -1
let index = dataGrids.indexOf(dgItem);
//Если было соответствие
if (dgItem) {
//Если в нём не найдено изменений
if (JSON.stringify(dgItem, null, 4) === JSON.stringify(dg, null, 4)) {
//То из копированного массива его удаляем
cloneDGs.splice(cloneDGs.indexOf(cloneDGs.find(x => x.rn === dgItem.rn)), 1);
} else {
//Иначе обновляем раздел в массиве
dataGrids[index] = dg;
//Удаляем из копированного массива
cloneDGs.splice(cloneDGs.indexOf(cloneDGs.find(x => x.rn === dg.rn)), 1);
//Устанавливаем фокус на обновлённый раздел, если был добавлен
tabFocus = rrpConf.orderChanged ? 0 : index;
} }
} else {
//Если раздел новый, то добавляем его в массив данных
dataGrids.push(dg);
//И устанавливаем на него фокус, если флаг первой загрузки = false
tabFocus = !firstLoad ? dataGrids.length - 1 : 0;
} }
}); });
//Обходим разделы, что остались в копированном массиве (на удаление) }
cloneDGs.map(s => { //Ищем загружен ли уже раздел с таким же ид.
let curIndex = dataGrids.indexOf(dataGrids.find(x => x.rn === s.rn)); const dgItem = dataGrids.find(x => x.rn === dg.rn);
//Устаревший раздел удаляем из массива данных //Его индекс, если нет соответствия, то -1
dataGrids.splice(curIndex, 1); let index = dataGrids.indexOf(dgItem);
//Фокус на предшествующий раздел //Если было соответствие
if (curIndex > 0) tabFocus = curIndex - 1; if (dgItem) {
//Иначе фокус на следующий, если был удалён первый раздел //Если в нём не найдено изменений
else tabFocus = curIndex; if (JSON.stringify(dgItem, null, 4) === JSON.stringify(dg, null, 4)) {
}); //То из копированного массива его удаляем
setRrpConf(pv => ({ cloneDGs.splice(cloneDGs.indexOf(cloneDGs.find(x => x.rn === dgItem.rn)), 1);
...pv, } else {
docLoaded: true, //Иначе обновляем раздел в массиве
orderChanged: false, dataGrids[index] = dg;
reload: false, //Удаляем из копированного массива
sections: dataGrids cloneDGs.splice(cloneDGs.indexOf(cloneDGs.find(x => x.rn === dg.rn)), 1);
})); //Устанавливаем фокус на обновлённый раздел
handleSectionChange(tabFocus); tabFocus = index;
} }
}, } else {
//Если раздел новый, то добавляем его в массив данных
dataGrids.push(dg);
//И устанавливаем на него фокус, если флаг первой загрузки = false
tabFocus = !firstLoad ? dataGrids.length - 1 : 0;
}
});
//Обходим разделы, что остались в копированном массиве (на удаление)
cloneDGs.map(s => {
let curIndex = dataGrids.indexOf(dataGrids.find(x => x.rn === s.rn));
//Устаревший раздел удаляем из массива данных
dataGrids.splice(curIndex, 1);
//Фокус на предшествующий раздел
if (curIndex > 0) tabFocus = curIndex - 1;
//Иначе фокус на следующий, если был удалён первый раздел
else tabFocus = curIndex;
});
setRrpConf(pv => ({
...pv,
docLoaded: true,
reload: false,
sections: dataGrids
}));
handleSectionChange(tabFocus);
}
// eslint-disable-next-line react-hooks/exhaustive-deps // eslint-disable-next-line react-hooks/exhaustive-deps
[rrpConf.reload, rrpConf.docLoaded, dataGrid.reload, dataGrid.docLoaded, executeStored] }, [rrpConf.reload, rrpConf.docLoaded, dataGrid.reload, dataGrid.docLoaded, executeStored]);
);
//При изменении сортировок
useEffect(() => {
setRrpConf(pv => ({ ...pv, orderChanged: true, reload: true }));
}, [order]);
//При необходимости обновить данные таблицы //При необходимости обновить данные таблицы
useEffect(() => { useEffect(() => {

10
app/panels/rrp_conf_editor/rrp_conf_editor.js
View File

@ -44,14 +44,8 @@ const RrpConfEditor = () => {
//Состояние вкладки //Состояние вкладки
const [tabValue, handleSectionChange] = useTab(""); const [tabValue, handleSectionChange] = useTab("");
//Состояние сортировки строк и граф
const [order, setOrder] = useState({ rowOrder: 0, columnOrder: 0 });
//Изменение состояния сортировки строк и граф
const handleOrder = newOrder => setOrder(newOrder);
//Состояние настройки //Состояние настройки
const [rrpConf, handleReload] = useConf(tabValue, handleSectionChange, order); const [rrpConf, handleReload] = useConf(tabValue, handleSectionChange);
//Функции открытия разделов //Функции открытия разделов
const [handleMarkOpen, handleMarkCnOpen, handleMarkCnInsert] = useRecOpen(handleReload); const [handleMarkOpen, handleMarkCnOpen, handleMarkCnInsert] = useRecOpen(handleReload);
@ -142,8 +136,6 @@ const RrpConfEditor = () => {
section={s} section={s}
tabValue={tabValue} tabValue={tabValue}
index={i} index={i}
order={order}
onOrderChange={handleOrder}
containerProps={{ height, pxOuterMenuH, pxPanelHeaderH, pxTabsH }} containerProps={{ height, pxOuterMenuH, pxPanelHeaderH, pxTabsH }}
handleReload={handleReload} handleReload={handleReload}
handleMarkOpen={handleMarkOpen} handleMarkOpen={handleMarkOpen}

378
db/PKG_P8PANELS_RRPCONFED.pck
View File

@ -3,25 +3,23 @@ create or replace package PKG_P8PANELS_RRPCONFED as
/* Получение разделов регламентированного отчёта */ /* Получение разделов регламентированного отчёта */
procedure RRPCONF_GET_SECTIONS procedure RRPCONF_GET_SECTIONS
( (
NRN_RRPCONF in number, -- Рег. номер настройки форм регламентированного отчёта NRN_RRPCONF in number, -- Ид. нстройки форм регламентированного отчёта
NROW_ORDER in number := 0, -- Порядок сортировки строк COUT out clob -- Список разделов
NCOL_ORDER in number := 0, -- Порядок сортировки граф
COUT out clob -- Список разделов
); );
/* Добавление раздела регламентированного отчёта */ /* Добавление раздела регламентированного отчёта */
procedure RRPCONFSCTN_INSERT procedure RRPCONFSCTN_INSERT
( (
NPRN in number, -- Рег. номер настройки форм регламентированного отчёта NPRN in number, -- Ид. настройки форм регламентированного отчёта
SCODE in varchar2, -- Мнемокод SCODE in varchar2, -- Мнемокод
SNAME in varchar2, -- Наименование SNAME in varchar2, -- Наименование
NRN out number -- Рег. номер созданной записи NRN out number -- Ид. созданной записи
); );
/* Исправление раздела регламентированного отчёта */ /* Исправление раздела регламентированного отчёта */
procedure RRPCONFSCTN_UPDATE procedure RRPCONFSCTN_UPDATE
( (
NRN in number, -- Рег. номер раздела NRN in number, -- Ид. раздела
SCODE in varchar2, -- Мнемокод раздела SCODE in varchar2, -- Мнемокод раздела
SNAME in varchar2 -- Наименование раздела SNAME in varchar2 -- Наименование раздела
); );
@ -29,16 +27,16 @@ create or replace package PKG_P8PANELS_RRPCONFED as
/* Удаление раздела регламентированного отчёта */ /* Удаление раздела регламентированного отчёта */
procedure RRPCONFSCTN_DELETE procedure RRPCONFSCTN_DELETE
( (
NRN in number -- Рег. номер раздела NRN in number -- Ид. раздела
); );
/* Получение кодов настройки, раздела и показателя раздела по ид. показателя раздела */ /* Получение кодов настройки, раздела и показателя раздела по ид. показателя раздела */
procedure RRPCONFSCTNMRK_GET_CODES procedure RRPCONFSCTNMRK_GET_CODES
( (
NRN in number, -- Рег. номер показателя раздела NRN in number, -- Ид. показателя раздела
SRRPCONF out varchar2, -- Мнемокод настройки формы регламентированного отчёта SRRPCONF out varchar2, -- Код настройки формы регламентированного отчёта
SRRPCONFSCTN out varchar2, -- Мнемокод раздела SRRPCONFSCTN out varchar2, -- Код раздела
SRRPCONFSCTNMRK out varchar2 -- Мнемокод показателя раздела SRRPCONFSCTNMRK out varchar2 -- Код показателя раздела
); );
/* Формирование кода и наименования показателя раздела регламентированного отчёта */ /* Формирование кода и наименования показателя раздела регламентированного отчёта */
@ -61,25 +59,25 @@ create or replace package PKG_P8PANELS_RRPCONFED as
/* Добавление показателя раздела регламентированного отчёта */ /* Добавление показателя раздела регламентированного отчёта */
procedure RRPCONFSCTNMRK_INSERT procedure RRPCONFSCTNMRK_INSERT
( (
NPRN in number, -- Рег. номер раздела NPRN in number, -- Ид. раздела
SCODE in varchar2, -- Мнемокод показателя раздела SCODE in varchar2, -- Мнемокод показателя раздела
SNAME in varchar2, -- Наименование показателя раздела SNAME in varchar2, -- Наименование показателя раздела
NRRPROW in number, -- Рег. номер строки NRRPROW in number, -- Рег. номер строки
NRRPCOLUMN in number, -- Рег. номер графы NRRPCOLUMN in number, -- Рег. номер графы
NRN out number -- Рег. номер созданной записи NRN out number -- Ид. созданной записи
); );
/* Исправление показателя раздела регламентированного отчёта */ /* Исправление показателя раздела регламентированного отчёта */
procedure RRPCONFSCTNMRK_UPDATE procedure RRPCONFSCTNMRK_UPDATE
( (
NRN in number, -- Рег. номер показателя раздела NRN in number, -- Ид. показателя раздела
SNAME in varchar2 -- Новое наименование SNAME in varchar2 -- Новое наименование
); );
/* Удаление показателя раздела регламентированного отчёта */ /* Удаление показателя раздела регламентированного отчёта */
procedure RRPCONFSCTNMRK_DELETE procedure RRPCONFSCTNMRK_DELETE
( (
NRN in number -- Рег. номер показателя раздела NRN in number -- Ид. показателя раздела
); );
end PKG_P8PANELS_RRPCONFED; end PKG_P8PANELS_RRPCONFED;
@ -780,9 +778,7 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
/* Получение разделов регламентированного отчёта */ /* Получение разделов регламентированного отчёта */
procedure RRPCONF_GET_SECTIONS procedure RRPCONF_GET_SECTIONS
( (
NRN_RRPCONF in number, -- Рег. номер настройки форм регламентированного отчёта NRN_RRPCONF in number, -- Ид. нстройки форм регламентированного отчёта
NROW_ORDER in number := 0, -- Порядок сортировки строк
NCOL_ORDER in number := 0, -- Порядок сортировки граф
COUT out clob -- Список разделов COUT out clob -- Список разделов
) )
is is
@ -798,140 +794,58 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
SSECTION_CODE PKG_STD.TSTRING; -- Мнемокод раздела настройки SSECTION_CODE PKG_STD.TSTRING; -- Мнемокод раздела настройки
SSECTION_NAME PKG_STD.TSTRING; -- Наименование раздела настройки SSECTION_NAME PKG_STD.TSTRING; -- Наименование раздела настройки
CSECTION_CLOB clob; -- Данные по разделу настройки CSECTION_CLOB clob; -- Данные по разделу настройки
CSQL_ROWS clob; -- Запрос по строкам
SORDERS_R PKG_STD.TSTRING; -- Сортировка строк
ICURSOR_R integer; -- Курсор для исполнения запроса по строкам
NROW_RN PKG_STD.TREF; -- Рег. номер строки
NROW_POS PKG_STD.TNUMBER := 0; -- Позиция строки
SROW_CODE PKG_STD.TSTRING; -- Код строки
SROW_NAME PKG_STD.TSTRING; -- Наименование строки
CSQL_COLS clob; -- Запрос по графам
SORDERS_C PKG_STD.TSTRING; -- Сортировка граф
ICURSOR_C integer; -- Курсор для исполнения запроса по графам
NCOL_RN PKG_STD.TREF; -- Рег. номер графы
SCOL_CODE PKG_STD.TSTRING; -- Код графы
SCOL_NAME PKG_STD.TSTRING; -- Наименование графы
/* Формирование текстового представления сортировки */
function ORDER_TEXT_GET
(
NORDER in number, -- Порядок сортировки
SALIAS in varchar2, -- Алиас таблицы
NTYPE in number -- Тип таблицы (0 - графы, 1 - строки)
) return varchar2 -- Текстовое представление сортировки
is
SRESULT PKG_STD.TSTRING; -- Текстовое представление сортировки
STABLE_COLUMN_CODE PKG_STD.TSTRING; -- Наименование колонки таблицы, содержащую код
begin
/* Определяем наименование колонки, содержающую код */
if (NTYPE = 0) then
/* Код графы */
STABLE_COLUMN_CODE := 'COLUMN_CODE';
else
/* Код графы */
STABLE_COLUMN_CODE := 'ROW_CODE';
end if;
/* Формируем представление сортировки */
case NORDER
/* Код - номер сортировки - мнемокод */
when 1 then
SRESULT := PKG_SQL_BUILD.LPAD_() || '(' || SALIAS || '.' || STABLE_COLUMN_CODE || ', 40, ''0''),' || SALIAS ||
'.SORT_NUMB,' || PKG_SQL_BUILD.LPAD_() || '(' || SALIAS || '.CODE, 20, ''0'')';
/* Мнемокод - номер сортировки - код */
when 2 then
SRESULT := PKG_SQL_BUILD.LPAD_() || '(' || SALIAS || '.CODE, 20, ''0''),' || SALIAS || '.SORT_NUMB,' ||
PKG_SQL_BUILD.LPAD_() || '(' || SALIAS || '.' || STABLE_COLUMN_CODE || ', 40, ''0'')';
/* Номер сортировки - код - мнемокод */
else
SRESULT := SALIAS || '.SORT_NUMB,' || PKG_SQL_BUILD.LPAD_() || '(' || SALIAS || '.' || STABLE_COLUMN_CODE ||
', 40, ''0''),' || PKG_SQL_BUILD.LPAD_() || '(' || SALIAS || '.CODE, 20, ''0'')';
end case;
/* Возвращаем результат */
return SRESULT;
end ORDER_TEXT_GET;
/* Инициализация колонок граф показателей */ /* Инициализация колонок граф показателей */
procedure MARKS_COLUMNS_INIT procedure MARKS_COLUMNS_INIT
( (
RDG in out nocopy PKG_P8PANELS_VISUAL.TDG, -- Описание таблицы RDG in out nocopy PKG_P8PANELS_VISUAL.TDG, -- Описание таблицы
NRRPCONFSCTN in number, -- Рег. номер раздела NRRPCONFSCTN in number -- Рег. номер раздела
SORDER in varchar2 -- Сортировка
) )
is is
CSQL clob; -- Запрос по графам показателей раздела
ICURSOR integer; -- Курсор для исполнения запроса по графам показателей раздела
SCOL_CODE PKG_STD.TSTRING; -- Мнемокод графы
SCOL_NAME PKG_STD.TSTRING; -- Наименование графы
begin begin
/* Добавляем подсказку совместимости */ /* Цикл по графам показателей раздела */
CSQL := null; for REC in (select C.CODE,
CSQL := PKG_SQL_BUILD.COMPATIBLE(SSQL => CSQL); C.NAME
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => 'select C.CODE,'); from RRPCONFSCTNMRK T,
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' C.NAME'); RRPCOLUMN C
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' from RRPCONFSCTNMRK T,'); where T.PRN = NRRPCONFSCTN
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' RRPCOLUMN C'); and T.RRPCOLUMN = C.RN
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' where T.PRN = ' || NRRPCONFSCTN); group by C.RN,
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' and T.RRPCOLUMN = C.RN'); C.CODE,
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' group by C.RN,'); C.NAME
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' C.CODE,'); order by C.CODE)
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' C.NAME,');
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' C.COLUMN_CODE,');
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' C.SORT_NUMB');
PKG_SQL_BUILD.APPEND(SSQL => CSQL, SELEMENT1 => ' order by ' || SORDER);
/* Разбираем его */
ICURSOR := PKG_SQL_DML.OPEN_CURSOR(SWHAT => 'SELECT');
PKG_SQL_DML.PARSE(ICURSOR => ICURSOR, SQUERY => CSQL);
/* Описываем структуру записи курсора */
PKG_SQL_DML.DEFINE_COLUMN_STR(ICURSOR => ICURSOR, IPOSITION => 1);
PKG_SQL_DML.DEFINE_COLUMN_STR(ICURSOR => ICURSOR, IPOSITION => 2);
/* Делаем выборку */
if (PKG_SQL_DML.EXECUTE(ICURSOR => ICURSOR) = 0) then
null;
end if;
/* Обходим графы показателей раздела */
while (PKG_SQL_DML.FETCH_ROWS(ICURSOR => ICURSOR) > 0)
loop loop
/* Считываем рег. номер строки */
PKG_SQL_DML.COLUMN_VALUE_STR(ICURSOR => ICURSOR, IPOSITION => 1, SVALUE => SCOL_CODE);
/* Считываем код строки */
PKG_SQL_DML.COLUMN_VALUE_STR(ICURSOR => ICURSOR, IPOSITION => 2, SVALUE => SCOL_NAME);
/* Наименование графы */ /* Наименование графы */
PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG, PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'SCOL_' || SCOL_CODE, SNAME => 'SCOL_' || REC.CODE,
SCAPTION => SCOL_NAME, SCAPTION => REC.NAME,
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
NWIDTH => 200); NWIDTH => 200);
/* Рег. номер графы */ /* Рег. номер графы */
PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG, PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'NCOL_RN_' || SCOL_CODE, SNAME => 'NCOL_RN_' || REC.CODE,
SCAPTION => SCOL_NAME || ' рег. номер', SCAPTION => REC.NAME || ' рег. номер',
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB, SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB,
BVISIBLE => false); BVISIBLE => false);
/* Рег. номер показателя */ /* Рег. номер показателя */
PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG, PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'NMARK_RN_' || SCOL_CODE, SNAME => 'NMARK_RN_' || REC.CODE,
SCAPTION => SCOL_NAME || ' рег. номер показателя', SCAPTION => REC.NAME || ' рег. номер показателя',
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB, SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB,
BVISIBLE => false); BVISIBLE => false);
/* Мнемокод показателя */ /* Мнемокод показателя */
PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG, PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'SMARK_CODE_' || SCOL_CODE, SNAME => 'SMARK_CODE_' || REC.CODE,
SCAPTION => SCOL_NAME || ' мнемокод показателя', SCAPTION => REC.NAME || ' мнемокод показателя',
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
BVISIBLE => false); BVISIBLE => false);
/* Для составов показтелей */ /* Для составов показтелей */
PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG, PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'MARK_CNS_' || SCOL_CODE, SNAME => 'MARK_CNS_' || REC.CODE,
SCAPTION => SCOL_NAME || ' состав показателя', SCAPTION => REC.NAME || ' состав показателя',
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
BVISIBLE => false); BVISIBLE => false);
end loop; end loop;
/* Освобождаем курсор */
PKG_SQL_DML.CLOSE_CURSOR(ICURSOR => ICURSOR);
exception
when others then
PKG_SQL_DML.CLOSE_CURSOR(ICURSOR => ICURSOR);
raise;
end MARKS_COLUMNS_INIT; end MARKS_COLUMNS_INIT;
/* Считывание показателя по строке/графе */ /* Считывание показателя по строке/графе */
@ -984,159 +898,91 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
loop loop
/* Инициализируем таблицу данных */ /* Инициализируем таблицу данных */
RDG := PKG_P8PANELS_VISUAL.TDG_MAKE(BFIXED_HEADER => true, NFIXED_COLUMNS => 1); RDG := PKG_P8PANELS_VISUAL.TDG_MAKE(BFIXED_HEADER => true, NFIXED_COLUMNS => 1);
/* Наименование строки */ /* Формируем структуру заголовка */
PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG, PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'SROW_NAME', SNAME => 'SROW_NAME',
SCAPTION => '', SCAPTION => '',
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
NWIDTH => 150); NWIDTH => 150);
/* Позиция строки */ /* Формируем структуру заголовка */
PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'NROW_POS',
SCAPTION => 'Позиция строки',
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB,
BVISIBLE => false);
/* Мнемокод строки */
PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG, PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'SROW_CODE', SNAME => 'SROW_CODE',
SCAPTION => 'Мнемокод строки', SCAPTION => 'Мнемокод строки',
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR, SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
BVISIBLE => false); BVISIBLE => false);
/* Рег. номер строки */ /* Формируем структуру заголовка */
PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG, PKG_P8PANELS_VISUAL.TDG_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'NROW_RN', SNAME => 'NROW_RN',
SCAPTION => 'Рег. номер строки', SCAPTION => 'Рег. номер строки',
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB, SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB,
BVISIBLE => false); BVISIBLE => false);
/* Обнуляем счётчик позиции строки */
NROW_POS := 0;
/* Если раздел содержит показатели */ /* Если раздел содержит показатели */
if (S.NMARKS_EXISTS = 1) then if (S.NMARKS_EXISTS = 1) then
/* Формируем текстовое представление сортировки графы */
SORDERS_C := ORDER_TEXT_GET(NORDER => NCOL_ORDER, SALIAS => 'C', NTYPE => 0);
/* Инициализируем колонки граф */ /* Инициализируем колонки граф */
MARKS_COLUMNS_INIT(RDG => RDG, NRRPCONFSCTN => S.NRN, SORDER => SORDERS_C); MARKS_COLUMNS_INIT(RDG => RDG, NRRPCONFSCTN => S.NRN);
begin /* Обходим строки раздела */
/* Формируем текстовое представление сортировки строки */ for R in (select R.RN,
SORDERS_R := ORDER_TEXT_GET(NORDER => NROW_ORDER, SALIAS => 'R', NTYPE => 1); R.CODE,
/* Добавляем подсказку совместимости */ R.NAME
CSQL_ROWS := PKG_SQL_BUILD.COMPATIBLE(); from RRPCONFSCTNMRK T,
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => 'select R.RN,'); RRPROW R
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' R.CODE,'); where T.PRN = S.NRN
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' R.NAME'); and R.RN = T.RRPROW
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' from RRPCONFSCTNMRK T,'); group by R.RN,
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' RRPROW R'); R.CODE,
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' where T.PRN = ' || S.NRN); R.NAME,
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' and R.RN = T.RRPROW'); R.ROW_CODE,
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' group by R.RN,'); R.SORT_NUMB
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' R.CODE,'); order by R.SORT_NUMB,
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' R.NAME,'); LPAD(R.ROW_CODE, 40, '0'),
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' R.ROW_CODE,'); LPAD(R.CODE, 20, '0'))
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' R.SORT_NUMB'); loop
PKG_SQL_BUILD.APPEND(SSQL => CSQL_ROWS, SELEMENT1 => ' order by ' || SORDERS_R); /* Заполняем наименование строки */
/* Разбираем его */ PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'SROW_NAME', SVALUE => R.NAME, BCLEAR => true);
ICURSOR_R := PKG_SQL_DML.OPEN_CURSOR(SWHAT => 'SELECT'); /* Заполняем мнемокод строки */
PKG_SQL_DML.PARSE(ICURSOR => ICURSOR_R, SQUERY => CSQL_ROWS); PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'SROW_CODE', SVALUE => R.CODE);
/* Описываем структуру записи курсора */ /* Заполняем рег. номер строки */
PKG_SQL_DML.DEFINE_COLUMN_NUM(ICURSOR => ICURSOR_R, IPOSITION => 1); PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'NROW_RN', NVALUE => R.RN);
PKG_SQL_DML.DEFINE_COLUMN_STR(ICURSOR => ICURSOR_R, IPOSITION => 2); /* Обходим графы раздела */
PKG_SQL_DML.DEFINE_COLUMN_STR(ICURSOR => ICURSOR_R, IPOSITION => 3); for C in (select C.RN,
/* Делаем выборку */ C.CODE,
if (PKG_SQL_DML.EXECUTE(ICURSOR => ICURSOR_R) = 0) then C.NAME
null; from RRPCONFSCTNMRK T,
end if; RRPCOLUMN C
/* Обходим выбранные записи */ where T.PRN = S.NRN
while (PKG_SQL_DML.FETCH_ROWS(ICURSOR => ICURSOR_R) > 0) and C.RN = T.RRPCOLUMN
group by C.RN,
C.CODE,
C.NAME,
C.COLUMN_CODE,
C.SORT_NUMB
order by C.SORT_NUMB,
LPAD(C.COLUMN_CODE, 40, '0'),
LPAD(C.CODE, 20, '0'))
loop loop
/* Считываем рег. номер строки */ /* Считываем показатель по строке/графе */
PKG_SQL_DML.COLUMN_VALUE_NUM(ICURSOR => ICURSOR_R, IPOSITION => 1, NVALUE => NROW_RN); RRRPCONFSCTNMRK := RRPCONFSCTNMRK_GET_ROWCOL(NRRPCONFSCTN => S.NRN, NRRPROW => R.RN, NRRPCOLUMN => C.RN);
/* Считываем код строки */ /* Заполняем рег. номер графы */
PKG_SQL_DML.COLUMN_VALUE_STR(ICURSOR => ICURSOR_R, IPOSITION => 2, SVALUE => SROW_CODE); PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'SCOL_' || C.CODE, SVALUE => C.NAME);
/* Считываем наименование строки */ /* Заполняем рег. номер графы */
PKG_SQL_DML.COLUMN_VALUE_STR(ICURSOR => ICURSOR_R, IPOSITION => 3, SVALUE => SROW_NAME); PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'NCOL_RN_' || C.CODE, NVALUE => C.RN);
/* Заполняем наименование строки */ /* Заполняем рег. номер показателя */
PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW,
SNAME => 'SROW_NAME', SNAME => 'NMARK_RN_' || C.CODE,
SVALUE => SROW_NAME, NVALUE => RRRPCONFSCTNMRK.RN);
BCLEAR => true); /* Если ошибка считывания показателя */
/* Заполняем позицию строки */ if (RRRPCONFSCTNMRK.RN is not null) then
PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'NROW_POS', NVALUE => NROW_POS); /* Заполняем мнемокод показателя */
/* Заполняем мнемокод строки */
PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'SROW_CODE', SVALUE => SROW_CODE);
/* Заполняем рег. номер строки */
PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'NROW_RN', NVALUE => NROW_RN);
/* Добавляем подсказку совместимости */
CSQL_COLS := PKG_SQL_BUILD.COMPATIBLE();
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => 'select C.RN,');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' C.CODE,');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' C.NAME');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' from RRPCONFSCTNMRK T,');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' RRPCOLUMN C');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' where T.PRN = ' || S.NRN);
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' and C.RN = T.RRPCOLUMN');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' group by C.RN,');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' C.CODE,');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' C.NAME,');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' C.COLUMN_CODE,');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' C.SORT_NUMB');
PKG_SQL_BUILD.APPEND(SSQL => CSQL_COLS, SELEMENT1 => ' order by ' || SORDERS_C);
/* Разбираем его */
ICURSOR_C := PKG_SQL_DML.OPEN_CURSOR(SWHAT => 'SELECT');
PKG_SQL_DML.PARSE(ICURSOR => ICURSOR_C, SQUERY => CSQL_COLS);
/* Описываем структуру записи курсора */
PKG_SQL_DML.DEFINE_COLUMN_NUM(ICURSOR => ICURSOR_C, IPOSITION => 1);
PKG_SQL_DML.DEFINE_COLUMN_STR(ICURSOR => ICURSOR_C, IPOSITION => 2);
PKG_SQL_DML.DEFINE_COLUMN_STR(ICURSOR => ICURSOR_C, IPOSITION => 3);
/* Делаем выборку */
if (PKG_SQL_DML.EXECUTE(ICURSOR => ICURSOR_C) = 0) then
null;
end if;
/* Обходим выбранные записи */
while (PKG_SQL_DML.FETCH_ROWS(ICURSOR => ICURSOR_C) > 0)
loop
/* Считываем рег. номер графы */
PKG_SQL_DML.COLUMN_VALUE_NUM(ICURSOR => ICURSOR_C, IPOSITION => 1, NVALUE => NCOL_RN);
/* Считываем код графы */
PKG_SQL_DML.COLUMN_VALUE_STR(ICURSOR => ICURSOR_C, IPOSITION => 2, SVALUE => SCOL_CODE);
/* Считываем наименование графы */
PKG_SQL_DML.COLUMN_VALUE_STR(ICURSOR => ICURSOR_C, IPOSITION => 3, SVALUE => SCOL_NAME);
/* Считываем показатель по строке/графе */
RRRPCONFSCTNMRK := RRPCONFSCTNMRK_GET_ROWCOL(NRRPCONFSCTN => S.NRN,
NRRPROW => NROW_RN,
NRRPCOLUMN => NCOL_RN);
/* Заполняем наименование графы */
PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'SCOL_' || SCOL_CODE, SVALUE => SCOL_NAME);
/* Заполняем рег. номер графы */
PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'NCOL_RN_' || SCOL_CODE, NVALUE => NCOL_RN);
/* Заполняем рег. номер показателя */
PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW,
SNAME => 'NMARK_RN_' || SCOL_CODE, SNAME => 'SMARK_CODE_' || C.CODE,
NVALUE => RRRPCONFSCTNMRK.RN); SVALUE => RRRPCONFSCTNMRK.CODE);
/* Если ошибка считывания показателя */ /* Добавляем атрибут состава показателей */
if (RRRPCONFSCTNMRK.RN is not null) then PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'MARK_CNS_' || C.CODE, SVALUE => null);
/* Заполняем мнемокод показателя */ end if;
PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW,
SNAME => 'SMARK_CODE_' || SCOL_CODE,
SVALUE => RRRPCONFSCTNMRK.CODE);
/* Добавляем атрибут состава показателей */
PKG_P8PANELS_VISUAL.TDG_ROW_ADD_COL(RROW => RDG_ROW, SNAME => 'MARK_CNS_' || SCOL_CODE, SVALUE => null);
end if;
end loop;
/* Освобождаем курсор */
PKG_SQL_DML.CLOSE_CURSOR(ICURSOR => ICURSOR_C);
/* Добавим строку для раздела */
PKG_P8PANELS_VISUAL.TDG_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW);
/* Инкрементируем счётчик позиции строки */
NROW_POS := NROW_POS + 1;
end loop; end loop;
/* Освобождаем курсор */ /* Добавим строку для раздела */
PKG_SQL_DML.CLOSE_CURSOR(ICURSOR => ICURSOR_R); PKG_P8PANELS_VISUAL.TDG_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW);
exception end loop;
when others then
PKG_SQL_DML.CLOSE_CURSOR(ICURSOR => ICURSOR_R);
PKG_SQL_DML.CLOSE_CURSOR(ICURSOR => ICURSOR_C);
raise;
end;
end if; end if;
/* Сериализуем описание */ /* Сериализуем описание */
CDG := PKG_P8PANELS_VISUAL.TDG_TO_XML(RDATA_GRID => RDG, NINCLUDE_DEF => 1); CDG := PKG_P8PANELS_VISUAL.TDG_TO_XML(RDATA_GRID => RDG, NINCLUDE_DEF => 1);
@ -1212,10 +1058,10 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
/* Добавление раздела регламентированного отчёта */ /* Добавление раздела регламентированного отчёта */
procedure RRPCONFSCTN_INSERT procedure RRPCONFSCTN_INSERT
( (
NPRN in number, -- Рег. номер настройки форм регламентированного отчёта NPRN in number, -- Ид. настройки форм регламентированного отчёта
SCODE in varchar2, -- Мнемокод SCODE in varchar2, -- Мнемокод
SNAME in varchar2, -- Наименование SNAME in varchar2, -- Наименование
NRN out number -- Рег. номер созданной записи NRN out number -- Ид. созданной записи
) )
is is
NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации
@ -1240,7 +1086,7 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
/* Исправление раздела регламентированного отчёта */ /* Исправление раздела регламентированного отчёта */
procedure RRPCONFSCTN_UPDATE procedure RRPCONFSCTN_UPDATE
( (
NRN in number, -- Рег. номер раздела NRN in number, -- Ид. раздела
SCODE in varchar2, -- Мнемокод раздела SCODE in varchar2, -- Мнемокод раздела
SNAME in varchar2 -- Наименование раздела SNAME in varchar2 -- Наименование раздела
) )
@ -1279,7 +1125,7 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
/* Удаление раздела регламентированного отчёта */ /* Удаление раздела регламентированного отчёта */
procedure RRPCONFSCTN_DELETE procedure RRPCONFSCTN_DELETE
( (
NRN in number -- Рег. номер раздела NRN in number -- Ид. раздела
) )
is is
NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации
@ -1296,10 +1142,10 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
/* Получение кодов настройки, раздела и показателя раздела по ид. показателя раздела */ /* Получение кодов настройки, раздела и показателя раздела по ид. показателя раздела */
procedure RRPCONFSCTNMRK_GET_CODES procedure RRPCONFSCTNMRK_GET_CODES
( (
NRN in number, -- Рег. номер показателя раздела NRN in number, -- Ид. показателя раздела
SRRPCONF out varchar2, -- Мнемокод настройки формы регламентированного отчёта SRRPCONF out varchar2, -- Код настройки формы регламентированного отчёта
SRRPCONFSCTN out varchar2, -- Мнемокод раздела SRRPCONFSCTN out varchar2, -- Код раздела
SRRPCONFSCTNMRK out varchar2 -- Мнемокод показателя раздела SRRPCONFSCTNMRK out varchar2 -- Код показателя раздела
) )
is is
begin begin
@ -1381,12 +1227,12 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
/* Добавление показателя раздела регламентированного отчёта */ /* Добавление показателя раздела регламентированного отчёта */
procedure RRPCONFSCTNMRK_INSERT procedure RRPCONFSCTNMRK_INSERT
( (
NPRN in number, -- Рег. номер раздела NPRN in number, -- Ид. раздела
SCODE in varchar2, -- Мнемокод показателя раздела SCODE in varchar2, -- Мнемокод показателя раздела
SNAME in varchar2, -- Наименование показателя раздела SNAME in varchar2, -- Наименование показателя раздела
NRRPROW in number, -- Рег. номер строки NRRPROW in number, -- Рег. номер строки
NRRPCOLUMN in number, -- Рег. номер графы NRRPCOLUMN in number, -- Рег. номер графы
NRN out number -- Рег. номер созданной записи NRN out number -- Ид. созданной записи
) )
is is
NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации
@ -1439,7 +1285,7 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
/* Исправление показателя раздела регламентированного отчёта */ /* Исправление показателя раздела регламентированного отчёта */
procedure RRPCONFSCTNMRK_UPDATE procedure RRPCONFSCTNMRK_UPDATE
( (
NRN in number, -- Рег. номер показателя раздела NRN in number, -- Ид. показателя раздела
SNAME in varchar2 -- Новое наименование SNAME in varchar2 -- Новое наименование
) )
is is
@ -1494,7 +1340,7 @@ create or replace package body PKG_P8PANELS_RRPCONFED as
/* Удаление показателя раздела регламентированного отчёта */ /* Удаление показателя раздела регламентированного отчёта */
procedure RRPCONFSCTNMRK_DELETE procedure RRPCONFSCTNMRK_DELETE
( (
NRN in number -- Рег. номер показателя раздела NRN in number -- Ид. показателя раздела
) )
is is
NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации