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

insert_quant_purchase place le montant automatiquement dans la colonne dep. privée

Browse source
This commit is contained in:
Dany De Bontridder 2015-12-15 15:54:04 +01:00
parent c62e0f33ef
commit e679566715
1 changed files with 65 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

65
include/sql/patch/upgrade122.sql
View file

@ -135,6 +135,71 @@ DROP FUNCTION comptaproc.insert_quant_purchase(text, numeric, character varying,
DROP FUNCTION comptaproc.insert_quant_purchase(text, numeric, text, numeric, numeric, numeric, integer, numeric, numeric, numeric, numeric, text, numeric);
DROP FUNCTION comptaproc.insert_quant_sold(text, numeric, character varying, numeric, numeric, numeric, integer, character varying, numeric);
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,
p_tva_sided numeric,
p_price_unit 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,
qp_unit)
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,
p_price_unit);
return;
end;
$BODY$
LANGUAGE plpgsql;
update version set val=123;