Discussion :

[Zizou7]

Merci,
J'ai une situation embarrassante en delphi7:
C'est comment faire une comparaison sur deux champs qui ne se trouvent pas sur la même fiche(feuille) c'est_à_dire le champ Reste_à_payer Sinistre et le champ montant_payer qui est sur la fiche reglement, le champ Provision_Initiale qui est sur la fiche Sinistre et le champ Mont_payer qui est sur la fiche reglement.

Explication: on doit faire de telle sorte que le montant à payer ne soit pas superieur à la provision_initiale et si tout n'est pas payer faire la difference entre le reste à payer et le montant payer pour la phase suivante.
Celui ou celle qui à une idée sera la bienvenue.
Merci par avance.
Zizou7.

NB:J'ai fait une requête me pertant d'afficher dès le choix de la refference de la fiche sinistre sur la fiche Reglement les élements suivants:
Provision_Initiale,Montant_Payer et le Reste_A_payer.
Mais je n'arrive pas à empêcher à l'utilisateur de payer un montant superieur au Reste_A_Payer et à la Provision_Initiale.
Merci.

[teach]

Tous les champs dont tu parles sont ils renseignés dans une même table.
Pourrais donner un bout de ta requête ?

[ShaiLeTroll]

Vous connaissez la POO ?
Modularité ? Ré-utilisabilité ?
On n'utilise pas des données d'une Autre Fiche, c'est n'est qu'une vue qui affiche un objet (le DataSet par exemple), c'est l'objet qu'il faut échanger entre les vues ... le mieux étant d'avoir un objet métier qui s'occupe de tout le WorkFlow et de controler les valeurs saisies ...

Delphi ne se limite à un IDE ou l'on y pose des Boutons et Edit !
C'est aussi un langage objet sur lequel on peut appliquer des méthodes des développements comme les DesignPatterns !

Une Bonne Architecture Objet résoud ce type de problématique (qui n'en est pas une pour un programmeur POO)

[Zizou7]

J'ai compris ce que vous venez de dire, mais le problème est que j'utilise le Datasource et le TTable sur un DataModule. Donc toutes les fiches et leurs Datasource et TTable sont sur le même DataModule.

Mais dès que j'essaye d'utiliser par exemple un code dans une propriété Beforepost d'un Datasource, ça ne marche pas.
Je ne sais vraiment pas comment le faire.

Aidez moi s'il vous plaît.
Je vous remerci par avance.
Zizou7.
NB Si vous pouvez me donné un code exemple,me ferait plaisir.

[ShaiLeTroll]

C'est ce que je disais, le TDataModule est un piège monstreux, c'est typiquement ce que j'appelle le Clicodrome !

le BeforePost c'est sur le DataSet !

Pour le DataSource, il y a
OnDataChange
OnStateChange
OnUpdateData

Tu veux gérer le contrôle de tes valeurs lors du BeforePost, c'est une solution, du coup, l'évènement est global à toute l'application et il faut veiller que toutes les ressources nécessaires existent, donc ne pas dépendre de fenêtre mais que de composant présent dans le DataModule !

ça ne marche pas.

Quel est le problème, soit plus précis, ...

Oublie les objets TForm dans ta problématique, seul les DataSet sont importants

Code :

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

1
2
3
if TableSinistre.FieldByName('Reste_à_payer').AsFloat > TableSinistre.FieldByName('Provision_Initiale').AsFloat then
  Abort;
...

[Zizou7]

Merci pour votre reponse.
Mais le champ Provision_Initiale est sur une autre table(table tsinistre) et le champ Montant_Payer sur une autre(table tpayement).
J'aimerais savoir s'il faut faire la comparaison sur le Datasource de la table payement?
Ensuite le reste_A_Payer est un champ calculé donc c'est sur une requête que j'obtiens cela.
Merci par avance.
Zizou7.