Discussion :

[damene]

Bonjour à tous.

Je veux filtrer une table en comparant deux champs de la table (par exemple le montant d'une facture et le montant du versement ie les factures non soldées) sans avoir à créer un troisième champ solde.

En effet quand je filtre sur un champ seul par rapport à une constante ça marche, mais dès que je compare deux champs entre eux je reçois le message :"Opération non applicable".

Merci.

[Aka Guymelef]

Quel est le filtre que tu appliques pour les deux champs à la fois et qui te génère cette erreur ?

[damene]

La table a pour nom : tbFacture
le 1er champ "montant versé" : MontantVerse
Le 2ème champ "Montant en TTC" :MontantTTC
et je veux avoir la liste des factures non soldées

Code :

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

1
2
tbFacture.Filter:='MontantVerse<MontantTTC';
tbFacture.Filtered:=True;

Je reçois le message : "Opération non applicable"

[Franck SORIANO]

Dit comme ça, ça a l'air correcte.

Tu es sûr de l'orthographe des champs ?
Est-ce que les deux champs sont du même type, est-ce que les types sont comparables ?

Tu travailles avec quels composants ? quels SGBD ?

[damene]

Je travaille avec Delphi 7
la Base de Données : BDE
Fichier : Paradox
Composant : TTable.

Je suis sur de l'orthographe puis que je ramène le nom des champs par un Copier/Coller.

Le deux champs sont numériques.

Si je prends les champs séparément en posant par exemple comme filtre le montant de l'un ou de l'autre champ inférieur à une valeur constante cela marche.
Mais si je prends la différence des deux champs en posant comme condition la différence négative ou l'un inférieur à l'autre, il sort alors le message "arithmétique non supportée par le filtre" pour le premier cas et "opération non applicable" pour le deuxième

[Cl@udius]

Salut

A priori je ne vois pas d'erreur dans l'expression de ton filtre. Tu peux essayer en passant par l'évènement OnFilterRecord du DataSet:

Code :

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

1
2
3
4
5
6
procedure TForm1.tbFactureFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  with DataSet do
    Accept := FieldByName('MontantVerse').AsCurrency < FieldByName('MontantTTC').AsCurrency;
end;

@+ Claudius

[damene]

Exact, c'était la solution et le help de OnFilterRecord le confirme :

Utilisez un gestionnaire d'événements OnFilterRecord pour filtrer les enregistrements en utilisant un critère ne pouvant être implémentéen utilisant la propriété Filter.Par exemple,en utilisant la propriété Filter, les comparaisons de champs ne sont pas autorisées pour les tables locales (Paradox, dBASE, Access, FoxPro) alors qu'un gestionnaire d'événements OnFilterRecord peut implémenter toute forme de critère.

Il y a cependant un inconvéniant. Losque le filtrage est activé par la propriété Filtered a la valeur true, tous les autres filtres sur la table tdFacture subissent cette condition.

En d'autres termes si on veut avoir toutes les factures d'un même Client on les a mais sans les factures soldées.

j'ai essayé d'initialiser la variable 'accept' et je lui donne la valeur False lorsque je filtre sur les factures d'un même client ça me donne toujours les factures remplissant seulement la condition de OnFilterRecord, les autres factures du Client ne remplissant pas la condition de OnFilterRecord sont omises.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.tbFactureFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
 begin
    If Accept then
    begin
      with DataSet do
      Accept := FieldByName('MontantVerse').AsCurrency < 
                    FieldByName  'MontantTTC').AsCurrency;
     end;
end;

Comment alors rendre dans l'application, le filtre OnFilterRecord inactif lorsqu'un autre filtre utilisant la propriété Filtre est activé;

[damene]

autant pour moi!

Il fallait initialiser une variable autre que accept pour que ça marche ( par exemple NonSolde). En effet avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.tbFactureFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
 begin
    If NonSolde then
    begin
      with DataSet do
      Accept := FieldByName('MontantVerse').AsCurrency < 
                    FieldByName  'MontantTTC').AsCurrency;
     end;
end;

Le résultat est Total.
Si on veut filtrer sur autre chose que les factures non soldées, on fixe 'NonSolde' à False, sinon on lui donne la valeur True.

Merci à tous.

[Cl@udius]

Re,

Le filtre effectué par OnFilterRecord n'exclut pas la condition exprimée par la propriété Filter. Les 2 filtres "s'accumulent".

Donc je te propose ceci: de faire fonctionner l'un ou l'autre. Soit la condition de Filter ou le traitement de OnFilterRecord.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.tbFactureFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  if DataSet.Filter <> '' then
    Accept := True
  else
    Accept := FieldByName('MontantVerse').AsCurrency < FieldByName('MontantTTC').AsCurrency;
end;

Ainsi si tu précise un Code Client dans la propriété Filter tu obtiendras toutes ses factures.
A l'inverse lorsque Filter est vide ('') tu obtiendras uniquement les factures non soldées tous clients confondus.

Je n'ai pas testé, mais cela devrait fonctionner.

@+ Claudius

[damene]

Exact.
J'avais remarqué que les deux filtres se cumulaient.
Il fallait que lorque l'un est actif l'autre devait être inactif. Moi j'avais trouvé une autre parade : avant de filtrer sur onFilterRecord, rajouté

tbFacture.Filter:='';


Je n'avais pas donné rapidement cette info.

Cependant ta formule est plus élégante.

Merci

Problème résolu

[damene]

re
j'ai testé la formule que tu préconises:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.tbFactureFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  if DataSet.Filter <> '' then
    Accept := True
  else
    Accept := FieldByName('MontantVerse').AsCurrency < FieldByName('MontantTTC').AsCurrency;
end;

A la compilation j'ai le message suivant :
[Erreur] Uprincipal.pas(2079): Identificateur non déclaré : 'FieldByName'

Par Contre avec la formule d'une variable booleene supplémentaire NonSolde que je fixe à True (pout tester sur OnFilterRecord) et faux avec tbFacture.Filter;='' (pour tester sur la propriété Filter) ça marche à merveille.
soit :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.tbFactureFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
 begin
    If NonSolde then
    begin
      with DataSet do
      Accept := FieldByName('MontantVerse').AsCurrency < 
                    FieldByName  'MontantTTC').AsCurrency;
     end;
end;

merci.

[Cl@udius]

A la compilation j'ai le message suivant :
[Erreur] Uprincipal.pas(2079): Identificateur non déclaré : 'FieldByName'

A oui effectivement, j'ai commis une petite erreur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.tbFactureFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  with DataSet do
  begin
    if Filter <> '' then
      Accept := True
    else
      Accept := FieldByName('MontantVerse').AsCurrency < FieldByName('MontantTTC').AsCurrency;
  end;
end;

Mais si ta méthode fonctionne, tant mieux.

@+ Claudius

[damene]

C'est parfait.
ça marche très bien.
Je préfère ta solution car j'ai une variable en moins à gérer.
Merci.

[Cl@udius]

Merci.