//
//Cree_fichier_stat ()
//
PROCEDURE Cree_fichier_stat()
TableDesc est une Description de Fichier
ItemDesc est une Description de Rubrique
STATS est une Source de Données
I est un entier
// Description du fichier "STATS"
TableDesc..Nom = "Stats"
TableDesc..Type = hFichierNormal
TableDesc..CryptageFic = hCryptageStandard
TableDesc..Répertoire=fRepEnCours()+"\Statistiques"
POUR TOUT Famille SUR Famille
// Description de la rubrique "NOM fAMILLE"
ItemDesc..Nom = Famille.Famille
ItemDesc..Type = hRubTexte
ItemDesc..Taille = 40
ItemDesc..TypeClé = hCléUnique
HDécritRubrique(TableDesc, ItemDesc)
FIN
// Description de la rubrique "date"
ItemDesc..Nom = "Date"
ItemDesc..Type = hRubDate8
ItemDesc..Taille = 10
ItemDesc..TypeClé = hCléDoublon
HDécritRubrique(TableDesc, ItemDesc)
// Description de la rubrique "categorie"
ItemDesc..Nom = "Catégorie"
ItemDesc..Type = hRubEntier2
ItemDesc..Taille = 1
ItemDesc..TypeClé = hCléDoublon
HDécritRubrique(TableDesc, ItemDesc)
// Valide la description du fichier
HDécritFichier(TableDesc)
...
// Création du fichier Client (reconnu car déclaré comme source de données)
HCréationSiInexistant(STATS)
//HCréatioN(STATS)
// Création d'un enregistrement
//CLIENT.NOM = "Dupont"
//CLIENT.PRENOM = "André"
//HAjoute(CLIENT)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=6135&post_id=24557