//Voici un exemple de code permettant l`ajout d`un RDV depuis WinDev dans la base du pocket.
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
|