Sablier()
ResConnexion est un booléen = ceConnecte()
// Problème rencontré
?
SI ResConnexion = Vrai ALORS
Info("La connexion est établie.")
cdbRendezVous.AvecRappel=Vrai
cdbRendezVous.AvecRépétition=Faux
cdbRendezVous.Catégorie="Perso"
prevu est une DateHeure="200501101400"
cdbRendezVous.Date=cdbDateHeureVersEntier(prevu)
cdbRendezVous.Durée=180
cdbRendezVous.Etat=2
cdbRendezVous.IntervalleRappel=15
cdbRendezVous.JournéeEntière=Faux
cdbRendezVous.Lieu="France"
cdbRendezVous.Notes="Type de
l'intervention : Preventif"
cdbRendezVous.Objet="FI n°
A12589"
cdbRendezVous.Sensibilité=0
cdbAjoute("",cdbRendezVous)
ceDéconnecte()
Sablier(Faux)
Info("Opération effectuée")
SINON
Sablier(Faux)
Erreur(ErreurInfo())
FIN