mirror of
https://github.com/YunoHost-Apps/noalyss_ynh.git
synced 2024-09-03 19:46:20 +02:00
504 lines
15 KiB
PL/PgSQL
504 lines
15 KiB
PL/PgSQL
begin;
|
|
|
|
alter table jnt_fic_att_value add ad_value text;
|
|
update jnt_fic_att_value set ad_value=av_text from attr_value where jnt_fic_att_value.jft_id=attr_value.jft_id;
|
|
DROP VIEW vw_supplier;
|
|
DROP VIEW vw_poste_qcode;
|
|
DROP VIEW vw_fiche_attr;
|
|
DROP VIEW vw_fiche_name;
|
|
DROP VIEW vw_client;
|
|
alter table jnt_fic_att_value rename to fiche_detail;
|
|
|
|
drop table attr_value;
|
|
|
|
CREATE OR REPLACE VIEW vw_poste_qcode AS
|
|
SELECT c.f_id, a.ad_value AS j_poste, b.ad_value AS j_qcode
|
|
FROM
|
|
fiche c
|
|
left join
|
|
( SELECT f_id,ad_value from fiche_Detail
|
|
WHERE ad_id = 5) a using(f_id)
|
|
left JOIN ( select f_id,ad_value from fiche_detail
|
|
WHERE ad_id = 23) b USING (f_id);
|
|
|
|
|
|
CREATE OR REPLACE VIEW vw_client AS
|
|
SELECT fiche.f_id, a1.ad_value AS name, a.ad_value AS quick_code, b.ad_value AS tva_num, c.ad_value AS poste_comptable, d.ad_value AS rue, e.ad_value AS code_postal, f.ad_value AS pays, g.ad_value AS telephone, h.ad_value AS email
|
|
FROM fiche
|
|
join fiche_def using (fd_id)
|
|
join fiche_def_ref using(frd_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 1) a1 USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 13) b USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 23) a USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 5) c USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 14) d USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 15) e USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 16) f USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 17) g USING (f_id)
|
|
LEFT JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 18) h USING (f_id)
|
|
WHERE fiche_def_ref.frd_id = 9;
|
|
|
|
CREATE OR REPLACE VIEW vw_fiche_name AS
|
|
SELECT f_id, ad_value AS name
|
|
FROM fiche_detail
|
|
WHERE ad_id = 1;
|
|
|
|
CREATE OR REPLACE VIEW vw_supplier AS
|
|
SELECT fiche.f_id, a1.ad_value AS name, a.ad_value AS quick_code, b.ad_value AS tva_num, c.ad_value AS poste_comptable, d.ad_value AS rue, e.ad_value AS code_postal, f.ad_value AS pays, g.ad_value AS telephone, h.ad_value AS email
|
|
FROM fiche
|
|
join fiche_def using (fd_id)
|
|
join fiche_def_ref using(frd_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 1) a1 USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 13) b USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 23) a USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 5) c USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 14) d USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 15) e USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 16) f USING (f_id)
|
|
left JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 17) g USING (f_id)
|
|
LEFT JOIN ( SELECT jft_id, F_ID, ad_id, ad_value
|
|
from fiche_detail
|
|
WHERE ad_id = 18) h USING (f_id)
|
|
WHERE fiche_def_ref.frd_id = 8;
|
|
|
|
|
|
CREATE OR REPLACE VIEW vw_fiche_attr AS
|
|
SELECT a.f_id, a.fd_id, a.ad_value AS vw_name, k.ad_value as vw_first_name, b.ad_value AS vw_sell, c.ad_value AS vw_buy, d.ad_value AS tva_code, tva_rate.tva_id, tva_rate.tva_rate, tva_rate.tva_label, e.ad_value AS vw_addr, f.ad_value AS vw_cp, j.ad_value AS quick_code, h.ad_value AS vw_description, i.ad_value AS tva_num, fiche_def.frd_id
|
|
FROM ( SELECT fiche.f_id, fiche.fd_id, ad_value
|
|
FROM fiche
|
|
left join fiche_detail using (f_id)
|
|
WHERE ad_id = 1) a
|
|
LEFT JOIN (
|
|
select f_id ,ad_value from fiche_detail
|
|
WHERE ad_id = 6) b ON a.f_id = b.f_id
|
|
LEFT JOIN ( select f_id,ad_value from fiche_detail
|
|
WHERE ad_id = 7) c ON a.f_id = c.f_id
|
|
LEFT JOIN ( select f_id,ad_value from fiche_detail
|
|
WHERE ad_id = 2) d ON a.f_id = d.f_id
|
|
LEFT JOIN ( select f_id,ad_value from fiche_detail
|
|
WHERE ad_id = 14) e ON a.f_id = e.f_id
|
|
LEFT JOIN ( select f_id,ad_value from fiche_detail
|
|
WHERE ad_id = 15) f ON a.f_id = f.f_id
|
|
LEFT JOIN ( select f_id,ad_value from fiche_detail
|
|
WHERE ad_id = 23) j ON a.f_id = j.f_id
|
|
LEFT JOIN ( select f_id,ad_value from fiche_detail
|
|
WHERE ad_id = 9) h ON a.f_id = h.f_id
|
|
LEFT JOIN ( select f_id,ad_value from fiche_detail
|
|
WHERE ad_id = 13) i ON a.f_id = i.f_id
|
|
LEFT JOIN ( select f_id,ad_value from fiche_detail
|
|
WHERE ad_id = 32) k ON a.f_id = k.f_id
|
|
LEFT JOIN tva_rate ON d.ad_value = tva_rate.tva_id::text
|
|
JOIN fiche_def USING (fd_id);
|
|
|
|
|
|
--
|
|
-- Name: account_insert(integer, text); Type: FUNCTION; Schema: comptaproc; Owner: dany
|
|
--
|
|
|
|
CREATE OR REPLACE FUNCTION COMPTAPROC.account_insert(p_f_id integer, p_account text) RETURNS integer
|
|
AS $_$
|
|
declare
|
|
nParent tmp_pcmn.pcm_val_parent%type;
|
|
sName varchar;
|
|
nNew tmp_pcmn.pcm_val%type;
|
|
bAuto bool;
|
|
nFd_id integer;
|
|
sClass_Base fiche_def.fd_class_base%TYPE;
|
|
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::account_type;
|
|
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 ad_value into sName from
|
|
fiche_detail
|
|
where
|
|
ad_id=1 and f_id=p_f_id;
|
|
|
|
nParent:=account_parent(p_account::account_type);
|
|
insert into tmp_pcmn(pcm_val,pcm_lib,pcm_val_parent) values (p_account::account_type,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);
|
|
|
|
select fd_class_base into sClass_base from fiche_def where fd_id=nFd_id;
|
|
raise info 'sClass_Base : %',sClass_base;
|
|
if bAuto = true and sClass_base similar to '^[[:digit:]]*$' then
|
|
raise info 'account generated automatically';
|
|
nNew:=account_compute(p_f_id);
|
|
raise info 'nNew %', nNew;
|
|
select ad_value into sName from
|
|
fiche_detail
|
|
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,nNew);
|
|
|
|
else
|
|
-- if there is an account_base then it is the default
|
|
select fd_class_base::account_type 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,nNew);
|
|
end if;
|
|
end if;
|
|
end if;
|
|
|
|
return 0;
|
|
end;
|
|
$_$
|
|
LANGUAGE plpgsql;
|
|
--
|
|
-- Name: account_update(integer, public.account_type); Type: FUNCTION; Schema: comptaproc; Owner: dany
|
|
--
|
|
|
|
CREATE OR REPLACE FUNCTION COMPTAPROC.account_update(p_f_id integer, p_account public.account_type) RETURNS integer
|
|
AS $$
|
|
declare
|
|
nMax fiche.f_id%type;
|
|
nCount integer;
|
|
nParent tmp_pcmn.pcm_val_parent%type;
|
|
sName varchar;
|
|
first text;
|
|
second text;
|
|
begin
|
|
|
|
if length(trim(p_account)) != 0 then
|
|
if position (',' in p_account) = 0 then
|
|
select count(*) into nCount from tmp_pcmn where pcm_val=p_account;
|
|
if nCount = 0 then
|
|
select ad_value into sName from
|
|
fiche_detail
|
|
where
|
|
ad_id=1 and f_id=p_f_id;
|
|
nParent:=account_parent(p_account);
|
|
insert into tmp_pcmn(pcm_val,pcm_lib,pcm_val_parent) values (p_account,sName,nParent);
|
|
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;
|
|
end if;
|
|
end if;
|
|
|
|
update fiche_detail set ad_value=p_account where f_id=p_f_id and ad_id=5 ;
|
|
|
|
return 0;
|
|
end;
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
|
|
--
|
|
-- Name: attribut_insert(integer, integer, character varying); Type: FUNCTION; Schema: comptaproc; Owner: dany
|
|
--
|
|
|
|
CREATE OR REPLACE FUNCTION COMPTAPROC.attribut_insert(p_f_id integer, p_ad_id integer, p_value character varying) RETURNS void
|
|
AS $$
|
|
begin
|
|
insert into fiche_detail (f_id,ad_id, ad_value) values (p_f_id,p_ad_id,p_value);
|
|
|
|
return;
|
|
end;
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
|
|
--
|
|
-- Name: fiche_attribut_synchro(integer); Type: FUNCTION; Schema: comptaproc; Owner: dany
|
|
--
|
|
|
|
CREATE OR REPLACE FUNCTION COMPTAPROC.fiche_attribut_synchro(p_fd_id integer) RETURNS void
|
|
AS $$
|
|
declare
|
|
-- this sql gives the f_id and the missing attribute (ad_id)
|
|
list_missing cursor for select f_id,fd_id,ad_id,jnt_order from jnt_fic_attr join fiche as A using (fd_id) where fd_id=p_fd_id and ad_id not in (select ad_id from fiche join fiche_detail using (f_id) where fd_id=jnt_fic_attr.fd_id and A.f_id=f_id);
|
|
rec record;
|
|
begin
|
|
open list_missing;
|
|
loop
|
|
|
|
fetch list_missing into rec;
|
|
IF NOT FOUND then
|
|
exit;
|
|
end if;
|
|
|
|
-- now we insert into attr_value
|
|
insert into fiche_detail (f_id,ad_id,ad_value) values (rec.f_id,rec.ad_id,null);
|
|
end loop;
|
|
close list_missing;
|
|
end;
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
|
|
--
|
|
-- Name: insert_quant_sold(text, numeric, character varying, numeric, numeric, numeric, integer, character varying); Type: FUNCTION; Schema: comptaproc; Owner: dany
|
|
--
|
|
|
|
CREATE OR REPLACE FUNCTION COMPTAPROC.insert_quant_sold(p_internal text, p_jid numeric, p_fiche character varying, p_quant numeric, 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
|
|
fiche_detail where ad_id=23 and ad_value=upper(trim(p_client));
|
|
select f_id into fid_good from
|
|
fiche_detail where ad_id=23 and ad_value=upper(trim(p_fiche));
|
|
insert into quant_sold
|
|
(qs_internal,j_id,qs_fiche,qs_quantite,qs_price,qs_vat,qs_vat_code,qs_client,qs_valid)
|
|
values
|
|
(p_internal,p_jid,fid_good,p_quant,p_price,p_vat,p_vat_code,fid_client,'Y');
|
|
return;
|
|
end;
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
|
|
--
|
|
-- Name: insert_quant_purchase(text, numeric, character varying, numeric, numeric, numeric, integer, numeric, numeric, numeric, numeric, character varying); Type: FUNCTION; Schema: comptaproc; Owner: dany
|
|
--
|
|
|
|
CREATE OR REPLACE FUNCTION COMPTAPROC.insert_quant_purchase(p_internal text, p_j_id numeric, p_fiche character varying, p_quant numeric, p_price numeric, p_vat numeric, p_vat_code integer, p_nd_amount numeric, p_nd_tva numeric, p_nd_tva_recup numeric, p_dep_priv numeric, p_client character varying) RETURNS void
|
|
AS $$
|
|
declare
|
|
fid_client integer;
|
|
fid_good integer;
|
|
begin
|
|
select f_id into fid_client from
|
|
fiche_detail where ad_id=23 and ad_value=upper(trim(p_client));
|
|
select f_id into fid_good from
|
|
fiche_detail where ad_id=23 and ad_value=upper(trim(p_fiche));
|
|
insert into quant_purchase
|
|
(qp_internal,
|
|
j_id,
|
|
qp_fiche,
|
|
qp_quantite,
|
|
qp_price,
|
|
qp_vat,
|
|
qp_vat_code,
|
|
qp_nd_amount,
|
|
qp_nd_tva,
|
|
qp_nd_tva_recup,
|
|
qp_supplier,
|
|
qp_dep_priv)
|
|
values
|
|
(p_internal,
|
|
p_j_id,
|
|
fid_good,
|
|
p_quant,
|
|
p_price,
|
|
p_vat,
|
|
p_vat_code,
|
|
p_nd_amount,
|
|
p_nd_tva,
|
|
p_nd_tva_recup,
|
|
fid_client,
|
|
p_dep_priv);
|
|
return;
|
|
end;
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
|
|
--
|
|
-- Name: insert_quick_code(integer, text); Type: FUNCTION; Schema: comptaproc; Owner: dany
|
|
--
|
|
|
|
CREATE OR REPLACE FUNCTION COMPTAPROC.insert_quick_code(nf_id integer, tav_text text) RETURNS integer
|
|
AS $$
|
|
declare
|
|
ns integer;
|
|
nExist integer;
|
|
tText text;
|
|
begin
|
|
tText := upper(trim(tav_text));
|
|
tText := replace(tText,' ','');
|
|
|
|
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;
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
|
|
|
|
--
|
|
-- Name: update_quick_code(integer, text); Type: FUNCTION; Schema: comptaproc; Owner: dany
|
|
--
|
|
|
|
CREATE OR REPLACE FUNCTION COMPTAPROC.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 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(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 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;
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
|
|
|
|
--
|
|
-- Name: jrnx_ins(); Type: FUNCTION; Schema: comptaproc; Owner: dany
|
|
--
|
|
|
|
CREATE OR REPLACE FUNCTION COMPTAPROC.jrnx_ins() RETURNS trigger
|
|
AS $$
|
|
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_detail where ad_id=23 and ad_value=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;
|
|
NEW.f_id:=n_fid;
|
|
return NEW;
|
|
end;
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
|
|
update version set val=91;
|
|
commit;
|