sql/banque.procedures.md

# Les procédures

Les procédures permettent d'exécuter plusieurs opérations en un seul appel dans un bloc de code

Si une erreur survient **rien** n'est enregistré

## Banque

```sql
create or replace procedure add_bank (
  name text  -- Paramètre d'entrée de la procédure
)
language plpgsql -- Le langage de programmation utilisé dans la procédure
as $$            -- chaine de caractères multilignes (entoure le bloc de code)
declare          -- déclaration des variables
  v_holder_id bigint;
begin            -- début de la procédure

  insert into holder(type) values ('BANK')
  returning id into v_holder_id;

  insert into bank(id, name)
  values (v_holder_id, name);

  raise notice 'Titulaire créé : % = %',
    v_holder_id, name;
end;            -- fin de la procédure
$$;             -- fin de la chaine de caractères multiligne
```

- `plpgsql` (PL/pgSQL) langage de programmation procédural. Les requêtes ne sont plus indépendantes les unes des autres mais sont assemblée dans un programme (procedure) avec des variables , des boucles, des conditions.
- `returning into` capturer la sorie d'un requête dans une variable.
- `raise notice` affiche un message dans la console. Le nombre de variables doit être égal au nombre de %

## Individu

```sql
create or replace procedure add_person (
  p_firstname text,
  p_lastname text,
  p_birthdate date
)
language plpgsql
as $$
declare
  v_holder_id bigint;
begin

  insert into holder(type) values ('PERSON')
  returning id into v_holder_id;

  insert into person(id, firstname, lastname, birthdate)
  values (v_holder_id, p_firstname, p_lastname, p_birthdate);

  raise notice 'Titulaire créé : % = % %',
    v_holder_id, p_firstname, p_lastname;
end;
$$;
```

```sql
call add_person('Françoise', 'Zanetti', '1995-04-12');
call add_person('Justin', 'Hébrard', '1993-03-11');
```

- L'appel d'une procédure se fait avec `call`.

## Société

```sql
create or replace procedure add_company (
 p_name text,
 p_registration_number text,
 p_created_at date
)
language plpgsql
as $$
declare
  v_holder_id bigint;
begin

  insert into holder(type) values ('COMPANY')
  returning id into v_holder_id;

  insert into company(id, name, registration_number, created_at)
  values (v_holder_id, p_name, p_registration_number, p_created_at);

  raise notice 'Titulaire créé : % = % %',
    v_holder_id, p_name, p_registration_number;
end;
$$;
```

```sql
call add_company('Boulangerie de Valorgue', 'FR19803269968', '2014-08-19');
```

## d et r

```sql
create or replace procedure add_depot (
  p_account_id bigint,
  p_amount decimal
)
language plpgsql
as $$
declare
  v_id bigint;
begin
  insert into transaction (amount)
  values (p_amount)
  returning id into v_id;

  insert into operation (transaction_id, account_id, amount, direction)
  values (v_id, p_account_id, p_amount, 'CREDIT');

  raise notice 'Dépôt de % sur le compte %', p_amount, p_account_id;
end;
$$;
```

```sql
create or replace procedure add_retrait (
  p_account_id bigint,
  p_amount decimal
)
language plpgsql
as $$
declare
  v_id bigint;
begin
  insert into transaction (amount)
  values (p_amount)
  returning id into v_id;

  insert into operation (transaction_id, account_id, amount, direction)
  values (v_id, p_account_id, p_amount, 'DEBIT');

  raise notice 'Retrait de % sur le compte %', p_amount, p_account_id;
end;
$$;
```