Discussion :

[MIWAN]

bonjour
j'ai bien chercher dans le web est surtout dans www.developpez.net/forums/ a trouvé une solution pour comparer deux valeurs de deux enregistrements dans les bases de données(temp et stock),on évitant la nostalgie (boucle) des années 70
en fin j'ai trouvé la procédure MiseAJourStock(); que j'ai modifie a mes besoins mais j'ai rencontré les problèmes suivants :
1- riens à afficher
2- Erreur: Expression constante attendue si je fait (Form1.ListBox1.Items.Add(Form1.T_TempVProd_VT.Value);
bien-sure je veux bien balayer toutes les enregistrements
la procédure est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
procedure MiseAJourStock2();
var
  Result: double;
QuantiteDisponible,QuantiteDemandee: double;
begin
QuantiteDisponible := form1.Q_stockSTOCK.value;
 QuantiteDemandee:=Form1.T_TempVQte_VT.Value;
if (Form1.Q_stock.recordcount> 0) then begin
  case CompareValue(QuantiteDemandee,  QuantiteDisponible) of
// Quantité demandée inférieure à celle disponible
  LessThanValue: begin
    Result := 0;
    Form1.Q_stock.edit;
    Form1.Q_stockSTOCK.value:= QuantiteDisponible-QuantiteDemandee;
    //Form1.Q_stock.post;
    Form1.Edit1.text := FloatToStr(Result);
  end;
  EqualsValue: begin
// Quantité demandée égale à celle disponible
    //Form1.Q_stock.delete;
    Result := 0;
    Form1.Edit1.text := FloatToStr(Result);
  end;
  GreaterThanValue:
// Quantité demandée supérieure à celle disponible
    Result := QuantiteDemandee-QuantiteDisponible;
 
Form1.ListBox1.Items.Add(Form1.T_TempVProd_VT.Value)
ShowMessage('des saisies de quantitées supérieure a celles du stock ');
 
 
//    MiseAJourStock2(Result);
  end;
end;
end;

[ShaiLeTroll]

Il manque un begin après GreaterThanValue
Entre le nommage, l'indentation, ... faudrait être plus rigoureux.

et une boucle c'est un classique while nof Eof do Next

[MIWAN]

Il manque un begin après GreaterThanValue [/I]

merci vraiment vous avez une Oueil de Troll

pour ma boucle classique elle fait bien le travail , mais je veux bien tester (GreaterThanValue, LessThanValue, EqualsValue) avec une boucle .

[SergioMaster]

Bonjour,

Où intervient cette notion de boucle (à part dans la nostalgie) ?
C'est vraiment très mal expliqué ! Bien sûr, avec l'historique des posts il s'agit d'ABSOLUTE DATABASE (donc un Paradox sans BDE) ce qui me fourni (avec de l'imagination) une idée de ce qui est voulu. Mais, toute cette interface utilisateur (form1, listbox, edit) me fait douter, s'agirait-il d'un programme test pour vérifier ce qui se passerait en utilisant cette procédure ?

ma réaction sur la procédure : que c'est moche comme code ! Pourquoi ? Tout d'abord j'ai horreur
- D'un code où je vois des appels à une forme un peu partout
- Des requêtes associées à une forme, un datamodule c'est mieux
puis :
- à quoi sert le test if (Form1.Q_stock.recordcount> 0) ?
- qu'est-ce que cette histoire de result ? à part une cause de confusion, on utilise result pour une fonction.

Ensuite où se trouve cette procedure (dans quelle unité ? unité indépendante ou dans l'unité de form1 ou ?) et comment est-elle utilisée ?

comment déclarerai ça ?
- en premier lieu j'en ferai une procedure (voire une fonction) dans la partie privée de Form1 ou alors au sein de l'évènement qui fait appel à cette procedure (ce qui éviterai ces Form1.)
- puis en mettant des paramètres

Code :

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

procedure MiseAJourStock2(const QuantiteDisponible,QuantiteDemandee: double);

ou en faisant une fonction

Code :

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

1
2
3
4
5
6
7
8
9
function MiseAJourStock2(const QuantiteDisponible,QuantiteDemandee: double) : Double;
begin
 Result:=0; 
 case CompareValue(QuantiteDemandee,  QuantiteDisponible) of
  LessThanValue:  Result := QuantiteDisponible-QuantiteDemandee;
  EqualsValue: result:=0; // inutile
  GreaterThanValue: Result := QuantiteDemandee-QuantiteDisponible;
end;
end;

2- Erreur: Expression constante attendue si je fait (Form1.ListBox1.Items.Add(Form1.T_TempVProd_VT.Value);

correction Form1.ListBox1.Items.Add(Form1.T_TempVProd_VT.asString) mais là encore toutes ces indications de Form1 me donne le tournis

[MIWAN]

bonjour
SergioMaster

C'est vraiment très mal expliqué !
Bien sûr, avec l'historique des posts il s'agit d'ABSOLUTE DATABASE (donc un Paradox sans BDE) ce qui me fourni (avec de l'imagination) une idée de ce qui est voulu.
Mais, toute cette interface utilisateur (form1, listbox, edit) me fait douter, s'agirait-il d'un programme test pour vérifier ce qui se passerait en utilisant cette procédure ?

on dirait que vous lisez mes pensées
1- oui c'est un programme d'essai pour introduire cette procedure( LessThanValue, EqualsValue, GreaterThanValu) dans le poste antérieur
2- pour la redondance(Form1) parce que je n'est pas encore déclarer la procedure dans la partie Type.

3- ma demande : comment introduire une boucle qui balayer les enregistrements dans la partie : GreaterThanValu ?

[SergioMaster]

on dirait que vous lisez mes pensées

J'ai surtout une bonne boule de cristal et des années d'expériences

3- ma demande : comment introduire une boucle qui balayer les enregistrements dans la partie : GreaterThanValu ?

une boucle alors qu'un simple SQL pourrait, peut-être suffire ????

Pour bien répondre, ce n'est pas tant ce pseudo code mal fagotté mais la description des deux tables et l'objectif final qu'il faudrait

[MIWAN]

description des quatre tables
1- ( t.TempV , t.Sorties ) ont les mêmes champs
2- on doit glisser déposer entres (Q_Entrees) les champs (Cd_P, produits, qte ,Unites,Prix_Vente) et la table Tempv avant d'enregistrer dans la table sorties
3- parfois on oublie de saisir la quantitée ou de saisir une quantitée plus que le stock. la je veux faire une boucle qui vérifier la quantitée saisie dans la table tempV et la quantitée disponible en stock , et s'il y'a des erreurs on l'ajoutent a une listbox1 pour pouvoir corriger .
j'ai fait cette [b]procedure[/] qui marche mais sincèrement je ne suis pas satisfait.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
procedure TForm1.MiseAJourStock();
var
  Result:Double;
QuantiteDisponible,QuantiteDemandee:Double;
begin
 QuantiteDisponible := Q_stockSTOCK.value;
 QuantiteDemandee:=T_TempVQte_VT.Value;
    if (Q_stock.recordcount> 0) then
      begin
 
         case CompareValue(QuantiteDemandee,  QuantiteDisponible) of
         // Quantité demandée inférieure à celle disponible
         LessThanValue: begin
           Result := 0;
          Edit1.text := FloatToStr(Result);
                        end;
         EqualsValue: begin
         // Quantité demandée égale à celle disponible
          Result := 0;
                      end;
         GreaterThanValue:  begin
         // Quantité demandée supérieure à celle disponible
         Result := QuantiteDemandee-QuantiteDisponible;
         Q_Stock.Filtered:=False;
         ListBox1.Clear;
         T_TempV.DisableControls; 
         Q_Stock.DisableControls;
                 try
                 Q_Stock.First;
                  while not Q_Stock.eof do
                  begin
                   T_TempV.First;
                   while not T_TempV.eof do
                   begin
                   if (T_TempV.fieldbyname('Prod_VT').asstring=
                   Q_Stock.FieldByName('Produits').asstring) AND
                  (T_TempV.fieldbyname('Qte_VT').Value>
                   Q_Stock.FieldByName('STOCK').Value)
                  then
                   begin
                    ListBox1.Clear;
                    ListBox1.Items.Add(Form1.T_TempVProd_VT.Value);
                  Break; 
 
                 T_TempV.Next; 
                 end;
                T_TempV.Next;
             end; 
               Q_Stock.Next; 
                   end;
 
       finally
       T_TempV.EnableControls;
       Q_Stock.EnableControls;
       end;
     end;
      end;
end;
end;

une boucle alors qu'un simple SQL pourrait, peut-être suffire ????

j'aimerais bien voir cette SQL si vous avez le temps.

[SergioMaster]

C'est loin d'être clair comme description de tables (ma boule de cristal doit être embuée).

description des quatre tables

je ne lis que trois noms de table t.TempV , t.Sorties et Q_Entrees et encore ce t. me gêne.

on doit glisser déposer

c'est la première fois que j'entends parler de glisser déposer dans une base de données
Je rigole mais un peu jaune, la partie interface ne m'intéresse pas, c'est uniquement la partie description des tables impliquées dans la boucle que je voulais lire
or :

( t.TempV , t.Sorties ) ont les mêmes champs

ne me dit pas quels sont les colonnes (et nom exact) de ces deux tables, ni d'ailleurs la cardinalité entre les deux (1,0 - 1,1 - 1,n)
d'ailleurs l'assertion 'même champs' est fausse si je lis le code
TempV (Prod_VT string,Qte_VT integer/float ?)
Stock(Produits string ,STOCK integer)
* à ce propos les .value ça n'aide pas à avoir le type de donnée et pire, cela peut jouer des tours avec la valeur Null

j'aimerais bien voir cette SQL si vous avez le temps.

ça je m'en doutais, en essuyant ma boule de cristal et ne prenant en compte que les cardinalités (faute d'autre terme) 1,0 ou 1-1

Code :

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

1
2
SELECT  T.Prod_VT,T.Qte_VT,S.Stock,S.Stock-T.T.Qte_VT Ecart   FROM Tempv T join STOCK S ON s.Produits=t.Prod_VT 
WHERE S.Stock<T.Qte_VT

Tellment plus simple qu'une boucle

[MIWAN]

merci de me répondre si vite merci encore a tous