Hyper File

// Clic sur le bouton "Ajouter"
EcranVersFichier ()
HAjoute ( Client )
SI HDoublon () ALORS Erreur ( "Ce numéro existe déjà" )

// Gère les espaces significatifs (ajoute des espaces)
// pour tous les fichiers
EspaceSignificatif ( Vrai )

HLitRecherchePremier(CLIENT, NOM, "PAUL")
SI hTrouve() ALORS
    FichierVersEcran ()
FIN
// Lecture de l'enregistrement et
// transfert des rubriques vers les champs
HLitPremier(CLIENT, NOM)
FichierVersEcran

HLitRecherchePremier(CLIENT, NOM, "PAUL")
SI HTTrouve() ALORS
  FichierVersPage ()
FIN

// Lecture de l'enregistrement et
// transfert des rubriques vers les champs
HLitPremier(CLIENT,NOM)
FichierVersPage

// Déclaration du filtre :sélection des clients
// qui ont entre 20 et 60 ans
HFiltre (CLIENT,AGE,20,60)
...
HDésactiveFiltre(CLIENT) // Filtre désactivé
...
// Parcours du fichier avec filtre sur l'âge
// Traitement des clients qui ont entre 20 et 60 ans
// (procédure TraiteClient2060)
HActiveFiltre (CLIENT)
HLitPremier(CLIENT,AGE)
TANTQUE HTrouve(CLIENT)
   TraiteClient2060()
   HLitSuivant(CLIENT,AGE)
FIN

// Activation de tous les filtres auto possible du fichier CLIENT
HActiveFiltreAuto ("CLIENT", "*" )
// sauf entre CLIENT et COMMANDE
HDesactiveFiltreAuto ("CLIENT", "COMMANDE" )

/////////////////////////////

// Parcours des commandes
HLitPremier("COMMANDE", "IDCOMMANDE")
TANTQUE PAS HEnDehors()
// parcours les ligne de commande de la commande en cours
     HLitPremier("LIGNECOMMANDE", "IDCOMMANDE")
     TANTQUE PAS HEnDehors()
         HLitSuivant("LIGNECOMMANDE", "IDCOMMANDE")
     FIN
    // Commande suivante
    HLitSuivant("COMMANDE", "IDCOMMANDE")
FIN

// Ajout d'un enregistrement dans un fichier
// (enregistrement décrit par programmation)
Client.Nom = "Moulin"
Client.Prenom = "François"
Client.Adresse = "Impasse de la belle"
Client.Ville = "Montpellier"
Client.CodeP = "34000"
Client.Pays = "France"
HAjoute (Client)

// Ajout d'un enregistrement saisi dans une fenêtre
// dans le fichier Client
EcranVersFichier()

HAjoute (Client)

Commande2000 est une source de données
// Création d'un alias du fichier COMMANDE
SI HAlias (Commande,Commande2000)= Vrai ALORS
   // Commande2000 peut maintenant être utilisé
   // dans les traitements.
   // Il se comporte comme le fichier COMMANDE
   // décrit dans l'analyse.
   // Nom du fichier physique associé :
   // nom par défaut Commande2000.
   HCréationSiInexistant(Commande2000)
FIN

// Recherche des clients à partir du client "Martin"
HLitRecherchePremier(CLIENT,Nom,"Martin")
SI HTrouve(CLIENT) = Vrai ALORS
   // Elément trouvé : on annule la recherche
   HAnnuleRecherche (Client, Nom)
   SI ErreurDétecté = Vrai ALORS
      Erreur(HErreurInfo())
      RETOUR
   FIN
   TANTQUE hEnDehors(CLIENT) = Faux
       // Traitement
       ...
       // Lecture du suivant sans utiliser le critère de recherche
       HLitSuivant(Client, Nom)
    FIN
FIN

// Attache une image à l'enregistrement
HAttacheMémo (Produit,Img_Produit,"C:\Images\Produit1.bmp", hMémoImg )
// Transfère le contenu des champs dans le buffer du fichier
EcranVersFichier()
// Ajoute l'enregistrement
HAjoute(Produit)

