FORUM WINDEV

omment 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.

Code: Tout sélectionner

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