From 5c4bd5c9c46cd70235c10b5eb816add5bf6c9f74 Mon Sep 17 00:00:00 2001
From: Dany De Bontridder <dany@alchimerys.be>
Date: Sat, 31 Jul 2010 19:14:25 +0000
Subject: [PATCH] Fix upgrade85.sql

---
 html/admin/sql/patch/upgrade85.sql | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/html/admin/sql/patch/upgrade85.sql b/html/admin/sql/patch/upgrade85.sql
index 2bff1e243..79fb67085 100644
--- a/html/admin/sql/patch/upgrade85.sql
+++ b/html/admin/sql/patch/upgrade85.sql
@@ -1,5 +1,31 @@
 begin;
 ALTER TABLE quant_purchase
+CREATE OR REPLACE FUNCTION comptaproc.jrnx_ins()
+  RETURNS trigger AS
+$BODY$
+declare
+n_fid bigint;
+begin
+
+if NEW.j_qcode is NULL then
+   return NEW;
+end if;
+
+NEW.j_qcode=trim(upper(NEW.j_qcode));
+
+if length (NEW.j_qcode) = 0 then
+    NEW.j_qcode=NULL;
+    else
+   select f_id into n_fid from fiche join jnt_fic_att_value using (f_id) join attr_value using(jft_id) where ad_id=23 and av_text=NEW.j_qcode;
+        if NOT FOUND then 
+                raise exception 'La fiche dont le quick code est % n''existe pas',NEW.j_qcode;
+        end if;
+end if;
+return NEW;
+end;
+$BODY$
+  LANGUAGE 'plpgsql' ;
+
   ADD CONSTRAINT quant_purchase_qp_internal_fkey FOREIGN KEY (qp_internal)
       REFERENCES jrn (jr_internal) MATCH SIMPLE
       ON UPDATE CASCADE ON DELETE CASCADE;