admingit/altocompta
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix problem with plpgsql code

Browse source
This commit is contained in:
sparkyx 2007-04-12 23:33:46 +00:00
parent 17878a1763
commit 830e00fcf5
2 changed files with 39 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
html/admin/setup.php
View file

@ -500,6 +500,10 @@ if ( DEBUG=='false' ) ob_start();
ExecuteScript($db,'sql/patch/upgrade25.sql');
} // version
if ( GetVersion($db) == 26 ) {
ExecuteScript($db,'sql/patch/upgrade26.sql');
} // version
if ( DEBUG == 'false') ob_end_clean();
}//for
@ -612,6 +616,10 @@ if (DEBUG == 'false' ) ob_start();
ExecuteScript($db,'sql/patch/upgrade25.sql');
} // version
if ( GetVersion($db) == 26 ) {
ExecuteScript($db,'sql/patch/upgrade26.sql');
} // version
if ( DEBUG == 'false') ob_end_clean();
}

31
html/admin/sql/patch/upgrade26.sql Normal file
View file

@ -0,0 +1,31 @@
begin;
CREATE or replace FUNCTION account_compute(p_f_id integer) RETURNS poste_comptable
AS $$
declare
class_base poste_comptable;
maxcode poste_comptable;
begin
select fd_class_base into class_base
from
fiche_def join fiche using (fd_id)
where
f_id=p_f_id;
raise notice 'account_compute class base %',class_base;
select count (pcm_val) into maxcode from tmp_pcmn where pcm_val_parent = class_base;
if maxcode = 0 then
maxcode:=class_base;
else
select max (pcm_val) into maxcode from tmp_pcmn where pcm_val_parent = class_base;
end if;
if maxcode = class_base then
maxcode:=class_base*1000;
end if;
maxcode:=maxcode+1;
raise notice 'account_compute Max code %',maxcode;
return maxcode;
end;
$$
LANGUAGE plpgsql;
update version set val=27;
commit;