//Etablissement de la connexion GPRS
SI PAS NetOuvreAccèsDistant("GPRS_Bouygues") ALORS
     Erreur("Connexion au réseau Bouygues impossible")
     RETOUR
FIN

//Connexion HF
CnxHF est une Connexion

// Paramètres de la connexion
CnxHF..Provider = hAccèsHFClientServeur
CnxHF..Utilisateur = "Test"
CnxHF..MotDePasse = "Test"
CnxHF..Serveur = "ServeurData:590"
CnxHF..BaseDeDonnées = "Commercants"
CnxHF..Cryptage = hCryptageStandard

// Ouverture de la connexion
SI PAS HOuvreConnexion(CnxHF) ALORS
     Erreur("Le serveur de données est indiponible")
     RETOUR
FIN