3912121546

3912121546



END LOOP;

IF (txt=") THEN

RETURN 'Brak wolnych pokoi typu ' II rodź II'' II osob II '-osobowych w tym zakresie czasu!';

END IF;

RETURN txt;

END;

$$ LANGUAGE plpgsql';

DROP FUNCTION oblicz_naleznosc(TEXT);

CREATE OR REPLACE FUNCTION oblicz_naleznosc(rez TEXT) RETURNS NUMERIC(8,2) AS $$

DECLARE

zaplata NUMERIC(8,2); r RECORD;

BEGIN

zaplata:=0.00;

SELECT * INTO r FROM płatności WHERE nr_rezerwacji=rez;

IF (NOT FOUND) THEN

RAISE EXCEPTION 'Nie ma takiego numeru rezerwacji!';

END IF;

FOR r IN SELECT * FROM platnosc_pokoje WHERE nr_rezerwacji=rez LOOP zaplata=zaplata + (r.cena*(r.koniec-r.poczatek));

END LOOP;

FOR r IN SELECT * FROM przydzial_rabaty WHERE nr_rezerwacji=rez LOOP zaplata=zaplata*( 1 -r.wysokosc_rabatu);

END LOOP;

FOR r IN SELECT * FROM platnosc_uslugi WHERE nr_rezerwacji=rez LOOP zaplata=zaplata+r.cena;

END LOOP;

FOR r IN SELECT * FROM naleznosc_kary WHERE nr_rezerwacji=rez LOOP zaplata=zaplata+r.naleznosc;

END LOOP;

UPDATE płatności SET do_zaplaty=zaplata WHERE nr_rezerwacji=rez;

RETURN zaplata;

END;

$$ LANGUAGE 'plpgsąl';

DROP FUNCTION utworz_numer();

CREATE OR REPLACE FUNCTION utworz_numer() RETURNS TEXT AS $$

DECLARE

txt TEXT;



Wyszukiwarka

Podobne podstrony:
00483 ?a0a2174ee321f03b6f4c5f28194bec 489An Algorithm and a Graphical Approach for Short Run Proces
programstr6 Program if er=false then Przepl(Hl); end; if (k- n ) or (k-N ) then halt; end; {PROGRAM
Zadania ;T v if (A[iJjoAjJ.i]) thcn return (falsc); end; rerum (lnie); cud; T(n)=T(n-l)4-2T(n-2) 41
DSC02946 If t(Hax) < t(i) Then Hax = i End If x = t(i) Rangę("Al" j.Offset(i 1, 0)
/ Instrukcja warunkowa IF warunek THEN instrukcja-1; END IF; IF warunek THEN
ALG20 320 Dodatek A 320 Dodatek A if a=true then writeln(’true ) elae wriLeln( false ) end. if (a==0
{ double a; if (dx==0 && dy==0) return 0; a = atan2(dy,dx) * 200.0/M_PI; if (a <0) a +=
IMG00012 G jview.exe BrakWolnychflie jsc: Brak wolnych miejsc na lot :Londyn 0566~45g BA at Pasażer_

więcej podobnych podstron