Message de rapport:
 

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)
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2