Discussion :

[Patrick25300]

Bonjour
J'ai des champs calculés dans mon application et j'hésite à utiliser soit IBDataSet_onCalcFields soit utiliser Firebird et dans ce cas faut-il utiliser un Déclencheur ou une procédure stockée. Si quelqu'un peut me conseiller.
Merci d'avance, bonne soirée.
Patrick

[Andry]

Salut
Cela dépend du traitement sui doit être fait.
Pour moi, si Firebird peut le faire en standard (sans utiliser UDF), j'hesite pas à le faire au niveau de la BDD : Création du champs et renseignement du traitement dans Computed by.

A+

[Just-Soft]

Salut;
Chacune des deux façons a ses avantages et ses inconvénients. Le grand avantage du calcul du champ au niveau de la BD est certainement l'élimination du code source de l'application avec tout les tests qui en découlent. Mais y a des règles pour cela: si le calcul est plus ou moins simple la BD est plus apte à le prendre en charge donc il faut le définir à ce niveau sinon le traitement doit être fait au niveau du source Delphi.
Bonne chance.

[Patrick25300]

Bonjour
J'ai résolu mon problème de cette façon:
Je rempli des champs pour le calcul lors de l'insertion ou la mise à jour des données.
Sans doute qu'il y a mieux, mais cela me simplifie le code de l'application et plus tard pour créer les états d'impression.
De plus ce déclencheur fonctionne que lors des validations des saisies, donc très peu par rapport au reste de l'application.

Code SQL :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
/******************************************************************************/
/****              Generated by IBExpert 18/08/2008 22:57:29               ****/
/******************************************************************************/
 
SET SQL DIALECT 3;
 
SET NAMES ISO8859_1;
 
 
SET TERM ^ ;
 
 
CREATE TRIGGER ART_MAJ_PRIX FOR ARTICLE
ACTIVE BEFORE INSERT OR UPDATE POSITION 1
AS
/* Before = avant */
/* mise à jour des prix calculés */
declare variable V_PrixStk float;
declare variable V_PrixHT float;
declare variable V_PrixTTC float;
 
begin
/* le PrixStk est géré suivant la saisie de l'application */
if  ((new.ART_SUBDIVISION is null) or (new.ART_SUBDIVISION = 0)) then
begin
/* le PrixStk correspond à la saisie */
 V_PRIXSTK = new.ART_PRIX_STK;
end
ELSE
begin
/* le PrixStk est calculé */
 V_PRIXSTK = new.ART_PRIX_CDE / new.ART_SUBDIVISION;
 new.ART_PRIX_STK = V_PRIXSTK;
end
 
/* le PrixHT est géré suivant la saisie de l'application */
if  ((new.ART_COEF_PRIX is null) or (new.ART_COEF_PRIX = 0)) then
begin
/* le PrixHT correspond à la saisie */
 V_PRIXHT = new.ART_PRIX_HT;
end
ELSE
begin
/* le PrixHT est calculé */
V_PRIXHT = V_PRIXSTK * new.ART_COEF_PRIX;
new.ART_PRIX_HT = V_PRIXHT;
end
 
 
/* calcule du PrixTTC */
 
new.ART_PRIX_TTC = V_PRIXHT + (V_PRIXHT * (new.TVA_TYPE/100));
new.ART_PRIX_TOTAL = new.ART_PRIX_HT * new.ART_QTE_PHY;
 
 
end
^
 
 
SET TERM ; ^

Merci à tout ceux qui ont participé à cette demande;
Patrick25300