[SQlite] [Firedac]ajout de fonctions

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Il y a quelques temps, je découvrais la possibilité d'ajouter des fonctions au moteur SQLite (voir ici).
Ajourd'hui j'ai voulu faire le malin pour éviter des champs calculés et :bug:

Code:

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
27
28
29
30
31
32
33
34
35
36
 
procedure TDM.FDSQLiteFunction1Calculate(AFunc: TSQLiteFunctionInstance;
  AInputs: TSQLiteInputs; AOutput: TSQLiteOutput; var AUserData: TObject);
begin
  // vient du sample de l'aide 
  // nom de fonction mult 2 parametres currency, integer
  AOutput.AsCurrency := AInputs[0].AsCurrency * AInputs[1].AsInteger;
end;
 
procedure TDM.FDSQLiteFunctionAAAAMMJJ2DateCalculate(
  AFunc: TSQLiteFunctionInstance; AInputs: TSQLiteInputs;
  AOutput: TSQLiteOutput; var AUserData: TObject);
var vSDate : String;
    vDate : TDate;
begin
// nom de la fonction AAAAMMJJ2DATE paramètre String sous la forme yyyymmdd (patrick reconnaitra son idée, dernière session twitch) 
vsDate:=AInputs[0].AsString;
vDate:=EncodeDate(StrToInt(Copy(vsdate,1,4)),
                  StrToInt(Copy(vsdate,5,2)),
                  StrToInt(Copy(vsdate,7,2)));
AOutput.AsDate:=vDate;
end;
 
procedure TDM.FDSQLiteFunctionMontantCalculate(
  AFunc: TSQLiteFunctionInstance; AInputs: TSQLiteInputs;
  AOutput: TSQLiteOutput; var AUserData: TObject);
var vMontant : Currency;
    IMontant : String;
begin
 // nom de la fonction montantreel paramètres numeric(10,2), char (patrick reconnaitra son idée, dernière session twitch) 
 IMontant:=AInputs[0].AsString;
 Vmontant:=StrToFloat(IMontant);
 if Ainputs[1].AsString='-'
    then vMontant:=Vmontant * -1;
 AOutput.AsCurrency:=vMontant;
end;

J'espérai obtenir respectivement une colonne Currency, Date et Currency mais je me retrouve à chaque fois avec une string
Pièce jointe 591418

Je doit oublier quelque chose mais :koi:

19/02/2021, 11h24
ShaiLeTroll

Essaye AOutput.ExtDataType := etCurrency si le AsCurrency ne le fait pas

J'y avais pensé, pas sous cette forme plus simple, mais avec Output.SetData(@valeur,0,TSQLiteExtDataType.etCurrency);Mais non :(
Je crains que la réalité soit plus complexe.

par exemple :
Code:

1 2 3 4 5 6 7 8 procedure TDM.FDSQLiteFunction1Calculate(AFunc: TSQLiteFunctionInstance; AInputs: TSQLiteInputs; AOutput: TSQLiteOutput; var AUserData: TObject); var montant : integer; aFormatSettings: TFormatSettings; begin montant:=Ainputs[1].AsInteger*Ainputs[1].AsInteger; AOutput.asinteger := montant; end;
le passage d'un entier fonctionne

20/02/2021, 12h34
SergioMaster
Alors cela m'apprendra à lire la documentation. Heureusement Dmitri Arefiev est encore là pour me le rappeler

Citation:

SQLite est une base de données vraiment sans type. Lorsque vous utilisez AOutput.AsCurrency, FireDAC le mappe à SQLITE_TEXT (pour conserver la précision) et AOutput.AsFloat à SQLITE_FLOAT. Pour 'remapper' une expression dans la liste SELECT vers un type spécifique Delphi, vous devez utiliser une construction spéciale dans la liste SELECT:

Code:

<expression> AS "<alias>::<type>"

voir http://docwiki.embarcadero.com/RADSt...ireDAC_Mapping

J'ai donc changé ma requête en conséquence, pour l'instant un test avec le montant
Code:

1 2 3 4 5 Select id,montant,sens, testmnt(sens,montant) as "MNT::CURRENCY", asIntvalue(sens) as "IntSens::INT", montant*asIntvalue(sens) as "MNTBIS::CURRENCY" from ecritures