You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2283 lines
90 KiB
2283 lines
90 KiB
<?xml version="1.0" encoding="ISO-8859-1"?>
|
|
<ROOT>
|
|
<NODE name="INIT" label="INITIALISATIONS">
|
|
|
|
<NODE label="Tables Articles">
|
|
|
|
<sqlcmd><![CDATA[
|
|
|
|
-- Constitution table des produits avec ceux qui ont été supprimés
|
|
DROP TABLE IF EXISTS w_PRODUIT_TYPE;
|
|
CREATE TEMP TABLE W_PRODUIT_TYPE AS
|
|
SELECT ID,
|
|
NOM,
|
|
CAHPP_ARTICLE_ID,
|
|
PMT_COMPTE_ID,
|
|
CATEGORIE,
|
|
PRODUIT_FAMILLE_ID,
|
|
PRODUIT_SOUS_FAMILLE_ID,
|
|
REFERENCE,
|
|
PRODUIT_FOURNISSEUR_ID,
|
|
CIP,
|
|
CIP13,
|
|
UCD,
|
|
UCD13,
|
|
CLADIMED
|
|
FROM prod_expert_sante.PRODUIT_TYPE
|
|
;
|
|
|
|
ANALYSE w_PRODUIT_TYPE
|
|
;
|
|
|
|
INSERT INTO w_PRODUIT_TYPE
|
|
SELECT ID,
|
|
(MAX(ARRAY[MADATE::text,NOM]))[2],
|
|
(MAX(ARRAY[MADATE::text,CAHPP_ARTICLE_ID]))[2],
|
|
(MAX(ARRAY[MADATE::text,PMT_COMPTE_ID::text]))[2]::bigint,
|
|
(MAX(ARRAY[MADATE::text,CATEGORIE]))[2],
|
|
(MAX(ARRAY[MADATE::text,PRODUIT_FAMILLE_ID::text]))[2]::bigint,
|
|
(MAX(ARRAY[MADATE::text,PRODUIT_SOUS_FAMILLE_ID::text]))[2]::bigint,
|
|
(MAX(ARRAY[MADATE::text,REFERENCE]))[2],
|
|
(MAX(ARRAY[MADATE::text,PRODUIT_FOURNISSEUR_ID::text]))[2]::bigint,
|
|
(MAX(ARRAY[MADATE::text,CIP]))[2],
|
|
(MAX(ARRAY[MADATE::text,CIP13]))[2],
|
|
(MAX(ARRAY[MADATE::text,UCD]))[2],
|
|
(MAX(ARRAY[MADATE::text,UCD13]))[2],
|
|
(MAX(ARRAY[MADATE::text,CLADIMED]))[2]
|
|
FROM prod_expert_sante.LOG_PRODUIT_TYPE
|
|
WHERE ID NOT IN (SELECT ID FROM w_PRODUIT_TYPE)
|
|
GROUP BY 1
|
|
;
|
|
|
|
CREATE INDEX w_PRODUIT_TYPE_i1 ON w_PRODUIT_TYPE USING BTREE (ID);
|
|
|
|
-- Forcage des famùille en tant que type
|
|
INSERT INTO eco.t_divers (code, texte, valeur, description)
|
|
SELECT
|
|
'EXPERT_FAM_AS_TYP',
|
|
'Forcer les familles en tant que type',
|
|
'0',
|
|
'0=Non 1=Oui'
|
|
WHERE 'EXPERT_FAM_AS_TYP' NOT IN (SELECT code FROM eco.t_divers)
|
|
;
|
|
|
|
-- Exclusion des utilisateurs négatifs
|
|
INSERT INTO eco.t_divers (code, texte, valeur, description)
|
|
SELECT
|
|
'EXPERT_EXCLUDE_UTIL_AUTO',
|
|
'Ignorer les mouvements où l''utilisateur est automatique (id < 0)',
|
|
'0',
|
|
'0=Non 1=Oui'
|
|
WHERE 'EXPERT_EXCLUDE_UTIL_AUTO' NOT IN (SELECT code FROM eco.t_divers)
|
|
;
|
|
|
|
|
|
-- Exclusion des produits à de commande négatif
|
|
INSERT INTO eco.t_divers (code, texte, valeur, description)
|
|
SELECT
|
|
'EXPERT_EXCLUDE_COM_NEG',
|
|
'Ignorer les produits où le numero de commande est négatif',
|
|
'0',
|
|
'0=Non 1=Oui'
|
|
WHERE 'EXPERT_EXCLUDE_COM_NEG' NOT IN (SELECT code FROM eco.t_divers)
|
|
;
|
|
|
|
|
|
|
|
-- Comptes
|
|
INSERT INTO eco.t_compte(code, texte, texte_court, code_original)
|
|
SELECT NUMERO, NOM, LEFT(NOM,50), ID
|
|
FROM prod_expert_sante.PMT_COMPTE
|
|
WHERE ID NOT IN (SELECT code_original FROM eco.t_compte WHERE code_original IS NOT NULL)
|
|
AND VISIBLE = 1;
|
|
|
|
|
|
-- unités (verrouillé par ELA)
|
|
/*
|
|
SELECT base.cti_execute('INSERT INTO eco.t_unites (code_original, code, texte, texte_court)
|
|
SELECT UNITE_CIO.CODE,UNITE_CIO.CODE,LIBELLE,INRSGUNI
|
|
FROM prod_expert_sante.UNITE_CIO
|
|
LEFT JOIN eco.t_unites ON UNITE_CIO.CODE = code_original
|
|
WHERE code_original IS NULL',1)
|
|
WHERE (SELECT count(*) FROM information_schema.tables WHERE table_name = 'unite_cio' AND table_schema = 'expert_sante') > 0
|
|
;
|
|
*/
|
|
|
|
-- ATC
|
|
SELECT base.cti_execute('INSERT INTO eco.t_classification_atc(code_original, code, texte, texte_court )
|
|
SELECT CLADIMED.CODE, CLADIMED.CODE, LIBELLE, LEFT(LIBELLE,50)
|
|
FROM prod_expert_sante.CLADIMED
|
|
LEFT JOIN eco.t_classification_atc ON t_classification_atc.code = CLADIMED.CODE
|
|
WHERE code_original IS NULL
|
|
ORDER BY 1',1)
|
|
WHERE (SELECT count(*) FROM information_schema.tables WHERE table_name = 'cladimed' AND table_schema = 'prod_expert_sante') > 0
|
|
;
|
|
|
|
|
|
-- Familles d'articles
|
|
INSERT INTO eco.t_familles_articles(code_original, code, texte, texte_court )
|
|
SELECT ID, ID, NOM, NOM
|
|
FROM prod_expert_sante.PRODUIT_FAMILLE
|
|
LEFT JOIN eco.t_familles_articles ON code_original = ID
|
|
WHERE code_original IS NULL
|
|
AND ID = ANY (ARRAY(SELECT PRODUIT_FAMILLE_ID FROM w_PRODUIT_TYPE PRODUIT_TYPE))
|
|
ORDER BY 1
|
|
;
|
|
|
|
|
|
-- Sous Familles d'articles
|
|
INSERT INTO eco.t_sous_familles_articles(code_original, code, texte, texte_court )
|
|
SELECT ID, ID, NOM, NOM
|
|
FROM prod_expert_sante.PRODUIT_SOUS_FAMILLE
|
|
LEFT JOIN eco.t_sous_familles_articles ON code_original = ID
|
|
WHERE code_original IS NULL
|
|
AND ID = ANY (ARRAY(SELECT PRODUIT_SOUS_FAMILLE_ID FROM w_PRODUIT_TYPE PRODUIT_TYPE))
|
|
ORDER BY 1
|
|
;
|
|
|
|
-- Types
|
|
INSERT INTO eco.t_types_articles(code_original, code, texte, texte_court )
|
|
SELECT ID, ID, NOM, NOM
|
|
FROM prod_expert_sante.PRODUIT_FAMILLE
|
|
LEFT JOIN eco.t_types_articles ON code_original = ID
|
|
WHERE code_original IS NULL
|
|
AND ID = ANY (ARRAY(SELECT PRODUIT_FAMILLE_ID from w_PRODUIT_TYPE PRODUIT_TYPE))
|
|
AND (SELECT valeur = '1' FROM eco.t_divers WHERE code = 'EXPERT_FAM_AS_TYP')
|
|
ORDER BY 1
|
|
;
|
|
|
|
|
|
|
|
-- Categories d'articles
|
|
INSERT INTO eco.t_categories_articles(code_original, code, texte, texte_court )
|
|
SELECT CATEGORIE, CATEGORIE, CATEGORIE, CATEGORIE
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
LEFT JOIN eco.t_categories_articles ON code_original = CATEGORIE
|
|
WHERE code_original IS NULL
|
|
AND CATEGORIE !=''
|
|
GROUP BY 1,2,3,4
|
|
ORDER BY 1
|
|
;
|
|
|
|
-- Articles
|
|
INSERT INTO eco.t_articles(code_original, code, texte, texte_court)
|
|
SELECT
|
|
ID,
|
|
ID,
|
|
NOM,
|
|
LEFT(NOM,50)
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
LEFT JOIN eco.t_articles ON code_original = ID
|
|
WHERE code_original IS NULL
|
|
AND (ID = ANY(ARRAY(
|
|
SELECT DISTINCT PRODUIT_TYPE_ID
|
|
FROM prod_expert_sante.COMMANDE_GLOBALE_PRODUIT_TYPE
|
|
))
|
|
OR ID = ANY(ARRAY(
|
|
SELECT DISTINCT PRODUIT_TYPE_ID
|
|
FROM prod_expert_sante.PRODUIT_TYPE_COMMANDE
|
|
)))
|
|
ORDER BY 1;
|
|
;
|
|
|
|
UPDATE eco.t_articles
|
|
SET
|
|
texte = NOM,
|
|
texte_court = LEFT(NOM,50)
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
WHERE code_original = ID
|
|
AND NOM != texte
|
|
;
|
|
|
|
-- ATC
|
|
|
|
UPDATE eco.t_articles
|
|
SET classification_atc_id = t_classification_atc.oid
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
JOIN eco.t_classification_atc ON cladimed = code
|
|
WHERE ID = t_articles.code_original
|
|
;
|
|
|
|
-- Standard ATC
|
|
SELECT eco.cti_reorganize_classification_atc();
|
|
|
|
|
|
-- comptes et tva
|
|
UPDATE eco.t_articles
|
|
SET
|
|
compte_id = t_compte.oid
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
LEFT JOIN eco.t_compte ON PMT_COMPTE_ID = t_compte.code_original
|
|
WHERE ID = t_articles.code_original
|
|
AND t_compte.oid != compte_id
|
|
;
|
|
|
|
UPDATE eco.t_articles
|
|
SET
|
|
taux_tva_en_cours = TVA/100
|
|
FROM
|
|
prod_expert_sante.PRODUIT_TYPE_HISTO
|
|
WHERE PRODUIT_TYPE_ID = code_original
|
|
AND ENCOURS = 1
|
|
;
|
|
|
|
|
|
-- unites
|
|
/*UPDATE eco.t_articles
|
|
SET
|
|
unite_distribution_id = t_unites.oid
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
LEFT JOIN eco.t_unites ON UCOSKLMS = t_unites.code_original
|
|
WHERE ARTSKLMS = t_articles.code_original
|
|
AND (ETOSKLMS = ANY (string_to_array('[ETAB_ID]'::text,',')) OR '[ETAB_ID]' = '' OR '[ETAB_ID]' = '-1')
|
|
AND t_unites.oid != unite_distribution_id
|
|
;
|
|
*/
|
|
-- types
|
|
UPDATE eco.t_articles
|
|
SET type_id = t_types_articles.oid
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
LEFT JOIN eco.t_types_articles ON PRODUIT_FAMILLE_ID = t_types_articles.code_original
|
|
WHERE ID = t_articles.code_original
|
|
AND t_types_articles.oid != type_id
|
|
AND (SELECT valeur = '1' FROM eco.t_divers WHERE code = 'EXPERT_FAM_AS_TYP')
|
|
;
|
|
|
|
-- categories
|
|
UPDATE eco.t_articles
|
|
SET
|
|
categorie_id = t_categories_articles.oid
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
LEFT JOIN eco.t_categories_articles ON CATEGORIE = t_categories_articles.code_original
|
|
WHERE ID = t_articles.code_original
|
|
AND t_categories_articles.oid != categorie_id
|
|
;
|
|
|
|
UPDATE eco.t_articles
|
|
SET
|
|
famille_id = COALESCE(t_familles_articles.oid,0),
|
|
gere_en_stock = CASE WHEN USAGE_OPTION IN (1,2) THEN '0' ELSE '1' END
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
LEFT JOIN prod_expert_sante.PRODUIT_FAMILLE ON PRODUIT_FAMILLE_ID = PRODUIT_FAMILLE.ID
|
|
LEFT JOIN eco.t_familles_articles ON PRODUIT_FAMILLE_ID = t_familles_articles.code_original
|
|
WHERE PRODUIT_TYPE.ID = t_articles.code_original
|
|
AND
|
|
(
|
|
famille_id <> COALESCE(t_familles_articles.oid,0) OR
|
|
gere_en_stock <> CASE WHEN USAGE_OPTION IN (1,2) THEN '0' ELSE '1' END
|
|
)
|
|
;
|
|
-- autres
|
|
|
|
-- maj des code, textes, sections
|
|
|
|
|
|
UPDATE eco.t_articles SET
|
|
type_code = t_types_articles.code,
|
|
type_texte = t_types_articles.texte_court,
|
|
type_section_id = t_types_articles.section_id,
|
|
type_section_code = t_types_articles.section_code,
|
|
type_section_texte = t_types_articles.section_texte,
|
|
|
|
famille_code = t_familles_articles.code,
|
|
famille_texte = t_familles_articles.texte_court,
|
|
famille_section_id = t_familles_articles.section_id,
|
|
famille_section_code = t_familles_articles.section_code,
|
|
famille_section_texte = t_familles_articles.section_texte,
|
|
|
|
sous_famille_code = t_sous_familles_articles.code,
|
|
sous_famille_texte = t_sous_familles_articles.texte_court,
|
|
sous_famille_section_id = t_sous_familles_articles.section_id,
|
|
sous_famille_section_code = t_sous_familles_articles.section_code,
|
|
sous_famille_section_texte = t_sous_familles_articles.section_texte,
|
|
|
|
categorie_code = t_categories_articles.code,
|
|
categorie_texte = t_categories_articles.texte_court,
|
|
categorie_section_id = t_categories_articles.section_id,
|
|
categorie_section_code = t_categories_articles.section_code,
|
|
categorie_section_texte = t_categories_articles.section_texte,
|
|
|
|
sous_categorie_code = t_sous_categories_articles.code,
|
|
sous_categorie_texte = t_sous_categories_articles.texte_court,
|
|
sous_categorie_section_id = t_sous_categories_articles.section_id,
|
|
sous_categorie_section_code = t_sous_categories_articles.section_code,
|
|
sous_categorie_section_texte = t_sous_categories_articles.section_texte,
|
|
|
|
classification_atc_code = t_classification_atc.code,
|
|
classification_atc_texte = t_classification_atc.texte_court,
|
|
classification_atc_section_id = t_classification_atc.section_id,
|
|
classification_atc_section_code = t_classification_atc.section_code,
|
|
classification_atc_section_texte = t_classification_atc.section_texte,
|
|
classification_atc_1_id = t_classification_atc.classification_atc_1_id,
|
|
classification_atc_1_code = t_classification_atc.classification_atc_1_code,
|
|
classification_atc_1_texte = t_classification_atc.classification_atc_1_texte,
|
|
classification_atc_2_id = t_classification_atc.classification_atc_2_id,
|
|
classification_atc_2_code = t_classification_atc.classification_atc_2_code,
|
|
classification_atc_2_texte = t_classification_atc.classification_atc_2_texte,
|
|
classification_atc_3_id = t_classification_atc.classification_atc_3_id,
|
|
classification_atc_3_code = t_classification_atc.classification_atc_3_code,
|
|
classification_atc_3_texte = t_classification_atc.classification_atc_3_texte,
|
|
classification_atc_4_id = t_classification_atc.classification_atc_4_id,
|
|
classification_atc_4_code = t_classification_atc.classification_atc_4_code,
|
|
classification_atc_4_texte = t_classification_atc.classification_atc_4_texte,
|
|
|
|
unite_stockage_code = t_unites_stockage.code,
|
|
unite_stockage_texte = t_unites_stockage.texte_court,
|
|
unite_stockage_section_id = t_unites_stockage.section_id,
|
|
unite_stockage_section_code = t_unites_stockage.section_code,
|
|
unite_stockage_section_texte = t_unites_stockage.section_texte,
|
|
|
|
unite_distribution_code = t_unites_distribution.code,
|
|
unite_distribution_texte = t_unites_distribution.texte_court,
|
|
unite_distribution_section_id = t_unites_distribution.section_id,
|
|
unite_distribution_section_code = t_unites_distribution.section_code,
|
|
unite_distribution_section_texte = t_unites_distribution.section_texte,
|
|
|
|
compte_code = t_compte.code,
|
|
compte_texte = t_compte.texte_court,
|
|
compte_section_id = t_compte.section_id,
|
|
compte_section_code = t_compte.section_code,
|
|
compte_section_texte = t_compte.section_texte
|
|
|
|
FROM eco.t_types_articles ,
|
|
eco.t_familles_articles,
|
|
eco.t_sous_familles_articles,
|
|
eco.t_categories_articles,
|
|
eco.t_sous_categories_articles,
|
|
eco.t_classification_atc,
|
|
eco.t_unites t_unites_stockage,
|
|
eco.t_unites t_unites_distribution,
|
|
eco.t_compte
|
|
|
|
WHERE type_id = t_types_articles.oid
|
|
AND famille_id = t_familles_articles.oid
|
|
AND sous_famille_id = t_sous_familles_articles.oid
|
|
AND categorie_id = t_categories_articles.oid
|
|
AND sous_categorie_id = t_sous_categories_articles.oid
|
|
AND classification_atc_id = t_classification_atc.oid
|
|
AND unite_stockage_id = t_unites_stockage.oid
|
|
AND unite_distribution_id = t_unites_distribution.oid
|
|
AND compte_id = t_compte.oid
|
|
AND (
|
|
type_code IS DISTINCT FROM t_types_articles.code OR
|
|
type_texte IS DISTINCT FROM t_types_articles.texte_court OR
|
|
type_section_id IS DISTINCT FROM t_types_articles.section_id OR
|
|
type_section_code IS DISTINCT FROM t_types_articles.section_code OR
|
|
type_section_texte IS DISTINCT FROM t_types_articles.section_texte OR
|
|
|
|
famille_code IS DISTINCT FROM t_familles_articles.code OR
|
|
famille_texte IS DISTINCT FROM t_familles_articles.texte_court OR
|
|
famille_section_id IS DISTINCT FROM t_familles_articles.section_id OR
|
|
famille_section_code IS DISTINCT FROM t_familles_articles.section_code OR
|
|
famille_section_texte IS DISTINCT FROM t_familles_articles.section_texte OR
|
|
|
|
sous_famille_code IS DISTINCT FROM t_sous_familles_articles.code OR
|
|
sous_famille_texte IS DISTINCT FROM t_sous_familles_articles.texte_court OR
|
|
sous_famille_section_id IS DISTINCT FROM t_sous_familles_articles.section_id OR
|
|
sous_famille_section_code IS DISTINCT FROM t_sous_familles_articles.section_code OR
|
|
sous_famille_section_texte IS DISTINCT FROM t_sous_familles_articles.section_texte OR
|
|
|
|
categorie_code IS DISTINCT FROM t_categories_articles.code OR
|
|
categorie_texte IS DISTINCT FROM t_categories_articles.texte_court OR
|
|
categorie_section_id IS DISTINCT FROM t_categories_articles.section_id OR
|
|
categorie_section_code IS DISTINCT FROM t_categories_articles.section_code OR
|
|
categorie_section_texte IS DISTINCT FROM t_categories_articles.section_texte OR
|
|
|
|
sous_categorie_code IS DISTINCT FROM t_sous_categories_articles.code OR
|
|
sous_categorie_texte IS DISTINCT FROM t_sous_categories_articles.texte_court OR
|
|
sous_categorie_section_id IS DISTINCT FROM t_sous_categories_articles.section_id OR
|
|
sous_categorie_section_code IS DISTINCT FROM t_sous_categories_articles.section_code OR
|
|
sous_categorie_section_texte IS DISTINCT FROM t_sous_categories_articles.section_texte OR
|
|
|
|
t_articles.classification_atc_code IS DISTINCT FROM t_classification_atc.code OR
|
|
t_articles.classification_atc_texte IS DISTINCT FROM t_classification_atc.texte_court OR
|
|
t_articles.classification_atc_section_id IS DISTINCT FROM t_classification_atc.section_id OR
|
|
t_articles.classification_atc_section_code IS DISTINCT FROM t_classification_atc.section_code OR
|
|
t_articles.classification_atc_section_texte IS DISTINCT FROM t_classification_atc.section_texte OR
|
|
t_articles.classification_atc_1_id IS DISTINCT FROM t_classification_atc.classification_atc_1_id OR
|
|
t_articles.classification_atc_1_code IS DISTINCT FROM t_classification_atc.classification_atc_1_code OR
|
|
t_articles.classification_atc_1_texte IS DISTINCT FROM t_classification_atc.classification_atc_1_texte OR
|
|
t_articles.classification_atc_2_id IS DISTINCT FROM t_classification_atc.classification_atc_2_id OR
|
|
t_articles.classification_atc_2_code IS DISTINCT FROM t_classification_atc.classification_atc_2_code OR
|
|
t_articles.classification_atc_2_texte IS DISTINCT FROM t_classification_atc.classification_atc_2_texte OR
|
|
t_articles.classification_atc_3_id IS DISTINCT FROM t_classification_atc.classification_atc_3_id OR
|
|
t_articles.classification_atc_3_code IS DISTINCT FROM t_classification_atc.classification_atc_3_code OR
|
|
t_articles.classification_atc_3_texte IS DISTINCT FROM t_classification_atc.classification_atc_3_texte OR
|
|
t_articles.classification_atc_4_id IS DISTINCT FROM t_classification_atc.classification_atc_4_id OR
|
|
t_articles.classification_atc_4_code IS DISTINCT FROM t_classification_atc.classification_atc_4_code OR
|
|
t_articles.classification_atc_4_texte IS DISTINCT FROM t_classification_atc.classification_atc_4_texte OR
|
|
|
|
t_articles.unite_stockage_code IS DISTINCT FROM t_unites_stockage.code OR
|
|
t_articles.unite_stockage_texte IS DISTINCT FROM t_unites_stockage.texte_court OR
|
|
t_articles.unite_stockage_section_id IS DISTINCT FROM t_unites_stockage.section_id OR
|
|
t_articles.unite_stockage_section_code IS DISTINCT FROM t_unites_stockage.section_code OR
|
|
t_articles.unite_stockage_section_texte IS DISTINCT FROM t_unites_stockage.section_texte OR
|
|
|
|
t_articles.unite_distribution_code IS DISTINCT FROM t_unites_distribution.code OR
|
|
t_articles.unite_distribution_texte IS DISTINCT FROM t_unites_distribution.texte_court OR
|
|
t_articles.unite_distribution_section_id IS DISTINCT FROM t_unites_distribution.section_id OR
|
|
t_articles.unite_distribution_section_code IS DISTINCT FROM t_unites_distribution.section_code OR
|
|
t_articles.unite_distribution_section_texte IS DISTINCT FROM t_unites_distribution.section_texte OR
|
|
|
|
t_articles.compte_code IS DISTINCT FROM t_compte.code OR
|
|
t_articles.compte_texte IS DISTINCT FROM t_compte.texte_court OR
|
|
t_articles.compte_section_id IS DISTINCT FROM t_compte.section_id OR
|
|
t_articles.compte_section_code IS DISTINCT FROM t_compte.section_code OR
|
|
t_articles.compte_section_texte IS DISTINCT FROM t_compte.section_texte
|
|
);
|
|
|
|
--lpp et ucd
|
|
INSERT INTO base.t_lpp (code, texte, texte_court)
|
|
SELECT
|
|
CODE_CLE, LIBELLE_REDUIT, LIBELLE_REDUIT
|
|
FROM
|
|
prod_expert_sante.LPP_PRINCIPAL
|
|
WHERE 1=1 AND
|
|
CODE_CLE NOT IN (SELECT code FROM base.t_lpp) AND
|
|
CODE_CLE = ANY (ARRAY(SELECT LPP_CODE from prod_expert_sante.PRODUIT_TYPE_HISTO))
|
|
;
|
|
|
|
-- recalage historique (date debut et date fin etendues)
|
|
DROP TABLE IF EXISTS w_PRODUIT_TYPE_HISTO;
|
|
CREATE TEMP TABLE w_produit_type_histo AS
|
|
SELECT
|
|
PRODUIT_TYPE_ID,
|
|
CASE WHEN LAG(DATE_EFFET) OVER (PARTITION BY PRODUIT_TYPE_ID ORDER BY DATE_EFFET) IS NOT NULL THEN DATE_EFFET ELSE '1900-01-01'::date END AS DATE_EFFET,
|
|
COALESCE(DATE_TRUNC('day',DATE_FIN) + interval '1 day' - interval '1 second','2099-12-31') AS DATE_FIN,
|
|
PRIX_UNITAIRE,
|
|
LPP_CODE,
|
|
TVA
|
|
FROM prod_expert_sante.PRODUIT_TYPE_HISTO
|
|
;
|
|
|
|
ANALYSE w_PRODUIT_TYPE_HISTO
|
|
;
|
|
|
|
CREATE INDEX w_PRODUIT_TYPE_HISTO_i1 ON w_PRODUIT_TYPE_HISTO USING BTREE (PRODUIT_TYPE_ID)
|
|
;
|
|
|
|
UPDATE eco.t_articles
|
|
SET
|
|
lpp_id = t_lpp.oid
|
|
FROM
|
|
w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO
|
|
JOIN base.t_lpp ON LPP_CODE = t_lpp.code
|
|
WHERE 1=1 AND
|
|
PRODUIT_TYPE_ID = t_articles.code_original AND
|
|
NOW() BETWEEN DATE_EFFET AND COALESCE(DATE_FIN,'2099-12-31') AND
|
|
lpp_id != t_lpp.oid
|
|
;
|
|
|
|
SELECT base.cti_execute('
|
|
INSERT INTO base.t_ucd (code, texte, texte_court)
|
|
SELECT
|
|
UCD, LIBELLE, LIBELLE
|
|
FROM
|
|
prod_expert_sante.PH8_PRINCIPAL
|
|
WHERE 1=1 AND
|
|
UCD NOT IN (SELECT code FROM base.t_ucd WHERE code IS NOT NULL)
|
|
',1)
|
|
WHERE (SELECT count(*) FROM information_schema.tables WHERE table_name = 'ph8_principal' AND table_schema = 'prod_expert_sante') > 0
|
|
;
|
|
|
|
UPDATE eco.t_articles
|
|
SET
|
|
ucd_id = t_ucd.oid
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
JOIN base.t_ucd ON UCD = t_ucd.code
|
|
WHERE 1=1 AND
|
|
PRODUIT_TYPE.ID = t_articles.code_original AND
|
|
ucd_id != t_ucd.oid
|
|
;
|
|
|
|
|
|
|
|
]]></sqlcmd>
|
|
</NODE>
|
|
|
|
|
|
<NODE label="Tables Fournisseurs">
|
|
<sqlcmd><![CDATA[
|
|
|
|
|
|
-- Fournisseurs
|
|
INSERT INTO eco.t_fournisseurs(code_original, code, texte, texte_court)
|
|
SELECT
|
|
ID,ID, NOM,LEFT(NOM,50)
|
|
FROM prod_expert_sante.PRODUIT_FOURNISSEUR
|
|
LEFT JOIN eco.t_fournisseurs ON code_original = ID
|
|
WHERE ID = ANY (SELECT DISTINCT PRODUIT_FOURNISSEUR_ID FROM w_PRODUIT_TYPE PRODUIT_TYPE)
|
|
AND code_original IS NULL;
|
|
|
|
DROP TABLE IF EXISTS w_fou_addr;
|
|
CREATE TEMP TABLE w_fou_addr AS
|
|
SELECT
|
|
ID,
|
|
string_to_array(replace(replace(replace(replace(ADRESSE,chr(10),''),chr(9),' '),'<br>',chr(13)),'<BR>',chr(13)),chr(13)) AS ADRESSE_array,
|
|
0::numeric AS ADRESSE_array_length,
|
|
''::text AS adresse,
|
|
''::text AS cp,
|
|
''::text AS ville
|
|
FROM prod_expert_sante.PRODUIT_FOURNISSEUR
|
|
;
|
|
|
|
UPDATE w_fou_addr SET
|
|
ADRESSE_array_length = array_length(ADRESSE_array,1),
|
|
ADRESSE_array[1] = COALESCE(trim(ADRESSE_array[1]),''),
|
|
ADRESSE_array[2] = COALESCE(trim(ADRESSE_array[2]),''),
|
|
ADRESSE_array[3] = COALESCE(trim(ADRESSE_array[3]),''),
|
|
ADRESSE_array[4] = COALESCE(trim(ADRESSE_array[4]),''),
|
|
ADRESSE_array[5] = COALESCE(trim(ADRESSE_array[5]),'')
|
|
;
|
|
|
|
UPDATE w_fou_addr SET
|
|
cp = trim(substr(ADRESSE_array[ADRESSE_array_length],1,COALESCE(strpos(ADRESSE_array[ADRESSE_array_length],' '),1))),
|
|
ville = trim(substr(ADRESSE_array[ADRESSE_array_length],COALESCE(strpos(ADRESSE_array[ADRESSE_array_length],' '),1))),
|
|
adresse =
|
|
CASE WHEN ADRESSE_array_length > 1 THEN ADRESSE_array[1] ELSE '' END ||
|
|
CASE WHEN ADRESSE_array_length > 2 THEN ' ' || ADRESSE_array[2] ELSE '' END ||
|
|
CASE WHEN ADRESSE_array_length > 3 THEN ' ' || ADRESSE_array[3] ELSE '' END ||
|
|
CASE WHEN ADRESSE_array_length > 4 THEN ' ' || ADRESSE_array[4] ELSE '' END
|
|
;
|
|
|
|
UPDATE w_fou_addr SET
|
|
cp = '',
|
|
ville = '',
|
|
adresse = adresse || cp || ' ' || ville
|
|
WHERE cp <> ''AND
|
|
(
|
|
length(cp) <> 5 OR
|
|
substr(upper(ville),1,1) NOT BETWEEN 'A' AND 'Z'
|
|
)
|
|
;
|
|
|
|
|
|
INSERT INTO base.t_codes_postaux(code, texte, texte_court, departement_id)
|
|
SELECT
|
|
cp,
|
|
MAX(ville),
|
|
MAX(LEFT(ville,50)),
|
|
MAX(t_departements.oid)
|
|
FROM w_fou_addr sub
|
|
LEFT JOIN base.t_codes_postaux ON cp = t_codes_postaux.code
|
|
JOIN base.t_departements ON
|
|
cp NOT LIKE '97%' AND substr(cp,1,2) = t_departements.code OR
|
|
cp LIKE '97%' AND substr(cp,1,3) = t_departements.code
|
|
WHERE t_codes_postaux.oid IS NULL AND
|
|
length(cp) = 5
|
|
GROUP BY 1
|
|
;
|
|
|
|
|
|
UPDATE eco.t_fournisseurs SET
|
|
code = PRODUIT_FOURNISSEUR.ID,
|
|
texte = NOM,
|
|
texte_court = LEFT(NOM,50),
|
|
adresse = w_fou_addr.adresse,
|
|
code_postal_id = COALESCE(t_codes_postaux.oid,0),
|
|
ville = w_fou_addr.ville,
|
|
cedex = '',
|
|
telephone = TEL1,
|
|
fax = CDE_FAX,
|
|
email = CDE_EMAIL,
|
|
siret = '',
|
|
iban = '',
|
|
bic = '',
|
|
code_comptable = ''
|
|
FROM prod_expert_sante.PRODUIT_FOURNISSEUR
|
|
JOIN w_fou_addr ON w_fou_addr.ID = PRODUIT_FOURNISSEUR.ID
|
|
LEFT JOIN base.t_codes_postaux ON cp = t_codes_postaux.code
|
|
WHERE code_original = PRODUIT_FOURNISSEUR.ID AND
|
|
(
|
|
t_fournisseurs.texte IS DISTINCT FROM NOM OR
|
|
t_fournisseurs.texte_court IS DISTINCT FROM LEFT(NOM,50) OR
|
|
t_fournisseurs.adresse IS DISTINCT FROM w_fou_addr.adresse OR
|
|
t_fournisseurs.code_postal_id IS DISTINCT FROM COALESCE(t_codes_postaux.oid,0) OR
|
|
t_fournisseurs.ville IS DISTINCT FROM w_fou_addr.ville OR
|
|
t_fournisseurs.cedex IS DISTINCT FROM '' OR
|
|
t_fournisseurs.telephone IS DISTINCT FROM TEL1 OR
|
|
t_fournisseurs.fax IS DISTINCT FROM CDE_FAX OR
|
|
t_fournisseurs.email IS DISTINCT FROM CDE_EMAIL OR
|
|
t_fournisseurs.siret IS DISTINCT FROM '' OR
|
|
t_fournisseurs.iban IS DISTINCT FROM '' OR
|
|
t_fournisseurs.bic IS DISTINCT FROM '' OR
|
|
t_fournisseurs.code_comptable IS DISTINCT FROM ''
|
|
)
|
|
;
|
|
|
|
SELECT base.cti_execute('
|
|
|
|
INSERT INTO eco.t_fournisseurs(code_original, code, texte, texte_court)
|
|
SELECT
|
|
''CAHPP'' || DISTRIBUTEUR.ID::text,DISTRIBUTEUR.CODE, DISTRIBUTEUR.NOM,LEFT(DISTRIBUTEUR.NOM,50)
|
|
FROM prod_expert_sante.DISTRIBUTEUR
|
|
LEFT JOIN eco.t_fournisseurs ON code_original = ''CAHPP'' || DISTRIBUTEUR.ID::text
|
|
WHERE ID = ANY (SELECT DISTINCT CAHPP_DISTRIBUTEUR_ID FROM prod_expert_sante.PRODUIT_FOURNISSEUR)
|
|
AND code_original IS NULL
|
|
.,
|
|
|
|
UPDATE eco.t_fournisseurs SET
|
|
code_cahpp = DISTRIBUTEUR.CODE,
|
|
fourniteur_distributeur_id = dis.oid
|
|
FROM prod_expert_sante.PRODUIT_FOURNISSEUR
|
|
LEFT JOIN prod_expert_sante.DISTRIBUTEUR ON CAHPP_DISTRIBUTEUR_ID = DISTRIBUTEUR.ID
|
|
LEFT JOIN eco.t_fournisseurs dis ON ''CAHPP'' || ID::text = dis.code_original
|
|
WHERE code_original = ID AND
|
|
t_fournisseurs.code_cahpp IS DISTINCT FROM CAHPP_REFERENCE OR
|
|
',1)
|
|
WHERE (SELECT count(*) FROM information_schema.tables WHERE table_name = 'distributeur' AND table_schema = 'expert_sante') > 0
|
|
;
|
|
]]></sqlcmd>
|
|
</NODE>
|
|
|
|
|
|
<NODE label="Compléments articles">
|
|
<sqlcmd><![CDATA[
|
|
SELECT base.cti_execute('CREATE TABLE prod_expert_sante.article(id integer,
|
|
nom text,
|
|
designation_complementaire text,
|
|
type_catalogue text,
|
|
cahpp_reference text,
|
|
fabricant_id integer,
|
|
distributeur_id integer,
|
|
reference text,
|
|
conditionnement integer,
|
|
cip text,
|
|
atc text,
|
|
ucd text,
|
|
prix_public real,
|
|
prix_cahpp real,
|
|
tva real,
|
|
forme text,
|
|
info_article text,
|
|
famille text,
|
|
sous_famille text,
|
|
madate timestamp without time zone,
|
|
fiche_technique text,
|
|
date_fin timestamp without time zone,
|
|
cip13 text,
|
|
ucd13 text,
|
|
qml integer,
|
|
unite_commande text,
|
|
etat smallint
|
|
)',1)
|
|
WHERE (SELECT count(*) FROM information_schema.tables WHERE table_name = 'article' AND table_schema = 'prod_expert_sante') = 0
|
|
;
|
|
|
|
|
|
DROP TABLE IF EXISTS w_PRODUIT_TYPE_FOURNISSEUR;
|
|
CREATE TEMP TABLE w_PRODUIT_TYPE_FOURNISSEUR AS
|
|
SELECT PRODUIT_TYPE_ID, PRODUIT_FOURNISSEUR_ID
|
|
FROM prod_expert_sante.PRODUIT
|
|
WHERE PRODUIT_FOURNISSEUR_ID <> 0
|
|
GROUP BY 1,2
|
|
UNION
|
|
SELECT PRODUIT_TYPE_ID, PRODUIT_FOURNISSEUR_ID
|
|
FROM prod_expert_sante.LOG_PRODUIT_1
|
|
WHERE PRODUIT_FOURNISSEUR_ID <> 0
|
|
GROUP BY 1,2
|
|
UNION
|
|
SELECT PRODUIT_TYPE_ID, PRODUIT_FOURNISSEUR_ID
|
|
FROM prod_expert_sante.LOG_PRODUIT_2
|
|
WHERE PRODUIT_FOURNISSEUR_ID <> 0
|
|
GROUP BY 1,2
|
|
UNION
|
|
SELECT PRODUIT_TYPE_ID, PRODUIT_FOURNISSEUR_ID
|
|
FROM prod_expert_sante.LOG_PRODUIT_3
|
|
WHERE PRODUIT_FOURNISSEUR_ID <> 0
|
|
GROUP BY 1,2
|
|
UNION
|
|
SELECT PRODUIT_TYPE_ID, PRODUIT_FOURNISSEUR_ID
|
|
FROM prod_expert_sante.LOG_PRODUIT_4
|
|
WHERE PRODUIT_FOURNISSEUR_ID <> 0
|
|
GROUP BY 1,2
|
|
;
|
|
|
|
ANALYSE w_PRODUIT_TYPE_FOURNISSEUR
|
|
;
|
|
|
|
|
|
DROP TABLE IF EXISTS w_PRODUIT_TYPE_HISTO_PU;
|
|
CREATE TEMP TABLE w_PRODUIT_TYPE_HISTO_PU AS
|
|
SELECT PRODUIT_TYPE_ID,
|
|
(MAX(ARRAY[ENCOURS::text, DATE_EFFET::text, PRIX_UNITAIRE::text]))[3]::numeric AS PRIX_UNITAIRE
|
|
FROM prod_expert_sante.PRODUIT_TYPE_HISTO
|
|
GROUP BY 1
|
|
;
|
|
|
|
ANALYSE w_PRODUIT_TYPE_HISTO_PU
|
|
;
|
|
|
|
|
|
DROP TABLE IF EXISTS w_articles_fournisseur_eco;
|
|
CREATE TEMP TABLE w_articles_fournisseur_eco AS
|
|
SELECT
|
|
PRODUIT_TYPE.ID::text || '-' || PRODUIT_TYPE.PRODUIT_FOURNISSEUR_ID::text AS code_original,
|
|
t_articles.oid as article_id,
|
|
t_fournisseurs.oid as fournisseur_id,
|
|
'1'::text AS est_fournisseur_principal,
|
|
COALESCE(ARTICLE.NOM,PRODUIT_TYPE.NOM) AS ref_fournisseur_texte,
|
|
COALESCE(ARTICLE.REFERENCE,PRODUIT_TYPE.REFERENCE) AS ref_fournisseur_code,
|
|
COALESCE(NULLIF(ARTICLE.CIP13,''),NULLIF(PRODUIT_TYPE.CIP13,''),NULLIF(ARTICLE.CIP,''),PRODUIT_TYPE.CIP) as code_cip,
|
|
COALESCE(NULLIF(ARTICLE.UCD,''),PRODUIT_TYPE.UCD) as ucd_code,
|
|
ucd_id,
|
|
lpp_id,
|
|
COALESCE(NULLIF(ARTICLE.UCD13,''), PRODUIT_TYPE.UCD13) AS code_ucd13,
|
|
COALESCE(CAHPP_ARTICLE_ID,'') AS code_cahpp,
|
|
COALESCE(t_unites.oid,0) AS unite_approvisionnement_id,
|
|
COALESCE(w_PRODUIT_TYPE_HISTO_PU.PRIX_UNITAIRE,PRIX_CAHPP::numeric,0) AS prix_unitaire_en_cours,
|
|
COALESCE(t_compte.oid,0) as compte_id,
|
|
COALESCE(CONDITIONNEMENT,1) AS nombre_conditionnement_approvisionnement
|
|
FROM w_PRODUIT_TYPE PRODUIT_TYPE
|
|
LEFT JOIN w_PRODUIT_TYPE_HISTO_PU ON PRODUIT_TYPE.ID = w_PRODUIT_TYPE_HISTO_PU.PRODUIT_TYPE_ID
|
|
JOIN eco.t_articles ON PRODUIT_TYPE.ID = t_articles.code_original
|
|
LEFT JOIN prod_expert_sante.ARTICLE ON CAHPP_ARTICLE_ID = CAHPP_REFERENCE AND now() BETWEEN MADATE AND COALESCE(DATE_FIN,'2099-12-31')
|
|
JOIN eco.t_fournisseurs ON PRODUIT_TYPE.PRODUIT_FOURNISSEUR_ID = t_fournisseurs.code_original
|
|
LEFT JOIN eco.t_unites ON UNITE_COMMANDE = t_unites.code_original
|
|
LEFT JOIN eco.t_compte ON PMT_COMPTE_ID = t_compte.code_original
|
|
;
|
|
|
|
|
|
/* UPDATE w_articles_fournisseur_eco
|
|
SET
|
|
ref_fournisseur_code = CASE WHEN w_articles_fournisseur_eco.ref_fournisseur_code = '' THEN sub.ref_fournisseur_code ELSE w_articles_fournisseur_eco.ref_fournisseur_code END,
|
|
prix_unitaire_en_cours = CASE WHEN w_articles_fournisseur_eco.prix_unitaire_en_cours = 0 THEN sub.prix_unitaire_en_cours::numeric ELSE w_articles_fournisseur_eco.prix_unitaire_en_cours END
|
|
FROM
|
|
(SELECT
|
|
ETSSALCA || '-' || ARTSALCA || '-' || FOUSACDA AS code_original,
|
|
(MAX(Array[
|
|
CASE WHEN RFOSALCA != '' OR split_part(split_part(INTSALCA,' REF ',2),' ',1) != '' THEN DCDSACDA::text ELSE '1900-01-01' END,
|
|
CASE
|
|
WHEN RFOSALCA != '' THEN RFOSALCA
|
|
WHEN INTSALCA LIKE '% REF%' THEN split_part(split_part(INTSALCA,' REF ',2),' ',1)
|
|
ELSE INTSALCA
|
|
END]))[2] AS ref_fournisseur_code,
|
|
(MAX(ARRAY[DCDSACDA::text,PVCSALCA::text]))[2]::numeric AS prix_unitaire_en_cours
|
|
FROM prod_expert_sante.SACDA
|
|
JOIN prod_expert_sante.SALCA ON ETSSALCA || '-' || NUISALCA = ETSSACDA || '-' || NUISACDA
|
|
WHERE ( ETSSACDA = ANY(string_to_array('[ETAB_ID]'::text,',')) OR '[ETAB_ID]' = '' OR '[ETAB_ID]' = '-1')
|
|
AND FOUSACDA != ''
|
|
GROUP BY 1
|
|
ORDER BY 1
|
|
) sub
|
|
WHERE sub.code_original = w_articles_fournisseur_eco.code_original
|
|
AND (w_articles_fournisseur_eco.ref_fournisseur_code != sub.ref_fournisseur_code OR w_articles_fournisseur_eco.prix_unitaire_en_cours = 0)
|
|
;
|
|
|
|
*/
|
|
|
|
INSERT INTO base.t_ucd (code, texte, texte_court)
|
|
SELECT ucd_code, ucd_code, ucd_code
|
|
FROM w_articles_fournisseur_eco
|
|
WHERE ucd_code != ''
|
|
AND ucd_code != ALL (ARRAY(SELECT code FROM base.t_ucd))
|
|
AND ucd_code LIKE '9%'
|
|
GROUP BY 1,2,3
|
|
;
|
|
|
|
UPDATE w_articles_fournisseur_eco
|
|
SET ucd_id = t_ucd.oid
|
|
FROM base.t_ucd
|
|
WHERE 1=1 AND
|
|
t_ucd.code = ucd_code AND
|
|
w_articles_fournisseur_eco.ucd_id != t_ucd.oid
|
|
;
|
|
|
|
UPDATE eco.t_articles
|
|
SET
|
|
ucd_id = t_article_fournisseur.ucd_id
|
|
FROM
|
|
eco.t_article_fournisseur
|
|
WHERE 1=1 AND
|
|
t_articles.ucd_id != t_article_fournisseur.ucd_id AND
|
|
article_id = t_articles.oid
|
|
;
|
|
|
|
-- Référence article fournisseur
|
|
UPDATE eco.t_articles SET
|
|
ref_fournisseur_id = subview.ref_fournisseur_id,
|
|
ref_fournisseur_code = subview.ref_fournisseur_code,
|
|
ref_fournisseur_texte = subview.ref_fournisseur_texte
|
|
FROM
|
|
(
|
|
SELECT article_id,
|
|
base.cti_group_array3(fournisseur_id) AS ref_fournisseur_id,
|
|
base.cti_group_array3(w_articles_fournisseur_eco.ref_fournisseur_code) AS ref_fournisseur_code,
|
|
base.cti_group_array3(CASE WHEN w_articles_fournisseur_eco.ref_fournisseur_texte != '' THEN w_articles_fournisseur_eco.ref_fournisseur_texte ELSE texte END || CASE WHEN w_articles_fournisseur_eco.ref_fournisseur_code != '' AND w_articles_fournisseur_eco.ref_fournisseur_code != w_articles_fournisseur_eco.ref_fournisseur_texte THEN '(' || w_articles_fournisseur_eco.ref_fournisseur_code || ')' ELSE '' END) AS ref_fournisseur_texte
|
|
FROM
|
|
w_articles_fournisseur_eco
|
|
JOIN eco.t_articles ON article_id = t_articles.oid
|
|
GROUP BY 1
|
|
ORDER BY 2,1
|
|
) subview
|
|
WHERE t_articles.oid = subview.article_id AND
|
|
(
|
|
t_articles.ref_fournisseur_id IS DISTINCT FROM subview.ref_fournisseur_id OR
|
|
t_articles.ref_fournisseur_code IS DISTINCT FROM subview.ref_fournisseur_code OR
|
|
t_articles.ref_fournisseur_texte IS DIStINCT FROM subview.ref_fournisseur_texte
|
|
)
|
|
;
|
|
|
|
INSERT INTO eco.t_article_fournisseur (
|
|
code_original,
|
|
article_id,
|
|
fournisseur_id,
|
|
code_reference_fournisseur,
|
|
texte_reference_fournisseur,
|
|
code_cip,
|
|
ucd_id,
|
|
code_ucd13,
|
|
lpp_id,
|
|
code_cahpp,
|
|
unite_approvisionnement_id,
|
|
nombre_conditionnement_approvisionnement,
|
|
prix_unitaire_en_cours,
|
|
est_fournisseur_principal
|
|
)
|
|
SELECT
|
|
code_original,
|
|
article_id,
|
|
fournisseur_id,
|
|
ref_fournisseur_code,
|
|
ref_fournisseur_texte,
|
|
code_cip,
|
|
ucd_id,
|
|
code_ucd13,
|
|
lpp_id,
|
|
code_cahpp,
|
|
unite_approvisionnement_id,
|
|
nombre_conditionnement_approvisionnement,
|
|
prix_unitaire_en_cours,
|
|
est_fournisseur_principal
|
|
FROM w_articles_fournisseur_eco
|
|
WHERE w_articles_fournisseur_eco.code_original NOT IN (SELECT t_article_fournisseur.code_original FROM eco.t_article_fournisseur WHERE code_original IS NOT NULL)
|
|
;
|
|
|
|
UPDATE eco.t_article_fournisseur SET
|
|
article_id = w_articles_fournisseur_eco.article_id,
|
|
fournisseur_id = w_articles_fournisseur_eco.fournisseur_id,
|
|
code_reference_fournisseur = w_articles_fournisseur_eco.ref_fournisseur_code,
|
|
texte_reference_fournisseur = w_articles_fournisseur_eco.ref_fournisseur_texte,
|
|
code_cip = w_articles_fournisseur_eco.code_cip,
|
|
code_ucd13 = w_articles_fournisseur_eco.code_ucd13,
|
|
ucd_id = w_articles_fournisseur_eco.ucd_id,
|
|
lpp_id = w_articles_fournisseur_eco.lpp_id,
|
|
code_cahpp = w_articles_fournisseur_eco.code_cahpp,
|
|
unite_approvisionnement_id = w_articles_fournisseur_eco.unite_approvisionnement_id,
|
|
nombre_conditionnement_approvisionnement = w_articles_fournisseur_eco.nombre_conditionnement_approvisionnement,
|
|
prix_unitaire_en_cours = w_articles_fournisseur_eco.prix_unitaire_en_cours,
|
|
est_fournisseur_principal = w_articles_fournisseur_eco.est_fournisseur_principal
|
|
FROM w_articles_fournisseur_eco
|
|
WHERE t_article_fournisseur.code_original = w_articles_fournisseur_eco.code_original AND
|
|
(
|
|
t_article_fournisseur.article_id IS DISTINCT FROM w_articles_fournisseur_eco.article_id OR
|
|
t_article_fournisseur.fournisseur_id IS DISTINCT FROM w_articles_fournisseur_eco.fournisseur_id OR
|
|
t_article_fournisseur.code_reference_fournisseur IS DISTINCT FROM w_articles_fournisseur_eco.ref_fournisseur_code OR
|
|
t_article_fournisseur.texte_reference_fournisseur IS DISTINCT FROM w_articles_fournisseur_eco.ref_fournisseur_texte OR
|
|
t_article_fournisseur.code_cip IS DISTINCT FROM w_articles_fournisseur_eco.code_cip OR
|
|
t_article_fournisseur.code_ucd13 IS DISTINCT FROM w_articles_fournisseur_eco.code_ucd13 OR
|
|
t_article_fournisseur.ucd_id IS DISTINCT FROM w_articles_fournisseur_eco.ucd_id OR
|
|
t_article_fournisseur.lpp_id IS DISTINCT FROM w_articles_fournisseur_eco.lpp_id OR
|
|
t_article_fournisseur.code_cahpp IS DISTINCT FROM w_articles_fournisseur_eco.code_cahpp OR
|
|
t_article_fournisseur.unite_approvisionnement_id IS DISTINCT FROM w_articles_fournisseur_eco.unite_approvisionnement_id OR
|
|
t_article_fournisseur.nombre_conditionnement_approvisionnement IS DISTINCT FROM w_articles_fournisseur_eco.nombre_conditionnement_approvisionnement OR
|
|
t_article_fournisseur.prix_unitaire_en_cours IS DISTINCT FROM w_articles_fournisseur_eco.prix_unitaire_en_cours OR
|
|
t_article_fournisseur.est_fournisseur_principal IS DISTINCT FROM w_articles_fournisseur_eco.est_fournisseur_principal
|
|
)
|
|
;
|
|
|
|
|
|
]]></sqlcmd>
|
|
</NODE>
|
|
|
|
|
|
|
|
<NODE label="Autres tables">
|
|
<sqlcmd><![CDATA[
|
|
|
|
-- Gestionnaires
|
|
|
|
INSERT INTO eco.t_gestionnaires(code_original, code, texte, texte_court)
|
|
SELECT ID::text, ID::text, NOM || ' ' || PRENOM, LEFT(NOM || ' ' || LEFT(PRENOM,1),50)
|
|
FROM prod_expert_sante.UTILISATEUR
|
|
WHERE ID <> 0 AND
|
|
ID::text NOT IN (SELECT CODE_ORIGINAL FROM eco.t_gestionnaires)
|
|
;
|
|
;
|
|
|
|
-- Site
|
|
INSERT INTO eco.t_sites(code_original, code, texte, texte_court)
|
|
SELECT ID, ID, NOM, LEFT(NOM,50)
|
|
FROM prod_expert_sante.ETAGE
|
|
LEFT JOIN eco.t_sites ON (code_original = ID)
|
|
WHERE code_original IS NULL
|
|
;
|
|
|
|
|
|
-- Lieux
|
|
INSERT INTO eco.t_lieux(code_original, code, texte, texte_court)
|
|
SELECT ID, ID, NOM, LEFT(NOM,50)
|
|
FROM prod_expert_sante.STOCK
|
|
LEFT JOIN eco.t_lieux ON (code_original = ID)
|
|
WHERE code_original IS NULL
|
|
;
|
|
|
|
|
|
-- UF
|
|
INSERT INTO eco.t_unites_fonctionnelles(code_original, code, texte, texte_court)
|
|
SELECT ID, ID, NOM, LEFT(NOM,50)
|
|
FROM prod_expert_sante.SERVICE
|
|
LEFT JOIN eco.t_unites_fonctionnelles ON (code_original = ID)
|
|
WHERE code_original IS NULL
|
|
;
|
|
|
|
-- Types mouvements
|
|
DROP TABLE IF EXISTS w_type_mouvement;
|
|
CREATE TEMP TABLE w_type_mouvement (c_o text,c text,t text,t_c text);
|
|
INSERT INTO w_type_mouvement
|
|
VALUES
|
|
('LID','LIV','Livraison fournisseur','Livraison fournisseur'),
|
|
('REF','RET_F','Retour fournisseur','Retour fournisseur'),
|
|
('TRS','TRS','Transfert','Transfert'),
|
|
('DIS','DIS','Distribution','Distribution'),
|
|
('RES','RET_S','Retour service','Retour service'),
|
|
('SOD','SOR_D','Consommation','Consommation'),
|
|
('SOC','SOR_C','Consommation nominative','Consommation nominative'),
|
|
('INV','INV','Correction suite inventaire','Correction suite inventaire'),
|
|
('PER','PER','Casse et périmés','Casse et périmés')
|
|
|
|
;
|
|
|
|
INSERT INTO eco.t_types_mouvements(code_original, code, texte, texte_court)
|
|
SELECT c_o,c,t,t_c FROM w_type_mouvement
|
|
LEFT JOIN eco.t_types_mouvements ON c_o = code_original
|
|
WHERE code_original IS NULL
|
|
;
|
|
]]></sqlcmd>
|
|
</NODE>
|
|
|
|
|
|
</NODE>
|
|
<NODE name="PROD" label="RECUPERATION DES DONNEES DE PRODUCTION">
|
|
|
|
|
|
<NODE label="Commandes">
|
|
<sqlcmd><![CDATA[
|
|
|
|
DROP TABLE IF EXISTS w_PRODUIT_SUPPRIME;
|
|
CREATE TEMP TABLE w_PRODUIT_SUPPRIME AS
|
|
SELECT COMMANDE_NUMERO, PRODUIT_TYPE_ID, SUM(NOMBRE) AS QUANTITE_SUPPRIME
|
|
FROM prod_expert_sante.PRODUIT_SUPPRIME
|
|
GROUP BY 1,2
|
|
;
|
|
|
|
ANALYSE w_PRODUIT_SUPPRIME
|
|
;
|
|
|
|
DROP TABLE IF EXISTS w_com;
|
|
CREATE TEMP TABLE w_com AS
|
|
SELECT
|
|
COMMANDE.NUMERO::text || '-' || PRODUIT_TYPE.PRODUIT_FOURNISSEUR_ID || '-' || PRODUIT_TYPE_COMMANDE.PRODUIT_TYPE_ID AS code_original_ligne,
|
|
COMMANDE.NUMERO::text AS COMMANDE_NUMERO,
|
|
COMMANDE.QUI,
|
|
COMMANDE.DATE_CREATION,
|
|
PRODUIT_TYPE_COMMANDE.PRODUIT_TYPE_ID,
|
|
0::bigint AS PRODUIT_ID,
|
|
MAX(PRODUIT_TYPE.PRODUIT_FOURNISSEUR_ID) AS PRODUIT_FOURNISSEUR_ID,
|
|
SUM(QUANTITE) - COALESCE(MAX(QUANTITE_SUPPRIME),0) AS QUANTITE,
|
|
MAX(PRIX_UNITAIRE) AS PRIX_UNITAIRE,
|
|
MAX(STOCK_DESTINATAIRE_ID) AS STOCK_DESTINATAIRE_ID,
|
|
MAX(TVA) AS TVA
|
|
FROM prod_expert_sante.COMMANDE
|
|
JOIN prod_expert_sante.PRODUIT_TYPE_COMMANDE ON COMMANDE.NUMERO = COMMANDE_NUMERO
|
|
LEFT JOIN w_PRODUIT_TYPE PRODUIT_TYPE ON PRODUIT_TYPE_ID = PRODUIT_TYPE.ID
|
|
LEFT JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = PRODUIT_TYPE.ID AND DATE_CREATION BETWEEN DATE_EFFET AND COALESCE(DATE_FIN,'2099-12-31')
|
|
LEFT JOIN w_PRODUIT_SUPPRIME ON
|
|
PRODUIT_TYPE_COMMANDE.COMMANDE_NUMERO = w_PRODUIT_SUPPRIME.COMMANDE_NUMERO AND
|
|
PRODUIT_TYPE_COMMANDE.PRODUIT_TYPE_ID = w_PRODUIT_SUPPRIME.PRODUIT_TYPE_ID
|
|
WHERE DATE_CREATION >= '[ENV_ECO_ANNEEDEBUT]-01-01'
|
|
GROUP BY 1,2,3,4,5
|
|
HAVING (SUM(QUANTITE) - COALESCE(MAX(QUANTITE_SUPPRIME),0)) <> 0
|
|
;
|
|
|
|
ANALYSE w_com
|
|
;
|
|
|
|
|
|
DROP TABLE IF EXISTS w_log_produit;
|
|
CREATE TEMP TABLE w_log_produit AS
|
|
SELECT subview.*, ID::text||'-'||row_number() OVER (PARTITION BY ID ORDER BY QUAND, STOCK_ID) AS code_original_cti, 0::bigint AS SEJOUR_ID, ''::text AS EXTERNAL_SEJOUR_ID
|
|
FROM
|
|
(
|
|
SELECT ID, PRODUIT_TYPE_ID, EXEMPLAIRE, PRODUIT_TYPE_ETAT_ID, QUAND, STOCK_ID, NUMERO, DATE_RECEPTION, UTILISATEUR_ID, PRODUIT_FOURNISSEUR_ID FROM prod_expert_sante.PRODUIT GROUP BY 1,2,3,4,5,6,7,8,9,10
|
|
UNION ALL
|
|
SELECT ID, PRODUIT_TYPE_ID, EXEMPLAIRE, PRODUIT_TYPE_ETAT_ID, QUAND, STOCK_ID, NUMERO, DATE_RECEPTION, UTILISATEUR_ID, PRODUIT_FOURNISSEUR_ID FROM prod_expert_sante.LOG_PRODUIT_4 GROUP BY 1,2,3,4,5,6,7,8,9,10
|
|
UNION ALL
|
|
SELECT ID, PRODUIT_TYPE_ID, EXEMPLAIRE, PRODUIT_TYPE_ETAT_ID, QUAND, STOCK_ID, NUMERO, DATE_RECEPTION, UTILISATEUR_ID, PRODUIT_FOURNISSEUR_ID FROM prod_expert_sante.LOG_PRODUIT_3 GROUP BY 1,2,3,4,5,6,7,8,9,10
|
|
UNION ALL
|
|
SELECT ID, PRODUIT_TYPE_ID, EXEMPLAIRE, PRODUIT_TYPE_ETAT_ID, QUAND, STOCK_ID, NUMERO, DATE_RECEPTION, UTILISATEUR_ID, PRODUIT_FOURNISSEUR_ID FROM prod_expert_sante.LOG_PRODUIT_2 GROUP BY 1,2,3,4,5,6,7,8,9,10
|
|
UNION ALL
|
|
SELECT ID, PRODUIT_TYPE_ID, EXEMPLAIRE, PRODUIT_TYPE_ETAT_ID, QUAND, STOCK_ID, NUMERO, DATE_RECEPTION, UTILISATEUR_ID, PRODUIT_FOURNISSEUR_ID FROM prod_expert_sante.LOG_PRODUIT_1 GROUP BY 1,2,3,4,5,6,7,8,9,10
|
|
UNION ALL
|
|
SELECT ID, PRODUIT_TYPE_ID, EXEMPLAIRE, PRODUIT_TYPE_ETAT_ID, QUAND, STOCK_ID, NUMERO, DATE_RECEPTION, UTILISATEUR_ID, PRODUIT_FOURNISSEUR_ID FROM prod_expert_sante.LOG_PRODUIT GROUP BY 1,2,3,4,5,6,7,8,9,10
|
|
) subview
|
|
LEFT JOIN eco.t_divers util ON util.code = 'EXPERT_EXCLUDE_UTIL_AUTO'
|
|
WHERE util.valeur IS DISTINCT FROM '1' OR (UTILISATEUR_ID >= 0 AND NUMERO >= 0)
|
|
;
|
|
|
|
ANALYSE w_log_produit
|
|
;
|
|
|
|
CREATE INDEX w_log_produit_i1 ON w_log_produit USING BTREE (NUMERO);
|
|
CREATE INDEX w_log_produit_i2 ON w_log_produit USING BTREE (PRODUIT_TYPE_ID);
|
|
CREATE INDEX w_log_produit_i3 ON w_log_produit USING BTREE (EXEMPLAIRE);
|
|
CREATE INDEX w_log_produit_i4 ON w_log_produit USING BTREE (ID);
|
|
|
|
SELECT base.cti_execute('UPDATE w_log_produit
|
|
SET SEJOUR_ID = CASE WHEN ACTE_PRODUIT.SEJOUR_ID > 0 THEN ACTE_PRODUIT.SEJOUR_ID ELSE INTERVENTION.SEJOUR_ID END
|
|
FROM prod_expert_sante.ACTE_PRODUIT
|
|
LEFT JOIN prod_expert_sante.INTERVENTION ON INTERVENTION_ID = INTERVENTION.ID
|
|
WHERE PRODUIT_ID = w_log_produit.ID AND
|
|
(ACTE_PRODUIT.SEJOUR_ID > 0 OR INTERVENTION.SEJOUR_ID > 0)',1)
|
|
WHERE (SELECT count(*) FROM information_schema.tables WHERE table_name = 'ACTE_PRODUIT' AND table_schema = 'prod_expert_sante') > 0;
|
|
|
|
UPDATE w_log_produit
|
|
SET SEJOUR_ID = CASE WHEN ACTE_PRODUIT.SEJOUR_ID > 0 THEN ACTE_PRODUIT.SEJOUR_ID ELSE INTERVENTION.SEJOUR_ID END
|
|
FROM prod_expert_sante.ACTE_PRODUIT
|
|
LEFT JOIN prod_expert_sante.INTERVENTION ON INTERVENTION_ID = INTERVENTION.ID
|
|
WHERE PRODUIT_ID = w_log_produit.ID AND
|
|
(ACTE_PRODUIT.SEJOUR_ID > 0 OR INTERVENTION.SEJOUR_ID > 0)
|
|
;
|
|
|
|
ANALYSE w_log_produit
|
|
;
|
|
|
|
UPDATE w_log_produit
|
|
SET EXTERNAL_SEJOUR_ID = SEJOUR.EXTERNAL_SEJOUR_ID
|
|
FROM prod_expert_sante.SEJOUR
|
|
WHERE SEJOUR_ID = SEJOUR.ID
|
|
;
|
|
|
|
|
|
-- commandes prothèses
|
|
DROP TABLE IF EXISTS w_PRODUIT_FACTURE;
|
|
CREATE TEMP TABLE w_PRODUIT_FACTURE AS
|
|
SELECT FACTURE_ID, PRODUIT_TYPE_ID, MIN(PRODUIT_ID) AS PRODUIT_ID
|
|
FROM prod_expert_sante.PRODUIT_FACTURE
|
|
GROUP BY 1,2
|
|
;
|
|
|
|
ANALYSE w_PRODUIT_FACTURE
|
|
;
|
|
|
|
CREATE INDEX w_PRODUIT_FACTURE_i1 ON w_PRODUIT_FACTURE USING BTREE (FACTURE_ID)
|
|
;
|
|
CREATE INDEX w_PRODUIT_FACTURE_i2 ON w_PRODUIT_FACTURE USING BTREE (PRODUIT_TYPE_ID)
|
|
;
|
|
|
|
INSERT INTO w_com
|
|
SELECT
|
|
COMMANDE.NUMERO::text || '-' || FACTURE.FOURNISSEUR_ID || '-' || PRODUIT_FACTURE.PRODUIT_TYPE_ID || '-' || PRODUIT_FACTURE.PRODUIT_ID AS code_original_ligne,
|
|
MAX(COMMANDE.NUMERO::text) AS COMMANDE_NUMERO,
|
|
MAX(COMMANDE.QUI),
|
|
MAX(COMMANDE.DATE_CREATION),
|
|
MAX(PRODUIT_FACTURE.PRODUIT_TYPE_ID),
|
|
MAX(PRODUIT_FACTURE.PRODUIT_ID) AS PRODUIT_ID,
|
|
MAX(FACTURE.FOURNISSEUR_ID),
|
|
COUNT(*) AS QUANTITE,
|
|
MAX(PRIX_UNITAIRE) AS PRIX_UNITAIRE,
|
|
0 AS STOCK_DESTINATAIRE_ID,
|
|
MAX(TVA)
|
|
FROM prod_expert_sante.COMMANDE
|
|
JOIN prod_expert_sante.FACTURE ON COMMANDE.NUMERO = COMMANDE_NUMERO
|
|
JOIN w_PRODUIT_FACTURE PRODUIT_FACTURE ON FACTURE_ID = FACTURE.ID
|
|
LEFT JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = PRODUIT_FACTURE.PRODUIT_TYPE_ID AND DATE_CREATION BETWEEN DATE_EFFET AND COALESCE(DATE_FIN,'2099-12-31')
|
|
WHERE COMMANDE.DATE_CREATION >= '[ENV_ECO_ANNEEDEBUT]-01-01' AND
|
|
COMMANDE.NUMERO NOT IN (SELECT COMMANDE_NUMERO FROM w_com WHERE COMMANDE_NUMERO IS NOT NULL)
|
|
GROUP BY 1
|
|
;
|
|
|
|
--entrees = livraison
|
|
DROP TABLE IF EXISTS w_first_mvt;
|
|
CREATE TEMP TABLE w_first_mvt AS
|
|
SELECT
|
|
ID,
|
|
PRODUIT_TYPE_ID,
|
|
NUMERO,
|
|
MIN(DATE_RECEPTION) AS DATE_RECEPTION,
|
|
MIN(w_log_produit.code_original_cti) AS code_original_cti,
|
|
(MIN(ARRAY[code_original_cti::text, STOCK_ID::text]))[2]::bigint AS STOCK_ID,
|
|
(MIN(ARRAY[code_original_cti::text, UTILISATEUR_ID::text]))[2]::bigint AS UTILISATEUR_ID,
|
|
(MIN(ARRAY[code_original_cti::text, PRODUIT_FOURNISSEUR_ID::text]))[2]::bigint AS PRODUIT_FOURNISSEUR_ID,
|
|
MAX(EXTERNAL_SEJOUR_ID) AS EXTERNAL_SEJOUR_ID
|
|
FROM
|
|
w_log_produit
|
|
WHERE PRODUIT_TYPE_ETAT_ID = 3
|
|
GROUP BY 1,2,3
|
|
;
|
|
|
|
ANALYSE w_first_mvt
|
|
;
|
|
|
|
|
|
CREATE INDEX w_first_mvt_i1 ON w_first_mvt USING BTREE (NUMERO);
|
|
CREATE INDEX w_first_mvt_i2 ON w_first_mvt USING BTREE (PRODUIT_TYPE_ID);
|
|
|
|
DROP TABLE IF EXISTS w_liv;
|
|
CREATE TEMP TABLE w_liv AS
|
|
SELECT
|
|
COMMANDE.NUMERO,
|
|
w_first_mvt.PRODUIT_TYPE_ID,
|
|
MAX(w_first_mvt.DATE_RECEPTION) AS DATE_RECEPTION,
|
|
MAX(w_first_mvt.PRODUIT_FOURNISSEUR_ID) AS PRODUIT_FOURNISSEUR_ID, --peut être faux => non pris en compte
|
|
COUNT(DISTINCT ID) AS QUANTITE_LIVREE,
|
|
--MAX(PRIX_UNITAIRE) AS PRIX_UNITAIRE_LIVRE,
|
|
null::numeric AS PRIX_UNITAIRE_LIVRE
|
|
FROM prod_expert_sante.COMMANDE
|
|
LEFT JOIN w_first_mvt ON COMMANDE.NUMERO = w_first_mvt.NUMERO
|
|
WHERE COMMANDE.DATE_CREATION >= '[ENV_ECO_ANNEEDEBUT]-01-01'
|
|
GROUP BY 1,2
|
|
|
|
;
|
|
|
|
-- ajout des livraisons sans ligne de commande
|
|
INSERT INTO w_com
|
|
SELECT
|
|
w_com.COMMANDE_NUMERO::text || '-' || w_liv.PRODUIT_FOURNISSEUR_ID || '-' || w_liv.PRODUIT_TYPE_ID AS code_original_ligne,
|
|
w_com.COMMANDE_NUMERO,
|
|
w_com.QUI,
|
|
w_com.DATE_CREATION,
|
|
w_liv.PRODUIT_TYPE_ID,
|
|
0::bigint AS PRODUIT_ID,
|
|
MAX(w_liv.PRODUIT_FOURNISSEUR_ID) AS PRODUIT_FOURNISSEUR_ID,
|
|
SUM(QUANTITE_LIVREE) AS QUANTITE_LIVREE,
|
|
MAX(PRODUIT_TYPE_HISTO.PRIX_UNITAIRE) AS PRIX_UNITAIRE,
|
|
0 AS STOCK_DESTINATAIRE_ID,
|
|
MAX(PRODUIT_TYPE_HISTO.TVA) AS TVA
|
|
FROM w_liv
|
|
JOIN (SELECT COMMANDE_NUMERO, MAX(QUI) AS QUI, MAX(DATE_CREATION) AS DATE_CREATION FROM w_com GROUP BY 1) w_com ON NUMERO = COMMANDE_NUMERO
|
|
LEFT JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = w_liv.PRODUIT_TYPE_ID AND DATE_RECEPTION BETWEEN DATE_EFFET AND COALESCE(DATE_FIN,'2099-12-31')
|
|
LEFT JOIN w_com ref ON NUMERO = ref.COMMANDE_NUMERO AND ref.PRODUIT_TYPE_ID = w_liv.PRODUIT_TYPE_ID
|
|
WHERE ref.COMMANDE_NUMERO IS NULL AND
|
|
QUANTITE_LIVREE <> 0
|
|
GROUP BY 1,2,3,4,5
|
|
;
|
|
|
|
SELECT base.cti_disable_index('eco', 'i_commandes_1');
|
|
SELECT base.cti_disable_index('eco', 'i_commandes_2');
|
|
SELECT base.cti_disable_index('eco', 'i_commandes_3');
|
|
SELECT base.cti_disable_index('eco', 'i_commandes_4');
|
|
SELECT base.cti_disable_index('eco', 'i_commandes_5');
|
|
SELECT base.cti_disable_index('eco', 'i_commandes_6');
|
|
SELECT base.cti_disable_index('eco', 'i_commandes_7');
|
|
SELECT base.cti_disable_index('eco', 'i_commandes_8');
|
|
|
|
TRUNCATE eco.p_commandes;
|
|
|
|
INSERT INTO eco.p_commandes(
|
|
code_original,
|
|
numero,
|
|
date_commande,
|
|
date_engagement,
|
|
objet,
|
|
reference,
|
|
date_livraison_prevue,
|
|
etat_reception,
|
|
date_reception,
|
|
etat_liquidation,
|
|
fournisseur_id,
|
|
fournisseur_distributeur_id,
|
|
gestionnaire_id,
|
|
site_id,
|
|
lieu_commande_id,
|
|
lieu_facturation_id,
|
|
lieu_livraison_id,
|
|
unite_fonctionnelle_id,
|
|
montant_commande_ht,
|
|
montant_commande_remise,
|
|
montant_commande_tva,
|
|
montant_commande_port,
|
|
montant_commande_total,
|
|
montant_liquidation_ht,
|
|
montant_liquidation_remise,
|
|
montant_liquidation_tva,
|
|
montant_liquidation_port,
|
|
montant_liquidation_total)
|
|
SELECT
|
|
w_com.COMMANDE_NUMERO AS code_original,
|
|
w_com.COMMANDE_NUMERO AS numero,
|
|
w_com.DATE_CREATION::date AS date_commande,
|
|
date_trunc('month',w_com.DATE_CREATION::date) + interval '1 month' - interval '1 day' AS date_engagement,
|
|
'' AS objet,
|
|
'' AS reference,
|
|
'2099-12-31'::date AS date_livraison_prevue,
|
|
CASE WHEN SUM(QUANTITE_LIVREE) >= SUM(QUANTITE) THEN 'T'
|
|
WHEN SUM(QUANTITE_LIVREE) > 0 THEN 'P'
|
|
ELSE 'N' END AS etat_reception,
|
|
COALESCE(MAX(DATE_RECEPTION),'2099-12-31') AS date_reception,
|
|
CASE WHEN FACTURE.ID IS NOT NULL THEN 'T' ELSE 'N' END AS etat_liquidation,
|
|
MAX(COALESCE(t_fournisseurs.oid,0)) AS fournisseur_id,
|
|
MAX(COALESCE(t_fournisseurs.fournisseur_distributeur_id, 0)) AS fournisseur_distributeur_id,
|
|
COALESCE(t_gestionnaires.oid,0) AS gestionnaire_id,
|
|
MAX(COALESCE(t_sites.oid,0)),
|
|
MAX(COALESCE(t_lieux.oid,0)),
|
|
0 AS lieu_facturation_id,
|
|
MAX(COALESCE(t_sites.oid,0)),
|
|
MAX(COALESCE(t_unites_fonctionnelles.oid,0)),
|
|
SUM(QUANTITE*PRIX_UNITAIRE) AS montant_commande_ht,
|
|
0::numeric AS montant_commande_remise,
|
|
SUM(QUANTITE*PRIX_UNITAIRE*(TVA)/100) AS montant_commande_tva,
|
|
0::numeric AS montant_commande_port,
|
|
SUM(QUANTITE*PRIX_UNITAIRE*(100 + TVA)/100) AS montant_commande_total,
|
|
COALESCE(MAX(MONTANT_HT),0) AS montant_liquidation_ht,
|
|
0::numeric AS montant_liquidation_remise,
|
|
COALESCE(MAX(MONTANT_TTC - MONTANT_HT),0) AS montant_liquidation_tva,
|
|
0::numeric AS montant_liquidation_port,
|
|
COALESCE(MAX(MONTANT_TTC),0) AS montant_liquidation_total
|
|
FROM w_com
|
|
LEFT JOIN w_liv ON w_liv.NUMERO = w_com.COMMANDE_NUMERO::text AND w_liv.PRODUIT_TYPE_ID = w_com.PRODUIT_TYPE_ID AND w_liv.PRODUIT_FOURNISSEUR_ID = w_com.PRODUIT_FOURNISSEUR_ID
|
|
LEFT JOIN prod_expert_sante.FACTURE ON FACTURE.COMMANDE_NUMERO = w_com.COMMANDE_NUMERO::text
|
|
LEFT JOIN eco.t_fournisseurs ON w_com.PRODUIT_FOURNISSEUR_ID = t_fournisseurs.code_original
|
|
LEFT JOIN eco.t_gestionnaires ON w_com.QUI = t_gestionnaires.code_original
|
|
LEFT JOIN eco.t_lieux ON STOCK_DESTINATAIRE_ID = t_lieux.code_original
|
|
LEFT JOIN eco.t_sites ON 'XX' = t_lieux.code_original
|
|
LEFT JOIN prod_expert_sante.STOCK_SERVICE ON STOCK_DESTINATAIRE_ID = STOCK_ID
|
|
LEFT JOIN eco.t_unites_fonctionnelles ON SERVICE_ID = t_unites_fonctionnelles.code_original
|
|
GROUP BY 1,2,3,4,5,6,7,10,13
|
|
;
|
|
|
|
SELECT base.cti_enable_index('eco', 'i_commandes_1');
|
|
SELECT base.cti_enable_index('eco', 'i_commandes_2');
|
|
SELECT base.cti_enable_index('eco', 'i_commandes_3');
|
|
SELECT base.cti_enable_index('eco', 'i_commandes_4');
|
|
SELECT base.cti_enable_index('eco', 'i_commandes_5');
|
|
SELECT base.cti_enable_index('eco', 'i_commandes_6');
|
|
SELECT base.cti_enable_index('eco', 'i_commandes_7');
|
|
SELECT base.cti_enable_index('eco', 'i_commandes_8');
|
|
|
|
SELECT base.cti_disable_index('eco', 'i_ligne_commandes_1');
|
|
SELECT base.cti_disable_index('eco', 'i_ligne_commandes_2');
|
|
SELECT base.cti_disable_index('eco', 'i_ligne_commandes_3');
|
|
|
|
TRUNCATE eco.p_lignes_commandes;
|
|
|
|
|
|
INSERT INTO eco.p_lignes_commandes(
|
|
code_original,
|
|
commande_id,
|
|
ligne_commande,
|
|
texte,
|
|
fournisseur_distributeur_id,
|
|
unite_fonctionnelle_id,
|
|
article_id,
|
|
unite_approvisionnement_id,
|
|
lpp_id,
|
|
ucd_id,
|
|
compte_id,
|
|
quantite_approvisionnement,
|
|
prix_unitaire_approvisionnement,
|
|
multiplicateur_stockage,
|
|
quantite_stockage,
|
|
prix_unitaire_stockage,
|
|
|
|
montant_commande_ht,
|
|
montant_commande_remise,
|
|
montant_commande_tva,
|
|
montant_commande_port,
|
|
montant_commande_ttc,
|
|
|
|
quantite_livraison_approvisionnement,
|
|
quantite_livraison_stockage,
|
|
montant_livraison_ht,
|
|
montant_livraison_tva,
|
|
montant_livraison_ttc,
|
|
etat_livraison,
|
|
|
|
montant_liquidation_ht,
|
|
montant_liquidation_remise,
|
|
montant_liquidation_tva,
|
|
montant_liquidation_port,
|
|
montant_liquidation_ttc,
|
|
etat_liquidation,
|
|
|
|
taux_tva)
|
|
SELECT
|
|
code_original_ligne,
|
|
p_commandes.oid AS commande_id,
|
|
row_number() OVER (PARTITION BY COMMANDE_NUMERO ORDER BY w_com.PRODUIT_TYPE_ID, w_com.PRODUIT_ID) AS ligne_commande,
|
|
t_articles.texte_court AS texte,
|
|
p_commandes.fournisseur_distributeur_id,
|
|
COALESCE(t_unites_fonctionnelles.oid,0) AS unite_fonctionnelle_id,
|
|
COALESCE(t_articles.oid, 0) AS article_id,
|
|
COALESCE(t_unites.oid,t_articles.unite_stockage_id,0) AS unite_approvisionnement_id,
|
|
COALESCE(t_articles.lpp_id,0),
|
|
COALESCE(t_articles.ucd_id,0),
|
|
COALESCE(t_articles.compte_id, 0) AS compte_id,
|
|
QUANTITE AS quantite_approvisionnement,
|
|
PRIX_UNITAIRE AS prix_unitaire_approvisionnement,
|
|
1 AS multiplicateur_stockage,
|
|
1 AS quantite_stockage,
|
|
PRIX_UNITAIRE AS prix_unitaire_stockage,
|
|
|
|
QUANTITE * PRIX_UNITAIRE AS montant_commande_ht,
|
|
0 AS montant_commande_remise,
|
|
QUANTITE * PRIX_UNITAIRE * TVA/100 AS montant_commande_tva,
|
|
0 AS montant_commande_port,
|
|
QUANTITE * PRIX_UNITAIRE * (100 + TVA)/100 AS montant_commande_ttc,
|
|
|
|
QUANTITE_LIVREE AS quantite_livraison_approvisionnement,
|
|
QUANTITE_LIVREE AS quantite_livraison_stockage,
|
|
QUANTITE_LIVREE * COALESCE(PRIX_UNITAIRE_LIVRE,PRIX_UNITAIRE) AS montant_livraison_ht,
|
|
QUANTITE_LIVREE * COALESCE(PRIX_UNITAIRE_LIVRE,PRIX_UNITAIRE)*TVA/100 AS montant_livraison_tva,
|
|
QUANTITE_LIVREE * COALESCE(PRIX_UNITAIRE_LIVRE,PRIX_UNITAIRE) * (100 + TVA)/100 AS montant_livraison_ttc,
|
|
CASE
|
|
WHEN w_liv.DATE_RECEPTION IS NULL THEN 'N'
|
|
WHEN QUANTITE_LIVREE = QUANTITE THEN 'T'
|
|
WHEN QUANTITE_LIVREE > QUANTITE THEN 'S'
|
|
WHEN QUANTITE_LIVREE = 0 THEN 'N'
|
|
ELSE 'P' END AS etat_livraison,
|
|
0 AS montant_liquidation_ht,
|
|
0 AS montant_liquidation_remise,
|
|
0 AS montant_liquidation_tva,
|
|
0 AS montant_liquidation_port,
|
|
0 AS montant_liquidation_ttc,
|
|
p_commandes.etat_liquidation AS etat_liquidation,
|
|
TVA
|
|
FROM w_com
|
|
LEFT JOIN w_liv ON w_liv.NUMERO = w_com.COMMANDE_NUMERO::text AND w_liv.PRODUIT_TYPE_ID = w_com.PRODUIT_TYPE_ID
|
|
JOIN eco.p_commandes ON w_com.COMMANDE_NUMERO = p_commandes.code_original
|
|
LEFT JOIN eco.t_articles ON w_com.PRODUIT_TYPE_ID = t_articles.code_original
|
|
LEFT JOIN eco.t_unites ON 'XXX' = t_unites.code_original AND t_unites.oid <> 0
|
|
LEFT JOIN eco.t_gestionnaires ON w_com.QUI = t_gestionnaires.code_original
|
|
LEFT JOIN eco.t_lieux ON STOCK_DESTINATAIRE_ID = t_lieux.code_original
|
|
LEFT JOIN prod_expert_sante.STOCK_SERVICE ON STOCK_DESTINATAIRE_ID = STOCK_ID AND STOCK_SERVICE.REFERENCE = 1
|
|
LEFT JOIN eco.t_unites_fonctionnelles ON SERVICE_ID = t_unites_fonctionnelles.code_original
|
|
LEFT JOIN prod_expert_sante.SERVICE ON SERVICE.ID = SERVICE_ID
|
|
LEFT JOIN eco.t_sites ON ETAGE_ID = t_sites.code_original
|
|
|
|
;
|
|
|
|
UPDATE eco.p_lignes_commandes
|
|
SET
|
|
montant_liquidation_ht = montant_livraison_ht,
|
|
montant_liquidation_tva = montant_livraison_tva,
|
|
montant_liquidation_ttc = montant_livraison_ttc
|
|
WHERE etat_liquidation = 'T'
|
|
;
|
|
|
|
SELECT base.cti_enable_index('eco', 'i_ligne_commandes_1');
|
|
SELECT base.cti_enable_index('eco', 'i_ligne_commandes_2');
|
|
SELECT base.cti_enable_index('eco', 'i_ligne_commandes_3');
|
|
|
|
]]></sqlcmd>
|
|
</NODE>
|
|
<NODE label="Mouvements">
|
|
<sqlcmd><![CDATA[
|
|
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_1');
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_2');
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_3');
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_4');
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_5');
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_6');
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_7');
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_8');
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_9');
|
|
SELECT base.cti_disable_index('eco', 'i_mouvements_articles_10');
|
|
|
|
--entrees = livraison
|
|
|
|
DROP TABLE IF EXISTS w_mvt;
|
|
CREATE TEMP TABLE w_mvt AS
|
|
SELECT
|
|
NUMERO || '-' || PRODUIT_FOURNISSEUR_ID || '-' || w_first_mvt.PRODUIT_TYPE_ID ID_CTI,
|
|
NUMERO || '-' || PRODUIT_FOURNISSEUR_ID || '-' || w_first_mvt.PRODUIT_TYPE_ID AS REF,
|
|
'LIV' AS TYPE ,
|
|
'E' AS sens,
|
|
w_first_mvt.PRODUIT_TYPE_ID,
|
|
w_first_mvt.UTILISATEUR_ID AS QUI,
|
|
w_first_mvt.STOCK_ID,
|
|
DATE_RECEPTION AS DATE,
|
|
PRODUIT_TYPE_HISTO.PRIX_UNITAIRE,
|
|
TVA,
|
|
COUNT(DISTINCT ID) AS QUANTITE,
|
|
COALESCE(EXTERNAL_SEJOUR_ID,'') AS SEJOUR,
|
|
MIN(w_first_mvt.code_original_cti) AS code_original_cti
|
|
FROM
|
|
w_first_mvt
|
|
JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON w_first_mvt.PRODUIT_TYPE_ID = PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID AND DATE_RECEPTIOn BETWEEN DATE_EFFET AND COALESCE(DATE_FIN,'2099-12-31')
|
|
GROUP BY 1,2,3,4,5,6,7,8,9,10,12
|
|
;
|
|
|
|
--entree neg = retour fournisseur
|
|
DROP TABLE IF EXISTS w_PRODUIT_RETOUR;
|
|
CREATE TEMP TABLE w_PRODUIT_RETOUR AS
|
|
SELECT
|
|
PRODUIT_RETOUR.ID AS PRODUIT_RETOUR_ID,
|
|
PRODUIT_RETOUR.NUMERO AS PRODUIT_RETOUR_NUMERO,
|
|
PRODUIT.PRODUIT_TYPE_ID,
|
|
PRODUIT_RETOUR.QUI AS PRODUIT_RETOUR_QUI,
|
|
STOCK_ID,
|
|
PRODUIT_RETOUR.DATE_CREATION AS PRODUIT_RETOUR_DATE_CREATION,
|
|
PRODUIT_TYPE_HISTO.PRIX_UNITAIRE,
|
|
TVA,
|
|
EXEMPLAIRE,
|
|
PRODUIT_RETOUR.ID::text||'-'||row_number() OVER (PARTITION BY PRODUIT_RETOUR.ID ORDER BY PRODUIT_RETOUR.DATE_CREATION, PRODUIT.PRODUIT_TYPE_ID, STOCK_ID) AS code_original_cti
|
|
FROM
|
|
prod_expert_sante.PRODUIT_RETOUR
|
|
JOIN prod_expert_sante.PRODUIT_RETOUR_PRODUIT ON PRODUIT_RETOUR_ID = PRODUIT_RETOUR.ID
|
|
JOIN prod_expert_sante.PRODUIT ON PRODUIT_ID = PRODUIT.ID
|
|
JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = PRODUIT.PRODUIT_TYPE_ID AND DATE_RECEPTION BETWEEN DATE_EFFET AND COALESCE(DATE_FIN,'2099-12-31')
|
|
WHERE PRODUIT_RETOUR.DATE_CREATION >= '[ENV_ECO_ANNEEDEBUT]-01-01'
|
|
;
|
|
|
|
INSERT INTO w_mvt
|
|
SELECT
|
|
PRODUIT_RETOUR_ID || '-' || PRODUIT_TYPE_ID,
|
|
PRODUIT_RETOUR_NUMERO || '-' || PRODUIT_TYPE_ID,
|
|
'RET_F',
|
|
'E' AS sens,
|
|
PRODUIT_TYPE_ID,
|
|
PRODUIT_RETOUR_QUI,
|
|
STOCK_ID,
|
|
PRODUIT_RETOUR_DATE_CREATION,
|
|
PRIX_UNITAIRE,
|
|
TVA,
|
|
-COUNT(DISTINCT PRODUIT_RETOUR_ID) AS QUANTITE,
|
|
'' AS SEJOUR,
|
|
MIN(code_original_cti) AS code_original_cti
|
|
FROM w_PRODUIT_RETOUR
|
|
GROUP BY 1,2,3,4,5,6,7,8,9,10
|
|
;
|
|
|
|
DROP TABLE IF EXISTS w_mvt_log;
|
|
create temp table w_mvt_log AS
|
|
SELECT
|
|
sub.PRODUIT_TYPE_ID,
|
|
STOCK.FINAL AS FROM_FINAL,
|
|
DEST.FINAL AS TO_FINAL,
|
|
STOCK.ID AS FROM_STOCK,
|
|
DEST.ID AS TO_STOCK,
|
|
sub.UTILISATEUR_ID,
|
|
date_trunc('day',sub.QUAND) AS QUAND,
|
|
COALESCE(EXTERNAL_SEJOUR_ID,'') AS EXTERNAL_SEJOUR_ID,
|
|
COUNT(DISTINCT sub.ID) AS QUANTITE,
|
|
MIN(code_original_cti) AS code_original_cti
|
|
FROM (
|
|
SELECT
|
|
code_original_cti,
|
|
ID,
|
|
PRODUIT_TYPE_ID,
|
|
EXEMPLAIRE,
|
|
UTILISATEUR_ID,
|
|
QUAND,
|
|
code_original_cti AS ctid_to,
|
|
lag(ctid) OVER (PARTITION BY PRODUIT_TYPE_ID,ID,NUMERO ORDER BY ctid) AS ctid_from,
|
|
STOCK_ID,
|
|
lag(STOCK_ID) OVER (PARTITION BY PRODUIT_TYPE_ID,ID,NUMERO ORDER BY ctid) AS stock_id_from,
|
|
COALESCE(EXTERNAL_SEJOUR_ID,'') AS EXTERNAL_SEJOUR_ID
|
|
FROM w_LOG_PRODUIT
|
|
WHERE PRODUIT_TYPE_ETAT_ID = 3
|
|
AND STOCK_ID IS NOT NULL
|
|
) sub
|
|
JOIN prod_expert_sante.STOCK ON stock_id_from IS NOT NULL AND stock_id_from = STOCK.ID
|
|
JOIN prod_expert_sante.STOCK DEST ON STOCK_ID = DEST.ID
|
|
WHERE stock_id_from != STOCK_ID
|
|
GROUP BY 1,2,3,4,5,6,7,8;
|
|
|
|
INSERT INTO w_mvt
|
|
SELECT
|
|
w_mvt_log.PRODUIT_TYPE_ID || '-' || FROM_STOCK || '-' || TO_STOCK || '-' || to_char(QUAND, 'YYYYMMDD'),
|
|
w_mvt_log.PRODUIT_TYPE_ID || '-' || FROM_STOCK || '-' || TO_STOCK || '-' || to_char(QUAND, 'YYYYMMDD'),
|
|
CASE WHEN FROM_FINAL = 0 AND TO_FINAL = 1 THEN 'SOR_C'
|
|
WHEN FROM_FINAL = 0 AND TO_FINAL = 0 THEN 'TRS'
|
|
ELSE 'DIS' END,
|
|
CASE WHEN FROM_FINAL = 0 AND TO_FINAL = 1 THEN 'S'
|
|
WHEN FROM_FINAL = 0 AND TO_FINAL = 0 THEN 'S'
|
|
ELSE 'E' END,
|
|
w_mvt_log.PRODUIT_TYPE_ID,
|
|
UTILISATEUR_ID,
|
|
CASE WHEN FROM_FINAL = 0 THEN FROM_STOCK ELSE TO_STOCK END,
|
|
QUAND,
|
|
PRIX_UNITAIRE,
|
|
TVA,
|
|
QUANTITE,
|
|
EXTERNAL_SEJOUR_ID,
|
|
w_mvt_log.code_original_cti ||
|
|
CASE WHEN FROM_FINAL = 0 AND TO_FINAL = 1 THEN ''
|
|
WHEN FROM_FINAL = 0 AND TO_FINAL = 0 THEN 'S'
|
|
ELSE '' END
|
|
FROM w_mvt_log
|
|
JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = w_mvt_log.PRODUIT_TYPE_ID AND w_mvt_log.QUAND BETWEEN DATE_EFFET AND DATE_FIN
|
|
WHERE QUAND >= '[ENV_ECO_ANNEEDEBUT]-01-01'
|
|
AND NOT (FROM_FINAL = 1 AND TO_FINAL = 1)
|
|
;
|
|
|
|
INSERT INTO w_mvt
|
|
SELECT
|
|
w_mvt_log.PRODUIT_TYPE_ID || '-' || FROM_STOCK || '-' || TO_STOCK || '-' || to_char(QUAND, 'YYYYMMDD') ,
|
|
w_mvt_log.PRODUIT_TYPE_ID || '-' || FROM_STOCK || '-' || TO_STOCK || '-' || to_char(QUAND, 'YYYYMMDD') ,
|
|
'TRS',
|
|
'E',
|
|
w_mvt_log.PRODUIT_TYPE_ID,
|
|
UTILISATEUR_ID,
|
|
TO_STOCK,
|
|
QUAND,
|
|
PRIX_UNITAIRE,
|
|
TVA,
|
|
QUANTITE,
|
|
EXTERNAL_SEJOUR_ID,
|
|
w_mvt_log.code_original_cti || 'E'
|
|
FROM w_mvt_log
|
|
JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = w_mvt_log.PRODUIT_TYPE_ID AND w_mvt_log.QUAND BETWEEN DATE_EFFET AND DATE_FIN
|
|
WHERE QUAND >= '[ENV_ECO_ANNEEDEBUT]-01-01'
|
|
AND FROM_FINAL = 0
|
|
AND TO_FINAL = 0
|
|
;
|
|
|
|
-- utilisation
|
|
INSERT INTO w_mvt
|
|
SELECT
|
|
w_log_produit.PRODUIT_TYPE_ID || '-P-' || STOCK_ID AS ID_CTI,
|
|
w_log_produit.PRODUIT_TYPE_ID || '-' || PRODUIT_FOURNISSEUR_ID || '-' || w_log_produit.PRODUIT_TYPE_ID AS REF,
|
|
'SOR_C' as type,
|
|
'S' as sens,
|
|
w_log_produit.PRODUIT_TYPE_ID,
|
|
UTILISATEUR_ID,
|
|
w_log_produit.STOCK_ID,
|
|
QUAND as date,
|
|
PRIX_UNITAIRE,
|
|
TVA,
|
|
COUNT(DISTINCT w_log_produit.id) as count,
|
|
EXTERNAL_SEJOUR_ID,
|
|
min(code_original_cti) AS code_original_cti
|
|
FROM (
|
|
SELECT ID, MIN(code_original_cti) as first
|
|
FROM w_log_produit
|
|
WHERE PRODUIT_TYPE_ETAT_ID = 4
|
|
GROUP BY 1) sub
|
|
JOIN w_log_produit on first = code_original_cti
|
|
JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = w_log_produit.PRODUIT_TYPE_ID AND w_log_produit.QUAND BETWEEN DATE_EFFET AND DATE_FIN
|
|
WHERE w_log_produit.QUAND >= '[ENV_ECO_ANNEEDEBUT]-01-01'
|
|
GROUP BY 1,2,3,4,5,6,7,8,9,10,12
|
|
;
|
|
|
|
-- pertes (pour les non utilisés)
|
|
INSERT INTO w_mvt
|
|
SELECT
|
|
w_log_produit.PRODUIT_TYPE_ID || '-P-' || STOCK_ID AS ID_CTI,
|
|
w_log_produit.PRODUIT_TYPE_ID || '-' || PRODUIT_FOURNISSEUR_ID || '-' || w_log_produit.PRODUIT_TYPE_ID AS REF,
|
|
'PER',
|
|
'S',
|
|
w_log_produit.PRODUIT_TYPE_ID,
|
|
UTILISATEUR_ID,
|
|
w_log_produit.STOCK_ID,
|
|
MIN(QUAND),
|
|
PRIX_UNITAIRE,
|
|
TVA,
|
|
COUNT(DISTINCT w_log_produit.ID),
|
|
EXTERNAL_SEJOUR_ID,
|
|
min(code_original_cti) AS code_original_cti
|
|
FROM w_log_produit
|
|
JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = w_log_produit.PRODUIT_TYPE_ID AND w_log_produit.QUAND BETWEEN DATE_EFFET AND DATE_FIN
|
|
LEFT JOIN (
|
|
SELECT ID
|
|
FROM w_log_produit
|
|
WHERE PRODUIT_TYPE_ETAT_ID = 4
|
|
GROUP BY 1) util ON util.ID = w_log_produit.ID
|
|
WHERE w_log_produit.QUAND >= '[ENV_ECO_ANNEEDEBUT]-01-01'
|
|
AND util.ID IS NULL
|
|
AND PRODUIT_TYPE_ETAT_ID = 11
|
|
GROUP BY 1,2,3,4,5,6,7,9,10,12
|
|
;
|
|
|
|
-- corrections inventaire (si non passé en perte)
|
|
/* INSERT INTO w_mvt
|
|
SELECT
|
|
INVENTAIRE_ID || '-' || INVENTAIRE_PRODUIT_TYPE_QTE.PRODUIT_TYPE_ID || '-' || 'I',
|
|
INVENTAIRE_ID || '-' || INVENTAIRE_PRODUIT_TYPE_QTE.PRODUIT_TYPE_ID || '-' || 'I',
|
|
'INV',
|
|
'S',
|
|
INVENTAIRE_PRODUIT_TYPE_QTE.PRODUIT_TYPE_ID,
|
|
UTILISATEUR_ID,
|
|
INVENTAIRE_PRODUIT_TYPE_QTE.STOCK_ID,
|
|
DATE_VALIDATION,
|
|
PUHT,
|
|
TVA,
|
|
QTE_ATTENDUE - QTE_SAISIE,
|
|
'' AS no_sejour,
|
|
INVENTAIRE_PRODUIT_TYPE_QTE.ID::text AS code_original_cti
|
|
FROM prod_expert_sante.INVENTAIRE
|
|
JOIN prod_expert_sante.INVENTAIRE_PRODUIT_TYPE_QTE ON INVENTAIRE_ID = INVENTAIRE.ID
|
|
JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = INVENTAIRE_PRODUIT_TYPE_QTE.PRODUIT_TYPE_ID AND DATE_VALIDATION BETWEEN DATE_EFFET AND COALESCE(DATE_FIN,'2099-12-31')
|
|
WHERE DATE_VALIDATION >= '[ENV_ECO_ANNEEDEBUT]-01-01'
|
|
AND INVENTAIRE.VALIDER = '1'
|
|
AND QTE_ATTENDUE != QTE_SAISIE
|
|
;*/
|
|
|
|
|
|
INSERT INTO w_mvt
|
|
SELECT
|
|
w_first_mvt.NUMERO || '-' || PRODUIT_FOURNISSEUR_ID || '-' || w_first_mvt.PRODUIT_TYPE_ID ID_CTI,
|
|
w_first_mvt.NUMERO || '-' || PRODUIT_FOURNISSEUR_ID || '-' || w_first_mvt.PRODUIT_TYPE_ID AS REF,
|
|
'SOR_D' AS TYPE ,
|
|
'S' AS sens,
|
|
w_first_mvt.PRODUIT_TYPE_ID,
|
|
w_first_mvt.UTILISATEUR_ID AS QUI,
|
|
w_first_mvt.STOCK_ID,
|
|
DATE_RECEPTION AS DATE,
|
|
PRODUIT_TYPE_HISTO.PRIX_UNITAIRE,
|
|
TVA,
|
|
COUNT(DISTINCT w_first_mvt.ID) AS QUANTITE,
|
|
EXTERNAL_SEJOUR_ID AS SEJOUR,
|
|
MIN(w_first_mvt.code_original_cti) || '-SD' AS code_original_cti
|
|
FROM
|
|
w_first_mvt
|
|
LEFT JOIN (SELECT ID FROM w_log_produit WHERE PRODUIT_TYPE_ETAT_ID = 4) sub ON sub.ID = w_first_mvt.ID
|
|
JOIN prod_expert_sante.STOCK ON STOCK_ID = STOCK.ID
|
|
JOIN w_PRODUIT_TYPE_HISTO PRODUIT_TYPE_HISTO ON w_first_mvt.PRODUIT_TYPE_ID = PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID AND DATE_RECEPTIOn BETWEEN DATE_EFFET AND COALESCE(DATE_FIN,'2099-12-31')
|
|
WHERE FINAL = '1' AND sub.ID IS NULL
|
|
GROUP BY 1,2,3,4,5,6,7,8,9,10,12
|
|
;
|
|
|
|
CREATE INDEX w_mvt_stock_id ON w_mvt USING btree (stock_id);
|
|
CREATE INDEX w_mvt_produit_type_id ON w_mvt USING btree (produit_type_id);
|
|
CREATE INDEX w_mvt_stock_date ON w_mvt USING btree (date);
|
|
|
|
|
|
TRUNCATE eco.p_mouvements_articles;
|
|
|
|
INSERT INTO eco.p_mouvements_articles(
|
|
code_original,
|
|
date,
|
|
sens_mouvement,
|
|
type_mouvement_id,
|
|
texte,
|
|
gestionnaire_id,
|
|
site_id,
|
|
lieu_id,
|
|
unite_fonctionnelle_id,
|
|
article_id,
|
|
compte_id,
|
|
fournisseur_id,
|
|
commande_id,
|
|
ligne_commande,
|
|
ucd_id,
|
|
lpp_id,
|
|
prix_unitaire,
|
|
entree_quantite,
|
|
sortie_quantite,
|
|
entree_montant,
|
|
entree_montant_ht,
|
|
sortie_montant,
|
|
sortie_montant_ht,
|
|
sortie_montant_original_ttc,
|
|
sortie_montant_original_ht,
|
|
prix_unitaire_calcule,
|
|
stock_quantite_debut,
|
|
stock_quantite_fin,
|
|
date_fin,
|
|
est_premier_jour,
|
|
est_dernier_jour,
|
|
no_sejour
|
|
)
|
|
SELECT
|
|
w_mvt.TYPE || '-' || w_mvt.code_original_cti AS code_original,
|
|
DATE,
|
|
sens AS sens_mouvement,
|
|
COALESCE(t_types_mouvements.oid,0) AS type_mouvement_id,
|
|
COALESCE(LEFT(t_types_mouvements.texte || ' ' || t_articles.texte,255),'0') AS texte,
|
|
COALESCE(t_gestionnaires.oid,0) AS gestionnaire_id,
|
|
COALESCE(t_sites.oid,0) AS site_id,
|
|
COALESCE(t_lieux.oid,0) AS lieu_id,
|
|
COALESCE(t_unites_fonctionnelles.oid,0) AS unite_fonctionnelle_id,
|
|
COALESCE(t_articles.oid,0) AS article_id,
|
|
COALESCE(t_articles.compte_id,0) AS compte_id,
|
|
COALESCE(t_fournisseurs.oid,0) AS fournisseur_id,
|
|
COALESCE(commande_id, 0) AS commande_id,
|
|
COALESCE(ligne_commande, 0) AS ligne_commande,
|
|
COALESCE(t_articles.ucd_id,0),
|
|
COALESCE(t_articles.lpp_id,0),
|
|
PRIX_UNITAIRE,
|
|
CASE WHEN sens = 'E' THEN QUANTITE ELSE 0 END AS entree_quantite,
|
|
CASE WHEN sens = 'S' THEN QUANTITE ELSE 0 END AS sortie_quantite,
|
|
CASE WHEN sens = 'E' THEN QUANTITE * PRIX_UNITAIRE * (100 + TVA ) / 100 ELSE 0 END AS entree_montant,
|
|
CASE WHEN sens = 'E' THEN QUANTITE * PRIX_UNITAIRE ELSE 0 END AS entree_montant_ht,
|
|
CASE WHEN sens = 'S' THEN QUANTITE * PRIX_UNITAIRE * (100 + TVA ) / 100 ELSE 0 END AS sortie_montant,
|
|
CASE WHEN sens = 'S' THEN QUANTITE * PRIX_UNITAIRE ELSE 0 END AS sortie_montant_ht,
|
|
CASE WHEN sens = 'S' THEN QUANTITE * PRIX_UNITAIRE * (100 + TVA ) / 100 ELSE 0 END AS sortie_montant_original_ttc,
|
|
CASE WHEN sens = 'S' THEN QUANTITE * PRIX_UNITAIRE ELSE 0 END AS sortie_montant_original_ht,
|
|
PRIX_UNITAIRE AS prix_unitaire_calcule,
|
|
0,
|
|
0,
|
|
CASE
|
|
WHEN COALESCE(LEAD(DATE) OVER (PARTITION BY PRODUIT_TYPE_ID, w_mvt.STOCK_ID ORDER BY DATE),'2100-01-01') = DATE THEN
|
|
DATE
|
|
ELSE COALESCE(LEAD(DATE) OVER (PARTITION BY PRODUIT_TYPE_ID, w_mvt.STOCK_ID ORDER BY DATE),'2100-01-01') - interval '1 day'
|
|
END as date_fin,
|
|
CASE WHEN rank() OVER (PARTITION BY PRODUIT_TYPE_ID, w_mvt.STOCK_ID, date_trunc('day',DATE) ORDER BY DATE) = 1 THEN 1
|
|
ELSE 0
|
|
END AS est_premier_jour,
|
|
CASE
|
|
WHEN cume_dist() OVER (PARTITION BY PRODUIT_TYPE_ID, w_mvt.STOCK_ID, date_trunc('day',DATE) ORDER BY DATE) = 1 THEN 1
|
|
ELSE 0
|
|
END AS est_dernier_jour,
|
|
w_mvt.SEJOUR AS no_sejour
|
|
FROM w_mvt
|
|
LEFT JOIN eco.t_types_mouvements ON TYPE = t_types_mouvements.code
|
|
LEFT JOIN eco.t_articles ON PRODUIT_TYPE_ID = t_articles.code_original AND t_articles.oid <> 0
|
|
LEFT JOIN eco.t_gestionnaires ON QUI = t_gestionnaires.code_original
|
|
LEFT JOIN eco.t_lieux ON STOCK_ID = t_lieux.code_original
|
|
LEFT JOIN prod_expert_sante.STOCK_SERVICE ON STOCK_SERVICE.STOCK_ID = w_mvt.STOCK_ID
|
|
LEFT JOIN eco.t_unites_fonctionnelles ON t_unites_fonctionnelles.code_original = SERVICE_ID
|
|
LEFT JOIN prod_expert_sante.SERVICE ON SERVICE.ID = SERVICE_ID
|
|
LEFT JOIN eco.t_sites ON ETAGE_ID = t_sites.code_original
|
|
LEFT JOIN eco.t_fournisseurs ON 0 = t_fournisseurs.code_original
|
|
LEFT JOIN eco.p_lignes_commandes ON REF = p_lignes_commandes.code_original
|
|
WHERE DATE >= '[ENV_ECO_ANNEEDEBUT]0101' ;
|
|
|
|
|
|
UPDATE eco.p_mouvements_articles SET
|
|
entree_quantite = 0 - entree_quantite,
|
|
sortie_quantite = 0 - sortie_quantite,
|
|
entree_montant = 0 - entree_montant,
|
|
sortie_montant = 0 - sortie_montant,
|
|
entree_montant_ht = 0 - entree_montant_ht,
|
|
sortie_montant_ht = 0 - sortie_montant_ht,
|
|
sortie_montant_original_ttc = 0 - sortie_montant_original_ttc,
|
|
sortie_montant_original_ht = 0 - sortie_montant_original_ht
|
|
FROM eco.t_types_mouvements
|
|
WHERE type_mouvement_id = t_types_mouvements.oid AND
|
|
t_types_mouvements.particularite_inverser_signe = '1';
|
|
|
|
UPDATE eco.p_mouvements_articles SET
|
|
entree_quantite = sortie_quantite,
|
|
sortie_quantite = entree_quantite,
|
|
entree_montant = sortie_montant,
|
|
sortie_montant = entree_montant,
|
|
entree_montant_ht = sortie_montant_ht,
|
|
sortie_montant_ht = entree_montant_ht,
|
|
sortie_montant_original_ttc = sortie_montant_original_ht,
|
|
sortie_montant_original_ht = sortie_montant_original_ttc,
|
|
sens_mouvement = sens_force
|
|
FROM eco.t_types_mouvements
|
|
WHERE type_mouvement_id = t_types_mouvements.oid AND
|
|
t_types_mouvements.sens_force IN ('E','S') AND t_types_mouvements.sens_force != p_mouvements_articles.sens_mouvement
|
|
;
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_1');
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_2');
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_3');
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_4');
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_5');
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_6');
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_7');
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_8');
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_9');
|
|
SELECT base.cti_enable_index('eco', 'i_mouvements_articles_10');
|
|
|
|
VACUUM ANALYSE eco.p_mouvements_articles;
|
|
|
|
|
|
|
|
]]></sqlcmd>
|
|
</NODE>
|
|
|
|
<NODE label="Stocks">
|
|
<sqlcmd><![CDATA[
|
|
|
|
|
|
|
|
SELECT base.cti_disable_index('eco', 'i_stock_1');
|
|
SELECT base.cti_disable_index('eco', 'i_stock_2');
|
|
SELECT base.cti_disable_index('eco', 'i_stock_3');
|
|
SELECT base.cti_disable_index('eco', 'i_stock_4');
|
|
SELECT base.cti_disable_index('eco', 'i_stock_5');
|
|
|
|
|
|
DROP TABLE IF EXISTS w_stock_inv;
|
|
CREATE TEMP TABLE w_stock_inv AS
|
|
SELECT
|
|
PRODUIT_TYPE_ID,
|
|
STOCK_ID,
|
|
DATE_TRUNC('month',DATE_DEBUT) AS DATE_DEBUT,
|
|
MAX(DATE_DEBUT) AS DATE_VALIDATION,
|
|
MIN(DATE_DEBUT) AS DATE_VALIDATION_DEBUT,
|
|
(MAX(ARRAY[COALESCE(DATE_DEBUT)::text,QTE_SAISIE::text]))[2]::numeric AS QTE_SAISIE,
|
|
(MIN(ARRAY[COALESCE(DATE_DEBUT)::text,QTE_SAISIE::text]))[2]::numeric AS QTE_SAISIE_DEBUT,
|
|
AVG(PUHT) AS PUHT,
|
|
(MAX(ARRAY[DATE_DEBUT::text,UTILISATEUR_ID::text]))[2]::numeric AS UTILISATEUR_ID
|
|
FROM
|
|
(
|
|
SELECT
|
|
INVENTAIRE.ID,
|
|
INVENTAIRE_PRODUIT_TYPE_QTE.STOCK_ID,
|
|
PRODUIT_TYPE_ID,
|
|
COALESCE(DATE_VALIDATION,DATE_DEBUT) AS DATE_DEBUT,
|
|
SUM(CASE WHEN DATE_VALIDATION IS NOT NULL THEN QTE_SAISIE ELSE QTE_ATTENDUE END) AS QTE_SAISIE,
|
|
AVG(PUHT) AS PUHT,
|
|
MAX(UTILISATEUR_ID) AS UTILISATEUR_ID
|
|
FROM prod_expert_sante.INVENTAIRE
|
|
JOIN prod_expert_sante.INVENTAIRE_PRODUIT_TYPE_QTE ON INVENTAIRE_ID = INVENTAIRE.ID
|
|
GROUP BY 1,2,3,4
|
|
) sub
|
|
LEFT JOIN eco.t_articles ON PRODUIT_TYPE_ID = t_articles.code_original
|
|
WHERE DATE_DEBUT >= '[ENV_ECO_ANNEEDEBUT]-01-01'
|
|
GROUP BY 1,2,3
|
|
;
|
|
|
|
-- cumul ES d'après mouvements et inventaires
|
|
DROP SEQUENCE IF EXISTS w_etat_seq;
|
|
CREATE TEMP SEQUENCE w_etat_seq;
|
|
|
|
DROP TABLE IF EXISTS w_stock;
|
|
CREATE TEMP TABLE w_stock AS
|
|
SELECT subview.*, '20991231' ::date AS date_fin, nextval('w_etat_seq'::regclass) AS etat_sequence, 0 AS orig
|
|
FROM (
|
|
SELECT
|
|
w_stock_inv.STOCK_ID,
|
|
w_stock_inv.PRODUIT_TYPE_ID,
|
|
date_trunc('month', DATE_VALIDATION) AS date_debut,
|
|
SUM(COALESCE(CASE WHEN w_mvt.SENS = 'E' THEN QUANTITE ELSE 0 END,0)) AS entree_quantite,
|
|
SUM(COALESCE(CASE WHEN w_mvt.SENS = 'E' THEN QUANTITE ELSE 0 END * PRIX_UNITAIRE,0)) AS entree_montant,
|
|
SUM(COALESCE(CASE WHEN w_mvt.SENS = 'S' THEN QUANTITE ELSE 0 END,0)) AS sortie_quantite,
|
|
SUM(COALESCE(CASE WHEN w_mvt.SENS = 'S' THEN QUANTITE ELSE 0 END * PRIX_UNITAIRE,0)) AS sortie_montant,
|
|
COALESCE((MAX(ARRAY[DATE::text,PRIX_UNITAIRE::text]))[2]::numeric,PUHT) as PRIX_UNITAIRE,
|
|
QTE_SAISIE_DEBUT +
|
|
SUM(CASE WHEN w_mvt.DATE IS NOT NULL AND w_mvt.DATE <= DATE_VALIDATION_DEBUT THEN
|
|
CASE WHEN w_mvt.sens = 'E' THEN -QUANTITE ELSE QUANTITE END
|
|
ELSE 0 END) AS stock_quantite_debut,
|
|
QTE_SAISIE +
|
|
SUM(CASE WHEN w_mvt.DATE IS NOT NULL AND w_mvt.DATE > DATE_VALIDATION THEN
|
|
CASE WHEN w_mvt.sens = 'E' THEN QUANTITE ELSE -QUANTITE END
|
|
ELSE 0 END) AS stock_quantite_fin,
|
|
(QTE_SAISIE * PUHT +
|
|
COALESCE(SUM(PRIX_UNITAIRE * CASE WHEN w_mvt.DATE IS NOT NULL AND w_mvt.DATE > DATE_VALIDATION THEN
|
|
CASE WHEN w_mvt.sens = 'E' THEN QUANTITE ELSE -QUANTITE END
|
|
ELSE 0 END),0))
|
|
AS stock_valeur_fin,
|
|
COALESCE(MAX(w_mvt.TVA),0) AS TVA
|
|
FROM
|
|
w_stock_inv
|
|
LEFT JOIN w_mvt ON w_mvt.STOCK_ID = w_stock_inv.STOCK_ID
|
|
AND w_mvt.PRODUIT_TYPE_ID = w_stock_inv.PRODUIT_TYPE_ID
|
|
AND date_trunc('month',w_mvt.DATE) = DATE_DEBUT
|
|
LEFT JOIN eco.t_lieux ON w_stock_inv.STOCK_ID = t_lieux.code_original
|
|
LEFT JOIN prod_expert_sante.STOCK_SERVICE ON w_stock_inv.STOCK_ID = STOCK_SERVICE.STOCK_ID
|
|
LEFT JOIN prod_expert_sante.SERVICE ON SERVICE.ID = SERVICE_ID
|
|
LEFT JOIN eco.t_sites ON ETAGE_ID = t_sites.code_original
|
|
GROUP BY 1,2,3,QTE_SAISIE,QTE_SAISIE_DEBUT,PUHT
|
|
) subview
|
|
ORDER BY 1,2,3
|
|
;
|
|
|
|
|
|
INSERT INTO w_stock
|
|
SELECT
|
|
cur.STOCK_ID,
|
|
cur.PRODUIT_TYPE_ID,
|
|
date_trunc('month', now()) AS date_debut,
|
|
COALESCE(SUM(CASE WHEN w_mvt.sens = 'E' THEN QUANTITE ELSE 0 END),0) AS entree_quantite,
|
|
COALESCE(SUM(CASE WHEN w_mvt.sens = 'E' THEN QUANTITE ELSE 0 END * w_mvt.PRIX_UNITAIRE),0) AS entree_montant,
|
|
COALESCE(SUM(CASE WHEN w_mvt.sens = 'S' THEN QUANTITE ELSE 0 END),0) AS sortie_quantite,
|
|
COALESCE(SUM(CASE WHEN w_mvt.sens = 'S' THEN QUANTITE ELSE 0 END * w_mvt.PRIX_UNITAIRE),0) AS sortie_montant,
|
|
cur.prix_unitaire,
|
|
qte_cur + COALESCE(SUM(CASE WHEN w_mvt.sens = 'E' THEN -QUANTITE ELSE QUANTITE END),0) AS stock_quantite_debut,
|
|
qte_cur AS stock_quantite_fin,
|
|
qte_cur * cur.prix_unitaire AS stock_valeur_fin,
|
|
0 AS TVA,
|
|
'20991231'::date AS date_fin,
|
|
nextval('w_etat_seq'::regclass) AS etat_sequence,
|
|
1 AS orig
|
|
FROM
|
|
(
|
|
SELECT stock_id, produit_type_id, (max(array[sub.id::text, prix_unitaire::text]))[2]::numeric AS prix_unitaire, count(distinct sub.id) AS qte_cur
|
|
FROM
|
|
(
|
|
SELECT
|
|
produit_type_id,
|
|
|
|
id,
|
|
(max(array[quand::text, stock_id::text]))[2]::numeric AS stock_id,
|
|
(max(array[quand::text, produit_type_etat_id::text]))[2]::numeric AS produit_type_etat_id,
|
|
(max(array[quand::text, prix_unitaire::text]))[2]::numeric AS prix_unitaire
|
|
FROM prod_expert_sante.produit
|
|
GROUP BY 1,2
|
|
) sub
|
|
JOIN prod_expert_sante.STOCK ON STOCK_ID = STOCK.ID
|
|
WHERE produit_type_etat_id = 3 AND final != 1
|
|
GROUP BY 1,2
|
|
) cur
|
|
LEFT JOIN w_mvt ON w_mvt.STOCK_ID = cur.STOCK_ID
|
|
AND w_mvt.PRODUIT_TYPE_ID = cur.PRODUIT_TYPE_ID
|
|
AND date_trunc('month',w_mvt.DATE) = date_trunc('month', now())
|
|
LEFT JOIN w_stock w_stock_check ON cur.STOCK_ID = w_stock_check.STOCK_ID
|
|
AND cur.PRODUIT_TYPE_ID = w_stock_check.PRODUIT_TYPE_ID
|
|
AND w_stock_check.date_debut = date_trunc('month', now())
|
|
WHERE w_stock_check.STOCK_ID IS NULL
|
|
GROUP BY 1,2,3,qte_cur,cur.prix_unitaire
|
|
;
|
|
|
|
INSERT INTO w_stock
|
|
SELECT
|
|
sub.STOCK_ID,
|
|
sub.PRODUIT_TYPE_ID,
|
|
date_trunc('month', now()) AS date_debut,
|
|
COALESCE(SUM(CASE WHEN w_mvt.sens = 'E' THEN QUANTITE ELSE 0 END),0) AS entree_quantite,
|
|
COALESCE(SUM(CASE WHEN w_mvt.sens = 'E' THEN QUANTITE ELSE 0 END * w_mvt.PRIX_UNITAIRE),0) AS entree_montant,
|
|
COALESCE(SUM(CASE WHEN w_mvt.sens = 'S' THEN QUANTITE ELSE 0 END),0) AS sortie_quantite,
|
|
COALESCE(SUM(CASE WHEN w_mvt.sens = 'S' THEN QUANTITE ELSE 0 END * w_mvt.PRIX_UNITAIRE),0) AS sortie_montant,
|
|
0 AS prix_unitaire,
|
|
COALESCE(SUM(CASE WHEN w_mvt.sens = 'E' THEN -QUANTITE ELSE QUANTITE END),0) AS stock_quantite_debut,
|
|
0 AS stock_quantite_fin,
|
|
0 AS stock_valeur_fin,
|
|
0 AS TVA,
|
|
'20991231'::date AS date_fin,
|
|
nextval('w_etat_seq'::regclass) AS etat_sequence,
|
|
2 AS orig
|
|
FROM
|
|
(
|
|
SELECT stock_id, produit_type_id
|
|
FROM w_mvt
|
|
GROUP BY 1,2
|
|
) sub
|
|
LEFT JOIN
|
|
(
|
|
SELECT stock_id, produit_type_id, (max(array[sub.id::text, prix_unitaire::text]))[2]::numeric AS prix_unitaire, count(distinct sub.id) AS qte_cur
|
|
FROM
|
|
(
|
|
SELECT
|
|
produit_type_id,
|
|
|
|
id,
|
|
(max(array[quand::text, stock_id::text]))[2]::numeric AS stock_id,
|
|
(max(array[quand::text, produit_type_etat_id::text]))[2]::numeric AS produit_type_etat_id,
|
|
(max(array[quand::text, prix_unitaire::text]))[2]::numeric AS prix_unitaire
|
|
FROM prod_expert_sante.produit
|
|
GROUP BY 1,2
|
|
) sub
|
|
JOIN prod_expert_sante.STOCK ON STOCK_ID = STOCK.ID
|
|
WHERE produit_type_etat_id = 3 AND final != 1
|
|
GROUP BY 1,2
|
|
) cur ON sub.stock_id = cur.stock_id AND sub.produit_type_id = cur.produit_type_id
|
|
LEFT JOIN w_mvt ON w_mvt.STOCK_ID = cur.STOCK_ID
|
|
AND w_mvt.PRODUIT_TYPE_ID = cur.PRODUIT_TYPE_ID
|
|
AND date_trunc('month',w_mvt.DATE) = date_trunc('month', now())
|
|
LEFT JOIN w_stock w_stock_check ON cur.STOCK_ID = w_stock_check.STOCK_ID
|
|
AND cur.PRODUIT_TYPE_ID = w_stock_check.PRODUIT_TYPE_ID
|
|
WHERE cur.stock_id IS NULL
|
|
AND w_stock_check.STOCK_ID IS NULL
|
|
GROUP BY 1,2,3,qte_cur,cur.prix_unitaire
|
|
;
|
|
|
|
|
|
UPDATE w_stock SET DATE_FIN = DATE_FIN_next
|
|
FROM (
|
|
SELECT etat_sequence, LEAD(DATE_DEBUT) OVER(PARTITION BY STOCK_ID, PRODUIT_TYPE_ID ORDER BY DATE_DEBUT) - interval '1 day' AS DATE_FIN_next
|
|
FROM w_stock
|
|
) sub
|
|
WHERE sub.etat_sequence = w_stock.etat_sequence AND
|
|
DATE_FIN_next IS NOT NULL
|
|
;
|
|
|
|
-- cumul ES
|
|
DROP TABLE IF EXISTS w_cumul;
|
|
CREATE TEMP TABLE w_cumul AS
|
|
SELECT
|
|
STOCK_ID,
|
|
PRODUIT_TYPE_ID,
|
|
date_trunc('month', DATE) AS DATE_DEBUT,
|
|
SUM(CASE WHEN SENS = 'E' THEN QUANTITE ELSE 0 END) AS entree_quantite,
|
|
SUM(CASE WHEN SENS = 'E' THEN QUANTITE ELSE 0 END * PRIX_UNITAIRE) AS entree_montant,
|
|
SUM(CASE WHEN SENS = 'S' THEN QUANTITE ELSE 0 END) AS sortie_quantite,
|
|
SUM(CASE WHEN SENS = 'S' THEN QUANTITE ELSE 0 END * PRIX_UNITAIRE) AS sortie_montant,
|
|
(MAX(ARRAY[DATE::text,PRIX_UNITAIRE::text]))[2]::numeric as PRIX_UNITAIRE,
|
|
(MAX(ARRAY[DATE::text,TVA::text]))[2]::numeric as TVA
|
|
FROM w_mvt
|
|
GROUP BY 1,2,3
|
|
;
|
|
|
|
-- ajout des mois sans inventaire
|
|
-- croissant
|
|
INSERT INTO w_stock
|
|
SELECT
|
|
w_cumul.STOCK_ID,
|
|
w_cumul.PRODUIT_TYPE_ID,
|
|
w_cumul.DATE_DEBUT,
|
|
w_cumul.entree_quantite,
|
|
w_cumul.entree_montant,
|
|
w_cumul.sortie_quantite,
|
|
w_cumul.sortie_montant,
|
|
w_cumul.PRIX_UNITAIRE,
|
|
COALESCE(w_stock_ref.stock_quantite_fin,0) + COALESCE(SUM(w_cumul.entree_quantite - w_cumul.sortie_quantite) OVER (PARTITION BY w_cumul.STOCK_ID , w_cumul.PRODUIT_TYPE_ID, w_stock_ref.etat_sequence ORDER BY w_cumul.date_debut
|
|
ROWS BETWEEN UNBOUNDED PRECEDING AND 1 PRECEDING),0),
|
|
COALESCE(w_stock_ref.stock_quantite_fin,0) + SUM(w_cumul.entree_quantite - w_cumul.sortie_quantite) OVER (PARTITION BY w_cumul.STOCK_ID , w_cumul.PRODUIT_TYPE_ID, w_stock_ref.etat_sequence ORDER BY w_cumul.date_debut),
|
|
COALESCE(w_stock_ref.stock_valeur_fin,0) + SUM(w_cumul.entree_montant - w_cumul.sortie_montant) OVER (PARTITION BY w_cumul.STOCK_ID , w_cumul.PRODUIT_TYPE_ID, w_stock_ref.etat_sequence ORDER BY w_cumul.date_debut),
|
|
w_cumul.TVA,
|
|
'20991231'::date AS date_fin,
|
|
nextval('w_etat_seq'::regclass) AS etat_sequence,
|
|
3 AS orig
|
|
FROM w_cumul
|
|
JOIN w_stock w_stock_ref ON
|
|
w_cumul.STOCK_ID = w_stock_ref.STOCK_ID
|
|
AND w_cumul.PRODUIT_TYPE_ID = w_stock_ref.PRODUIT_TYPE_ID
|
|
AND w_cumul.DATE_DEBUT BETWEEN w_stock_ref.DATE_DEBUT AND w_stock_ref.DATE_FIN
|
|
AND w_cumul.DATE_DEBUT != w_stock_ref.DATE_DEBUT
|
|
ORDER BY 1,2,3
|
|
;
|
|
|
|
-- décroissant
|
|
INSERT INTO w_stock
|
|
SELECT
|
|
w_cumul.STOCK_ID,
|
|
w_cumul.PRODUIT_TYPE_ID,
|
|
w_cumul.DATE_DEBUT,
|
|
w_cumul.entree_quantite,
|
|
w_cumul.entree_montant,
|
|
w_cumul.sortie_quantite,
|
|
w_cumul.sortie_montant,
|
|
w_cumul.PRIX_UNITAIRE,
|
|
w_stock_ref.stock_quantite_debut - COALESCE(SUM(w_cumul.entree_quantite - w_cumul.sortie_quantite) OVER (PARTITION BY w_cumul.STOCK_ID , w_cumul.PRODUIT_TYPE_ID
|
|
ORDER BY w_cumul.date_debut DESC),0),
|
|
w_stock_ref.stock_quantite_debut - COALESCE(SUM(w_cumul.entree_quantite - w_cumul.sortie_quantite) OVER (PARTITION BY w_cumul.STOCK_ID , w_cumul.PRODUIT_TYPE_ID
|
|
ORDER BY w_cumul.date_debut DESC ROWS BETWEEN UNBOUNDED PRECEDING AND 1 PRECEDING),0),
|
|
(w_stock_ref.stock_quantite_debut * w_stock_ref.prix_unitaire) - COALESCE(SUM(w_cumul.entree_montant - w_cumul.sortie_montant) OVER (PARTITION BY w_cumul.STOCK_ID, w_cumul.PRODUIT_TYPE_ID
|
|
ORDER BY w_cumul.date_debut DESC ROWS BETWEEN UNBOUNDED PRECEDING AND 1 PRECEDING),0),
|
|
w_cumul.TVA,
|
|
'20991231'::date AS date_fin,
|
|
nextval('w_etat_seq'::regclass) AS etat_sequence,
|
|
4 AS orig
|
|
FROM (
|
|
SELECT * FROM w_stock WHERE (STOCK_ID, PRODUIT_TYPE_ID, etat_sequence) IN (SELECT STOCK_ID, PRODUIT_TYPE_ID, MIN(etat_sequence) AS etat_sequence FROM w_stock GROUP BY 1,2)
|
|
) w_stock_ref
|
|
JOIN w_cumul
|
|
ON w_cumul.STOCK_ID = w_stock_ref.STOCK_ID
|
|
AND w_cumul.PRODUIT_TYPE_ID = w_stock_ref.PRODUIT_TYPE_ID
|
|
AND w_cumul.DATE_DEBUT < w_stock_ref.DATE_DEBUT
|
|
ORDER BY 1,2,3
|
|
;
|
|
|
|
UPDATE w_stock
|
|
SET prix_unitaire = w_PRODUIT_TYPE_HISTO.PRIX_UNITAIRE,
|
|
stock_valeur_fin = w_PRODUIT_TYPE_HISTO.PRIX_UNITAIRE * stock_quantite_fin
|
|
FROM w_PRODUIT_TYPE_HISTO
|
|
WHERE w_PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = w_stock.PRODUIT_TYPE_ID
|
|
AND DATE_DEBUT + interval '1 month' - interval '1 day' BETWEEN DATE_EFFET AND w_PRODUIT_TYPE_HISTO.DATE_FIN
|
|
;
|
|
|
|
|
|
UPDATE w_stock
|
|
SET tva = w_PRODUIT_TYPE_HISTO.TVA
|
|
FROM w_PRODUIT_TYPE_HISTO
|
|
WHERE w_PRODUIT_TYPE_HISTO.PRODUIT_TYPE_ID = w_stock.PRODUIT_TYPE_ID
|
|
AND DATE_DEBUT + interval '1 month' - interval '1 day' BETWEEN DATE_EFFET AND w_PRODUIT_TYPE_HISTO.DATE_FIN
|
|
AND w_stock.TVA = 0
|
|
;
|
|
|
|
TRUNCATE eco.p_stock;
|
|
|
|
INSERT INTO eco.p_stock(
|
|
article_id,
|
|
date_fin,
|
|
date_debut,
|
|
ucd_id,
|
|
lpp_id,
|
|
compte_id,
|
|
site_id,
|
|
lieu_id,
|
|
provider_id,
|
|
fournisseur_id,
|
|
stock_quantite_debut,
|
|
stock_valeur_debut,
|
|
stock_valeur_debut_ttc,
|
|
entree_quantite,
|
|
entree_montant,
|
|
pump,
|
|
sortie_quantite,
|
|
sortie_montant,
|
|
stock_quantite_fin,
|
|
stock_valeur_fin,
|
|
stock_valeur_fin_ttc)
|
|
|
|
SELECT
|
|
coalesce(t_articles.oid,0),
|
|
DATE_DEBUT + interval '1 month' - interval '1 day' AS date_fin,
|
|
DATE_DEBUT,
|
|
ucd_id,
|
|
lpp_id,
|
|
COALESCE(t_articles.compte_id,0),
|
|
COALESCE(t_sites.oid,0),
|
|
COALESCE(t_lieux.oid,0),
|
|
0::bigint AS provider_id,
|
|
t_articles.fournisseur_principal_id AS fournisseur_id,
|
|
stock_quantite_debut,
|
|
stock_quantite_debut * prix_unitaire AS stock_valeur_debut,
|
|
stock_quantite_debut * prix_unitaire * (100 + TVA)/100 AS stock_valeur_debut_ttc,
|
|
entree_quantite,
|
|
entree_montant,
|
|
PRIX_UNITAIRE,
|
|
sortie_quantite,
|
|
sortie_montant,
|
|
stock_quantite_fin,
|
|
stock_valeur_fin,
|
|
stock_valeur_fin * (100 + TVA)/100
|
|
FROM w_stock
|
|
LEFT JOIN eco.t_articles ON PRODUIT_TYPE_ID = t_articles.code_original
|
|
LEFT JOIN eco.t_lieux ON STOCK_ID = t_lieux.code_original
|
|
LEFT JOIN prod_expert_sante.STOCK_SERVICE ON STOCK_SERVICE.STOCK_ID = w_stock.STOCK_ID
|
|
LEFT JOIN eco.t_unites_fonctionnelles ON t_unites_fonctionnelles.code_original = SERVICE_ID
|
|
LEFT JOIN prod_expert_sante.SERVICE ON SERVICE.ID = SERVICE_ID
|
|
LEFT JOIN eco.t_sites ON ETAGE_ID = t_sites.code_original
|
|
JOIN prod_expert_sante.STOCK ON w_stock.STOCK_ID = STOCK.ID
|
|
WHERE DATE_DEBUT >= '[ENV_ECO_ANNEEDEBUT]0101'
|
|
/* suppression des stocks finaux */
|
|
AND FINAL != '1'
|
|
;
|
|
|
|
|
|
|
|
SELECT base.cti_execute('
|
|
INSERT INTO eco.p_stock
|
|
(
|
|
article_id,
|
|
compte_id,
|
|
ucd_id,
|
|
lpp_id,
|
|
site_id,
|
|
lieu_id,
|
|
date_debut,
|
|
date_fin,
|
|
entree_quantite,
|
|
entree_montant,
|
|
sortie_quantite,
|
|
sortie_montant,
|
|
pump,
|
|
stock_quantite_debut,
|
|
stock_quantite_fin,
|
|
stock_valeur_debut,
|
|
stock_valeur_debut_ttc,
|
|
stock_valeur_fin,
|
|
stock_valeur_fin_ttc
|
|
)
|
|
SELECT
|
|
p_stock.article_id,
|
|
p_stock.compte_id,
|
|
p_stock.ucd_id,
|
|
p_stock.lpp_id,
|
|
p_stock.site_id,
|
|
p_stock.lieu_id,
|
|
date(date_trunc(''month'',p_stock.date_debut) + interval ''1 month'') AS date_debut,
|
|
date(date_trunc(''month'',p_stock.date_debut) + interval ''2 month'' - interval ''1 day'') AS date_fin,
|
|
0 AS entree_quantite,
|
|
0 AS entree_montant,
|
|
0 AS sortie_quantite,
|
|
0 AS sortie_montant,
|
|
p_stock.pump,
|
|
p_stock.stock_quantite_fin,
|
|
p_stock.stock_quantite_fin,
|
|
p_stock.stock_valeur_fin,
|
|
p_stock.stock_valeur_fin_ttc,
|
|
p_stock.stock_valeur_fin,
|
|
p_stock.stock_valeur_fin_ttc
|
|
FROM eco.p_stock
|
|
LEFT JOIN eco.p_stock p_stock_next ON
|
|
p_stock.site_id = p_stock_next.site_id AND
|
|
p_stock.lieu_id = p_stock_next.lieu_id AND
|
|
p_stock.article_id = p_stock_next.article_id AND
|
|
p_stock.date_fin + interval ''1 day'' = p_stock_next.date_debut
|
|
WHERE
|
|
p_stock.date_debut <= now() AND
|
|
p_stock.date_fin >= ''[ENV_ECO_ANNEEDEBUT]0101'' AND
|
|
p_stock.stock_quantite_fin != 0 AND
|
|
p_stock_next.article_id IS NULL
|
|
;',100);
|
|
|
|
|
|
|
|
SELECT base.cti_execute('
|
|
INSERT INTO eco.p_stock
|
|
(
|
|
article_id,
|
|
compte_id,
|
|
ucd_id,
|
|
lpp_id,
|
|
site_id,
|
|
lieu_id,
|
|
date_debut,
|
|
date_fin,
|
|
entree_quantite,
|
|
entree_montant,
|
|
sortie_quantite,
|
|
sortie_montant,
|
|
pump,
|
|
stock_quantite_debut,
|
|
stock_quantite_fin,
|
|
stock_valeur_debut,
|
|
stock_valeur_debut_ttc,
|
|
stock_valeur_fin,
|
|
stock_valeur_fin_ttc
|
|
)
|
|
SELECT
|
|
p_stock.article_id,
|
|
p_stock.compte_id,
|
|
p_stock.ucd_id,
|
|
p_stock.lpp_id,
|
|
p_stock.site_id,
|
|
p_stock.lieu_id,
|
|
date(date_trunc(''month'',p_stock.date_debut) - interval ''1 month'') AS date_debut,
|
|
date(date_trunc(''month'',p_stock.date_debut) - interval ''1 day'') AS date_fin,
|
|
0 AS entree_quantite,
|
|
0 AS entree_montant,
|
|
0 AS sortie_quantite,
|
|
0 AS sortie_montant,
|
|
p_stock.pump,
|
|
p_stock.stock_quantite_debut,
|
|
p_stock.stock_quantite_debut,
|
|
p_stock.stock_valeur_debut,
|
|
p_stock.stock_valeur_debut_ttc,
|
|
p_stock.stock_valeur_debut,
|
|
p_stock.stock_valeur_debut_ttc
|
|
FROM eco.p_stock
|
|
LEFT JOIN eco.p_stock p_stock_prev ON
|
|
p_stock.site_id = p_stock_prev.site_id AND
|
|
p_stock.lieu_id = p_stock_prev.lieu_id AND
|
|
p_stock.article_id = p_stock_prev.article_id AND
|
|
p_stock_prev.date_fin + interval ''1 day'' = p_stock.date_debut
|
|
WHERE
|
|
p_stock.date_debut <= now() AND
|
|
p_stock.date_fin >= ''[ENV_ECO_ANNEEDEBUT]0101'' AND
|
|
p_stock.stock_quantite_debut != 0 AND
|
|
p_stock_prev.article_id IS NULL
|
|
;',100);
|
|
|
|
|
|
|
|
SELECT base.cti_enable_index('eco', 'i_stock_1');
|
|
SELECT base.cti_enable_index('eco', 'i_stock_2');
|
|
SELECT base.cti_enable_index('eco', 'i_stock_3');
|
|
SELECT base.cti_enable_index('eco', 'i_stock_4');
|
|
SELECT base.cti_enable_index('eco', 'i_stock_5');
|
|
|
|
SELECT eco.cti_update_mvt_qte_stock();
|
|
SELECT eco.cti_update_mvt_mnt_stock();
|
|
|
|
]]></sqlcmd>
|
|
</NODE>
|
|
|
|
<NODE label="Factures">
|
|
<sqlcmd><![CDATA[
|
|
|
|
|
|
|
|
|
|
]]></sqlcmd>
|
|
</NODE>
|
|
|
|
</NODE>
|
|
<NODE name="POST" label="POST-TRAITEMENTS">
|
|
<sqlcmd><![CDATA[
|
|
SELECT eco.cti_reorganize_sejour();
|
|
SELECT eco.cti_reorganize_sejour_ucd_lpp();
|
|
]]></sqlcmd>
|
|
</NODE>
|
|
|
|
</ROOT>
|