Discussion :

[bernisch]

bonjour à tous,
à mon rythme, j'essaie d'acquérir quelques connaissances supplémentaires. Première fois que je construis un champ planning. Tout fonctionne normalement dans ce projet de réservations de salles (3 tables : salles, réservations et réservants(?)). Le planning s'affiche correctement, les réservations peuvent être déplacées, modifiées et les modifications restent acquises tant que je ne ferme pas le planning. A sa réouverture, je constate que toutes les modifications apportées à la souris n'ont pas été prises en compte. j'ai beau chercher, je ne trouve pas ce que j'ai oublié. Merci pour vos pistes et conseils.
Bonne fin de journée
Bernisch

[frenchsting]

Je pense que tu n'enregistres pas les modifications que tu as faites.

Tu dois gérer les modifications de rendezvous, ou lier le planning à un fichier.

[bernisch]

Je pense que tu n'enregistres pas les modifications que tu as faites.

Tu dois gérer les modifications de rendezvous, ou lier le planning à un fichier.

C'est bien là, où le bât blesse. j'ai mis le code suivant sur la fin d'initialisation de la fenêtre contenant le champ planning :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
POUR TOUT salle SUR nom
	PlanningAjouteRessource(PLN_réservations,salle.nom)
FIN
 
maréservation est un RendezVous
POUR TOUT réservation 
	HLitRecherchePremier(salle,IDsalle,réservation.IDsalle)
	SI HTrouve(salle) ALORS
		maréservation.Ressource = salle.nom
		maréservation.Titre = réservation.objetreserv
		maréservation.DateDébut = réservation.datedébut+réservation.heuredébut
		maréservation.DateFin = réservation.datefin+réservation.heurefin
		maréservation.Note = réservation.IDréservation
		maréservation.CouleurFond=réservation.couleur
		maréservation.Bulle=réservation.Firme+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
		+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
 
		PlanningAjouteRendezVous(PLN_réservations,maréservation)
	FIN
FIN

Peux-tu me préciser où je me plante ?
Bonne journée

[tbc92]

Ici tu montres le code qui initialise la table (de FICHIER vers ECRAN).
Ce qui manque, c'est le chemin inverse (copier ce qui a été fait à l'ECRAN dans un FICHIER).

Dans la doc, il y a les commandes pour cela. Mais c'est à faire à chaque changement (à chaque fois que l'utilisateur change un truc à l'écran, lancer la commande pour faire le même changement dans les fichiers) :
L'utilisateur ajoute un rendez-vous : --> immédiatement tu le sauvegardes (par une commande de type hAjoute) ; la doc dit clairement comment le faire (les lignes de codes, et surtout à quel endroit il faut mettre ces lignes de code)
L'utilisateur modifie un rendez-vous ... idem, tu sauvegardes l'info immédiatement par une commande de type hModifie.

Si tu veux que l'utilisateur fasse différentes changements, puis ensuite via un bouton 'Enregistrer', tu enregistrerais le tout, c'est un peu plus compliqué.

[bernisch]

Je sature et je me noie dans la recherche de la doc appropriée. J'ai bien compris la piste à suivre, j'ai même essayé de modifier le menu ctx mais sans effet, peut-être pas la meilleure solution mais j'ai tenté car l'option "Supprimer" fonctionne. De plus, le fait que Datedébut soit égal à datedébut+heuredébut complique la chose (pour moi). Dois-je rajouter des lignes de code dans le code du champ planning ?
je vais m'accorder une pause
Bernisch

[bernisch]

Ici tu montres le code qui initialise la table (de FICHIER vers ECRAN).
Ce qui manque, c'est le chemin inverse (copier ce qui a été fait à l'ECRAN dans un FICHIER).

Dans la doc, il y a les commandes pour cela. Mais c'est à faire à chaque changement (à chaque fois que l'utilisateur change un truc à l'écran, lancer la commande pour faire le même changement dans les fichiers) :
L'utilisateur ajoute un rendez-vous : --> immédiatement tu le sauvegardes (par une commande de type hAjoute) ; la doc dit clairement comment le faire (les lignes de codes, et surtout à quel endroit il faut mettre ces lignes de code)
L'utilisateur modifie un rendez-vous ... idem, tu sauvegardes l'info immédiatement par une commande de type hModifie.

