[Phpcompta-dev] r5202 - in phpcompta/tags/rel650: html/admin/sql/patch include

[phpcompta-dev]

Author: danydb
Date: 2013-03-28 18:05:08 +0100 (Thu, 28 Mar 2013)
New Revision: 5202

Added:
   phpcompta/tags/rel650/html/admin/sql/patch/upgrade105.sql
Modified:
   phpcompta/tags/rel650/include/constant.php
Log:
Add patch upgrade105

Added: phpcompta/tags/rel650/html/admin/sql/patch/upgrade105.sql
===================================================================
--- phpcompta/tags/rel650/html/admin/sql/patch/upgrade105.sql                   
        (rev 0)
+++ phpcompta/tags/rel650/html/admin/sql/patch/upgrade105.sql   2013-03-28 
17:05:08 UTC (rev 5202)
@@ -0,0 +1,109 @@
+begin;
+
+CREATE OR REPLACE FUNCTION comptaproc.insert_quick_code(nf_id integer, 
tav_text text)
+  RETURNS integer AS
+$BODY$
+       declare
+       ns integer;
+       nExist integer;
+       tText text;
+       begin
+       tText := lower(trim(tav_text));
+       tText := replace(tText,' ','');
+       tText := translate(tText,E' $€µ£%.+-/\\!(){}(),;_&|"#''^<>*','');
+       tText := translate(tText,E'éèêëàâäïîüûùöôç','eeeeaaaiiuuuooc');
+
+
+       loop
+               -- take the next sequence
+               select nextval('s_jnt_fic_att_value') into ns;
+               if length (tText) = 0 or tText is null then
+                       tText := 'FID'||ns;
+               end if;
+               -- av_text already used ?
+               select count(*) into nExist
+                       from fiche_detail
+               where
+                       ad_id=23 and  ad_value=upper(tText);
+
+               if nExist = 0 then
+                       exit;
+               end if;
+               tText:='FID'||ns;
+       end loop;
+
+
+       insert into fiche_detail(jft_id,f_id,ad_id,ad_value) values 
(ns,nf_id,23,upper(tText));
+       return ns;
+       end;
+$BODY$
+  LANGUAGE plpgsql;
+
+CREATE OR REPLACE FUNCTION comptaproc.update_quick_code(njft_id integer, 
tav_text text)
+  RETURNS integer AS
+$BODY$
+       declare
+       ns integer;
+       nExist integer;
+       tText text;
+       old_qcode varchar;
+       begin
+       -- get current value
+       select ad_value into old_qcode from fiche_detail where jft_id=njft_id;
+       -- av_text didn't change so no update
+       if tav_text = upper( trim(old_qcode)) then
+               return 0;
+       end if;
+
+       tText := trim(lower(tav_text));
+       tText := replace(tText,' ','');
+       tText := translate(tText,E' $€µ£%.+-/\\!(){}(),;_&|"#''^<>*','');
+       tText := translate(tText,E'éèêëàâäïîüûùöôç','eeeeaaaiiuuuooc');
+       tText := upper(tText);
+       if length ( tText) = 0 or tText is null then
+               return 0;
+       end if;
+
+       ns := njft_id;
+
+       loop
+               -- av_text already used ?
+               select count(*) into nExist
+                       from fiche_detail
+               where
+                       ad_id=23 and ad_value=tText;
+
+               if nExist = 0 then
+                       exit;
+               end if;
+               if tText = 'FID'||ns then
+                       -- take the next sequence
+                       select nextval('s_jnt_fic_att_value') into ns;
+               end if;
+               tText  :='FID'||ns;
+
+       end loop;
+       update fiche_detail set ad_value = tText where jft_id=njft_id;
+
+       -- update also the contact
+       update fiche_detail set ad_value = tText
+               where jft_id in
+                       ( select jft_id
+                               from fiche_detail
+                       where ad_id=25 and ad_value=old_qcode);
+
+
+       update jrnx set j_qcode=tText where j_qcode = old_qcode;
+       return ns;
+       end;
+$BODY$
+  LANGUAGE plpgsql;
+
+
+alter table document_state add s_status char(1);
+
+update document_state set s_status='C' where s_id in (1,4);
+
+update version set val=106;
+
+commit;

Modified: phpcompta/tags/rel650/include/constant.php
===================================================================
--- phpcompta/tags/rel650/include/constant.php  2013-03-27 23:14:27 UTC (rev 
5201)
+++ phpcompta/tags/rel650/include/constant.php  2013-03-28 17:05:08 UTC (rev 
5202)
@@ -35,19 +35,19 @@
 $g_succeed="<span style=\"font-size:18px;color:green\">&#x2713;</span>";
 /*set to none for production */
 /* uncomment for production */
-// $version_phpcompta=SVNINFO;
-// define ("DEBUG",false);
- define ('SVNINFO',5138);
- $version_phpcompta=SVNINFO;
- define ("DEBUG",true);
-
+$version_phpcompta=SVNINFO;
+define ("DEBUG",false);
+/* define ('SVNINFO',5015);
+ * $version_phpcompta=SVNINFO;
+ * define ("DEBUG",true);
+*/
 // If you don't want to be notified of the update
 // define ("SITE_UPDATE",'');
 define ("SITE_UPDATE",'http://www.phpcompta.eu/last_version.txt');
 define 
("SITE_UPDATE_PLUGIN",'http://www.phpcompta.eu/plugin_last_version.txt');
 
 
-define ("DBVERSION",105);
+define ("DBVERSION",106);
 
 define ("DBVERSIONREPO",14);
 define ('NOTFOUND','--not found--');



---
PhpCompta est un logiciel de comptabilité libre en ligne (full web)
Projet opensource http://www.phpcompta.eu