CftClub.ru

[Asdn]

Добрый день!
Недавно стал сопровождать IBSO. В процессе разработки отчета потребовалось первоначально данные выбирать во временную таблицу.

из документации понял, что создать таблицу можно след образом

[A_A_A]

при работе с такими таблицами работать с SELECT, UPDATE .. нет возможности.

Нужно как раз использовать FOR

[Asdn]

а есть ли какая нибудь альтернатива этим временным таблицам? или только is table of record?

может есть какой то другой функционал, который позволяет создавать временные таблицы для select....

[svn]

есть временные структуры - но их нужно создавать в словаре
можно курсоры заюзать, представления

вы наверно пытаетесь по аналогии с чистым PL\SQL реализовать
ЦФТ это вам не это )

[vtar]

[nOnAME]

создать структруру, во вкладке "Таблица" выставить время жизни - только на время сессии(или как то так). Сгенерить там операции NEW#AUTO, EDIT#AUTO, DELETE#AUTO. И работать с ней как с таблицей. Это если хочется на ЦФТ уровне быть.
Еще можно создать временную таблицу в базе (самой базе oracle стандартными средствами). И в процессе "разработки отчета" (или операции какой-нибудь) сделать PL/SQL вставку, где делать все что угодно с Вашей таблицей на привычном языке. Тоже должно отработать.

[prog]

Посмотрите операцию [RPT_LIC_REPORT]

там есть

[Asdn]

Спасибо за ответы!

[Random]

[Asdn]

А можно пример индексации? т.е. как задать для массива составной индекс и потом использовать его в Locate?

я поискал в документации, но у меня там приведены примеры с циклом For (по сути последовательный перебор).

т.е. например у меня какой то цикл For, в этом цикле я вычисляю ключ, по данному ключу нахожу подходящую запись в массиве и произвожу какие то вычисления для этой записи. и меняю значения ее полей.

[Random]

[Asdn]

Random, спасибо за развернутый ответ!

но к сожалению, у нас сейчас процесс становления идет. поэтому заводить собственные структуры запрещено под страхом расстрела.

эта информация останется на будущее (

а сейчас мне приходится работать просто с массивами и выкручиватся с помощью FOR.

надеюсь, что в дальнейшем перепишу на временные таблицы.

[Random]

[vek21]

Asdn, вы хотите работать с динамической таблицей с помощью select'oв PL/Plus? Это возможно.
Вот ваш пример(укороченный):

type typeRec is record(
C_CLN_TYPE integer, -- физик/юрик
C_DEPART [DEPART],
C_ORG_TYPE varchar2(10),
C_DAT DATE
);


type data_list is table of typeRec index by integer;


RepTable data_list;
RepTableIdx integer;

В "локальных описаниях" операции описываете функции:

---------------------------------------------------------
function GetReqD(i integer, cVar string) return DATE is -- возвращает ДАТУ из указ.эл-та динам.массива
begin
if cVar = 'C_DAT' then
return RepTable(i).C_DAT;
end if;
return null;
end;
---------------------------------------------------------
function GetReqN(i integer, cVar string) return number is -- возвращает ЧИСЛО из указ.атрибута указ.эл-та динам.массива
begin
if cVar = 'C_CLN_TYPE' then
return nvl(RepTable(i).C_CLN_TYPE, 0);
elsif cVar = 'C_DEPART' then
return nvl(RepTable(i).C_DEPART, 0);
end if;
return null;
end;
---------------------------------------------------------
function GetReqS(i integer, cVar string) return string is -- возвращает СТРОКУ из указ.атрибута указ.эл-та динам.массива
begin
if cVar = 'C_ORG_TYPE' then
return RepTable(i).C_ORG_TYPE;
end if;
return null;
end;
---------------------------------------------------------

Эти функции также необходимо описать в "глобальных описаниях" операции:

---------------------------------------------------------
function GetReqD(i integer, cVar string) return DATE; -- возвращает ДАТУ из указ.эл-та динам.массива
pragma restrict_references(GetReqD,wnds,wnps);
---------------------------------------------------------
function GetReqN(i integer, cVar string) return number; -- возвращает ЧИСЛО из указ.атрибута указ.эл-та динам.массива
pragma restrict_references(GetReqN,wnds,wnps);
---------------------------------------------------------
function GetReqS(i integer, cVar string) return string; -- возвращает СТРОКУ из указ.атрибута указ.эл-та динам.массива
pragma restrict_references(GetReqS,wnds,wnps);
---------------------------------------------------------

Понятно, что эти функции описывают доступ ко всем видам полей (числовым, строковым и даты) вашей динамической таблицы.

Далее, в начале "локальных описаний" операции пишете курсор

type cur is
select x
( x.[C_DAT] : C_DAT
, x.[C_CLN_TYPE] : C_CLN_TYPE
, x.[C_DEPART] : C_DEPART
, x.[C_ORG_TYPE] : C_ORG_TYPE
) in (
select y
( GetReqD(rownum, 'C_DAT') : C_DAT
, GetReqS(rownum, 'C_ORG_TYPE') : C_ORG_TYPE
, GetReqN(rownum, 'C_CLN_TYPE') : C_CLN_TYPE
, GetReqN(rownum, 'C_DEPART') : C_DEPART
) in ::[DUMMY]
where rownum <= RepTableIdx
)
where (1=1);

В этом курсоре, при необходимости, прописываете все группировки, сортировки и т.п.
А далее, в теле операции, уже можете использовать этот курсор:

for x in cursor Cur loop
....
end loop;

[vek21]

.....
Извините, только сейчас увидел, как надо вставлять код программы...
.....