Discussion :

[smail21]

Bonjour;
mon problem c'est que j'avais , en cliquant sur un bouton, l'edition d'un bon d'entrée, c'est à dire les articles, leurs prix, quantité, et je leur calculait le monatant avant l'affichage, et ça marché, maintenant, ça ne march epas, et j'ai un message d'erreur qui dit que ma table n'ete pas en mode d'edition ou d'insertion malgrè qu'elle est active et voici le bout de code où le probleme se situe :

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
 
 art_entree.first;
 montantee:=0;
 nb_arte:=0;
while not art_entree.Eof do
 begin
  monte:=0;
  monte:=(art_entree.fieldbyname('prix').ascurrency*art_entree.fieldbyname('qt').asinteger);
 
  art_entree.edit;
  art_entree.fieldbyname('Montant').ascurrency:=monte;
  art_entree.post;
   montantee:=montantee+monte;
  nb_arte:=nb_arte+1;
  art_entree.next;
 end;

trouvez moi la faille

[rv66]

Il y a que ça, pas de traitement sur les évènements pas de datasource rataché, pas de filtre. Rien d'autre !

[smail21]

mais si y'a des datasources et des évenements rataché! sison comment ej pourais faire des traitement sur la base de données.

[neilbgr]

Est-ce que ajouter un champ calculé te dit quelquechose ?

Car, à mon avis, c'est exactement ce que tu cherches à faire..non ?

Si oui,

• double-clique sur ton composant nommé art_entree.
  La fenetre de champs de ton composant apparait.
  Clique droite dedans puis "Nouveaux champs"
  Nomme ton champ (par ex: Montant), mets bien le type (ex: Currency) que tu veux
  Choisis bien Type de champ: Calculé
  Clique OK

ensuite

Ton composant nommé art_entree a probablement l'évenement OnCalcFields()
Tu l'implémentes en y mettant un code dansle genre :

Code :

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

1
2
3
4
procedure TForm1.art_entreeCalcFields(DataSet: TDataSet);
begin
  art_entreeMontant.Value := art_entree.FieldByName('prix').AsCurrency*art_entree.FieldByName('qt').AsInteger;
end;

Assures-toi également que la property AutoCalcFields vaut True à ton compo.

Ainsi, tu a une colonne en plus qui n'existe bien pas dans la base de données mais qui se calcul toute seule qd il le faut. Et ce nouveau champ, tu peux y accéder comme les autres :

• art_entree.FieldByName('Montant').AsCeQueTuVeux
  ou bien
  art_entreeMontant.AsCeQueTuVeux

[mico2]

Non Neilbgr ! il dit que son problème est un message d'erreur.

smail : Est-ce-que ton message d'erreur apparaît bien lors du

Code :

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

1
2
 
art_entree.post;

Si oui, mets un point d'arrêt sur la ligne précédente et passes en mode pas à pas approfondi. Rregardes si, par hasard tu n'effectuerais pas des traitements dans des évènements tels que OnBeforePost.

J'ai déja eu ce genre de problème qui était provoqué par un appel à la méthode locate dans une procédure que j'ignorais éxécuter à ce moment là.
La table repassait en mode dsBrowse avant que le post ne se produise d'où le message d'erreur.

[neilbgr]

Certes, smail a une exception lors du post...

Simplement, le code qu'il y fait avant le post pourrait etre largement éviter, donc cela permettrait de ne plus avoir de pb lors du post...
En gros, y a pas besoin de poster un truc qui pourrait ce faire presque tout seul.

De plus, un champ Total, Montant, etc, en BDD est pas forcement indispensable, autrement, soit on fait la technique susdite, soit on fait un vrai champ calculé mais dans la BDD cette fois ci...

[smail21]

neilbgr, merci pour cete nouvelle information que j'expoilterai à l'avenir!
mais j'ai réglé mon probleme autrement!

mico : effectivement le probleme etait au art_entree.post et j'ai des locate mais je ne crois pas que c'est la source du probleme
merci à tout le deux