Discussion :

[SergioMaster]

Bonjour,

je reprends une de mes marottes : les TListViews car je "tombe" sur un truc que je n'arrive pas à obtenir.

Soit une liste par exemple des montants de commandes clients.

Vous admettrez que si j'applique une recherche, le montant total fait "tâche"


J'arrive bien à indiquer le nombre d'éléments filtrés grâce à ce 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
procedure TForm3.ListView1Filter(Sender: TObject; const AFilter, AValue: string;
  var Accept: Boolean);
begin
   if OldFilter<>AFilter then
      begin
       OldFilter:=AFilter;
       nFiltered:=0;
      end;
   Accept:=Sametext(AValue,AFilter);
   if Accept then
    begin
     inc(nFiltered);
     Filtres.Text:=Format('Filtres %d',[nfiltered]);
    end;
end;

L'inconvénient c'est que le filtre n'indique pas de quel item il s'agit et donc je ne peux atteindre le montant de l'item
De même, la recherche ne positionne pas l'élément en cours sur la table il est donc exclu que je fasse quelque chose comme

Code :

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

montantFiltre:=montantFiltre+ClientDataSet1.FieldByName('ItemsTotal').asFloat

qui me donnerait nfiltered*ItemsTotal de la première ligne de la Table, soit dans l'exemple 6250,00

Une idée pour accéder au montant de l'élément au sein du OnFilter (sachant que dés que la condition du filtre est remplie on ne passe pas sur les autres objets texte de l'item) ?

P.S. j'ai bien idée de faire la somme des montants de éléments non filtrés pour les déduire de la somme total mais il y a certainement mieux ?

[ALWEBER]

Bonjour, essaye de m'envoyer un extrait des sources, je vais regarder. J'ai une petite idée sur le sujet

[SergioMaster]

Le projet est simple à dessein.
La seule chose qu'il faudra certainement modifié c'est l'emplacement du fichier du clientdataset (orders.xml).

Cela étant, je vais reprendre l'interface que j'ai exposé ici
avec mon idée de décompte et je pense pouvoir arriver à quelque chose de potable, avec un seul impératif cependant, le "montant" doit être le dernier objet texte (ce qui est le cas dans ce projet simple)

[SergioMaster]

OK, avec mon interface légèrement modifiée j'obtiens bien le sous total de la sélection



Maintenant un gros mystère reste, le montant total dans la version du #1 et donc du zip est totalement faux

pour cela j'utilisais un SQLLocal de cette manière

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 TForm3.ClientDataSet1AfterOpen(DataSet: TDataSet);
var t : Double;
begin
With FDConnection1 do
 begin
  Connected:=True;
  FDLocalSQL1.Active:=False;
  FDLocalSQL1.Active:=True;
  T:=ExecSQlScalar('SELECT SUM(ItemsTotal) FROM ClientDataset1');
  ShowMessage(Format('Total %3.2n',[T]));  // MntTotal.Text:=Format('Total %3.2n',[T]);
  FDLocalSQL1.Active:=False;
 end;
// ListView1.SetMode(smEqual);
// ListView1.Objects2Test.Add('text');
end;

peux t'on alors se fier à cette méthode ? A priori non mais j'aimerai bien savoir pour quelle raison j'ai un montant faux !

[SergioMaster]

Bonjour,
de retour avec un exemple plus concret, l'application sur laquelle je planche, j'ai un souci avec les avoirs

Cette histoire de montant total à décrémenter n'est donc pas au point, même si elle reste valable pour le premier exemple qui, lui, n'avait pas de montant négatif.

La solution que j'envisage porte donc sur le positionnement du montant en première position dans la liste de mes objets (facile ce n'est qu'une édition de Forme .FMX à faire) et un cumul de valeurs quoique, au moment où j'écrit ça je n'ai pas idée trés nette du comment

Pour info, en pj le projet exemple avec utilisation de l'interface

[SergioMaster]

Pour info c'est pour mon application

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
procedure TFormTableauBord.ListeFacturesFilter(Sender: TObject; const AFilter,
  AValue: string; var Accept: Boolean);
var m : String;
begin
  if Not Sametext(OldFilter,AFilter)  then
   begin
     OldFilter:=AFilter;
     SoldePartiel:=0;
   end;
  Accept:=ListeFactures.Accept(AFilter,AValue);
  if Sametext(ListeFactures.GetTextObjectsNames[ListeFactures.GetTextObjectIndex],'Montant') then
     begin
        m:=StringReplace(AValue,' ','',[rfReplaceAll]);  // enlève le "formatage" 
        MontantItem:=StrToFloatDef(M,0);               // mémorise le montant de l'élément de liste (placé comme  premier textObjet)
     end;
   if Accept then
     begin
       SoldePartiel:=SoldePartiel+MontantItem;       // ajoute le montant
     end;
   NombrePiece.Text:=Format('Filtre %3.2n / ',[SoldePartiel]); // "affichage" du Solde "partiel" 
   NombrePiece.Visible:=True;
 
end;

Pour ce qui est du SQLLocal sur un ClientDataset par contre je reste sceptique. Dans mon application j'utilise la même technique sur un FDQuery et, jusqu'à présent je n'ai pas trouvé d'erreur sur le calcul du montant