Ce bout de code permet d'éviter de poser des questions aux utilisateurs. Questions auxquelles ils ne peuvent répondre bien souvent. La raison est simple : lors qu'ils ont une bonne pratique du logiciel, ils ont quelques difficultés à dire les actions qu'ils ont exécutées ce qui est tout à fait normal. Pour éviter de faire de la PTAO (Perte de Temps Assisté par Ordinateur) il suffit d'inclure : le .VCX dans le formulaire à 'problèmes' et d'insérer le code qui appelle les fonction du VCX. Vous aurez les traces que vous souhaitez sous forme de table ou de fichier texte. Le contenu : la date, l'heure, l'utilisateur, la table en cours, le n° d'enregistrement, du texte libre. Libre à vous de modifier le contenu générer. Roland
Code source :
Dans l'INIT du Formulaire
------------------------------ ********************************************************************************************** * * .Axtion = C - Création | A - Ajout * * * .Rpertoire = Nom complet du répertoire où envoyer le fichier LOG * * (Le répertoire par défaut est celui de l'application) * * * .Machine = Identification de la machine ou nom de l'utilisateur * * * .FileName = Nom du fichier LOG * * * (Traceur.LOG par défaut) * * * .Texte = Contenu de votre message, info, commentaires etc.... * * * .Typefichier = DBF pour une Table | TXT pour un fichier texte * * * (DBF par défaut) * ********************************************************************************************** *
* ********************************************** * * Exemple pour générer un fichier texte * ********************************************** * *!* WITH ThisForm.Vfplog1 *!* .Action = "S" *!* .TypeFichier = "DBF" *!* .Generate() *!* EndWITH *!* WITH ThisForm.Vfplog1 *!* .Action = "S" *!* .Texte = "" *!* .TypeFichier = "TXT" *!* .Generate() *!* EndWITH *!* WITH ThisForm.Vfplog1 *!* .Action = "C" *!* .Repertoire = "" && Celui de l'appli par défaut *!* .Machine = "Tartampion" *!* .FileName = "" && Par défaut "Traceur.log" *!* .TypeFichier = "TXT" *!* .Generate() *!* EndWITH *!* WITH ThisForm.Vfplog1 *!* .Action = "A" *!* .Texte = "Initialisation du formulaire "+PROGRAM(0) *!* .Generate() *!* EndWITH
* ********************************************** * * Exemple pour générer une table * ********************************************** *
WITH ThisForm.Vfplog1
.Action = "S"
.TypeFichier = "DBF"
.Generate()
EndWITH
WITH ThisForm.Vfplog1
.Action = "S"
.Texte = ""
.TypeFichier = "TXT"
.Generate()
EndWITH
WITH ThisForm.Vfplog1
.Action = "C"
.Repertoire = "" && Celui de l'appli par défaut
.Machine = "Roland"
.FileName = "" && Par défaut "Traceur.log"
.TypeFichier = "DBF"
.Generate()
EndWITH
WITH ThisForm.Vfplog1
.Action = "A"
.Texte = "Initialisation du formulaire "+PROGRAM(0)
.Generate()
EndWITH
Par exemple - Dans la procédure Click d'un bouton
------------------------------------------------- ********************************************************************************************** * * .Axtion = C - Création | A - Ajout * * * .Rpertoire = Nom complet du répertoire où envoyer le fichier LOG * * * (Le répertoire par défaut est celui de 'application) * * * .Machine = Identification de la machine ou nom de l'utilisateur * * * .FileName = Nom du fichier LOG * * * (Traceur.LOG par défaut) * * .Texte = Contenu de votre message, info, commentaires etc.... * * * .Typefichier = DBF pour une Table | TXT pour un fichier texte * * * (DBF par défaut) * ********************************************************************************************** *
* ********************************************** * * Exemple pour ajouter une info au fichier Texte * ********************************************** * WITHThisForm.Vfplog1
.Action = "A"
.Texte = This.Name+" - "+This.Caption
.Generate() EndWITH
* ********************************************** * * Exemple pour ajouter un enreg à la table * ********************************************** * *!* WITH ThisForm.Vfplog1 *!* .Action = "A" *!* .Texte = This.Name+" - "+This.Caption *!* .Generate() *!* EndWITH