AV: Liste aller Grundstücke

-- TEMP-Tabelle erstellen.
-- *******************************************************************
create table GBX_AREA_CHECK (
FID_OW number(10),
FID_TSUR number(10),
PROPERTY_NUMBER varchar2(12),
EGRIS_EGRID varchar2(14),
RE_AREA number(20,8),
RE_AREA_REGISTER number(9),
TS_AREA number(20,8),
TS_AREA_NOMINAL number(20,8),
TS_AREA_EXACT number(20,8),
LC_AREA number(20,8),
LC_AREA_NOMINAL number(20,8));
commit;
-- Schreibt alle Grundstücke und die Flächen aus der Topologie (TSUR) in die Temp-Tabelle.
-- *******************************************************************
insert into GBX_AREA_CHECK (FID_OW, FID_TSUR, PROPERTY_NUMBER, EGRIS_EGRID, RE_AREA, RE_AREA_REGISTER, TS_AREA, TS_AREA_NOMINAL, TS_AREA_EXACT)
(select ow.FID FID_OW, tsur.FID FID_TSUR, ow.PROPERTY_NUMBER, ow.EGRIS_EGRID, re.AREA, re.AREA_REGISTER, tsur.AREA, tsur.AREA_NOMINAL, tsur.EXACT_AREA from
LM_OW_PROPERTY ow
join LM_OW_REAL_ESTATE re ON ow.FID = re.FID_OW_PROPERTY
left join LM_REAL_ESTATE_TCEN tcen ON re.FID = tcen.FID_CENTROID
left join LM_REAL_ESTATE_TSUR tsur ON tcen.FID_TSUR = tsur.FID);
-- Aktuallisiert die Grundstücke mit den Flächen aus dem Verschitt zur Bodenbedeckung.
-- *******************************************************************
update GBX_AREA_CHECK ac set LC_AREA = (select sum(ies.AREA) from
LM_IS_ESTATE_SURFACE ies where ies.FID_PRIM = ac.FID_TSUR)
where LC_AREA is NULL;
--
update GBX_AREA_CHECK ac set LC_AREA_NOMINAL = (select sum(ies.AREA_NOMINAL) from
LM_IS_ESTATE_SURFACE ies where ies.FID_PRIM = ac.FID_TSUR)
where LC_AREA_NOMINAL is NULL;
-- Erstellt die Liste sämtlicher Grundstücke
-- Für den Export kann das Schlüsselwort EXCEL vor das SELECT geschrieben werden.
-- *******************************************************************
select ac.PROPERTY_NUMBER "GS-Nummer", ac.EGRIS_EGRID "EGRID",ac.RE_AREA_REGISTER "LS-Fläche", ac.TS_AREA_NOMINAL "Topo-Fläche", ac.LC_AREA_NOMINAL "BB-Fläche",
ac.RE_AREA "LS-Fläche(genau)", ac.TS_AREA "Topo-Fläche (genau)", ac.LC_AREA "BB-Fläche (genau)" from
GBX_AREA_CHECK ac
order by length(ac.PROPERTY_NUMBER), ac.PROPERTY_NUMBER;
-- *******************************************************************
-- Beispiel für eine Liste mit einem Flächen-Vergleich
-- Für den Export kann das Schlüsselwort EXCEL vor das SELECT geschrieben werden.
-- *******************************************************************
select ac.PROPERTY_NUMBER "GS-Nummer", ac.EGRIS_EGRID "EGRID",ac.RE_AREA_REGISTER "LS-Fläche", ac.TS_AREA_NOMINAL "Topo-Fläche", ac.LC_AREA_NOMINAL "BB-Fläche",
ac.RE_AREA "LS-Fläche(genau)", ac.TS_AREA "Topo-Fläche (genau)", ac.LC_AREA "BB-Fläche (genau)" from
GBX_AREA_CHECK ac
where LC_AREA_NOMINAL *ungleich* TS_AREA_NOMINAL
order by length(ac.PROPERTY_NUMBER), ac.PROPERTY_NUMBER;
-- TEMP-Tabelle wieder entfernen.
-- *******************************************************************
drop table GBX_AREA_CHECK;