Discussion :

[neuneu1]

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 :

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;

J espere que mon code est un peux plus clair

voila

merci a vous

a+

[anapurna]

salut

donc tu doit tester si l'utilisateur x
est ocupper de tels heure a tels heure

je le répète une simple requette devrais te permettre de faire cette verification

@+ Phil

[SergioMaster]

je le répète une simple requête devrais te permettre de faire cette vérification

+1

sans pouvoir tester voici déjà une proposition de requête (je présume que la date est testée avant quoique un chef de projet anglais avec qui j'ai travaillé me disait toujours "DON'T ASS/U/ME" )

Code :

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

1
2
3
 
//soit NOUVEAURDV l'heure du nouveau rendez-vous
SELECT ITEMPOS FROM TABLE1 WHERE NOUVEAURDV>=itembegin AND NOUVEAURDV<=itemfin

si cette requête ne ramène rien (recordcount=0 ou mieux Itempos.isnull)
alors tu n'es pas a Brest même tu peux te téléporter à Paris

[edit] un petit test rapide (très) m'a permis de voir que si je calais bien le debut du RDV (ou cours) la fin n'était pas testée . Ceci à l'air (venteux de Brest, milles tonnerres) de fonctionner

Code :

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

1
2
3
4
 
//soit DEBUTNOUVEAURDV l'heure de debut du nouveau rendez-vous
//       FINNOUVEAURDV l'heure de Fin du  nouveau rendez-vous
SELECT ITEMPOS FROM TABLE1 WHERE (NOUVEAURDV>=itembegin AND NOUVEAURDV<=itemfin) OR (FINNOUVEAURDV>=itembegin AND FINNOUVEAURDV<=itemfin)

[neuneu1]

Merci pour vos explication et ligne de code

je test ca ce Wkend

a+

[neuneu1]

bonjour

J ai tester le code mais je ni suis pas bien arriver par manque de comprehension de ma part

J ai donc modifier pour le mettre a mon niveau mais ca palnte sur fin

Code :

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

1
2
3
4
5
 
Query1.sql.clear;;
 query1.SQL.add('SELECT * FROM  test where position = '+inttostr(ItemPos)+' and  debut >='+inttostr(ItemBegin)+'and fin<='+inttostr(ItemEnd)+'');
 
 query1.open;

Je selection la position du nouvel intem(position), c'est apres que je saisie pas :
Ce que je comprend c'est egale ou sup a debut et inferieur ou egal a fin..

le code marche bien si je ne rajoute pas 'and fin<='+inttostr(ItemEnd)+ si je le met j ai une erreur sql mais c'est sur ca vient de moi ,

merci
a+

[Cl@udius]

Salut

A priori il te maque un espace devant le AND associé à fin:

Code :

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

1
2
 
... +' and  debut >='+inttostr(ItemBegin)+' and fin<='+inttostr(ItemEnd)+'');

Le plus simple, dans ces cas là, est de mettre un breakpoint et d'examiner l'instruction SQL après sa construction.

@+ Claudius