FORUM WINDEV

Bonjour à tous, je n'arrive pas à comprendre cette lenteur de réplication.
Le principe est de maitre à jour un nomade avec les bases d'un serveur CS, les bases doivent être à l'identique, sur ce point la réplication fonctionne et les bases sont à jour.
Le problème, sans modifié aucun enregistrement, la réplication dure de 30 à 40 minutes pour la création du réplica maitre vers abonné ! Nous avons une bonne connection internet des deux cotés mais lors de la création, le serveur CS et le Nomade, n'arrête pas de s'envoyé des paquets. Si une personne à déja eu ce problème, je ne sais plus où regarder.
Voici mon code.

//////HGèreIntégrité("*","*",hCardinalité+hEnModification+hEnSuppression,Faux)
Multitâche(20)
Sablier(Vrai)
HGèreIntégrité("*","*",hCardinalité+hEnModification+hEnSuppression,Faux)
HGèreRéplication(rplRéplicationUniverselle)
SAI_Saisie1=HeureSys()
//--------------------------------------------------
// création réplica transportable MAITRE -> ABONNE -
//--------------------------------------------------
HChangeConnexion("*", EXT2) // Connection au serveur CS

SI HCréeRéplicaTransportable(sRéplicaMaitre,ITC1,"") ALORS
HChangeConnexion("*", "")
SINON
Erreur("Erreur lors de la creation du réplica transportable MAITRE : " + ErreurInfo())
FIN
SAI_Saisie2=HeureSys()

Sablier(Faux)
Info("création réplica transportable MAITRE -> ABONNE - TERMINEE" ) // Le temps est de 42 MINUTES

//-----------------------------------------------------------
// synchronisation de l'ABONNE avec les données du MAITRE |
//-----------------------------------------------------------
Sablier(Vrai)
SAI_Saisie1=HeureSys()
HChangeConnexion("*", "")
sRéplicaTRansportable = gsRepertoireMaitre+ RPL.Fichier

///////////////////////////////////////////////HSynchroniseRéplica("C:\Notiluspia\REPLICATION\replicamaitre.RPM",RPL.Fichier,rplVersMaître,rplPlusRécentPrioritaire)
SI HSynchroniseRéplica(sRéplicaTRansportable,sRéplicaAbonné,rplVersAbonné,rplPlusRécentPrioritaire) ALORS
HChangeConnexion("*",EXT2)
Sablier(Faux)
SINON
Erreur("Echec de la synchro des données du maitre",ErreurInfo())
FIN
SAI_Saisie2=HeureSys()
Sablier(Faux)
Info("synchronisation de l'ABONNE avec les données du MAITRE TERMINEE" )

//--------------------------------------------------
// création réplica transportable ABONNE -> MAITRE //-----------
//--------------------------------------------------
Sablier(Vrai)
SAI_Saisie1=HeureSys()
HChangeConnexion("*", "")

SI HCréeRéplicaTransportable(sRéplicaAbonné,ITC1,"") ALORS
HChangeConnexion("*", EXT2)
SINON
Erreur("Erreur lors de la creation du réplica transportable ABONNE : " + ErreurInfo())
FIN
SAI_Saisie2=HeureSys()
Sablier(Faux)
Info("création réplica transportable ABONNE -> MAITRE TERMINEE" )

//--------------------------------------------------
// synchronisation du MAITRE avec les données de l'ABONNE
//--------------------------------------------------
Sablier(Vrai)
SAI_Saisie1=HeureSys()

sRéplicaTRansportable = gsRepertoireAbonne+ RPL.Fichier

HSynchroniseRéplica("c:\notiluspia\Replication\replicamaitre.rpm","c:\notiluspia\replication\"+RPL.Fichier,rplVersMaître,rplPlusRécentPrioritaire)

Sablier(Faux)
SAI_Saisie2=HeureSys()
BTN_Bouton1..Visible=Vrai
Info("synchronisation du MAITRE avec les données de l'ABONNE TERMINEE" )
Info("REPLICATION terminée avec succès")
Sablier(Faux)
//Ferme(Fen_Réplica1)

La j'ai vraiment besoin d'aide.
Cordialement
Jean Paul Jourdan