Teste si un planning existe deja
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.
Code:
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; |
J espere que mon code est un peux plus clair
voila
merci a vous
a+