// Avance jusqu'au 2000ième enregistrement
// du fichier CLIENT selon la clé NOMCLI
HLitPremier(CLIENT, NOMCLI)
HAvance (CLIENT, NOMCLI, 1999 )

// Test du compte rendu de la fonction HAvance
// Avance jusqu'au 2000ième enregistrement
// du fichier CLIENT selon la clé NOMCLI
HLitPremier(CLIENT, NOMCLI)
SI HAvance (CLIENT, NOMCLI, 1999, HBlocageEcriture )= Faux ALORS
    SI HErreurBlocage() ALORS
        Info("Cet enregistrement est en cours d'utilisation")
   SINON
      Erreur(HErreurInfo())
   FIN
FIN

// Blocage du fichier CLIENT
SI HBloqueFichier (CLIENT, HBlocageLectureEcriture )= Faux ALORS

   SI HErreurBlocage() = Vrai ALORS
      E rreur("Opération impossible")

// Blocage d'un enregistrement du fichier CLIENT
HBloqueNumEnr ( CLIENT , hNumEnrEnCours , hBlocageLectureEcriture )
// Traitement sur l' enregistrement
...
// Redonner l'accès à l'enregistrement
HDébloqueNumEnr ()

// Changement de la clé de parcours
SI PAS HChangeClé (CLIENT,NOM) ALORS
   Erreur("Sélectionnez un client dans la table")
FIN

// Décrire la nouvelle connexion
HDécritConnexion ("MaConnexion", "", "",...
                             "Serveur_SQLServer", "dbo", hOledbSQLServer , HOLectureEcriture , "")

// Ouvrir la nouvelle connexion
HOuvreConnexion("MaConnexion")

// Indiquer que "Salaires" utilise la nouvelle connexion
HChangeConnexion ("salaires", "MaConnexion")

// commencer le parcours de la table "salaires" sur SQLServer
HLitPremier("salaires")
...
// Fermer la connexion
HFermeConnexion("Salaire")

// Rétablir l'utilisation de la connexion sur Oracle
HChangeConnexion ("salaires", "")

//ouvrir la table "salaires" sur Oracle
HOuvre("salaires")

// Recherche des fichiers dans les Bibliothèques 4, 6, et 9
HChangeLocalisation ( Fichier , hWDL , 4 , 6 , 9 )

// Création du fichier Stat dans le répertoire
// C:\Statistiques\Janvier
HChangeRep ( Stat , "C:\Statistiques\Janvier" )
HCréation ( Stat )

// Remplacement de la base de données à utiliser pour la table "clients"
HChangeRep ( Clients , "C:\Temp\MaDBTest.mdb" )
HCréation ( Clients )
// La table "clients" a été créée dans la base de données "c:\temp\madbtest.mdb"
// La table "clients" de la base ("c:\temp\madborigine.mdb") n'a pas été modifiée

