Re: TableEnregistre() ??!!! |
Sujet: Re: TableEnregistre() ??!!! par Machou43 sur 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) |