Discussion :

[ghilesbdd]

Bonjour a tous, je suis debutant en delphi et actuellement en stage pratique dans une entreprise des industries de Electroménager,j'ai pour travail de concevoir une application de gestion des stocks.
mon problème est le suivant:
dans le but d'afficher les stocks disponible cad(la quantité réceptionner - la quantité livrée) et cela(group by) par article j'ai essayer avec ADOquery sauf les resultats sont faux: voila ma requête:

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT sum(qte )as total_receptionner,sum(quantité )as total_livrée,(sum(qte)-sum(quantité)) as stocks,article.code_article
from receptionner,dossier,reception,FIGURER,livraison,article
 
 
where reception.nbon_reception=receptionner.nbon_reception
and reception.code_dossier=dossier.code_dossier
and livraison.nbon_livraison=figurer.nbon_livraison
and livraison.code_dossier=dossier.code_dossier
and receptionner.code_article=article.code_article
and figurer.code_article=article.code_article
 
and dossier.code_dossier=:param1 // (l'entreprise contient 6 antenne de vente mais gérer a partir d'un seul poste) antenne=dossier 
group by article.code_article

ce qui est bizarre c qu'on effectuer les somme une par une le résultat est correct.
il y a des multiplication qui se font je sais pas pourquoi.

Merci de m'aider j'en ai vraiment besoin bonne journée a tous.

[SergioMaster]

Bonjour,

la première chose à faire serait peut être de normaliser la requête (utilisation des jointures pour les relations entre tables)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
SELECT sum(qte )as total_receptionner,sum(quantité )as total_livrée,(sum(qte)-sum(quantité)) as stocks,article.code_article
from receptionner  JOIN dossier ON ???
                         JOIN reception ON receptionner.nbon_reception=reception.nbon_reception
                         JOIN livraison ON ????
                         JOIN Article ON receptionner.code_article=article.code_article 
                         JOIN FIGURER ON receptionner.code_article=Figurer.code_article
WHERE dossier.code_dossier=:param1 
group by article.code_article

rien qu'en faisant cela j'ai eu du mal à trouver les relations tant la hiérarchie des tables est mal indiquée !

il faudrait donc tout d'abord hiérarchiser un peu ces tables !
ensuite les champs Qte et Quantité correspondent à quelle table ? c'est pas clair pour moi donc pour l'interpréteur SQL cela doit être pareil !
le mieux serait de nous fournir les descriptions de tables et la relation entre chaque

[ghilesbdd]

Mr SergioMaster je vais essayer de vous expliquer mieux mon problème

table reception(nbon_reception,date_reception,code_fournisseur,code_type_reception,code_dossier,annee)

table receptionner (nbon_reception,code_article,qte)

table article(code_article,designation,marque,prix,code_famille_article,quantite_initiale,quantite_actuelle,minimum)

table livraison(nbon_livraison,date_livraison,code_type_livraison,code_client,code_dossier)

table figurer(nbon_livraison,code_article,quantité)

table dossier(code_dossier,désignation)

mon objectif que j'essai d’atteindre en tous cas est :

avec une requête faire la somme de tous les articles receptionner sum(qte)
la somme de tous les article livée cad dans ''figurer'' sum(quantité)
et en fin la différence cad sum(qte)-sum(quantité) as stocks disponible

pour enfin afficher tous sa dans un quickreport comme suit :

code_article	total quantité_receptionner	total quantité livrée	stocks disponible(receptionner-livée)

[SergioMaster]

Mr SergioMaster je vais essayer de vous expliquer mieux mon problème

Cher étudiant (en informatique), le point essentiel dans le monde de la programmation n'est pas d'essayer de mieux expliquer mais d'exprimer clairement un problème/besoin ,
un autre serait de toujours faire au plus simple je crois

reste un point de détail (gros détail) : Quelle SGBD ? accepte t-elle les CTE ?

avec Firebird, je ferai ainsi

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
WITH fusion  AS (SELECT CODE_ARTICLE,SUM(QTE) AS QTER FROM RECEPTIONNER WHERE CODE_DOSSIER=:PARAM1 GROUP BY CODE_ARTICLE
                          UNION
                          SELECT CODE_ARTICLE,SUM(QUANTITE) AS QTEL FROM FIGURER WHERE CODE_DOSSIER=:PARAM1 GROUP BY CODE_ARTICLE)
 
SELECT CODE_ARTICLE,
           SUM(QTER) AS QTE_RECEPTIONNEE,
           SUM(QTEL) AS QTE_EXPEDIEE,
           SUM(QTER-QTEL) AS QTE_STOCK
FROM Fusion
GROUP BY CODE_ARTICLE

avec paradox je ferai à peine différemment, j'écrirai une requête

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT CODE_DOSSIER,CODE_ARTICLE,SUM(QTE) AS QTER FROM RECEPTIONNER GROUP BY CODE_DOSSIER,CODE_ARTICLE
UNION
SELECT CODE_DOSSIER,CODE_ARTICLE,SUM(QUANTITE) AS QTEL FROM FIGURER WHERE CODE_DOSSIER=:PARAM1 GROUP BY CODE_DOSSIER,CODE_ARTICLE

