>SY, 25 дек 16, 15:22 [20046412]
>Ну ведь это азы ...
Общие принципы знаю, но логику работы и какие клавиши нажимать (PL/SQL Developer) понимаю с трудом.
Мне, по духу, ближе Microsoft, где на каждый чих есть пример.
Резуме:
1. В курсоре формирую промежуточную выборку.
2. Обработка и запись в vr_tab CR_OBJ_TBL_TYPE := CR_OBJ_TBL_TYPE();
3. Формирую курсор на клиента.
4. Если переписать в tbl_tmp_gis - штатно.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
procedure get_PrebivanieTB(
cur_viborka out t_cursor
,xdate in date
)
is
CURSOR cr IS
SELECT
TRIM(obv.numopzn) numopzn
,slv.namvrr namvrr
,jdk.numdoc numdoc
,obj.ABBROBJR mesto
,SUBSTR(loc.coord, 1, 7) lat
,SUBSTR(loc.coord, 8, 8) lng
,obv.dateizm dateizm
FROM
. . .
,( SELECT . . . FROM . . . WHERE . . .) pv
,( SELECT . . . FROM . . . WHERE . . .) svyaz
,( SELECT . . . FROM . . . WHERE . . . AND jdc.codformuv = sfu.codformuv (+) ) jdk
WHERE
obv.DEL IS NULL
AND obv.coddoc = jdk.coddoc (+)
. . .
AND TRUNC(obv.dateizm) <= xdate
ORDER BY
obv.numopzn
);
xrow cr%ROWTYPE;
vr_tab CR_OBJ_TBL_TYPE := CR_OBJ_TBL_TYPE();
i BINARY_INTEGER;
BEGIN
xrow.numopzn := '#';
i := 0;
FOR cr_row IN cr LOOP
-- Обработка информации по новому ТБ ?
IF xrow.numopzn <> cr_row.x.numopzn THEN
-- Да. Обработка 1-ой строки курсора?
IF xrow.numopzn <> '#' THEN
-- Нет не первой. Перепись мах/мин строки старого ТБ в vr_tab
vr_tab.EXTEND;
i := i+1;
vr_tab(i):= CR_OBJ_TYPE(
xrow.numopzn,xrow.namvrr,xrow.numdoc,xrow.mesto,xrow.lat,xrow.lng,xrow.dateizm
);
END IF;
xrow := cr_row; -- Новый ТБ
-- Нет. Обработка информации по текущему ТБ
ELSE
-- Более позднее состояние ТБ?
IF xrow.dateizm < cr_row.dateizm THEN
-- Да.
xrow:=cr_row;
END IF;
END IF;
END LOOP;
open cur_viborka for SELECT * FROM TABLE(vr_tab);
-- execute immediate 'TRUNCATE TABLE tbl_tmp_gis';
-- FOR j IN 1..i LOOP
-- xrow.numopzn := vr_tab(j).numopzn;
-- xrow.namvrr := vr_tab(j).namvrr;
-- xrow.numdoc := vr_tab(j).numdoc;
-- xrow.mesto := vr_tab(j).mesto;
-- xrow.lat := vr_tab(j).lat;
-- xrow.lng := vr_tab(j).lng;
-- xrow.dateizm := vr_tab(j).dateizm;
-- INSERT INTO tbl_tmp_gis VALUES (
-- xrow.numopzn,xrow.namvrr,xrow.numdoc,xrow.mesto,xrow.lat,xrow.lng,xrow.dateizm
-- );
-- END LOOP;
-- open cur_viborka for SELECT * FROM tbl_tmp_gis;
end get_PrebivanieTB;
