Re: TableEnregistre() ??!!!

Posté par Machou43 le 19/9/2006 14:29:33

Autre solution qui marche :

Pour i = 1 a TableOccurence(maTable,ToTotal)
HLitRecherchePremier(MonFichier,MaClé,MaTable.ColClé)
si pas htrouve(MonFichier) ALORS
Erreur("Impossible de trouver l'enregistrement :" + MaTable.MaClé)
TRACE("Enregistrement non trouvé : " + MaTable.MaClé)
SINON
MaTable.DateFacture = datesys()
SI PAS HModifie(MonFichier) ALORS
Erreur("Erreur de modification : " + MaTable.MaClé)
TRACE("Impossible de modifier l'enregistrement : " + MaTable.MaClé)
FIN
FIN
//** Actualisation de la table fichier **
TableAffiche(MaTable,TaDébut)