mirror of
https://github.com/YunoHost-Apps/noalyss_ynh.git
synced 2024-09-03 19:46:20 +02:00
303 lines
10 KiB
PL/PgSQL
303 lines
10 KiB
PL/PgSQL
begin;
|
|
|
|
-- si la fiche utilise le code DEPENSE PRIVEE alors ajout dans QP_DEP_PRIV
|
|
create or replace view m as
|
|
select qp_id, qp_price from quant_purchase join fiche_detail on (qp_fiche=f_id and ad_id=5) where ad_value in (select p_value from parm_code where p_code='DEP_PRIV');
|
|
|
|
update quant_purchase as e set qp_dep_priv=(select qp_price from m where m.qp_id=e.qp_id);
|
|
|
|
update quant_purchase as e set qp_dep_priv=(select qp_price from m where m.qp_id=e.qp_id);
|
|
|
|
update quant_purchase as e set qp_dep_priv=0 where qp_dep_priv is null;
|
|
-- évite les valeurs nulles dans quant_purchase
|
|
update quant_purchase set qp_dep_priv = 0 where qp_dep_priv is null;
|
|
|
|
drop view m;
|
|
|
|
-- update script insert_quant_purchase
|
|
|
|
|
|
CREATE OR REPLACE FUNCTION comptaproc.insert_quant_purchase(
|
|
p_internal text,
|
|
p_j_id numeric,
|
|
p_fiche text,
|
|
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 text,
|
|
p_tva_sided numeric)
|
|
RETURNS void AS
|
|
$BODY$
|
|
declare
|
|
fid_client integer;
|
|
fid_good integer;
|
|
account_priv account_type;
|
|
fid_good_account account_type;
|
|
n_dep_priv numeric;
|
|
begin
|
|
n_dep_priv := 0;
|
|
select p_value into account_priv from parm_code where p_code='DEP_PRIV';
|
|
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));
|
|
select ad_value into fid_good_account from fiche_detail where ad_id=5 and f_id=fid_good;
|
|
if strpos( fid_good_account , account_priv ) = 1 then
|
|
n_dep_priv=p_price;
|
|
end if;
|
|
|
|
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,
|
|
qp_vat_sided)
|
|
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,
|
|
n_dep_priv,
|
|
p_tva_sided);
|
|
return;
|
|
end;
|
|
$BODY$
|
|
LANGUAGE plpgsql;
|
|
|
|
|
|
-- ajout code manquant dans parm_code
|
|
create or replace function add_parm_code() returns void as
|
|
$fct$
|
|
declare
|
|
country_code text;
|
|
begin
|
|
select pr_value into country_code from parameter where pr_id='MY_COUNTRY';
|
|
if country_code='FR' then
|
|
insert into parm_code (p_code,p_comment,p_value) values ('DNA','Dépense non déductible','67');
|
|
insert into parm_code (p_code,p_comment,p_value) values ('TVA_DNA','TVA non déductible','');
|
|
insert into parm_code (p_code,p_comment,p_value) values ('TVA_DED_IMPOT','TVA déductible à l''impôt','');
|
|
insert into parm_code (p_code,p_comment,p_value) values ('COMPTE_COURANT','Poste comptable pour le compte courant','');
|
|
insert into parm_code (p_code,p_comment,p_value) values ('COMPTE_TVA','TVA à payer ou à recevoir','');
|
|
end if;
|
|
end;
|
|
$fct$
|
|
language plpgsql;
|
|
|
|
select add_parm_code();
|
|
|
|
drop function add_parm_code();
|
|
|
|
update parm_code set p_value='67' where p_value='6740' and p_code='DNA';
|
|
|
|
alter table menu_ref add me_description_etendue text;
|
|
|
|
insert into menu_ref(me_code,me_menu,me_file, me_url,me_description,me_parameter,me_javascript,me_type,me_description_etendue)
|
|
values
|
|
('NAVI','Navigateur',null,null,'Menu simplifié pour retrouver rapidement un menu',null,'ask_navigator(<DOSSIER>)','ME','Le navigateur vous présente une liste de menu auquel vous avez accès et vous permet d''accèder plus rapidement au menu que vous souhaitez rapidement');
|
|
|
|
insert into profile_menu (me_code,me_code_dep,p_id,p_order, p_type_display,pm_default)
|
|
values
|
|
('NAVI',null,1,90,'M',0), ('NAVI',null,2,90,'M',0);
|
|
|
|
insert into menu_ref(me_code,me_menu,me_file, me_url,me_description,me_parameter,me_javascript,me_type,me_description_etendue)
|
|
values
|
|
('BOOKMARK','Favori',null,null,'Raccourci vers vos menus préférés',null,'show_bookmark(<DOSSIER>)','ME','Ce menu vous présente un menu rapide des menus que vous utilisez le plus souvent');
|
|
|
|
insert into profile_menu (me_code,me_code_dep,p_id,p_order, p_type_display,pm_default)
|
|
values
|
|
('BOOKMARK',null,1,85,'M',0), ('BOOKMARK',null,2,85,'M',0);
|
|
|
|
update menu_ref set me_menu='Impression Journaux' where me_code='PRINTJRN';
|
|
update menu_ref set me_description='Impression des journaux' where me_code='PRINTJRN';
|
|
update menu_ref set me_menu='Liste Suivi' where me_code='FOLLOW';
|
|
update menu_ref set me_description='Document de suivi sous forme de liste' where me_code='FOLLOW';
|
|
update menu_ref set me_javascript='popup_recherche(<DOSSIER>)' where me_code='SEARCH';
|
|
update menu_ref set me_file=null,me_javascript='set_preference(<DOSSIER>)' , me_description_etendue='Préférence de l''utilisateur, apparence de l''application pour l''utilisateur, période par défaut et mot de passe' where me_code='PREFERENCE';
|
|
/*
|
|
* Vue montrant toutes les possibilités
|
|
*/
|
|
CREATE OR REPLACE VIEW v_menu_description AS
|
|
WITH t_menu AS (
|
|
SELECT mr.me_menu, pm.me_code, pm.me_code_dep, pm.p_type_display, pu.user_name, mr.me_file, mr.me_javascript, mr.me_description, mr.me_description_etendue
|
|
FROM profile_menu pm
|
|
JOIN profile_user pu ON pu.p_id = pm.p_id
|
|
JOIN profile p ON p.p_id = pm.p_id
|
|
JOIN menu_ref mr USING (me_code)
|
|
)
|
|
SELECT DISTINCT (COALESCE(v3.me_code || '/'::text, ''::text) || COALESCE(v2.me_code, ''::text)) ||
|
|
CASE
|
|
WHEN v2.me_code IS NULL THEN COALESCE(v1.me_code, ''::text)
|
|
WHEN v2.me_code IS NOT NULL THEN COALESCE('/'::text || v1.me_code, ''::text)
|
|
ELSE NULL::text
|
|
END AS code, v1.me_code, v1.me_description, v1.me_description_etendue, v1.me_file, v1.user_name, '> '::text || v1.me_menu AS v1menu,
|
|
CASE
|
|
WHEN COALESCE(v3.me_menu, ''::text) <> ''::text THEN ' > '::text || v2.me_menu
|
|
ELSE v2.me_menu
|
|
END AS v2menu, v3.me_menu AS v3menu, v3.p_type_display,
|
|
coalesce(v1.me_javascript,coalesce(v2.me_javascript,v3.me_javascript)) as javascript
|
|
FROM t_menu v1
|
|
LEFT JOIN t_menu v2 ON v1.me_code_dep = v2.me_code
|
|
LEFT JOIN t_menu v3 ON v2.me_code_dep = v3.me_code
|
|
WHERE v1.p_type_display <> 'P'::text AND (COALESCE(v1.me_file, ''::text) <> ''::text OR COALESCE(v1.me_javascript, ''::text) <> ''::text);
|
|
|
|
COMMENT ON VIEW v_menu_description
|
|
IS 'Description des menus';
|
|
|
|
CREATE TABLE bookmark
|
|
(
|
|
b_id serial primary key,
|
|
b_order integer default 1,
|
|
b_action text,
|
|
login text
|
|
);
|
|
comment on table bookmark is 'Bookmark of the connected user';
|
|
|
|
create table tags (
|
|
t_id serial primary key,
|
|
t_tag text not null,
|
|
t_description text
|
|
);
|
|
|
|
create table action_tags
|
|
(
|
|
at_id serial primary key,
|
|
t_id integer references tags(t_id) on delete cascade on update cascade,
|
|
ag_id integer references action_gestion(ag_id) on delete cascade on update cascade
|
|
);
|
|
/* Config tag */
|
|
insert into menu_ref(me_code,me_menu,me_file, me_url,me_description,me_parameter,me_javascript,me_type,me_description_etendue)
|
|
values
|
|
('CFGTAG','Configuration étiquette','cfgtags.inc.php',null,'Configuration des tags',null,null,'ME','Configuration des étiquettes. Vous pouvez en ajouter, en supprimer ou les modifier');
|
|
|
|
insert into profile_menu (me_code,me_code_dep,p_id,p_order, p_type_display,pm_default)
|
|
values
|
|
('CFGTAG','PARAM',1,390,'E',0);
|
|
|
|
update fiche_def_ref set frd_text='Trésorerie' where frd_id=4;
|
|
|
|
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;
|
|
tBase text;
|
|
tName text;
|
|
nCount Integer;
|
|
nDuplicate Integer;
|
|
begin
|
|
tText := lower(trim(tav_text));
|
|
tText := replace(tText,' ','');
|
|
tText := translate(tText,E' $€µ£%.+-/\\!(){}(),;_&|"#''^<>*','');
|
|
tText := translate(tText,E'éèêëàâäïîüûùöôç','eeeeaaaiiuuuooc');
|
|
nDuplicate := 0;
|
|
tBase := tText;
|
|
loop
|
|
-- take the next sequence
|
|
select nextval('s_jnt_fic_att_value') into ns;
|
|
if length (tText) = 0 or tText is null then
|
|
select count(*) into nCount from fiche_detail where f_id=nf_id and ad_id=1;
|
|
if nCount = 0 then
|
|
tText := 'FICHE'||ns::text;
|
|
else
|
|
select ad_value into tName from fiche_detail where f_id=nf_id and ad_id=1;
|
|
|
|
tName := lower(trim(tName));
|
|
tName := substr(tName,1,6);
|
|
tName := replace(tName,' ','');
|
|
tName := translate(tName,E' $€µ£%.+-/\\!(){}(),;_&|"#''^<>*','');
|
|
tName := translate(tName,E'éèêëàâäïîüûùöôç','eeeeaaaiiuuuooc');
|
|
tBase := tName;
|
|
if nDuplicate = 0 then
|
|
tText := tName;
|
|
else
|
|
tText := tName||nDuplicate::text;
|
|
end if;
|
|
end if;
|
|
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;
|
|
nDuplicate := nDuplicate + 1 ;
|
|
tText := tBase || nDuplicate::text;
|
|
|
|
if nDuplicate > 9999 then
|
|
raise Exception 'too many duplicate % duplicate# %',tText,nDuplicate;
|
|
end if;
|
|
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;
|
|
|
|
alter table op_predef add od_description text;
|
|
create or replace function comptaproc.opd_limit_description()
|
|
returns trigger
|
|
as
|
|
$BEGIN$
|
|
declare
|
|
sDescription text;
|
|
begin
|
|
sDescription := NEW.od_description;
|
|
NEW.od_description := substr(sDescription,1,80);
|
|
return NEW;
|
|
end;
|
|
$BEGIN$
|
|
LANGUAGE plpgsql;
|
|
|
|
create trigger opd_limit_description before update or insert on op_predef for each row execute procedure comptaproc.opd_limit_description();
|
|
|
|
update menu_ref set me_menu = 'Trésorerie' where me_code='MENUFIN';
|
|
|
|
create or replace function do_insert() returns void
|
|
as
|
|
$$
|
|
declare
|
|
nCount integer;
|
|
begin
|
|
select count(*) into nCount from menu_ref where me_file='contact.inc.php';
|
|
if nCount = 0 then
|
|
insert into menu_ref(ME_CODE,me_menu,me_file,me_description,me_type) values ('CONTACT','Contact','contact.inc.php','Liste des contacts','ME');
|
|
end if;
|
|
end;
|
|
$$
|
|
language plpgsql;
|
|
|
|
select do_insert();
|
|
|
|
drop function do_insert();
|
|
|
|
update version set val=108;
|
|
|
|
commit;
|