PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Lister les rendez vous récurrents
Lister les rendez vous récurrents
Iniciado por sbessot, 10,oct. 2020 06:34 - 3 respuestas
Publicado el 10,octubre 2020 - 06:34
Bonjour,

Comment récupérer les différentes occurrences d'un rendez-vous récurrent dans Outlook ou comment recalculer les différents rendez-vous à positionner ?

Merci
Miembro registrado
4.365 mensajes
Publicado el 10,octubre 2020 - 10:13
Bonjour,
Il "suffit" de boucler sur les RDV du style
nNoSession est entier
tabRendezVousRécurrent est tableau de RendezVous

nNoSession=OutlookOuvreSession("MonProfil")
SI nNoSession<>0 ALORS
tabRendezVousRécurrent=ListerRécurent(nNoSession)
SINON
//Traitement erreur


FONCTION ListerRécurrent(IDSession est entier):tableau de RendezVous
tabListeRDV est tableau de RendezVous

RendezVousPremier(IDSession)
// Ajout des rendez-vous trouvés dans le tableau
TANTQUE mRendezVous.EnDehors = Faux
TableauAjoute(tabListeRDV, mRendezVous)
RendezVousSuivant(IDSession)
FIN

RENVOYER tabListeRDV


--
Il y a peut être plus simple, mais, ça tourne
RTFM
Miembro registrado
4.365 mensajes
Publicado el 10,octubre 2020 - 10:17
Ooops j'ai oublié la condition :
....
SI mRendezVous.AvecRépétion ALORS
TableauAjoute(tabListeRDV, mRendezVous
FIN
RendezVousSuivant(IDSession)
.....


--
Il y a peut être plus simple, mais, ça tourne
RTFM
Publicado el 13,octubre 2020 - 07:13
Merci pour ce retour.

En fait cela ne répond pas complétement à ma soucis car si j'a créer une répétition lundi sur 7 jours, avec cette approche je ne récupère que le lundi mais pas les autres jours :-(