Notes

CREATE OR REPLACE FUNCTION public.find_funkcjaszczkod (
funkcjaszcztext varchar
)
RETURNS text AS
$body$
declare funkcjaSzczKod text; rec record;
begin
select kod
into rec
from lista_kodowa_funkcjaszcz
where nazwa = funkcjaSzczText;
funkcjaSzczKod := rec.kod;
return funkcjaSzczKod;
end;
$body$
LANGUAGE 'plpgsql'

CREATE OR REPLACE FUNCTION public.find_funkcjaszcztext (
funkcjaszczkod varchar []
)
RETURNS text AS
$body$
declare funkcjaSzczText varchar[]; funkcja varchar; rec record;
begin
FOR i in 1 .. array_upper(funkcjaszczkod, 1)
LOOP
select nazwa
into rec
from lista_kodowa_funkcjaszcz
where funkcjaszczkod[i] = kod;

funkcjaSzczText[i] := rec.nazwa;

END LOOP;
return funkcjaSzczText;
end;
$body$
LANGUAGE 'plpgsql'

CREATE OR REPLACE FUNCTION public.find_building_address_all (
budlokid text
)
RETURNS public.buildingtype AS
$body$
declare result buildingType;
begin
select lokalnyid, funszczegolowabudynku, x_informdodatkowa, liczbakondygnacji, przestrzennazw, wersjaid, 0 AS dist
into result from ot_bubd_z_adresem
where lokalnyid = budLokId;

return result;
end;
$body$
LANGUAGE 'plpgsql

CREATE OR REPLACE FUNCTION public.reverse_geocode_pl_bud_fun (
lat double precision,
lon double precision,
funkcjaszcz varchar,
infodod varchar
)
RETURNS text AS
$body$
declare point geometry; rec record; geocode text;
begin
point := ST_GeomFromText('POINT('||lat||' '||lon||')', 2180);
IF funkcjaSzcz IS NULL AND infoDod IS NULL THEN
select bud.lokalnyid, bud.funszczegolowabudynku, bud.x_informdodatkowa, ST_Distance(bud.wkb_geometry, point) as dist
into rec from ot_bubd_z_adresem bud
order by dist asc limit 1;
geocode := rec.lokalnyid;
ELSIF funkcjaSzcz IS NULL AND infoDod IS NOT NULL THEN
select bud.lokalnyid, bud.funszczegolowabudynku, bud.x_informdodatkowa, ST_Distance(bud.wkb_geometry, point) as dist
into rec from ot_bubd_z_adresem bud
where (bud.x_informdodatkowa::text = infoDod::text)
order by dist asc limit 1;
geocode := rec.lokalnyid;
ELSIF funkcjaSzcz IS NOT NULL AND infoDod IS NULL THEN
select bud.lokalnyid, bud.funszczegolowabudynku, bud.x_informdodatkowa, ST_Distance(bud.wkb_geometry, point) as dist
into rec from ot_bubd_z_adresem bud
where (bud.funszczegolowabudynku::text = funkcjaSzcz::text)
order by dist asc limit 1;
geocode := rec.lokalnyid;
ELSE select bud.lokalnyid, bud.funszczegolowabudynku, bud.x_informdodatkowa, ST_Distance(bud.wkb_geometry, point) as dist
into rec from ot_bubd_z_adresem bud
where (bud.funszczegolowabudynku::text = funkcjaSzcz::text)
and (bud.x_informdodatkowa::text = infoDod::text)
order by dist asc limit 1;
geocode := rec.lokalnyid;
END IF;
return geocode;
end;
$body$
LANGUAGE 'plpgsql'

CREATE OR REPLACE FUNCTION public.find_building_address_revgeo_all (
lat double precision,
lon double precision,
funkcjaszcztext varchar,
infodod varchar
)
RETURNS public.buildingtype AS
$body$
declare bud_lokID text; funkcjaSzczKod text; result buildingType;
begin
funkcjaSzczKod := '{' || find_funkcjaszczkod(funkcjaSzczText) || '}';
--raise notice 'Value funkcjaSzczKod: %', funkcjaSzczKod;
bud_lokID := reverse_geocode_pl_bud_fun(lat, lon, funkcjaSzczKod::varchar, infoDod);
--raise notice 'Value bud_lokID: %', bud_lokID;
result := find_building_address_all(bud_lokID);
return result;
end;
$body$
LANGUAGE 'plpgsql'

CREATE OR REPLACE FUNCTION public.find_building_by_name (
infodod varchar,
odleglosc double precision,
funkcjaopis varchar
)
RETURNS SETOF public.buildingtype AS
$body$
declare wyszukany_bud_geo geometry; rec record; result buildingType; funkcjaKod varchar;
begin
---wyszukanie budynku o podanej nazwie
select bud.wkb_geometry, bud.x_informdodatkowa
into rec from ot_bubd_z_adresem bud
where (bud.x_informdodatkowa::text = infoDod::text);
wyszukany_bud_geo := rec.wkb_geometry;

--konwersja funkcji
funkcjaKod := find_funkcjaSzczKod(funkcjaOpis);

---wyszukanie budynków w odległości
for result in
select lokalnyid, find_funkcjaszcztext(funszczegolowabudynku), x_informdodatkowa, liczbakondygnacji, przestrzennazw, wersjaid,
ST_Distance(wkb_geometry, wyszukany_bud_geo) AS dist
from ot_bubd_z_adresem
where ST_Distance(wkb_geometry, wyszukany_bud_geo) <= odleglosc
and funkcjaKod = ANY(funszczegolowabudynku)
loop
RETURN NEXT result;
end loop;
return;
end;
$body$
LANGUAGE 'plpgsql'