Discussion :

[tchimou]

Bonjour!
excuser moi j'ai un nouveau avec ma procedure où j'utilise un Locate sur deux dates.
Je me souviens la dernière fois , il fonctionnait bien, mais depuis un certain temps , il ne fonctionne plus très bien.
le but de la procedure , c'est de rechercher dans la table s'il existe deux dates, et s'ils existent , il doit sortir sinon il enregistre les nouvelles dates .
voici mon code:

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
procedure TMvtJourForm.histoClick(Sender: TObject);
var resultat :variant;
begin
  //dDate11:=FormatDateTime('dd/mm/yyyy',DateJour1.Date);
  //dDate12:=FormatDateTime('dd/mm/yyyy',DateJour2.Date);
  resultat:=DM.tbHisto_inout.Locate('DATEDEB;DATEFIN',VarArrayOf([DateJour1.Date,DateJour2.Date]),[]);
  if resultat then
  begin
    MessageDlg('        Cette date existe déjà !!!        ',
    mtInformation,[mbOk],0);
    exit;
  end;
  DM.tbHisto_inout.Insert;
  DM.tbHisto_inoutDATEDEB.Value:=DateJour1.Date;
  DM.tbHisto_inoutDATEFIN.Value:=DateJour2.Date;
  DM.tbHisto_inoutTOT_IN.Value:=StrToFloat(EditTEntrees.Text);
  DM.tbHisto_inoutTOT_OUT.Value:=StrToFloat(EditTSorties.Text);
  DM.tbHisto_inoutSOLDE.Value:=StrToFloat(EditSoldeJ.Text);
  DM.tbHisto_inout.Post;
  DM.tbHisto_inout.Refresh;
end;

Normalement ça marche sans formater les dates, mais puisqu'il ne marchait plus , j'ai formaté les dates, mais toujours rien, alors j'ai laissé les dates de depart.
DATEDEB et DATEFIN sont les champs(date) de ma table; et DateJour1 et DateJour2 sont mes deux DateTimePicker .
Lorsque je l'execute, en faisant l'essai j'enregistre d'abord deux dates , et après lorsque j'enregistre les mêmes dates, il ne m'affiche pas le message(cette date existe deja) , il enregistre la même date , il ne m'affiche même pas de message d'erreur pour le code.
Alors je ne sais plus que faire.
Merci pour votre aide.

[SergioMaster]

je sais que ça peut être idiot mais as-tu vérifier les heures inscrites dans tes
champs date ?

[slimjoe]

Ton Locate va se positionner sur l'enregistrement où DATEDEB est égal à DateJour1.Date et DATEFIN à DateJour2.Date. Il na va pas filtrer ton jeu de données avec les enregistrements qui se situent dans l'intervalle. Si c'est ce que tu veux faire, c'est la propriété Filter qui t'intéresse.

Mais je suis peut-être tout à fait à côté de la question

[tchimou]

mon Locate a pour but de verifier et comparer les dates dans la table.
DATEDEB avec Datejour1 et DATEFIN avec Datejour2 , il doit regarder dans la table si ces dates existent deja , et si elles existent , il doit sortir , sinon il encode les nouvelles dates. Je ne sais pas si le Filter est approprier pour faire cela, normalement le Filter sert à filtrer . Je vais essaye avec filter et voir si ça marche.
Merci pour votre aide

[EPJSoft]

as tu essayé avec l'option loPartialKey

Comme SergioMaster j'aurai tendance à penser que dans la table tu as par exemple 38956,42 et pas 38956

Essaye de faire un First, Next sur la table pour qu'il te retourne les dates dans un datetime pour pouvoir les lire...

[tchimou]

je suis entrain d'essayer l'option loPartialkey pour resourdre mon probleme de recherche sur deux dates dans ma table , mais je ne m'y connais pas bien.
voici mon code:

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
  var
  LocateSuccess: Boolean;
  SearchOptions: TLocateOptions;
begin
  //rechercher les dates
  if (DM.tbHisto_inoutDATEDEB.Value = DateJour1.Date)and
     (DM.tbHisto_inoutDATEFIN.Value = DateJour2.Date) then
  begin
    with DM.tbHisto_inout do
    begin
      SearchOptions := [TLocateOptions];
      LocateSuccess := Locate('DATEDEB;DATEFIN', VarArrayOf([DateJour1.Date,DateJour2.Date]), SearchOptions);
    end;
    if not LocateSuccess then
       begin
         MessageDlg('        Cette date existe déjà !!!        ',
         mtInformation,[mbOk],0);
         exit;
       end;end;

il me dit que TLocateOptions et TLocateOptions ne sont pas declarés .
Merci pour votre aide.

[banban54]

bonjour

je pense que la solution se trouve un peu plus bas sur le forum à:
[Résolu] recherche date du jour
regardes le dernier post de Malatar!

à plus!

[tchimou]

Merci banban54 , je suis allé et j'ai decouvert que je devais declarer DB dans USES , et maintenant ça marche.
j'espère que je n'aurais plus de problemes avec cela.