Discussion :

[buzz68180]

Bonjour,

J'ai crée un Planning avec 5 colonnes du lundi au vendredi et des horaires de cours différentes pour chaque journée , le tableau doit contenir le nom/prenom
des personnes inscrites en cours, pour ce faire la table est constitué de colonne de type chaine uniquement.
Pour compliquer les choses cette table est alimenté par un drag and drop du fichier membre.
J'arrive à enregistrer les opérations avec cette procédure :

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
73
74
75
76
77
78
79
80
 
 
PROCEDURE ProcLâcherTable()
 
 
nColonne est un entier
nLigne est un entier
nomcol est une chaîne
resrécupère est une chaîne
nUmmembre est un entier
sChaînejour est une chaîne
 
// Récupération des données de type "CF_TEXT"
SI DnDDonnéeDisponible(CF_TEXT) = Vrai ALORS
	SI SAI_Essai<>"" ALORS
 
		resrécupère =SAI_Essai
		nUmmembre=99999
	SINON
 
		resrécupère = TABLE_Membre_resa.COL_Prénom[TableSelect(TABLE_Membre_resa)]+" "+TABLE_Membre_resa.COL_Nom[TableSelect(TABLE_Membre_resa)]
		nUmmembre=TABLE_Membre_resa.COL_ID[TableSelect(TABLE_Membre_resa)]
	FIN
 
 
 
FIN
 
 
 
 
SELON _DND.ChampCible
 
 
	CAS "TABLE_Hor_1"
 
		nLigne = nLigneSurvolée(TABLE_Hor_1..Nom)
		nColonne = ncolonnesurvolee(TABLE_Hor_1..Nom)
		nomcol =nomcolonne_survol(TABLE_Hor_1..Nom)
		SI nLigne=-1 ET nColonne =-1 ALORS
			RETOUR
 
		FIN
		POUR i=1 A TableOccurrence(TABLE_Hor_1)
 
			SI TABLE_Hor_1[i][nColonne]..ValeurAffichée = resrécupère ALORS
 
				RETOUR
			FIN
 
		FIN
 
 
		TABLE_Hor_1[nLigne][nColonne] = resrécupère
 
 
 
		sChaînejour = ExtraitChaîne({"TABLE_Hor_1"+"."+nomcol}..Libellé,1,RC)
		schaineheure est une chaîne =Gauche(ExtraitChaîne({"TABLE_Hor_1"+"."+nomcol}..Libellé, 2, RC),5)
		heureR1 est une chaîne =ExtraitChaîne(schaineheure,1,":")
		heureR2 est une chaîne =ExtraitChaîne(schaineheure,2,":")
		heurer3 est une chaîne=ExtraitChaîne(schaineheure,3,"-")
 
		POUR i =1 A TableOccurrence(TABLE_Hor_1)
		SI PAS HLitRecherchePremier(RDVCoursFitness,DatehDébut,ChaîneVersDate(sChaînejour,"Jjjj JJ Mmmm AAAA")+heureR1+heureR2) ALORS
			RDVCoursFitness.DateDébut=ChaîneVersDate(sChaînejour,"Jjjj JJ Mmmm AAAA")
		RDVCoursFitness.DatehDébut..PartieDate=ChaîneVersDate(sChaînejour,"Jjjj JJ Mmmm AAAA")
		RDVCoursFitness.DatehDébut..PartieHeure=heureR1+heureR2
		RDVCoursFitness.Contenu=resrécupère
 
		HAjoute(RDVCoursFitness)
		FIN
 
		FIN
 
 
		Membre_RDVCoursFitness.IDRDV=RDVCoursFitness.IDRDV
		Membre_RDVCoursFitness.IDMembre=nUmmembre
 
		HAjoute(Membre_RDVCoursFitness)

Ma question,comment faire créer une requête pour l'affichage après enregistrement sachant que les données sont de type date et les champs de ma table "TABLE_Hor_1" de type chaine.

Ci-joint l’aperçu

Merci pour votre aide

[frenchsting]

Je ne comprends pas trop ta question. Si tu veux afficher le tableau après modif, c'est la même méthode que quand tu l'affiches avant modif, non ?

[buzz68180]

Dans le drop, de "Table_Membre_resa" vers "Table Hor_1", je récupère du texte
avec "resrécupère".C'est une fois l'enregistrement effectue et l’ouverture de la fenêtre que je ne vois pas comment créer la requête qui est composé de Rubrique au format Date et au format Chaine pour le nom du membre, la voici à l'état actuel :

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
 
SELECT 
	Membre_RDVCoursFitness.IDRDV AS IDRDV,	
	Membre_RDVCoursFitness.IDMembre AS IDMembre,	
	RDVCoursFitness.DatehDébut AS DatehDébut,	
	RDVCoursFitness.DatehFin AS DatehFin,	
	Membre.Nom AS Nom,	
	Membre.Prénom AS Prénom,	
	RDVCoursFitness.DateDébut AS DateDébut
FROM 
	RDVCoursFitness,	
	Membre_RDVCoursFitness,	
	Membre
WHERE 
	Membre.IDMembre = Membre_RDVCoursFitness.IDMembre
	AND		RDVCoursFitness.IDRDV = Membre_RDVCoursFitness.IDRDV
	AND
	(
		RDVCoursFitness.DateDébut BETWEEN {Param_date_debut} AND {Param_date_fin}
	)

[frenchsting]

Ce que tu dois savoir, c'est "juste" à quel endroit a été laché la souris pour récupérer la date ?
Je n'ai que wd12 (pas de champ planning). Je pense qu'avec un tableinfoxy ça pourrait t'aider si une version existe pour le champ planning.

[buzz68180]

J'ai résolu le problème avec un tableau associatif :

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
 
Date est une Date =FEN_Accueil.gtaDateColonne[FEN_Accueil.TABLE_Hor_1.LUN945..NomComplet]
 
REQ_resa.Param_date_debut=dDate
dDate..Jour+=4
REQ_resa.Param_date_fin=dDate
 
 
 
HExécuteRequête(REQ_resa)
 
MoiMême..HauteurLigne=25
TableAjuste(TABLE_Hor_1)
TableSupprimeTout(TABLE_Hor_1)
TableSupprimeTout(TABLE_Hor_2)
TableSupprimeTout(TABLE_Hor_3)
 
 
POUR i =1 A 6
 
	TableAjouteLigne(TABLE_Hor_1,i,"","","","","","","")
	TableAjouteLigne(TABLE_Hor_2,i,"","","","","","","")
	TableAjouteLigne(TABLE_Hor_3,i,"","","","","","","")
 
 
FIN	
 
 
	sNomColonne est une chaîne
	indiceLigne est un entier
	HLitPremier(REQ_resa)	
	TANTQUE PAS HEnDehors(REQ_resa)
 
 
		sNomColonne=gtaNomColonne[REQ_resa.DatehDébut[[A 12]]]
		SI sNomColonne="" ALORS
 
			Erreur("la colonne non trouvée pour "+REQ_resa.DatehDébut[[A 12]])
		SINON
			indiceLigne=1
			TANTQUE {sNomColonne,indChamp}[indiceLigne]<>"" _ET_ indiceLigne<6
				indiceLigne++
			FIN
			{sNomColonne,indChamp}[indiceLigne]=REQ_resa.Prénom+" "+REQ_resa.Nom
		FIN
 
		HLitSuivant(REQ_resa)
 
FIN

merci.