PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → 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
Started by GUERVILLE, Aug., 24 2016 9:43 AM - 6 replies
Posted on August, 24 2016 - 9:43 AM
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é ?
Registered member
35 messages
Posted on August, 24 2016 - 10:40 AM
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
Posted on August, 24 2016 - 10:47 AM
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




Registered member
35 messages
Posted on August, 24 2016 - 11:15 AM
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
Posted on August, 24 2016 - 12:41 PM
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)
Posted on August, 26 2016 - 4:32 PM
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
Registered member
2,574 messages
Popularité : +222 (260 votes)
Posted on August, 27 2016 - 10:23 AM
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