Frank19
Messages postés65Date d'inscriptionmardi 27 novembre 2001StatutMembreDernière intervention24 juin 2010
-
24 févr. 2003 à 21:29
sorinfo
Messages postés9Date d'inscriptionsamedi 21 janvier 2006StatutMembreDernière intervention19 avril 2006
-
19 avril 2006 à 16:21
Je recherche quelque chose de semblable au maskedit pour faire la saisie d'un montant d'argent.
De plus, si c'est possible, il serait interessant que le type de donnée soit compatible avec un champs de ma BD qui est en Paradox 7
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 24 févr. 2003 à 21:33
Pourquoi ne pas déclarer ton champ de type monétaire directement ?
"De plus, si c'est possible, il serait interessant que le type de donnée soit compatible avec un champs de ma BD qui est en Paradox 7" : le type de donnée est défini au niveau de la table et non au niveau du contrôle de saisie.
May Delphi be with you
Frank19
Messages postés65Date d'inscriptionmardi 27 novembre 2001StatutMembreDernière intervention24 juin 2010 24 févr. 2003 à 21:43
ouais ben dans ma base de donnée le champs est de type monétaire
le trouble c'ESt que jveux pas que l'usager entre n'importe quoi dans le edit1.text ou un maskedit1.text ou n'importe quoi d'autre ( TCurrency ?! jai vu sa mais jle trouve pas )
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 12 mars 2006 à 22:56
Sorinfo : Pour les champs affichant un champ monétaire, modifie la propriété DisplayFormat dans le composant orienté données (TTable, TQuery ou équivalent) en lui affectant un format tel que : #0.00;-#0.00
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 15 mars 2006 à 21:59
Primo : ma réponse précédente a été faite de mémoire et ma mémoire a...buggé !
Il fallait lire : ,0.00;-,0.00
Deuxio : le formatage permet de s'affranchir de l'utilisation de TMaskEdit, toujours un peu lourd et pas approprié pour lier à un ensemble de données. Les champs disposent d'évènements OnGetText et OnSetText qui remplacent avantageusement un composant TMaskEdit.
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
sorinfo
Messages postés9Date d'inscriptionsamedi 21 janvier 2006StatutMembreDernière intervention19 avril 2006 19 mars 2006 à 16:33
comment faire la liaison entre les champs de Tdbgrid et les maskedit sachant que ils ont de la même table parceque quand j'ai formater les champs de dbgrid les chaps de maskedit sont restés tels qu'ils est. Merçi !
sorinfo
Messages postés9Date d'inscriptionsamedi 21 janvier 2006StatutMembreDernière intervention19 avril 2006 17 avril 2006 à 20:52
premierement, je vous remerciez pour votre aide sur le champ monétaire j'ai reussi à formater ces champ mais quand j'ai fai les calcules si desous:
procedure Tmaj_prod.CalculPrixAchatHT;
Begin
MaskEditPrixAchatHT.text:= Currtostr(strtocurr(MaskEditPrixAchatTTC.Text)
/(1+strtocurr(TauxTVA.text)/100));
End;
Procedure Tmaj_prod.CalculPrixAchatTTC;
Begin
MaskEditPrixAchatTTC.text:= Currtostr(strtocurr(MaskEditPrixAchatHT.Text)
+strtocurr(MaskEditMontantTVAAchat.Text));
End;
Procedure Tmaj_prod.CalculMontantTVAAchat;
Begin
MaskEditMontantTVAAchat.text:=Currtostr(strtocurr(MaskEditPrixAchatHT.Text)
*strtocurr(TauxTVA.text)/100);
End;
Procedure Tmaj_prod.CalculMontantTVAVente;
Begin
MaskEditMontantTVAVente.text:=Currtostr(strtocurr(MaskEditPrixVenteHT.Text)
*strtocurr(TauxTVA.text)/100);
End;
le message suivant s'affiche: le nombre que vous avez saisi n'est pas en vergule flottante