Comment copier des enregistrements d`un fichier d`un serveur HF dans un autre ?

Cet exemple montre comment copier le contenu d`un fichier "Cedex" d`un serveur HF dans un autre.Le fichier "Cedex" dans le projet en cours est au format Hyper File CS avec une connexion directe dans l`analyse. //Variables CNX_HF_CS        est une Connexion sNomFichier        est une chaine = "Cedex" // Parametres de la connexion du second fichier CNX_HF_CS..Provider = hAccsHFClientServeur CNX_HF_CS..Utilisateur = "user" CNX_HF_CS..MotDePasse = "kY2C2u22" CNX_HF_CS..Serveur = "monserveurhf:4900" CNX_HF_CS..BaseDeDonnes = "base_user" CNX_HF_CS..Cryptage = hCryptageNon HGereIntgrite(Faux) // Ouverture de la connexion SI PAS HOuvreConnexion(CNX_HF_CS) ALORS         Erreur(HErreurInfo())         RETOUR FIN //Affectation du mot de passe du fichier distant si necessaire HPasse("FicAlias", "dfdf54fsd") SI PAS HDeclareExterne("." + sNomFichier + ".fic","FicAlias",CNX_HF_CS)  ALORS         Erreur(HErreurInfo())         RETOUR FIN nNbEnreg est un entier = HNbEnr({sNomFichier, indFichier}) i est un entier POUR TOUT {sNomFichier, indFichier}         SI PAS HCopieEnreg("FicAlias", {sNomFichier, indFichier}, hCopieIdAuto)  ALORS                 Erreur(HErreurInfo())                 RETOUR         SINON                 SI PAS HAjoute("FicAlias", hFixeIdAuto)ALORS                         Erreur(HErreurInfo())                         RETOUR                 FIN         FIN         i++         Jauge(i, nNbEnreg) FIN Jauge() Info("Traitement termine avec succes")

Source: Freedev