// Substitution de répertoire en mode Hyper File Client / Serveur
// Les fichiers d'origine sont dans le répertoire
// C:\Serveur HF\BDD\FichierAppli\
// Créer une copie des fichiers dans BDD\MesFichiers\
HChangeRep (Cedex,".\MesFichiers\")
HCréationSiInexistant(Cedex)
Cedex.ville = "MONTPELLIER"
Cedex.CodePostal = 34000
SI PAS HAjoute(Cedex) ALORS Erreur(HErreurInfo)

// Le fichier "Client" est journalé
HChangeRepJnl (Client, "\\MonServeur\Journal\JNL", ...
               "\\MonServeur\Journal\Operation")

...
HAjoute(Client)
// -> le fichier "ClientJNL" est ouvert
// dans le répertoire "\\MonServeur\Journal\JNL"
//-> les fichiers "JournalOpération" et "JournalIdentification"
// sont ouverts dans le répertoire "\\MonServeur\Journal\Operation "

...

HConnecte ( "Salaires" , "" , "" ,...
          "MaBase" , "Microsoft.JET.OLEDB.4.0" , HOLectureEcriture )

// Construction de la clé composée
sValRech est une chaîne = HConstruitValClé (CLIENT,NOM_PRENOM,...

              "MOULIN","Françoise")

// Construction d'une clé composée Chaine / Entier
sValRech est une chaîne = HConstruitValClé (CLIENT,NOM_NUMCLI,...
              "MOULIN",12128)

// Construction d'une clé composée Entier / Entier
sValRech est une chaîne = HConstruitValClé (COMMANDE,...
              IDCOMMANDE_IDCOMMANDE, 12119,593)

// Création de tous les fichiers de l'analyse avec le mot de passe "PSW"
HCréationSiInexistant ( "*" , "PSW" )

// Création du fichier commande (décrit dans l'analyse)
HCréationSiInexistant ( Commande )

//Crée le fichier de réplica maître dans le répertoire C:\RPL\Paris
//en spécifiant un nom de fichier
HCréeRéplicaMaître ( "C:\RPL\Paris\ReplicaParis.RPM" )

//Créé le fichier de réplica maître dans le répertoire C:\TEMP
//sans spécifier de nom de fichier
HCréeRéplicaMaître ( "C:\TEMP" )

//Crée le fichier de réplica maître dans le répertoire en cours
HCréeRéplicaMaître ()

// Création d'une vue
MaVue est une source de données
HCréeVue (MaVue,CLIENT,"*","NOM,VILLE","NOM]='A'", hVueDéfaut )

HDBDecritFichier ( "CLIENTDB" , "CD" , "C:\FIC\CLIENT.DBF" )
HDBDecritRubrique ( "NOM,C,20" )
HDBDecritRubrique ( "PRENOM,C,20" )
HDBDecritRubrique ( "AGE,N,3,0" )
HDBDecritRubrique ( "SOLDE,N,10,2" )
HDBDecritRubrique ( "MARIE,L" )
HDBDecritRubrique ( "DATNAISS,D" )
HDBDecritRubrique ( "INFOS,M" )
HDBCreation ()

HDBDecritFichier ( "CLIENTDB" , "CD" , "C:\FIC\CLIENT.DBF" )
HDBDecritRubrique ( "NOM,C,20" )
HDBDecritRubrique ( "PRENOM,C,20" )
HDBDecritRubrique ( "AGE,N,3,0" )
HDBDecritRubrique ( "SOLDE,N,10,2" )
HDBDecritRubrique ( "MARIE,L" )
HDBDecritRubrique ( "DATNAISS,D" )
HDBDecritRubrique ( "INFOS,M" )
HDBCreation ()

HDBOuvre("CLIENT","CL","C:\FICHIER\CLIENT.DBF")
HDBIndex ("CLIENT","C:\FICHIER\NOMCLI.NTX","NomCli")
HDBIndex ("CLIENT","C:\FICHIER\TELCLI.NTX","Telephone")

// Blocage
HBloqueNumEnr(CLIENT, hNumEnrEnCours , hBlocageLectureEcriture )
// Modification de l'enregistrement
...
// Déblocage
HDébloqueNumEnr (CLIENT, hNumEnrEnCours )

HDécritConnexion ( "MaConnexion" , "" , "" ,...
                  "Serveur_SQLServer" , "dbo" , hAccèsNatifSQLServer , HOLectureEcriture , "" )

TableDesc est une description de fichier
ItemDesc est une description de rubrique
CLIENT est une source de données

// Description du fichier "CLIENT"
TableDesc ..Nom = "CLIENT"
TableDesc ..Type = hFichierNormal
TableDesc ..CryptageFic = hCryptageStandard

// Description de la rubrique "NOM"
ItemDesc ..Nom = "NOM"
ItemDesc ..Type = hRubTexte
ItemDesc ..Taille = 40
ItemDesc ..TypeClé = hCléUnique
HDécritRubrique ( TableDesc , ItemDesc )

// Description de la rubrique "PRENOM"
ItemDesc ..Nom = "PRENOM"
ItemDesc ..Type = hRubTexte
ItemDesc ..Taille = 40
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éation ( CLIENT )

// Création d'un enregistrement
CLIENT.NOM = "Dupont"
CLIENT.PRENOM = "André"
HAjoute ( CLIENT )

HDécritLiaison ( LiaisonClientProduit )

HDécritRubrique ( ClientBis , NomClient )

// Dans le code d'initialisation du projet
LOCAL
   ResultatTrigger est un booléen

// Création du Trigger pour tous les fichiers de l'analyse
ResultatTrigger = HDecritTrigger ( "*" , "HAJOUTE,HMODIFIE," +...
          "HSUPPRIME,HRAYE,HECRIT" , "VerifDroitUtilisateur" , hTriggerAvant )
// Avec "VerifDroitUtilisateur" une procédure globale du projet
SI ResultatTrigger = Faux ALORS
    Erreur ( "Erreur sur un trigger : " + HErreurInfo )
    RETOUR
FIN

// Activation de tous les filtres auto possibles du fichier CLIENT
HActiveFiltreAuto(CLIENT, "*")
// sauf entre CLIENT et COMMANDE
HDésactiveFiltreAuto (CLIENT, COMMANDE)

/////////////////////////////

// Parcours des commandes
HLitPremier(COMMANDE, IDCOMMANDE)
TANTQUE PAS HEnDehors()
// parcours les lignes de commande de la commande en cours
     HLitPremier(LIGNECOMMANDE, IDCOMMANDE)
     TANTQUE PAS HEnDehors()
         HLitSuivant(LIGNECOMMANDE, IDCOMMANDE)
     FIN
    // Commande suivante
    HLitSuivant(COMMANDE, IDCOMMANDE)
FIN

// Écriture d'un enregistrement à la fin d'un fichier
HEcrit ( Client , HNbEnr ()+ 1 )

//Exporte l'enregistrement en cours du dernier fichier utilisé
sXML est une chaîne = HEnregistrementVersXML ()

//Exporte l'enregistrement en cours du fichier CLIENT
sXML est une chaîne = HEnregistrementVersXML ( Client )

//Exporte l'enregistrement en cours du fichier CLIENT
//Remarque : seules les rubriques NOM et NUMERO sont prises en compte
sXML est une chaîne = HEnregistrementVersXML ( Client , "NOM,NUMERO" )

// Gestion d'une erreur de doublons
SI HModifie ( Client ) = Faux ALORS
    SI HErreurDoublon () = Vrai ALORS 
        sNomRub est une chaîne
        sNomRub = HErreurInfo ( h ErrRubrique )
       Erreur ( "Doublon : cet enregistrement ne peut être modifié" ,...
              "Rubrique associée à l'erreur : " + sNomRub ,...
              "Valeur de la rubrique : " +{ "Client." + sNomRub })
   FIN
FIN

// Code d'une procédure appelée pour le traitement d'un conflit
// de modification
NomFichier est une chaîne = HErreurInfo ( HErrFichier )
// affiche l'état de l'enregistrement original
Trace ( HErreurEtatModification ( NomFichier , hEnrLu ))
// affiche l'état de la rubrique de l'enregistrement du fichier
Trace ( HErreurEtatModification ( NomFichier , hEnrFichier ))
// affiche l'état de la rubrique de l'enregistrement utilisateur
Trace ( HErreurEtatModification ( NomFichier , hEnrUtilisateur )

// Gestion d'une erreur d'intégrité
SI HModifie ( Client ) = Faux ALORS
  SI HErreurIntégrité () = Vrai ALORS 
  Erreur ( "Erreur d'intégrité : cet enregistrement ne peut " +...
    "être modifié" )
  FIN
FIN

BOUCLE
  // extrait la nième rubrique de la liste des rubriques en conflit
  UneRubrique = ExtraitChaîne ( ListeRubrique , i , RC )
  // on sort si on n'a plus de rubrique
  SI UneRubrique = EOT ALORS SORTIR //Sortie si plus de rubrique en conflit

  // affiche la valeur de la rubrique de l'enregistrement original
  Trace ( HErreurModification ( NomFichier , UneRubrique , hEnrLu ))
  // affiche la valeur de la rubrique de l'enregistrement du fichier
  Trace ( HErreurModification ( NomFichier , UneRubrique , hEnrFichier ))
  // affiche avec la valeur de la rubrique de l'enregistrement utilisateur
  Trace ( HErreurModification ( NomFichier , UneRubrique , hEnrUtilisateur ))
FIN

SI HEtat ( CLIENT )= HEtatActif ALORS
    // Traitements
FIN

// Initialisation de la requête "Client_84"
HExécuteRequête ( CLIENT_84 )

// Requête sur fichier Oracle: Clients utilise la connexion "MaConnexion"
// Marequête = "Select * from clients where IDClient = ?"
HExécuteRequête ( MaRequête , hRequêteDefaut , 5 )

ReqClient est une source de données
// Initialisation de la requête "Client"
HExécuteRequêteSQL ( ReqClient , "SELECT NOM FROM CLIENT" )

// Exécute la vue CLIENT34
HExécuteVue ( Client34 )

/ / Exporte tous les clients
HExporteXML ( CLIENT , "C:\TEMP\Client.xml" , hExpCréation )

HExtraitMémo ( Client , Photo , "C:\temp\Photo.bmp" )

HExtraitMémo ( Client , Photo , "\temp\Photo.bmp" )

// Fermeture du fichier FOURNISSEUR
HFerme ( Fournisseur )

// Ouvre une analyse
HOuvreAnalyse ( "C:\Gestcom\Gestcom.WDD" )
// Traitements
...
// Ferme l'analyse actuellement utilisée par l'application
HFermeAnalyse ()

// Décrire et ouvrir la nouvelle connexion
HDécritConnexion ( "MaConnexion" , "" , "" , "Serveur_SQLServer" , ...
                           "dbo" , hODBC , HOLectureEcriture , "" )
HOuvreConnexion ("MaConnexion")

// Indiquer que "Salaires" utilise la nouvelle connexion
HChangeConnexion ( "salaires" , "MaConnexion" )

// commencer le parcours de la table "salaires" sur SQLServer
HLitPremier ( "salaires" )
...

// Fermer la connexion
HFermeConnexion ( "MaConnexion" )

SI HFichierExiste ( CLIENT ) ALORS
    // Traitements
FIN

// filtre réalisée avec une clé de parcours bornée et une condition :
// la clé de parcours est fixée

CléParcours est une chaîne
// Filtre les factures comprises entre le 1/1/2000 et le
// 31/12/2000 dont le total est supérieur à 1500 Euros TTC
// avec une remise dont le type est passé en paramètres (rubrique texte)
CléParcours = HFiltre ( Facture , DateFacture , "20000101" ,...
    "20001231" , ChaineConstruit ( "TotalTTC>1500 ET TypeRemise='%1'" +,...
    Remplace ( sTypeRemise , "'" , "\'" )))
    //La fonction Remplace permet de préfixer les apostrophes
    //que peut contenir sTypeRemise d'un antislash
SI CléParcours <> "" ALORS
  HLitPremier ( Facture , CléParcours )
  TANTQUE PAS HEnDehors ()
    // Traitement de l'enregistrement : envoi
    // d'une lettre de remerciement
  Envoi_Lettre ()
  HLitSuivant ( Facture , CléParcours )
  FIN
FIN
...
// Annule le filtre
HDésactiveFiltre ( Facture )

MacléParcours est une chaîne
MacléParcours = HFiltreComprisEntre ( Client , NomPrénom , ...
                "A" , "B" + hValMax , hséparateurBorne , "C" , "D" + hvalMax )
// Sélection de tous les clients dont le nom est compris entre A et C
// et dont le prénom est compris entre C et D

HLitPremier ( Client , MacléParcours )
TANTQUE PAS H.EnDehors
     Trace ( Client . NomClient , Client . Ville )
    HLitSuivant ( Client , MacléParcours )
FIN
...
// désactive le filtre
HDesactiveFiltre ( Client )

// Sélection de tous les clients ayant pour nom Archambault
// et pour prénom Corentin
CléParcours est une chaîne = HFiltreIdentique ( Client , ...
                NomPrénom , "Archambault" , "Corentin" )
HLitPremier ( Client , CléParcours )
TANTQUE PAS H.EnDehors
    Trace ( Client . NomClient , Client . Ville )
    HLitSuivant ( Client , CléParcours )
FIN
// désactive le filtre
HDesactiveFiltre ( Client )

HInterditModif ( FACTURE )
//traitement
HFinInterditModif ( FACTURE )

// Ajout d'un enregistrement dans un fichier
// (enregistrement décrit par programmation)
Client . Nom = "Moulin"
Client . Prenom = "François"
Client . Adresse = "Impasse de la belle"
Client . Ville = "Montpellier"
Client . CodeP = "34000"
Client . Pays = "France"
HAjoute ( Client )
// Force l'écriture dans le fichier Client
HForceEcriture ( Client )

// Union de deux vues
MaVue est une source de données
VueClient84 est une source de données
...
HFusionneVue ( MaVue , VueClient84 , VueClient84 ,...
     hVueUnion , "+NomCli" )

// Ouverture d'une analyse distante
HOuvreAnalyse ( "ANADIST.WDD" ,"", "192.32.8.10" , "MonLogIn" , "MotPasse" )
// Ouverture d'un fichier distant
HOuvre ( "MONFICDIST" )
//....
HGereAccesDistant ( Faux ) // Ordres Hyper File suivants seront effectués en local
HOuvre ( "MONFICLOC" ) // Ouverture d'un fichier local
//....
HGereAccesDistant ( Vrai ) // Ordres Hyper File suivants seront exécutés en distant
//...
HFermeAnalyse ()

HGereAccesDistant ( Vrai ) // Ordres Hyper File suivants seront effectués en distant
HOuvre ( Client ) // Ouverture d'un fichier distant
//....
HGereAccesDistant ( Commande , Faux ) // Fichier Commande passe en local
HLitPremier ( Client ) // Lit le premier enregistrement en distant
HLitPremier ( Commande ) // Lit le premier enregistrement en local

// Désactiver le test des cardinalités sur la liaison entre
// une commande et un client
HGèreIntégrité ( ClientCommande , hCardinalite , Faux )

// Désactiver les règles d'intégrité sur tous
// les fichiers de l'application
HGèreIntégrité ( "*" , "*" , hCardinalite + hEnModification + hEnSuppression , Faux )
// équivalent à : hGèreIntégrité(Faux)

// Désactive la gestion des mémos sur les observations
// du fichier CLIENT
HGèreMémo ( CLIENT , OBSERVATION , hMémoNon )

// Désactive la gestion du fichier .REP
HGèreRep ( Faux )

// Désactive la gestion des transactions sur le fichier Client
HGèreTransaction ( Client , Faux )

// Désactive la gestion des triggers
HGèreTrigger ( Faux )

// Importe le nom, l'adresse et le logo (mémo binaire) des clients.
// On réinitialise les autres rubriques.
// Une ligne du fichier d'importation contient donc 3 ou 5 colonnes :
// - Nom, - Adresse, - Nom du fichier pour le logo
// (si le nom du fichier pour le logo est différent
// de chaîne vide, 2 colonnes supplémentaires)
// - Le type du mémo (IMG), - Un commentaire
SI HImporteTexte ("CLIENT","C:\UnExemple\Client.txt",...
                 "NOM,ADRESSE,LOGO", hValDefaut , "Jauge1") = Faux ALORS
  Erreur("Importation impossible")
SINON
  // Traitement
FIN

// Importation du fichier "C:\MesFichiers\Client.xml"
// dans le fichier Client. Si le fichier Client existe, ce fichier
// sera écrasé (constante hImpCréation)
// Une jauge de progression sera affichée dans le champ Jauge1
HImporteXML ( Client , "C:\MesFichiers\Client.xml" , hImpCréation , Jauge1 )

HLitPremier ( PRODUIT , NOM )
InfoMemo est une chaîne = HInfoMemo ( PRODUIT , NOM )
// Récupérer le nom du fichier original du mémo
NomFichier est une chaîne = ExtraitChaine ( sInfoMemo , 2, TAB )

// Si aucune donnée à synchroniser on grise le bouton
SI HInfoReplica ( "" , rplMaitreEstAJour ) ALORS
   BTN_SYNCHRO ..Etat = Grisé
FIN

// Si pas de synchronisation du maître depuis plus de 7J
SI PAS HInfoReplica ( "" , rplAbonneEstAJour , "PARIS" ) ALORS
   nbJour est entier
   nbJour = HInfoReplica ( "" , rplDateSynchroVersMaitre , "PARIS" )/( 24 * 60 * 60 )
   SI nbJour > 7 ALORS
       Info ( "Vous n'avez pas mis à jour PARIS depuis " + nbJour + " jours." )
   FIN
FIN

//Initialise la plage d'ID Auto du fichier CLIENT
HInitAbonné ( "CLIENT" , "C:\DATA\Replic\AbonneParis.RPL" )

//Initialise la plage d'ID Auto de tous les fichiers
HInitAbonné ( "*" , "C:\DATA\Replic\AbonneParis.RPL" )

// Application WinDev sans fichiers au format WinDev 5.5
HInitHF55 ( "C:\Fic\ForxBase.WDD" )
HDBDecritFichier ("CLIENTDB","CD","C :\FIC\CLIENT.DBF")
HDBDecritRubrique ( "NOM,C,20" )
HDBDecritRubrique ( "PRENOM,C,20" )
HDBDecritRubrique ( "AGE,N,3,0" )
HDBDecritRubrique ( "SOLDE,N,10,2" )
HDBDecritRubrique ( "MARIE,L" )
HDBDecritRubrique ( "DATNAISS,D" )
HDBDecritRubrique ( "INFOS,M" )
HDBCreation ()

HInterditModif ( Facture )
//Traitement....
HFinInterditModif ( Facture )

HJournalInfo ( "Ajout de " + CLIENT.NOMCLI )
HAjoute ( CLIENT )

HJournalRecrée ( Client )

HJournalInfo ( "CLIENT" , "début impression de " + CRITERE )
HJournalStop ( "CLIENT" ) //stopper le journal
HLitPremier ( "CLIENT" , CRITERE )
TANTQUE HTrouve
  // Traitement
    HLitSuivant ( "Client" )
FIN

HJournalRedemarre ( "CLIENT" ) //redémarrer le journal
HJournalInfo ( "CLIENT" , "fin impression de " + CRITERE ) //écrire

HJournalInfo ( "CLIENT" , "début impression de " + CRITERE )
HJournalStop ( "CLIENT" ) //stopper le journal
HLitPremier ( "CLIENT" , CRITERE )
TANTQUE HTrouve
   // Traitement
    HLitSuivant ( "Client" )
FIN

HJournalRedemarre ( "CLIENT" ) //redémarrer le journal
HJournalInfo ( "CLIENT" , "fin impression de " + CRITERE ) //écrire

// Supprime tous les enregistrements rayés du fichier CLIENT
HLibère ( Client )

// Sauvegarde de la position
nPos est un entier = HSauvePosition ( Client , Nom )
...
// Traitements
...
// Suppression de la position devenue inutile
HLibèrePosition ( nPos )

// Remplit une combo avec la liste des analyses
// disponibles sur \Mes répertoires
ListeAjoute ( Combo , HListeAnalyse ( "\Mes répertoires" ))

// Remplit un champ de saisie multiligne
// En utilisant comme séparateur la virgule et le RC
Saisie1 = HListeAnalyse ( "\Mes Projets" , "," + RC )

// Récupérer les clés d'un fichier de l'analyse en cours
ListeCle est une chaîne
ListeCle = HListeClé ( CLIENT , HLstDetail )
// Ajoute la liste des clés dans COMBO1
ListeAjoute ( COMBO1 , ListeCle )

// Récupérer la liste des connexions
sListeCnx est une chaîne = HListeConnexion ( hLstDétail + hLstTout + hLstTriée )

// insérer la liste dans la combo COMBOCONNEXION
ListeAjoute ( COMBOCONNEXION , sListeCnx )

// Récupérer les fichiers décrits dans l'analyse en cours
// et dynamiquement
ListeFichier est une chaîne
ListeFichier = HListeFichier ( HLstDetail + HLstTout )

// Ajoute la liste des fichiers dans COMBO1
ListeAjoute ( COMBO1 , sListeFichier )

// Récupérer les liaisons du fichier CLIENT de
// l'analyse en cours
ListeLaison est une chaîne
ListeLiaison = HListeLiaison ( CLIENT , HLstDetail )
// Ajoute la liste des liaisons dans COMBO1
ListeAjoute ( COMBO1 , ListeLiaison )

// Récupérer les paramètres de la requête ClientsDépartement
ListeParam est une chaîne
ListeParam = HListeParamRequête ( ClientsDépartement )

// Ajoute la liste des paramètres dans COMBO1
ListeAjoute ( COMBO1 , ListeParam )

// Récupérer la liste des accès natifs
sListeAN = HListeProvider ()

sAnExtrait est une chaîne
sDescription est une chaîne

nIndice est un entier = 1
BOUCLE
   // Extraire chaque accès natif
    sAnExtrait = ExtraitChaîne(sListeAN, nIndice, RC )
    sDescription = ExtraitChaîne(sAnExtrait, 1, TAB)
    sAnExtrait = ExtraitChaîne(sAnExtrait, 2, TAB )
    SI sAnExtrait = EOT ALORS SORTIR
    // Ajouter l'accès natif dans la combo
    ListeAjoute(ChFournisseur, sDescription + gLien(sANExtrait))
    nIndice++
FIN

// Lister toutes les entrées du .REP du projet
// Syntaxe équivalente : HlisteRep()
sListe est une chaîne
sListe = HlisteRep ( "." , "*" )

// Récupérer les triggers appliqués sur les fichiers "Client"
// et "Produit"
sListeTriggers est une chaîne
sListeTriggers = HListeTrigger ( "Client,Produit" )

// Ajoute la liste des triggers dans la combo COMBO1
ListeAjoute ( COMBO1 , sListeTriggers )

// Parcours séquentiel pour afficher le nom
// de tous les clients
i est un entier
POUR i = 1 A HNbEnr ( CLIENT , HEtatTous )
    HLit ( CLIENT , i )
    SI HEtat () = HEtatActif ALORS
        Info ( "Nom du client : " + CLIENT . NOM )
    FIN
FIN

HLitDernier ( Client , Nom )
TANTQUE PAS HEnDehors
    // Traitement de l'enregistrement
    HLitPrécédent ( Client , Nom )
FIN

HLitPremier ( Client , Nom )
TANTQUE PAS HEnDehors
    // Traitement de l'enregistrement
    HLitSuivant ( Client , Nom )
FIN

// Recherche du premier enregistrement à l'identique
// pour lequel le nom du CLIENT est DUPOND
HLitRecherche ( CLIENT , NOM , "DUPOND" )

// Recherche du dernier enregistrement pour lequel
// le nom du CLIENT est DUPOND
HLitRechercheDernier ( CLIENT , NOM , "DUPOND" )

// recherche de tous les clients ayant un chiffre
// d'affaire inférieur à une valeur donnée.
HLitRechercheDernier (CLIENT,CA,X)
TANTQUE PAS HEnDehors(CLIENT)
 AjouterClientListe()
 HLitPrécédent(CLIENT,CA)
FIN

// Recherche du premier enregistrement pour lequel
// le nom du CLIENT est DUPOND
HLitRecherchePremier ( CLIENT , NOM , "DUPOND" )

HLitPremier ( Client , Nom )
TANTQUE PAS HEnDehors
    // Traitement de l'enregistrement
    HLitSuivant ( Client , Nom )
FIN

// modifier les valeurs de la clé COMMANDE.CLECOMPCLIENT
HMigreCléComposéeReliée ( CLIENT , CLECOMP , COMMANDE , CLECOMPCLIENT )

// Change le mode de tous les fichiers
HMode ("*", HModeMulti )

// Rend le fichier client inaccessible aux autres applications
HMode ( CLIENT , HModeMono )

// Recherche l'enregistrement
HLitRecherchePremier ( Client , Nom , "Moulin" )

SI HTrouve () ALORS
    // Modification d'un enregistrement dans un fichier 
    //(enregistrement décrit par programmation)
    Client . Prenom = "François"
    Client . Ville = "Montpellier"
    Client . CodeP = "34000"
    Client . Pays = "France"
    HModifie ( Client )
FIN