CREATE TRIGGER agenda_projet BEFORE INSERT OR UPDATE ON client_projet FOR EACH ROW EXECUTE PROCEDURE agenda_projet();

CREATE FUNCTION agenda_projet() RETURNS trigger
    LANGUAGE plpgsql
    AS $$--
--        A partir de l'insertion ou update dans PROJET, on met à jour les agendas du projet, du licencié, de son équipe, et des acquéreurs concernés.
--

DECLARE
vtypact integer;
vlic record;
vident record;
vdesc varchar;
vlib varchar;
vevent integer;
vtrt integer;
vidlic integer;
videquipe integer;
vmandat record;
vgroupe record;
vmandatvendeur record;
vdatfin date;
vinit varchar;

BEGIN

    vtrt := 0;
    CASE
        WHEN  (TG_OP = 'INSERT') THEN
            vtrt := 1;

        WHEN (TG_OP = 'UPDATE') THEN
            vtrt := 2;
    END CASE; 
   
    
    SELECT INTO vgroupe * FROM GROUPE_CLIENT WHERE  id_groupe=NEW.id_groupe;
     IF NOT FOUND THEN
         RAISE EXCEPTION 'Aucun acquéreur trouvé pour le projet %',NEW.id_groupe;
         RETURN NULL;
     END IF;

    vidlic := NEW.nego_in;
        IF (vidlic IS NULL) THEN
            RAISE EXCEPTION 'Aucun licencié trouvé pour le projet %',NEW.id_projet;
            RETURN NULL;
        END IF;

     SELECT INTO vlic * FROM LICENCIE WHERE id_licencie=vidlic;
     IF NOT FOUND THEN
         RAISE EXCEPTION 'Le licencié % n''existe pas !', vidlic;
         RETURN NULL;
     END IF;        
     
     SELECT INTO videquipe id_equipe FROM LICENCIE_PERIODE WHERE (((id_licencie = vidlic) AND (dat_debut <= current_date)) AND ((dat_fin >= current_date OR dat_fin IS NULL)));
     IF NOT FOUND THEN
         RAISE EXCEPTION 'L''équipe n''a pas été trouvée pour le licencié %',vidlic;
         RETURN NULL;
     END IF;
     
     SELECT INTO vident * FROM IDENTITE where id_identite=vlic.id_identite;
     IF NOT FOUND THEN
         RAISE EXCEPTION 'Pas d''identité pour le licencié % !', vidlic;
         RETURN NULL;
     END IF;        
           
     CASE
         WHEN (vtrt = 1) THEN
             IF (NEW.mandat_rech IS TRUE) THEN
                 vlib := 'Mandat de recherche ';
             ELSE
                 vlib := 'Mandat simple ';
             END IF;
             vdesc:=vlib||'no. '||NEW.id_projet;

         WHEN (vtrt = 2) THEN
                 IF (NEW.typ_etat_projet != OLD.typ_etat_projet) THEN
                     SELECT INTO vlib lib_long FROM LISTE_CHOIX WHERE (cd_lang = 'fr' AND no_liste=10 AND no_val=NEW.typ_etat_projet);
                     vdesc:= 'projet '||NEW.id_projet||'  '||vlib;
                 ELSE
                     RETURN NEW;
                 END IF;
       
     END CASE;
     IF (NEW.dat_lim IS NULL) THEN
         vdatfin := NEW.dat_projet + interval '1 year';
     ELSE
         vdatfin := NEW.dat_lim;
    END IF;

     vtypact := 19;
    
     INSERT INTO AGENDA VALUES(default,1,vtypact,vdesc,NEW.dat_projet,vdatfin) RETURNING currval('agenda_id_event_seq') into vevent;
     RAISE NOTICE 'Création de l''évènement % dans l''agenda',vevent;

     INSERT INTO CLIENT_PROJET_AGENDA VALUES(NEW.id_projet,vevent);
     RAISE NOTICE 'Création de l''évènement % dans l''agenda du client % projet %',vevent,NEW.id_groupe,NEW.id_projet;

     INSERT INTO LICENCIE_AGENDA VALUES(vidlic,vevent);
     RAISE NOTICE 'Création de l''évènement % dans l''agenda du licencié %',vevent,vidlic;

     INSERT INTO EQUIPE_AGENDA VALUES(videquipe,vevent);
     RAISE NOTICE 'Création de l''évènement % dans l''agenda de l''équipe %',vevent,videquipe;

  

     RETURN NEW;
    
END;$$;


ALTER FUNCTION public.agenda_projet() OWNER TO conclavi;