tp 5

banque.sql

@@ -234,6 +234,7 @@ begin
     end if;
 
     -- Calcul de la somme des parts
+    -- select sum(unnest(p_shares)) into v_sum;
     for i in 1..array_length(p_shares, 1) loop
         v_sum := v_sum + p_shares[i];
     end loop;
@@ -264,3 +265,109 @@ begin
 end;
 $$;
 
+
+create or replace procedure record_operation(
+    p_account_id int,
+    p_kind text,
+    p_amount numeric,
+    p_description text default null
+)
+language plpgsql
+as $$
+declare
+    v_balance numeric(12,2);
+begin
+    -- Vérification du type d’opération
+    if p_kind not in ('DEPOSIT', 'WITHDRAWAL') then
+        raise exception 'Type d’opération invalide : % (attendu: DEPOSIT ou WITHDRAWAL)', p_kind;
+    end if;
+
+    -- Vérification que le compte existe
+    if not exists (select 1 from account where id = p_account_id) then
+        raise exception 'Le compte % n’existe pas.', p_account_id;
+    end if;
+
+    -- Calcul du solde actuel
+    select coalesce(sum(case when kind = 'DEPOSIT' then amount else -amount end), 0)
+    into v_balance
+    from operation
+    where account_id = p_account_id;
+
+    -- Vérification du solde si retrait
+    if p_kind = 'WITHDRAWAL' and v_balance < p_amount then
+        raise exception 'Fonds insuffisants : solde actuel %.2f, retrait demandé %.2f',
+            v_balance, p_amount;
+    end if;
+
+    -- Insertion de l’opération
+    insert into operation(account_id, kind, amount, description)
+    values (p_account_id, p_kind, p_amount, p_description);
+
+    raise notice 'Opération enregistrée : % de %.2f sur compte %', 
+        p_kind, p_amount, p_account_id;
+end;
+$$;
+
+CREATE TABLE transaction (
+    id SERIAL PRIMARY KEY,
+    account_id INT NOT NULL REFERENCES account(id),
+    amount NUMERIC(12, 2) NOT NULL CHECK (amount <> 0),
+    operation_date TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP
+);
+
+CREATE OR REPLACE PROCEDURE deposit(p_account_id INT, p_amount NUMERIC)
+LANGUAGE plpgsql
+AS $$
+BEGIN
+    IF p_amount <= 0 THEN
+        RAISE EXCEPTION 'Deposit amount must be positive';
+    END IF;
+
+    UPDATE account
+    SET balance = balance + p_amount
+    WHERE id = p_account_id;
+
+    IF NOT FOUND THEN
+        RAISE EXCEPTION 'Account % not found', p_account_id;
+    END IF;
+
+    INSERT INTO transaction (account_id, amount)
+    VALUES (p_account_id, p_amount);
+END;
+$$;
+
+CREATE OR REPLACE PROCEDURE withdraw(p_account_id INT, p_amount NUMERIC)
+LANGUAGE plpgsql
+AS $$
+DECLARE
+    current_balance NUMERIC;
+BEGIN
+    IF p_amount <= 0 THEN
+        RAISE EXCEPTION 'Withdraw amount must be positive';
+    END IF;
+
+    SELECT balance INTO current_balance
+    FROM account
+    WHERE id = p_account_id;
+
+    IF NOT FOUND THEN
+        RAISE EXCEPTION 'Account % not found', p_account_id;
+    END IF;
+
+    IF current_balance < p_amount THEN
+        RAISE EXCEPTION 'Insufficient funds: balance = %, attempted withdrawal = %',
+            current_balance, p_amount;
+    END IF;
+
+    UPDATE account
+    SET balance = balance - p_amount
+    WHERE id = p_account_id;
+
+    INSERT INTO transaction (account_id, amount)
+    VALUES (p_account_id, -p_amount);
+END;
+$$;
+
+
+
+