PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2025 → Affichage planning
Affichage planning
Iniciado por MURIEL, 30,oct. 2018 10:32 - 7 respuestas
#1
Miembro registrado
6 mensajes
Publicado el 30,octubre 2018 - 10:32
Bonjour,
J'essaie depuis plusieurs jours de mettre au point l'affichage d'un planning : j'ai fait exactement la meme chose que sur un tuto trouvé sur Youtube mais sans résultat. ;(
J'ai donc une table "personne" et une table "RDV". J'ai créé un formulaire avec le champ planning lorsque je demande l'affichage je ne trouve qu'un seul RDV et aucune ressource... J'ai fait dans un premier temps avec :
- remplissage par requête et fait le lien avec les différents champs de mes 2 tables : affichage 1 RDV mais pas de ressources
- remplissage par programmation : idem
JE ne sais plus comment faire... sinon virer windev }:(
Si vous pouviez m'assister dans l'utilisation de ce champ :(
Par avance je vous en remercie :merci:

Ci-dessous le code que j'ai inséré :
PROCEDURE INTERNE MAJPremierAffichage()
ExécuteTraitement(Planning_RDV, trtChangementPériodePlanning)
monRDV est un RendezVous
POUR TOUT RDV
monRDV.Ressource=Personne.Nom
monRDV.ID=RDV.IDRDV
monRDV.DateDébut=RDV.DateDebut+RDV.HeureDebut
monRDV.DateFin=RDV.DateFin+RDV.HeureFin
monRDV.Titre=RDV.Titre
monRDV.CouleurFond=RDV.Couleur
PlanningAjouteRendezVous(Planning_RDV,monRDV)
FIN
FIN
MaFenêtre..Traitement[trtInit] += MAJPremierAffichage
#2
Publicado el 30,octubre 2018 - 11:43
Bonjour,

Suis grandement intéressé par le planning windev
Je sort du développement d'une application Webdev avec un planning créé et géré manuellement, j'aimerais refaire cette appli avec le champ planning Windev, si c'est possible. Il me faut un peu de temps pour démarrer la réalisation, mais je suis partant pour partager nos expériences:) sur le sujet.
Si ça va dis recontacter moi sur mon mail
Brunon FRANCOIS bufa31@live.fr
#3
Miembro registrado
33 mensajes
Publicado el 30,octubre 2018 - 13:03
Bonjour,

Vous devez d'abord ajouter la ressource au planning :
PlanningAjouteRessource(Planning_RDV, Personne.Nom)

--
BàV
Romuald
#4
Miembro registrado
134 mensajes
Publicado el 30,octubre 2018 - 13:15
Bonjour,

Peut-être comme ça :

PROCEDURE INTERNE MAJPremierAffichage()

ExécuteTraitement(Planning_RDV, trtChangementPériodePlanning)

monRDV est un RendezVous

// A adapter pour n'ajouter que les personnes ayant un rdv
POUR TOUTE personne
PlanningAjouteRessource( Planning_RDV, gLien( Personne.ID ) + Personne.Nom )
FIN // POUR TOUTE personne

POUR TOUT RDV
VariableRAZ( monRDV )
monRDV.Ressource = Personne.ID
monRDV.ID=RDV.IDRDV
monRDV.DateDébut=RDV.DateDebut+RDV.HeureDebut
monRDV.DateFin=RDV.DateFin+RDV.HeureFin
monRDV.Titre=RDV.Titre
monRDV.CouleurFond=RDV.Couleur
PlanningAjouteRendezVous(Planning_RDV,monRDV)
FIN
FIN
MaFenêtre..Traitement[trtInit] += MAJPremierAffichage
Mensaje modificado, 30,octubre 2018 - 13:24
#5
Miembro registrado
6 mensajes
Publicado el 30,octubre 2018 - 15:21
MERCI pour vos réponses :merci:

Entre temps, j'ai tenté cette solution (hlitRecherchePremier...)et j'obtiens bien l'affichage des ressources et les RDV (ouf !) mais je n'ai pas la couleur ;)
Dans le champ "RDV.couleur" est enregistré le nom de la couleur comme VertPastel, BleuCyan,etc...

monRDV est un RendezVous

POUR TOUT RDV
HLitRecherchePremier(Personne,IDPersonne,RDV.IDPersonne)
SI HTrouve(Personne) ALORS
VariableRAZ(monRDV)
monRDV.Ressource=Personne.Nom
monRDV.ID=RDV.IDRDV
monRDV.DateDébut=RDV.DateDebut+RDV.HeureDebut
monRDV.DateFin=RDV.DateFin+RDV.HeureFin
monRDV.Titre=RDV.Titre
monRDV.CouleurFond=RDV.Couleur
PlanningAjouteRendezVous(Planning_RDV,monRDV)
FIN
FIN
#6
Miembro registrado
134 mensajes
Publicado el 30,octubre 2018 - 15:31
Pour les couleurs, le plus simple c'est de stocker un entier
Trace( VertPastel )
// donne 10092441
#7
Miembro registrado
6 mensajes
Publicado el 30,octubre 2018 - 15:54
Super :merci: Un grand MERCI Julien cela fonctionne :):)
Une autre question tant que j'y suis mais je ne voudrais pas abuser ;)
Comment faire apparaitre le RDV avec un contour en relief comme vu lors du séminaire... (un titre séparé et le détail du RDV)
Encore merci pour votre aide
#8
Miembro registrado
6 mensajes
Publicado el 30,octubre 2018 - 15:59
Oups... j'ai trouvé : c'est dans la description du champ planning et les options "Style"....
→ Volver a WINDEV 2025