1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| SI fFichierExiste(RepAppliAbo1+"Replica_ABONNE1.RPL") ALORS
HDécritConnexion("ConnexionAbonne", "", "", RepAbo1,"", hAccèsHF7)
HOuvreConnexion("ConnexionAbonne")
HChangeConnexion("*","ConnexionAbonne")
LIB_Avancement_de_la_replication..Libellé="Creation Transportable Abonné1 vers Maître"
SI HCréeRéplicaTransportable(RepAppliAbo1+"Replica_ABONNE1.RPL","ABONNE1","") ALORS
SI fCopieFichier(RepAppliAbo1+RPL.Fichier,"C:\ProgramNat\CongresNat\"+RPL.Fichier) ALORS
HDécritConnexion("ConnexionMaitre", "", "", "C:\DataNat\CongresNat\", "", hAccèsHF7)
HOuvreConnexion("ConnexionMaitre")
HChangeConnexion("*","ConnexionMaitre")
FichierTransportable="C:\ProgramNat\CongresNat\"+RPL.Fichier
LIB_Avancement_de_la_replication..Libellé="Synchro Abonné1 vers Maître"
SI HSynchroniseRéplica("C:\ProgramNat\CongresNat\REPLICAMAITRE.RPM",FichierTransportable,rplVersMaître,rplPlusRécentPrioritaire) ALORS
SINON
Erreur("Erreur Synchronisation Abonné1 > Maitre : "+RC+HErreurInfo(hErrComplet))
RETOUR
FIN
SINON
Erreur("Erreur lors du transfert du replica abonné1 vers le poste maitre : "+RC+HErreurInfo(hErrComplet))
RETOUR
FIN
SINON
Erreur("Creation Transportable Abonné1 > Maitre : "+RC+HErreurInfo(hErrComplet))
RETOUR
FIN
FIN |
Partager