rel 205

sql/upgrade.sql

@@ -1,101 +0,0 @@
-CREATE or replace  FUNCTION insert_quant_sold
-	(p_internal text, 
-	p_fiche character varying, 
-	p_quant integer, 
-	p_price numeric, 
-	p_vat numeric, 
-	p_vat_code integer, 
-	p_client character varying) 
-RETURNS void
-    AS $$
-declare 
-	fid_client integer;
-	fid_good   integer;
-begin
-	select f_id into fid_client from 
-		attr_value join jnt_fic_att_value using (jft_id) where ad_id=23 and av_text=upper(p_client);
-
-	select f_id into fid_good from 
-		attr_value join jnt_fic_att_value using (jft_id) where ad_id=23 and av_text=upper(p_fiche);
-
-
-	insert into quant_sold
-		(qs_internal,qs_fiche,qs_quantite,qs_price,qs_vat,qs_vat_code,qs_client) 
-	values
-		(p_internal,fid_good,p_quant,p_price,p_vat,p_vat_code,fid_client);
-	return;
-end;	
-$$
-    LANGUAGE plpgsql;
-
--- add quick code for contact
-
-insert into attr_min (frd_id,ad_id) 
-	select distinct 16,23 
-	from attr_min 
-	where not exists (select * from attr_min where ad_id=23 and frd_id=16);
-
-
-insert into jnt_fic_attr (fd_id,ad_id) 
-       select fd_id,23 from fiche_def where frd_id=16 
-       and not exists (select *
-       from jnt_fic_attr join fiche_def using (fd_id) 
-       where frd_id=16 and ad_id=23);
-
-
-CREATE or replace FUNCTION update_quick_code(njft_id integer, tav_text text) RETURNS integer
-    AS $$
-	declare
-	ns integer;
-	nExist integer;
-	tText text;
-	old_qcode varchar;
-	begin
-	-- get current value
-	select av_text into old_qcode from attr_value 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(upper(tav_text));
-	tText := replace(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 jnt_fic_att_value join attr_value using (jft_id) 
-		where 
-			ad_id=23 and av_text=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 attr_value set av_text = tText where jft_id=njft_id;
-
-	-- update also the contact
-	update attr_value set av_text = tText 
-		where jft_id in 
-			( select jft_id 
-				from jnt_fic_att_value join attr_value using (jft_id) 
-			where ad_id=25 and av_text=old_qcode);
-
-
-	update jrnx set j_qcode=tText where j_qcode = old_qcode;
-	return ns;
-	end;
-$$
-    LANGUAGE plpgsql;
-