46 lines
2.3 KiB
SQL
46 lines
2.3 KiB
SQL
create or replace procedure UDO_P_EQCONFIG_DATASET_MAKE
|
||
/* Формирование сведений о наработках единицы оборудования для прогноза */
|
||
(
|
||
NEQCONFIG in number, -- Рег. номер единицы оборудования
|
||
DBEG in date, -- Дата "С"
|
||
DEND in date, -- Дата "По"
|
||
NDATASET_IDENT out number, -- Идентификатор буфера данных
|
||
NDATASET_CONFIG_IDENT out number -- Идентификатор буфера описания данных
|
||
)
|
||
is
|
||
begin
|
||
/* НАЧАЛО: Временная заглушка с отладочными данными (удалить) */
|
||
/* create table UDO_T_FILE_BUFFER as select * from FILE_BUFFER; */
|
||
for C in (select T.* from UDO_T_FILE_BUFFER T)
|
||
loop
|
||
if (C.BDATA is null) then
|
||
NDATASET_CONFIG_IDENT := GEN_IDENT();
|
||
P_FILE_BUFFER_INSERT(NIDENT => NDATASET_CONFIG_IDENT,
|
||
CFILENAME => C.FILENAME,
|
||
CDATA => C.DATA,
|
||
BLOBDATA => C.BDATA);
|
||
else
|
||
NDATASET_IDENT := GEN_IDENT();
|
||
P_FILE_BUFFER_INSERT(NIDENT => NDATASET_IDENT, CFILENAME => C.FILENAME, CDATA => C.DATA, BLOBDATA => C.BDATA);
|
||
end if;
|
||
end loop;
|
||
return;
|
||
/* КОНЕЦ: Временная заглушка с отладочными данными (удалить) */
|
||
/* Обратимся к еденице оборудования */
|
||
for C in (select T.COMPANY,
|
||
T.RN
|
||
from EQCONFIG T
|
||
where T.RN = NEQCONFIG)
|
||
loop
|
||
/* Соберём данные */
|
||
UDO_PKG_EQUIPDS_DATAPROCESS.DATASET_CONF_SET(NCOMPANY => C.COMPANY,
|
||
NEQCONFIG => C.RN,
|
||
DBEG => DBEG,
|
||
DEND => DEND,
|
||
NLENGTH_GB => 1,
|
||
NDATASET_IDENT => NDATASET_IDENT,
|
||
NDATASET_CONFIG_IDENT => NDATASET_CONFIG_IDENT);
|
||
end loop;
|
||
end UDO_P_EQCONFIG_DATASET_MAKE;
|
||
/
|