Discussion :

[franckmichael]

bonjour je sollicite votre aide sur un code qui me fatigue.dans mon projet j'ai créé une table versement pour enregistrer les versement de scolarité qu'un élève effectue au cours d'une année scolaire.la scolarité à payer est ajouter depuis ma fenêtre inscription.j'ai mis une combo sur ma fenêtre versement pour sélectionner le matricule de l'élève qui vient payer sa scolarité et à partir du numero matricule sélectionné les autres information tel que montant à payer et montant restant, scolarité totale s'affiche dans leurs champs concerné.
mon problème est que lorsqu'un élève vient payé une partie de sa scolarité automatiquement la scolarité totale = montant restant de sorte qu'au prochain payement lorsque je sélectionne son numero matricule les champs affcihe les dernière modification.je n'y arrive pas parce que c'est toujours la prémière enregistrement qui s'affiche lorsque je sélectionne le numéro matricule
j'ai besoin d 'aide
voici le code qui se trouve sous ma combo :
HLitRecherche(versement,Matricule,TABLE_Versement.COL_Matricule)
SI HTrouve(versement)=Vrai ALORS
SAI_Mtt_a_versé=SAI_Mtt_restant
FichierVersEcran()
FIN
et voici le code qui se trouve sous mon bouton de validation:
SI x=Vrai ALORS
HAjoute(versement)
TableAffiche(TABLE_Versement,taCourantEnreg)
Info("enregistrement effectué")
RAZ()

FIN
HLitRecherche(versement,Matricule,TABLE_Versement.COL_Matricule)
SI HTrouve(versement)=Vrai ALORS
SAI_Mtt_a_versé=TABLE_Versement.COL_Mtt_restant
FIN
j'ai besoin de votre expertise car je suis debutant en programmation et je fais aussi mes prémier pas en windev

[tatayo]

Bonjour,
Dans le code, la recherche porte uniquement sur le numéro de matricule. Donc la recherche renvoie tous les versement pour un matricule, suivant un ordre "indéfini" (en fait c'est le moteur qui choisit l'ordre).

Il faut modifier la recherche des versement pour ajouter un critère sur la date.
Via une requête, c'est simple:

Code sql :

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

1
2
3
4
5
 
select t1.*
from Latable t1
left outer join LaTable t2 on t1.matricule = t2.matricule and t2.datesaisie > t1.datesaisie
where t2.matricule is null

Tatayo.