Si tu veux que l'utilisateur fasse différentes changements, puis ensuite via un bouton 'Enregistrer', tu enregistrerais le tout, c'est un peu plus compliqué.

Dans l'énorme doc sur planning, je n'ai pas réussi à trouver ce que je cherche. J'ai essayé de contourner mes lacunes par une autre approche qui me parait compliquée et surtout bien loin de mes intentions. Par le code suivant, je peux,sur double_clic sur une réservation, modifier celle-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
SI PLN_réservation > 0 ALORS
 
	réservSélectionné est un RendezVous
	réservSélectionné = PLN_réservation[PLN_réservation]
 
	Ouvre(FEN_Fiche_réservationMOD,Val(réservSélectionné.Note))
 
	PlanningSupprimeRendezVous(PLN_réservation,PLN_réservation)
 
	maréserv est un RendezVous
 
	HLitRecherchePremier(réservation,IDréservation,Val(réservSélectionné.Note))
	HLitRecherchePremier(salle,IDsalle,réservation.IDsalle)
 
	maréserv.Ressource = salle.nom
	maréserv.JournéeEntière = réservation.journéeentière
	maréserv.Titre = réservation.objetreserv
	maréserv.DateDébut = réservation.datedébut+réservation.heuredébut
	maréserv.DateFin = réservation.datefin+réservation.heurefin
	maréserv.Note = réservation.IDréservation
	maréserv.CouleurFond=réservation.couleur
	maréserv.Bulle=réservation.Firme+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
	maréserv.Auteur=réservation.réservataire
 
	PlanningAjouteRendezVous(PLN_réservation,maréserv)
 
FIN

Pour ajouter une réservation, j'ai du me résoudre à placer un bouton dans la fenêtre planning appelant l'ouverture de la fiche réservation en mode création. Cela fonctionne sauf que le champ planning ne se met à jour qu'après fermeture et réouverture de celui-ci. je précise également que contrairement à la doc, modifier et créér n'apparaissent pas dans le menu ctx du champ planning.
Donc, bien loin de ce que je souhaitais faire.
merci d'avance de vos conseils
Bon weekend à vous
Bernisch

[frenchsting]

Bonjour Bernich,

Ta méthode n'est bête du tout.

