Bonjour
J 'ai recrée le post et non déterrer l ancien car j ai refait un petit programme alléger pour mieux explique mon cas.
Car le grand programme etait trop dur pour expliquer:
Mais le probleme est le meme:
Une table avec :
1 champs position
1 champ fin
1 champs debut
Le planning en question est grid modifier par TMS, quand on crée un items, il marque la position de l item donc de la colonne, puis le début de item( une cellule) et la fin une autre cellule et colorie en bleu les cellule entre.
il est impossible a mon niveau je précise de pouvoir recuper ca en heures début et fin car tans que ce n 'est pas valider ca plante..
d ou le fait de récupérer la position le debut et la fin de l item(du RDV en fait)
donc sur la touche insert on cree un RDv(item) celui-ci est enregistre dans ma table.
Je voudrais pouvoir tester sur insert l existance d un RDv existant dja dans le jour dit et le creneaux souhaité.
En gros moi je peux pas etre de 15h00 a 16h00 a brest et 15h20 a 17h00 a paris.
J espere que mon code est un peux plus clair
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 procedure TForm1.Planner1ItemInsert(Sender: TObject; Position, FromSel, FromSelPrecise, ToSel, ToSelPrecise: Integer); begin Planner1.Items.BeginUpdate; with (Planner1.Items.Add) do begin Text.Add(edit1.Text); Text.Add('un text'); Text.Add('at '+timetostr(now)); Name := 'Test'; ItemPos := Position; ItemEnd := ToSel; ItemBegin := FromSel; table1.Insert; table1.Fields[0].Asinteger:=ItemPos; //postion dans le planning table1.Fields[1].Asinteger:=ItemEnd ; //fin du cours table1.Fields[2].AsInteger:= ItemBegin; // debut du cours table1.Post ; Planner1.Items.EndUpdate; end;
voila
merci a vous
a+
Partager