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