Restructure file , remove html/admin , backup ...

include/sql/patch/upgrade68.sql

@@ -0,0 +1,86 @@
+begin;
+
+CREATE OR REPLACE FUNCTION account_insert(p_f_id integer, p_account text)
+  RETURNS integer AS
+$BODY$
+declare
+nParent tmp_pcmn.pcm_val_parent%type;
+sName varchar;
+nNew tmp_pcmn.pcm_val%type;
+bAuto bool;
+nFd_id integer;
+nCount integer;
+first text;
+second text;
+begin
+
+	if length(trim(p_account)) != 0 then
+	-- if there is coma in p_account, treat normally
+		if position (',' in p_account) = 0 then
+			raise info 'p_account is not empty';
+				select count(*)  into nCount from tmp_pcmn where pcm_val=p_account::poste_comptable;
+				raise notice 'found in tmp_pcm %',nCount;
+				if nCount !=0  then
+					raise info 'this account exists in tmp_pcmn ';
+					perform attribut_insert(p_f_id,5,p_account);
+				   else
+				       -- account doesn't exist, create it
+					select av_text into sName from
+						attr_value join jnt_fic_att_value using (jft_id)
+					where
+					ad_id=1 and f_id=p_f_id;
+
+					nParent:=account_parent(p_account::poste_comptable);
+					insert into tmp_pcmn(pcm_val,pcm_lib,pcm_val_parent) values (p_account::poste_comptable,sName,nParent);
+					perform attribut_insert(p_f_id,5,p_account);
+
+				end if;
+		else
+		raise info 'presence of a comma';
+		-- there is 2 accounts separated by a comma
+		first := split_part(p_account,',',1);
+		second := split_part(p_account,',',2);
+		-- check there is no other coma
+		raise info 'first value % second value %', first, second;
+
+		if  position (',' in first) != 0 or position (',' in second) != 0 then
+			raise exception 'Too many comas, invalid account';
+		end if;
+		perform attribut_insert(p_f_id,5,p_account);
+		end if;
+	else
+	raise info 'p_account is  empty';
+		select fd_id into nFd_id from fiche where f_id=p_f_id;
+		bAuto:= account_auto(nFd_id);
+		if bAuto = true then
+			raise notice 'account generated automatically';
+			nNew:=account_compute(p_f_id);
+			raise notice 'nNew %', nNew;
+			select av_text into sName from
+			attr_value join jnt_fic_att_value using (jft_id)
+			where
+			ad_id=1 and f_id=p_f_id;
+			nParent:=account_parent(nNew);
+			perform account_add  (nNew,sName);
+			perform attribut_insert(p_f_id,5,to_char(nNew,'999999999999999999999999'));
+
+		else
+		-- if there is an account_base then it is the default
+		      select fd_class_base::text into nNew from fiche_def join fiche using (fd_id) where f_id=p_f_id;
+			if nNew is null or length(trim(nNew)) = 0 then
+				raise notice 'count is null';
+				 perform attribut_insert(p_f_id,5,null);
+			else
+				 perform attribut_insert(p_f_id,5,to_char(nNew,'999999999999999999999999'));
+			end if;
+		end if;
+	end if;
+
+return 0;
+end;
+$BODY$
+LANGUAGE 'plpgsql';
+
+update version set val=69;
+commit;
+