Discussion :

[bzh56]

Bonjour,
Je viens d'ajouter un test supplémentaire al'aide d'un OR, mais j'ai une erreur que je ne parviens pas à trouver: Je joins ce bout de code, si vous avez une idée,
Je vous remercie.

Code :

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

1
2
3
4
5
6
7
8
9
10
with Datasource1.DataSet do
      begin
   filter := '';
   filtered := False;
   filter := 'date_fact <=  ' + datetostr(Datetimepicker1.date);
   filter := filter + ' AND REGLE_LE  = NULL' ;
   Filter := filter + ' OR REGLE_LE  > ' + datetostr(Datetimepicker1.date); 
   filter := filter + ' AND PCENT_TVA  = 0   ' ;
   filtered := True;
end;

[qi130]

mais j'ai une erreur

LAQUELLE ?????

[bzh56]

LAQUELLE ?????

à la compil, pas de probl.
A l'éxécution:le message suivant.
Le projet xxx a provoqué uen classe d'exception EOLeExecption avec le message " Arguments are of the wrong type, are out of acceptable range, or in conflict with one another".
Merci d'avoir pris en compte mon probl.
Cordialement,
Alain

[Clorish]

le probleme ne viens pas de la syntaxe delphi.

Pour la violation d'acces, verifie que le DateTimePicket est bien crée.
Sinon c'est l'utilisation du filtre qui pose probleme. Bonne syntaxe ?

[bzh56]

le probleme ne viens pas de la syntaxe delphi.

Pour la violation d'acces, verifie que le DateTimePicket est bien crée.
Sinon c'est l'utilisation du filtre qui pose probleme. Bonne syntaxe ?

Effectivement c'est un probleme de syntaxe sur le filter, car avant l'ajout du test sur sur la date > a datetimepicker1, tout fonctionnait.
Le datetime picker1 existe puisque déja sollicité plus haut.
Je pense à des parenthèses mal placées, mais depuis ce matin à travers mes recherches et mes docs je ne trouve pas.
merci quand meme.

[aityahia]

il faudrait pas mettre la date entre quote ' ' ?

PS: il est préférable de passer aux requêtes SQL.

[tourlourou]

a-t'on le droit d'écrire "machin and truc or bidule" sans parenthèses pour les priorités d'opérateurs logiques ?

[bzh56]

a-t'on le droit d'écrire "machin and truc or bidule" sans parenthèses pour les priorités d'opérateurs logiques ?

J'ai éssauyé également en mettant des parenthèses, mais rien de mieux.
Merci

[qi130]

Peux-tu fournir la définition de la table ?

[TryExceptEnd]

le probleme viens du manque de quotes comme signalé plus haut. la solution est d'en mettre : QUOTEDSTR(datetostr(Datetimepicker1.date))

[bzh56]

le probleme viens du manque de quotes comme signalé plus haut. la solution est d'en mettre : QUOTEDSTR(datetostr(Datetimepicker1.date))

Bonjour,
Je reviens vers vous car j'ai essayé vos dernières suggestions mais sans succès.
Je livre le dernier bout de code utilisé, avec toujours le meme message d'erreur.
Merci de votre aide


filter := '';
filtered := False;
filter := 'date_fact <= ' + QUOTEDSTR(datetostr(Datetimepicker1.date));
filter := filter + ' AND (REGLE_LE = NULL)' ;
Filter := filter + ' OR REGLE_LE > ' + QUOTEDSTR(datetostr(Datetimepicker1.date));
filter := filter + ' AND PCENT_TVA = 0 ' ;
filtered := True;

[Cl@udius]

Salut

As-tu essayé en utilisant OnFilterRecord de ton DataSet ?

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
 
procedure TForm1.QueryFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  Cond1, Cond2: Boolean;
begin
  with DataSet do
  begin
    Cond1 := (FieldByName('DATE_FACT').AsDateTime <= DateTimePicker1.Date) and
             (FieldByName('REGLE_LE').IsNull);
    Cond2 := (FieldByName('REGLE_LE').AsDateTime > DateTimePicker1.Date) and
             (FieldByName('PCENT_TVA').AsFloat = 0);
  end;
  Accept := Cond1 or Cond2;
end;

@+ Claudius

[bzh56]

Salut

As-tu essayé en utilisant OnFilterRecord de ton DataSet ?

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
 
procedure TForm1.QueryFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  Cond1, Cond2: Boolean;
begin
  with DataSet do
  begin
    Cond1 := (FieldByName('DATE_FACT').AsDateTime <= DateTimePicker1.Date) and
             (FieldByName('REGLE_LE').IsNull);
    Cond2 := (FieldByName('REGLE_LE').AsDateTime > DateTimePicker1.Date) and
             (FieldByName('PCENT_TVA').AsFloat = 0);
  end;
  Accept := Cond1 or Cond2;
end;

@+ Claudius

Bonjour Claudius,
Non , je n'avais pas pensé à cette solution car jamais utilisée mais cela fonctionne .j'ai adapté les AND pour mes conditiond et j'obtiens mon report imprimé ensuite. il me reste à vérifier les résultats.
Par contre lorsque je quitte j'ai un plantage avec le message suivant; Le projet... a provoqué une classe d'execption Edatabase Error avec le message 'ADOTABLE1: enregistrement non trouvé". Je pense qu'il est après la fin de la table. Je vais jeté un oeil.
Je mets le bout de code qui fonctionne

procedure TForm2.ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);

var Cond1, Cond2: Boolean;
begin
with DataSet do

begin
Cond1 := (FieldByName('DATE_FACT').AsDateTime <= DateTimePicker1.Date) and
(FieldByName('REGLE_LE').IsNull) and (FieldByName('PCENT_TVA').AsFloat = 0) ;
Cond2 := (FieldByName('DATE_FACT').AsDateTime <= DateTimePicker1.Date) and
(FieldByName('REGLE_LE').AsDateTime > DateTimePicker1.Date) and
(FieldByName('PCENT_TVA').AsFloat = 0);
end;
Accept := Cond1 or Cond2;
end;
Encore MERCI
Cordialement
Alain

[aityahia]

@bzh56
pour mettre en évidence votre code.