HLitRecherchePremier(Factures,IDFactures,4754)
Factures.Numero_Factures = Factures.Numero_Factures + "1"
HModifie(Factures)
PROCEDURE test()
SELON H.Action
CAS "A"
//AVANT
nNumFacture est un entier = Facture.Numero_Factures
HlitRecherche(Factures,IdFacture,Facture.IdFactures)
//Ici on recharge les données physiquement à partir du fichier (donc valeurs non modifiées)
//Ici Factures.numero_factures a la valeur attendue
Trace("Avant : " + Factures.Numero_Factures)
//On réapplique les modifs car le chargement les a effacées
Factures.Numero_Facture = nNumFacture
CAS "P"
//APRES
Trace("apres : " + Factures.Numero_Factures)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4330&post_id=17907