Discussion :

[smail21]

Bonjour à tous!
je développe une application de gestion de stock d'un magasin, et ce qui m'interesse c'est d'afficher une allerte et une liste de produits qui leur reste 10jours(par exemple) avant la date de péremption
donc j'ai un champs dans la table du stock qui m'indique pour chque produit la date de péremption, soit ce champs "Datep".
donc je voudrais savoir comment le faire!
en, général on utilise un code long comme le jour qui compare les mosi et les jours....
y'a t-il un autre moyen de le faire!?
merci

[qi130]

ca peut dépendre du SGBD que tu utilises....

Par exemple, avec MySQL, il y a la fonction DATEDIFF.

[smail21]

j'utilise des tables paradox

[yam49]

Dans la plupart de sgbd, les dates sont des entoers indiquant le nombre de jour ecoulé depuis une date de reference choisi par le sgbd

Il suffit donc de faire une soustraction entre deux dates et d'ajouter 1 pour avoir le nombre de jour

[Rayek]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
With [Query] do
begin
  Close;
  SQL.Clear;
  SQL.Add('Select * from [TATABLE]');
  SQL.Add('where DateP between (:PDebut and :PFin)');
  ParamCheck := True;
  [Params/Parameters/etc].ParamByName('PDebut').Value := Now;
  [Params/Parameters/etc].ParamByName('PFin').Value := Now + 10;
  Open;
end;

Ca permet de récupérer la liste pour les dates entre aujourd'hui et aujourd'hui + 10 jours.

Code à tester ou a modifier selon le type de données à devoir envoyer en SQL au niveau de paradox (surtout pour les dates)
Enfin si c'est ce que tu veux récupérer.

si between fonctionne pas ecrire à la place :

Code :

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

1
2
3
 
  SQL.Add('where DateP >= :PDebut');
  SQL.Add('and DateP <= :PFin');

PS: entre [] c'est selon le type de composants que tu utilises ou des données à modifier

[smail21]

c'est bon j'ai trouvé la solution:
voici la requete (contenu du Tquery nommé Qexp:

Code :

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

1
2
3
SELECT Pbrecept.Num_br As Num_Bon, Pbrecept.Code_pro As Code_produit, Article.Design As Désignation, Article.Um AS Unité_Mesure,Pbrecept.Qt As Quantité, Pbrecept.Exp As Date_péremption
FROM "pbrecept.DB" Pbrecept, "article.DB" Article
WHERE ( Article.Code_pro = Pbrecept.Code_pro) and ( Pbrecept."Exp">=:PDebut) and  (Pbrecept."Exp"<=:PFin)

et le code du bouton qui affecte les valeurs de séection aux paramètre de cette requette :

Code :

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

1
2
3
4
  Qexp.Active:=False;
  Qexp.Params[0].Asdatetime :=now;
  Qexp.Params[1].Asdatetime :=now+10;
  Qexp.Active:=True;

Qexp est le Tquery utilisé!

Merci Malatar pour ton aide précieuse et aux autres aussi