PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WEBDEV 2024 → Rendez-vous sur plusieurs jours commancant chaque jour a la même heure
Rendez-vous sur plusieurs jours commancant chaque jour a la même heure
Débuté par GUERVILLE, 24 aoû. 2016 09:43 - 6 réponses
Posté le 24 août 2016 - 09:43
Bonjour,

Je souhaite rajouter un rendez-vous dans mon agenda s'entendant du 24-08-2016 au 26-08-2016 de 10H à 15H de façon journalière
C'est a dire que pour le 24,25 et 26 l'agenda ajoute un rendez-vous se situant en 10H et 15H
Hors je ne vois aucune fonction permettant de faire ceci. Comment faire SVP, a part faire une boucle pour décomposer le rendez-vous, ce qui complique extrêmement le programme.
Existe t'il une propriété ?
Membre enregistré
35 messages
Posté le 24 août 2016 - 10:40
le rendez-vous a une propriété "..AvecRépétition"

AvecRépétition Booléen •Vrai si le rendez-vous doit être répété,
•Faux si le rendez-vous n'a lieu qu'une seule fois.
Si le rendez-vous est répété, la propriété ..Répétition permet de spécifier la fréquence de la répétition.
Par défaut, cette propriété est à Faux.

voir : http://doc.pcsoft.fr/fr-FR/?1000019244&name=TYPE_RendezVous

--
Jean-Michel Zufferey
NetAtelier Sàrl
Suisse
Posté le 24 août 2016 - 10:47
Merci pour la réponse, mais ça ne semble pas fonctionner correctement

En effet mon rendez vous commence a 10H et se termine a 15H

Lorsque j'utilise le code ci joint, je n'arrive jamais a obtenir un rendez-vous commençant a 10H et se terminant à 15H pour les 3 jours


gMonRendezVous est un RendezVous
gMonRendezVous..Titre = "TEST"
gMonRendezVous..DateDébut = "201608241000"//REQ_Agenda_Evenement.Heure_debut
gMonRendezVous..DateFin = "201608261500"//REQ_Agenda_Evenement.Heure_Fin
gMonRendezVous..AvecRépétition=True

// Paramètre une répétition du rendez-vous tous les jeudi,vendredi à 10 heures 10
ParamètreRépétition est un Répétition
ParamètreRépétition..Type=plnTousLesJours
ParamètreRépétition..TypeFin= plnDateFin
ParamètreRépétition..Minute = "00"
ParamètreRépétition..Heure = "10"
ParamètreRépétition..DateFin="201608261500"
ParamètreRépétition..Mois = "*"
ParamètreRépétition..JourDeLaSemaine = "*"
gMonRendezVous..Répétition = ParamètreRépétition
AgendaAjouteRendezVous(AGD_Evenement,gMonRendezVous)

Voici ce que j'obtiens, comme vous constatez l'heure de fin est fausse




Membre enregistré
35 messages
Posté le 24 août 2016 - 11:15
Je ne suis pas sûr mais je pense qu'il ne faut pas renseigner les propriétés ..Heure et ..Minute

Le système va reprendre les données du RDV créé en l'affichant avec les répétitions voulues.

// Définit un rendez-vous pour le matin
MonRendezVous est un RendezVous
MonRendezVous..DateDébut = DateSys() + "090000"
MonRendezVous..DateFin = DateSys() + "093000"
MonRendezVous..Titre = "Réunion de l'équipe de développement"
MonRendezVous..Invité = "Jacques, Marc, Emilie"
MonRendezVous..Contenu = "Point quotidien sur l'avancement des projets."
MonRendezVous..AvecRépétition = Vrai

// Paramètre une répétition quotidienne du rendez-vous
ParamètreRépétition est un Répétition
ParamètreRépétition..Type = plnTousLesJours
ParamètreRépétition..TypeFin = plnPasDeFin
MonRendezVous..Répétition = ParamètreRépétition

AgendaAjouteRendezVous(AGD_Agenda1, MonRendezVous)

http://doc.pcsoft.fr/fr-FR/?1000019262&name=repetition_type_variable

En espérant que cela puisse t'aider.

--
Jean-Michel Zufferey
NetAtelier Sàrl
Suisse
Posté le 24 août 2016 - 12:41
Merci

Mais non, ça ne fonctionne pas. Je suis vraiment bloqué la ... (à part multiplier tous les RDV par programmation, ce qui complexifie énormément la gestion derrière)
Posté le 26 août 2016 - 16:32
Le 24/08/2016 à 08:47, GUERVILLE a écrit :
> gMonRendezVous..DateFin = "201608261500"//REQ_Agenda_Evenement.Heure_Fin

Je pense que tu devrais créé ton rendez-vous initial sur 1 journée, et
donc mettre :
gMonRendezVous..DateFin = "201608241500"

et ensuite tu joues sur le paramètre de répétition pour répéter ce
rendez-vous d'une journée

Eric

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 160826-1, 26/08/2016
Analyse le : 26/08/2016 16:31:53
avast! - copyright (c) 1988-2016 AVAST Software.
https://www.avast.com/antivirus
Membre enregistré
2 566 messages
Popularité : +222 (260 votes)
Posté le 27 août 2016 - 10:23
Bonjour,

Ca ça fonctionne très bien:
MonRendezVous est un RendezVous

MonRendezVous.DateDébut = "201608221000"
MonRendezVous.DateFin = "201608221500"
MonRendezVous.AvecRépétition = Vrai

MaRepetition est une Repetition
MaRepetition..Type = plnTousLesJours
MaRepetition..TypeFin = plnOccurrenceMax
MaRepetition..NbOccurrence = 3
MonRendezVous.Répétition = MaRepetition

AgendaAjouteRendezVous(AGD_GtabToto,MonRendezVous)







--
Cordialement,

Philippe SAINT-BERTIN
Géode Informatique