| 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")
|