que j'enregistrerai dans un fichier au même endroit que mes tables par exemple fusion.sql, puis la requête dans mon code serait alors

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
SELECT CODE_ARTICLE,
           SUM(QTER) AS QTE_RECEPTIONNEE,
           SUM(QTEL) AS QTE_EXPEDIEE,
           SUM(QTER-QTEL) AS QTE_STOCK
FROM fusion.sql
WHERE CODE_DOSSIER=:PARAM1
GROUP BY CODE_ARTICLE

avantage de ces solutions les cas : Des réceptions(la table nommée RECEPTIONNER) pas d'expéditions (la table nommée FIGURER), des expéditions sans réceptions sont traités !

[ghilesbdd]

Mr ergioMaster Merci pour vos effort sauf que sa marche toujours pas pour moi malheureusement

je travail avec SQL server 2005 c vieux je sais mais j'ai pas le choix pour l'instemps et mon application est presque a terme donc je peux pas changé malheureusement car manque de temps,
voici votre requête, quand je l'execute sur sql il me donnes ses erreurs :

Msg 207, Level 16, State 1, Line 1
Nom de colonne non valide*: 'CODE_DOSSIER'.
Msg 207, Level 16, State 1, Line 3
Nom de colonne non valide*: 'CODE_DOSSIER'.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
WITH fusion  AS (SELECT CODE_ARTICLE,SUM(QTE) AS QTER FROM RECEPTIONNER WHERE CODE_DOSSIER=1 GROUP BY CODE_ARTICLE
                                        UNION
                                        SELECT CODE_ARTICLE,SUM(QUANTITé) AS QTEL FROM FIGURER WHERE CODE_DOSSIER=1 GROUP BY CODE_ARTICLE)
 
SELECT CODE_ARTICLE,
           SUM(QTER) AS QTE_RECEPTIONNEE,
           SUM(QTEL) AS QTE_EXPEDIEE,
           SUM(QTER-QTEL) AS QTE_STOCK
FROM Fusion
GROUP BY CODE_ARTICLE

et quand j'ai essayer sur delphi 7 avec ADOquery il me dit qu'il y'a un probleme avec les parametre

des informations incohérente ou incomplète on été fourni Merci encor

[SergioMaster]

Re,

c'est tout simplement parce que j'ai oublié de lier RECEPTIONNER à RECEPTION et LIVRAISON à FIGURER m'étant surtout penché sur la partie UNION
et même je m'en aperçois maintenant je me suis aussi planté dans le copier/coller du SQL (bon on est Dimanche, nul n'est parfait surtout sans un jeu d'essai en bonne et due forme grâce à des scripts de création de table et insertion de données)

un bon point quand même, même ce vieux SQL server 2005 accepte les CTE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
WITH fusion  AS (SELECT r.CODE_ARTICLE,SUM(QTE) AS QTER,0 AS QTEL FROM RECEPTIONNER r JOIN RECEPTION d ON r.nbon_reception=d.nbon_reception
                        WHERE d.CODE_DOSSIER=:PARAM1 GROUP BY CODE_ARTICLE
                        UNION
                        SELECT f.CODE_ARTICLE,0 AS QTER,SUM(f.QUANTITE) AS QTEL FROM FIGURER f JOIN LIVRAISON l ON f.nbon_livraison=l.nbon_livraison
                        WHERE l.CODE_DOSSIER=:PARAM1 GROUP BY CODE_ARTICLE)
 
SELECT CODE_ARTICLE,
           SUM(QTER) AS QTE_RECEPTIONNEE,
           SUM(QTEL) AS QTE_EXPEDIEE,
           SUM(QTER-QTEL) AS QTE_STOCK
FROM Fusion
GROUP BY CODE_ARTICLE

cette fois ça doit "coller"
reste le problème ADOQuery et les paramètres, comme je n'utilise pas ADO je ne suis pas sur que ces composants accCTEeptent qu'un paramètre soit répété
première solution : mettre PARAM1 et PARAM2
deuxième solution : modifier la CTE de façon à ajouter CODE_DOSSIER et mettre le WHERE uniquement dans la requête sur cette dernière
et enfin il faudrait vérifier les vérifier les performances

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
WITH fusion  AS (SELECT d.CODE_DOSSIER,r.CODE_ARTICLE,QTE,0 AS QTEL FROM RECEPTIONNER r JOIN RECEPTION d ON r.nbon_reception=d.nbon_reception
                UNION
                SELECT l.CODE_DOSSIER,f.CODE_ARTICLE,0 AS QTER,f.QUANTITE AS QTEL FROM FIGURER f JOIN LIVRAISON l ON f.nbon_livraison=l.nbon_livraison
               )
SELECT CODE_ARTICLE,
           SUM(QTER) AS QTE_RECEPTIONNEE,
           SUM(QTEL) AS QTE_EXPEDIEE,
           SUM(QTER-QTEL) AS QTE_STOCK
