Discussion :

[mokrane20yy]

Bonjour,

Je suis sous Paradox et Delphi 7. Je dois calculer le stock réel, disposant de :

1. stock initial dans la table Article
2. quantité vendue dans la table ligne facture vente
3. quantité achetée dans la table ligne facture achat

Merci pour vos pistes.

[aminefr1910]

ouvre les tables puis tu te positionne sur l'article en question en utilisant findkey sur les trois table.

Code :

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

1
2
3
4
5
article.active := true;
if Article.findkey() then
  Stock_initial := article.quantité
else
  Stock_initial :=0; // dans le cas ou cette article n'existe pas (par mesure de sécurité)

même chose pour les autre table puis tu fait

quantité achetée + Stock_initial - quantité vendue // quantité restante

[SergioMaster]

@aminefr1910 je ta réponse car incomplète , il semble évident que pour les quantités vendues ou achetées il n'y aura certainement pas qu'un seule ligne .
une recherche par table ne suffit donc pas .
il faut utiliser des querys pour récupérer les valeurs Total Quantité Achetées et Total Quantité Vendues

Code SQL :

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

1
2
3
4
 
 SELECT SUM(QUANTITE) AS ACHETES FROM LIGNEFACTUREVENTE WHERE CODE_ARTICLE=:CODE 
et
 SELECT SUM(QUANTITE) AS VENDUES FROM LIGNEFACTUREACHAT WHERE CODE_ARTICLE=:CODE

Paradox est hélas bien limité comme SGBD (il lui manque le R de relationnel ) , ce qui pourrait se faire en un seul SQL avec d'autre SGBDR se fera beaucoup plus difficilement de la même manière avec Paradox

[SergioMaster]

Soit les tables

ARTICLE - CODE ALPHA,QI INTEGER;
ACHATS - CODE ALPHA,QA INTEGER; 0 à n Achats pour un Article
VENTES - CODE ALPHA,QV INTEGER; 0 à n Ventes pour un Article

ARTICLE
'1',10
'2',5
'3',2
ACHATS
'1',20
'1',4
'2',1
VENTES
'1',2
'1',4
'1',5
'1',1

Voici avec une Query le moyen d'obtenir les différentes Quantités pour le calcul du stock

Code SQL :

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

1
2
3
4
5
 
SELECT CODE,QI, (SELECT SUM(QA) FROM ACHATS WHERE CODE='1') AS SUMACHATS,
(SELECT SUM(QV)FROM VENTES WHERE CODE='1') AS SUMVENTES
FROM ARTICLE 
WHERE CODE='1'

on obtient :
CODE - QI - SUMACHATS - SUMVENTES
'1' - 10 - 24,00 - 12,00

une autre approche est d'utiliser une sorte de vue Paradox, c'est à dire utiliser un Texte SQL qui se trouvera dans le même endroit que les tables et sera utilisée comme une table intermédiaire (fonctionnalité peu connue)

SELECT CODE,SUM(QA) AS N FROM ACHATS GROUP BY CODE
UNION
SELECT CODE,SUM(QV*-1) AS N FROM VENTES GROUP BY CODE

la query devient alors

Code SQL :

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

1
2
3
 
SELECT A.CODE,A.QI,SUM(M.N) AS MVTS FROM ARTICLE A LEFT JOIN MOUVS.SQL M ON A.CODE=M.CODE
GROUP BY A.CODE,A.QI

Ce qui permet d'obtenir tous les articles
CODE - QI - MVTS
'1' - 10 - 12,00
'2' - 5 - 1,00
'3' - 2 -

malheureusement Paradox ne connaissant pas des clauses comme COALESCE il n'est pas possible de faire le calcul du Stock directement , sauf à utiliser la manière suivante

Code SQL :

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

1
2
3
4
5
6
7
8
9
 
-- Pas de mouvement
SELECT A.CODE,A.QI  AS STOCK FROM ARTICLE A LEFT JOIN MOUVS.SQL M ON A.CODE=M.CODE
WHERE M.N IS NULL
UNION
-- à minima un mouvement
SELECT A.CODE,A.QI+SUM(M.N) FROM ARTICLE A LEFT JOIN MOUVS.SQL M ON A.CODE=M.CODE
WHERE M.N IS NOT NULL
GROUP BY A.CODE,A.QI

CODE - STOCK
'1' - 22
'2' - 6
'3' - 2

J’espère que cela convaincra les lecteurs qu'utiliser le SQL peut s’avérer intéressant