Il faut que tu déplaces le code de fin d'init de ta fenêtre que nous as montré dans une procédure Proc_ChargeRDV.
Le code du bouton qui ouvre ta fenêtre de création de nouveau rdv devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ouvre(FEN_NouveauRDV()
Proc_ChargeRDV()

Ou, si tu n'as que le code que tu nous as montré dans la section fin d'init, le code du bouton qui ouvre ta fenêtre de création de nouveau rdv devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ouvre(FEN_NouveauRDV()
ExécuteTraitement(FEN_Planning, trtFinInitialisation)

[bernisch]

J'ai tardé un peu à répondre car j'ai testé plusieurs possibilités avec ton code mais rien n'y fait, je n'arrive pas à avoir ce que je veux. Pour brosser la situation: le champ planning fonctionne correctement, je peux créer un rdv à partir de la fiche rdv (à condition que cela ne soit pas fait à partir du champ planning), par contre, sur double-clic sur un rdv du champ planning, je peux modifier, déplacer et supprimer celui-ci. Dommage ! Dans mes nombreuses lectures, il m'a semblé lire que le rafraîchissement d'un champ planning n'était pas possible lorsque celui-ci est monté par programmation.
Je suis toujours preneur de l'astuce qui va libérer ma tête..
merci de m'avoir consacré un peu de ton temps.
Bernisch

[frenchsting]

Lorsque tu doubles-cliques sur le champ planning, tu as les propriétés dudit champ. si tu appuies sur F2, tu vas avoir le code pour les événements gérés (Redimensionnement d'un rdv, suppression d'un rdv, déplacement d'un rdv,...)

A partir de là, tu peux enregistrer les modifications faites lors du changement de ton rdv.

Exemple pour l'événement déplacement d'un rdv:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
PROCEDURE Déplacement(RdvDéplacé est un RendezVous)
HlitRecherchepremier(FichierRDV, IdRDV, RdvDéplacé.ID)
...

[bernisch]

Je pense que je sature, merci tout de même d'essayer de m'aider. voilà ce que j'obtiens en appuyant sur F2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
PROCÉDURE INTERNE MAJPremierAffichage()
		ExécuteTraitement(PLN_réservation, trtChangementPériodePlanning)
	FIN
	MaFenêtre..Traitement[trtInit] += MAJPremierAffichage
PROCÉDURE AvantCréation(rdvCréé est un RendezVous)
 
 
PROCÉDURE EntréeEnSaisie(rdvEdité est un RendezVous)
 
PROCÉDURE SortieDeSaisie(rdvModifié est un RendezVous)
//	Ce que j'ai tenté de faire, certainement incomplet !!!!
//	HLitRecherchePremier(réservation, IDréservation, rdvModifié.ID)
//	HModifie(réservation,hNumEnrEnCours)
 
PROCÉDURE Sélection(rdvSélectionné est un RendezVous)
 
PROCÉDURE Déplacement(rdvDéplacé est un RendezVous)
 
PROCÉDURE Redimensionnement(rdvRedimensionné est un RendezVous)
 
PROCÉDURE Suppression(rdvSupprimé est un RendezVous)
 
PROCÉDURE DéplacementRessource(rdvRessourceDéplacé est un RendezVous)
 
// sur double clic
SI PLN_réservation > 0 ALORS
 
	réservSélectionné est un RendezVous
	réservSélectionné = PLN_réservation[PLN_réservation]
 
	Ouvre(FEN_Fiche_réservationMOD,Val(réservSélectionné.Note))
 
	PlanningSupprimeRendezVous(PLN_réservation,PLN_réservation)
 
	maréserv est un RendezVous
 
	HLitRecherchePremier(réservation,IDréservation,Val(réservSélectionné.Note))
	HLitRecherchePremier(salle,IDsalle,réservation.IDsalle)
 
	maréserv.Ressource = salle.nom
	maréserv.JournéeEntière = réservation.journéeentière
	maréserv.Titre = réservation.objetreserv
	maréserv.DateDébut = réservation.datedébut+réservation.heuredébut
	maréserv.DateFin = réservation.datefin+réservation.heurefin
	maréserv.Note = réservation.IDréservation
	maréserv.CouleurFond=réservation.couleurfond
	maréserv.Bulle=réservation.bénéficiaire+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
	maréserv.Auteur=réservataire.identité
 
	PlanningAjouteRendezVous(PLN_réservation,maréserv)
 
FIN

dois-je créer des procédures ? la fen_planning n'en possède aucune.
Bonne fin de journée
Bernisch

[frenchsting]

Oui, c'est bien comme ça. Par contre, il faut que tu remettes tes valeurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
PROCÉDURE SortieDeSaisie(rdvModifié est un RendezVous)
si HLitRecherchePremier(réservation, IDréservation, rdvModifié.ID) alors
  réservation.datedebut = rdvModifié.datedebut
  réservation.heuredébut = rdvModifié.heuredébut
  // A faire pour toutes les rubriques de ton fichier réservation(datefin, heurefin, etc...) 
  // sauf celles qui ne sont pas modifiées, bien sûr ;-)
 
  HModifie(réservation)
fin

[bernisch]

Merci pour l'exemple. Je pense avoir enfin compris le cheminement. Je vais tester et te donnerai le résultat.
Bonne journée
Bernisch

[bernisch]

Oui, c'est bien comme ça. Par contre, il faut que tu remettes tes valeurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
PROCÉDURE SortieDeSaisie(rdvModifié est un RendezVous)
si HLitRecherchePremier(réservation, IDréservation, rdvModifié.ID) alors
  réservation.datedebut = rdvModifié.datedebut
  réservation.heuredébut = rdvModifié.heuredébut
  // A faire pour toutes les rubriques de ton fichier réservation(datefin, heurefin, etc...) 
  // sauf celles qui ne sont pas modifiées, bien sûr ;-)
 
  HModifie(réservation)
fin

Bonjour,
après de multiples tentatives de code, je n'ai pas réussi à trouver ce qui pouvait fonctionner. je vais mettre en sommeil en attendant qu'une révélation m'apparaisse... A tout hasard, je publie mon galimatias de code qui ne fonctionne pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
PROCÉDURE INTERNE MAJPremierAffichage()
		ExécuteTraitement(PLN_réservation, trtChangementPériodePlanning)
	FIN
	MaFenêtre..Traitement[trtInit] += MAJPremierAffichage
PROCÉDURE AvantCréation(rdvCréé est un RendezVous)
 
 
PROCÉDURE EntréeEnSaisie(rdvEdité est un RendezVous)
rdvEdité=PLN_réservation[PLN_réservation]
 
SI HLitRecherchePremier(réservation,IDréservation,Val(rdvEdité.Note)) ALORS
 
	rdvEdité.Ressource = salle.nom
	rdvEdité.JournéeEntière = réservation.journéeentière
	rdvEdité.Titre = réservation.objetreserv
	rdvEdité.DateDébut = réservation.datedébut+réservation.heuredébut
	rdvEdité.DateFin = réservation.datefin+réservation.heurefin
	rdvEdité.Note = réservation.IDréservation
	rdvEdité.CouleurFond=réservation.couleurfond
	rdvEdité.Bulle=réservation.bénéficiaire+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
	rdvEdité.Auteur=réservataire.identité
 
	//PlanningAjouteRendezVous(PLN_réservation,rdvEdité)
	HAjoute(réservation)
 
FIN
PROCÉDURE SortieDeSaisie(rdvModifié est un RendezVous)
rdvModifié=PLN_réservation[PLN_réservation]
 
SI HLitRecherchePremier(réservation, IDréservation, rdvModifié.ID) ALORS
 
//	salle.nom = rdvModifié.Ressource
	rdvModifié.Ressource = salle.nom
//	réservation.journéeentière =rdvModifié.JournéeEntière
	rdvModifié.JournéeEntière = réservation.journéeentière
//	réservation.objetreserv = rdvModifié.Titre
	rdvModifié.Titre = réservation.objetreserv
//	réservation.datedébut+réservation.heuredébut = rdvModifié.DateDébut
//// signe + non pris en compte 
	rdvModifié.DateDébut = réservation.datedébut+réservation.heuredébut
//	réservation.datefin+réservation.heurefin =rdvModifié.DateFin
	rdvModifié.DateFin = réservation.datefin+réservation.heurefin
//	réservation.IDréservation = rdvModifié.Note
	rdvModifié.Note = réservation.IDréservation
//	réservation.couleurfond = rdvModifié.CouleurFond
	rdvModifié.CouleurFond = réservation.couleurfond
//	réservation.bénéficiaire+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
//	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5) = rdvModifié.Bulle
	rdvModifié.Bulle = réservation.bénéficiaire+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
	// signe + non pris en compte
//	réservataire.identité = rdvModifié.Auteur
	rdvModifié.Auteur = réservataire.identité
 
 
HModifie(réservation)
 
FIN
PROCÉDURE Sélection(rdvSélectionné est un RendezVous)
PROCÉDURE Déplacement(rdvDéplacé est un RendezVous)
PROCÉDURE Redimensionnement(rdvRedimensionné est un RendezVous)
PROCÉDURE Suppression(rdvSupprimé est un RendezVous)
SI OuiNon(Non, "Voulez-vous supprimer cette réservation ?")=Non ALORS
	RENVOYER Faux
FIN
 
RENVOYER Vrai
 
 
PROCÉDURE DéplacementRessource(rdvRessourceDéplacé est un RendezVous)

Encore merci pour ton bienveillant soutien.
Bernisch

[frenchsting]

Hello Bernisch,

Un truc que je comprends pas : pour le entré en saisie, tu fais un SI HlitRecherchePremier(...) ALORS [...] HAjoute().

SI ton rdv existe, il faut le modifier pas l'ajouter...

[bernisch]

Hello Bernisch,

Un truc que je comprends pas : pour le entré en saisie, tu fais un SI HlitRecherchePremier(...) ALORS [...] HAjoute().

SI ton rdv existe, il faut le modifier pas l'ajouter...

Après quelques jours d'absence, je reviens sur ce forum pour te remercier de ta dernière observation qui est parfaitement justifiée. Après une mise au vert de ma pauvre tête, je vais reprendre ça calmement.
Bonne journée
Bernisch