FROM Fusion
WHERE CODE_DOSSIER=:PARAM1
GROUP BY CODE_ARTICLE

en théorie la seconde augmente la taille de la table de travail (=> consommation de mémoire plus importante) et donc sera plus lente que la première proposition

[ghilesbdd]

Mr SergioMaster

côté SQL Server ça marche très bien, je vous remercie, mais côté Delphi ça ne marche toujours pas, même problème avec les paramètres même avec param1 et param2, voici un code qui marche côté Delphi mais là il fait qu'une seule somme :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
SELECT sum(quantité )as total_livrée,article.code_article
from figurer,dossier,livraison,article
 
where  livraison.nbon_livraison=figurer.nbon_livraison
 
and livraison.code_dossier=dossier.code_dossier
 
and figurer.code_article=article.code_article
 
and dossier.code_dossier=:param1
 
group by article.code_article

en espérant que ça pourrait vous aider à m'aider, merci beaucoup

[SergioMaster]

Côté Delphi, la même requête devrait fonctionner. Cela doit venir des ADO et j'ai indiqué comment faire solution 1: utiliser param1 pour le premier select de la CTE et param2 pour le second et donc faire ne conséquence OU solution 2

[ghilesbdd]

Oui oui j'ai fait exactement ce que vous avez dit ces la même chose même erreurs pour les deux solutions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
WITH fusion  AS (SELECT r.CODE_ARTICLE,SUM(QTE) AS QTER,0 AS QTEL FROM RECEPTIONNER r JOIN RECEPTION d ON r.nbon_reception=d.nbon_reception
                        WHERE d.CODE_DOSSIER=:param2 GROUP BY CODE_ARTICLE
                        UNION
                        SELECT f.CODE_ARTICLE,0 AS QTER,SUM(f.QUANTITé) AS QTEL FROM FIGURER f JOIN LIVRAISON l ON f.nbon_livraison=l.nbon_livraison
WHERE l.CODE_DOSSIER=:param2
                         GROUP BY CODE_ARTICLE)
 
SELECT CODE_ARTICLE,
           SUM(QTER) AS QTE_RECEPTIONNEE,
           SUM(QTEL) AS QTE_EXPEDIEE,
           SUM(QTER-QTEL) AS QTE_STOCK
FROM Fusion
GROUP BY CODE_ARTICLE

[SergioMaster]

Bonjour,

Oui oui j'ai fait exactement ce que vous avez dit

ben non,non ce n'est pas exactement ce que j'ai dit puisque dans votre code SQL je vois param2 deux fois au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
WITH fusion  AS (SELECT r.CODE_ARTICLE,SUM(QTE) AS QTER,0 AS QTEL FROM RECEPTIONNER r JOIN RECEPTION d ON r.nbon_reception=d.nbon_reception
                        WHERE d.CODE_DOSSIER=:param1 GROUP BY CODE_ARTICLE
                        UNION
                        SELECT f.CODE_ARTICLE,0 AS QTER,SUM(f.QUANTITé) AS QTEL FROM FIGURER f JOIN LIVRAISON l ON f.nbon_livraison=l.nbon_livraison
WHERE l.CODE_DOSSIER=:param2
                         GROUP BY CODE_ARTICLE)
 
SELECT CODE_ARTICLE,
           SUM(QTER) AS QTE_RECEPTIONNEE,
           SUM(QTEL) AS QTE_EXPEDIEE,
           SUM(QTER-QTEL) AS QTE_STOCK
FROM Fusion
GROUP BY CODE_ARTICLE

Autre chose qui m’inquiète c'est le "é" de QUANTITé , D7 n'est pas UNICODE je ne sais pas si le nom du champ sera bien traité par l'interpréteur SQL
Et enfin vous n'avez mis que le code SQL de la requête sans montrer le code Delphi ! un paramètre d'une requête ADO, je crois me souvenir (j'ai très peu utilisé ADO) qu'il faut le définir

je ferais quelque chose de ce genre, sans certitude (encore une fois ADO et moi = 2, ADO n'est pas ma tasse de thé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
with aADOQuery do 
 begin
    Active := False;
    // remplir le SQL s'il n'est pas dans le composant
    SQL.Clear;
    SQL.Add(....);
    SQL.Add(...);
    Parameters.ParamByName('param1').datatype:=ftinteger; 
    Parameters.ParamByName('Param1').asString:='1'; // ou si numérique Parameters.ParamByName('Param1').asInteger:=1;  
    ....
    if not prepared then prepared:=true; 
    Active:=true;
 end;

il y a de nombreuses manières de passer/déclarer des paramètres avec ADO , faciles à trouver sur internet
aide "officielle"

[ghilesbdd]

non c'etait juste une erreur de frappe avec param2 et param2 lol
donc finalement le problème c’était le type des paramètres qui devait etre integer au lieux de inconnu ,voila je vous remerci infiniment j'ai enfin pue terminé mon projet a temps .bonne soiret et bon courage Mr Sergio Master