Discussion :

[Heremion]

Bonjour à tous,

Voici maintenant plusieurs heures que je m'arrache les cheveux sur un problème rencontré lors de l'exécution de mon programme en Delphi (avec Delphi 2009).

J'ai une base Interbase connectée et à laquelle je me connecte via le process classique IBDatabase / IBTransaction / mes IBTables.
Lorsque j'exécute mon programme, il me demande les éléments suivants en sachant que rien n'est commité tant que je ne suis pas arrivé à la fin du processus au cas où j'annulerai en cours de route :
- créer une facture puis post
- créer les lignes de factures puis post
--- > implique un recalcul automatique du total de la facture

Je choisis de valider. Avant d'arriver à l'instruction IBTransaction.Commit, tous mes champs sont renseignés, y compris mon champ TOTAL.
Dès que l'instruction IBTransaction.Commit est passée, tout a été enregistré sauf la valeur de TOTAL qui vaut NULL.

Je ne pense pas que cela vienne vraiment de l'instruction Commit car une partie des données est bien commitée. Je ne pense pas que cela provienne du recalcul de la facture puisque la valeur apparait bien dans le champ TOTAL après chaque ajout.

Est-ce que quelqu'un aurait une idée par hasard ?

Je voudrais bien copier ici mon code mais il s'avère que mon Unit fait dans les 1000 lignes et je doute que ce soit simple de s'y retrouver.

J'espère, chers Delphistes, que vous pourrez m'apporter un peu d'aide.

Merci beaucoup.

[e-ric]

Salut

Si le total est enregistré dans la table facture et que tu affectes la valeur du total après le post, c'est normal que le total ne soit pas affecté. Dans cette hypothèse, tu aurais dû cependant avoir un message d'erreur. Toujours dans la même hypothèse, je te propose de passer ta facture en mode Edit avant d'affecter le résultat du calcul, et de poster à nouveau (attention cependant à tes gestionnaires dévénements OnBeforePost et OnAfterPost).

Remarque : Le commit ne fait pas de Post.

@+

[Heremion]

Salut

Si le total est enregistré dans la table facture et que tu affectes la valeur du total après le post, c'est normal que le total ne soit pas affecté. Dans cette hypothèse, tu aurais dû cependant avoir un message d'erreur. Toujours dans la même hypothèse, je te propose de passer ta facture en mode Edit avant d'affecter le résultat du calcul, et de poster à nouveau (attention cependant à tes gestionnaires dévénements OnBeforePost et OnAfterPost).

Remarque : Le commit ne fait pas de Post.

@+

J'ai bien regardé, et en fait, quand je post la ligne de facture, derrière je fais bien un Facture.edit, je mets à jour ses champs puis je fais un Facture.post.
Quand je fais le commit, toutes mes tables sont en dsBrowse et postées... c'est bizarre.

Par contre, petite question, si je fais une première fois un Facture.post, puis Facture.edit, puis Facture.post et que je fais un IBTransaction.commit, quelles sont les données prises en compte dans ma facture ?

[e-ric]

Quand je fais le commit, toutes mes tables sont en dsBrowse et postées... c'est bizarre.

Après le Facture.Post, il est normal que les ensembles de données soient en dsBrowse.

Par contre, petite question, si je fais une première fois un Facture.post, puis Facture.edit, puis Facture.post et que je fais un IBTransaction.commit, quelles sont les données prises en compte dans ma facture ?

Les données qui sont marquées modifiées ou insérées, la fonction virtuelle TDatraSet.UpdateStatus : TUpdateStatus; te permet de connaître l'état des données quand tu travailles avec un cache si je me souviens bien (à vérifier avec les composants que tu utilises).

[Heremion]

Après le Facture.Post, il est normal que les ensembles de données soient en dsBrowse.


Les données qui sont marquées modifiées ou insérées, la fonction virtuelle TDatraSet.UpdateStatus : TUpdateStatus; te permet de connaître l'état des données quand tu travailles avec un cache si je me souviens bien (à vérifier avec les composants que tu utilises).

Je viens de regarder et lors du OnUpdateData, j'ai bien la valeur dans mon champ. J'ai vraiment l'impression que c'est lors du commit or j'ai rien, aucun évènement BeforeCommit ou AfterCommit. Et dans les Before et AfterPost, rien qui ne mette à jour ce champ... c'est à devenir fou...

[e-ric]

Cela fait longtemps que je n'ai pas mis les mains dans ce type de développement.
As-tu vérifié si, dans ta table Facture, il n'y a pas un trigger qui foutrait la grouille ?
Vérifie le schéma de ta base.

Dans le gestionnaire OnUpdateData du DataSetProvider , j'avais l'habitude de forcer les règles de mises à jour :

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 TLivreSrvDm.dspLIVRESUpdateData(Sender: TObject;DataSet: TCustomClientDataSet);
begin
  inherited;
  with DataSet do
  begin
    FieldByName('ID').ProviderFlags := [pfInKey,pfInWhere,pfInUpdate];
    FieldByName('TITRE').ProviderFlags := [pfInUpdate];
    FieldByName('AUT_ID').ProviderFlags := [pfInUpdate];
    FieldByName('CLS_ID').ProviderFlags := [pfInUpdate];
    FieldByName('CLS_INITIALE').ProviderFlags := [pfInUpdate];
    FieldByName('COTE').ProviderFlags := [pfInUpdate];
    FieldByName('AUTEUR3L').ProviderFlags := [pfInUpdate];
    FieldByName('NOTES').ProviderFlags := [pfInUpdate];
    FieldByName('TITRE_SNDX').ProviderFlags := [pfInUpdate];
    FieldByName('EXP_ID').ProviderFlags := [pfInKey,pfInWhere,pfInUpdate];
    FieldByName('LIV_ID').ProviderFlags := [pfInUpdate];
    FieldByName('NUMERO_EX').ProviderFlags := [pfInUpdate];
    FieldByName('ACQUISITION_DT').ProviderFlags := [pfInUpdate];
    FieldByName('PRIX').ProviderFlags := [pfInUpdate];
    FieldByName('DON').ProviderFlags := [pfInUpdate];
    FieldByName('NOM').ProviderFlags := []; // pas de mise à jour, astuce de saisie
  end;
End;

Est-ce que :
- tu utilises un DataSetProvider ?
- dans ce cas, es-tu certain de la valeur de la propriété ProviderFlags de ton champ Total ?

[Heremion]

Cela fait longtemps que je n'ai pas mis les mains dans ce type de développement.
As-tu vérifié si, dans ta table Facture, il n'y a pas un trigger qui foutrait la grouille ?
Vérifie le schéma de ta base.

Dans le gestionnaire OnUpdateData du DataSetProvider , j'avais l'habitude de forcer les règles de mises à jour :

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 TLivreSrvDm.dspLIVRESUpdateData(Sender: TObject;DataSet: TCustomClientDataSet);
begin
  inherited;
  with DataSet do
  begin
    FieldByName('ID').ProviderFlags := [pfInKey,pfInWhere,pfInUpdate];
    FieldByName('TITRE').ProviderFlags := [pfInUpdate];
    FieldByName('AUT_ID').ProviderFlags := [pfInUpdate];
    FieldByName('CLS_ID').ProviderFlags := [pfInUpdate];
    FieldByName('CLS_INITIALE').ProviderFlags := [pfInUpdate];
    FieldByName('COTE').ProviderFlags := [pfInUpdate];
    FieldByName('AUTEUR3L').ProviderFlags := [pfInUpdate];
    FieldByName('NOTES').ProviderFlags := [pfInUpdate];
    FieldByName('TITRE_SNDX').ProviderFlags := [pfInUpdate];
    FieldByName('EXP_ID').ProviderFlags := [pfInKey,pfInWhere,pfInUpdate];
    FieldByName('LIV_ID').ProviderFlags := [pfInUpdate];
    FieldByName('NUMERO_EX').ProviderFlags := [pfInUpdate];
    FieldByName('ACQUISITION_DT').ProviderFlags := [pfInUpdate];
    FieldByName('PRIX').ProviderFlags := [pfInUpdate];
    FieldByName('DON').ProviderFlags := [pfInUpdate];
    FieldByName('NOM').ProviderFlags := []; // pas de mise à jour, astuce de saisie
  end;
End;

Est-ce que :
- tu utilises un DataSetProvider ?
- dans ce cas, es-tu certain de la valeur de la propriété ProviderFlags de ton champ Total ?

Non je n'utilise pas de DataSetProvider. J'ai simplement IBDataBase/IBTable/DataSource

[e-ric]

Pas de trigger non plus ??

[Heremion]

Pas de trigger non plus ??

Sur facture, j'ai juste un beforePost dans lequel je mets à jour le TOTAL à condition qu'il soit NULL

[e-ric]

Si dans le BeforePost, tu mets à jour le total, tu n'as plus besoin de passer en suite par

Est-ce qu'il y a beaucoup de code dans ton BeforePost ?

En outre, quand je parle de trigger, je parle de déclencheur au sens des SGBD, du genre Before Insert, Before Update embarqué dans la base de données, pas dans le code de ton programme :

Code sql :

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

1
2
3
4
5
6
7
CREATE OR ALTER TRIGGER CTC$ID$TBI FOR CONTACT BEFORE INSERT POSITION 0 AS
BEGIN
  IF (NEW.ID IS NULL) THEN
  BEGIN
    NEW.ID = NEXT VALUE FOR GLOBAL$SQ;
  END
END ^

@+

[Heremion]

Si dans le BeforePost, tu mets à jour le total, tu n'as plus besoin de passer en suite par

Est-ce qu'il y a beaucoup de code dans ton BeforePost ?

En outre, quand je parle de trigger, je parle de déclencheur au sens des SGBD, du genre Before Insert, Before Update embarqué dans la base de données, pas dans le code de ton programme :

Code sql :

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

1
2
3
4
5
6
7
CREATE OR ALTER TRIGGER CTC$ID$TBI FOR CONTACT BEFORE INSERT POSITION 0 AS
BEGIN
  IF (NEW.ID IS NULL) THEN
  BEGIN
    NEW.ID = NEXT VALUE FOR GLOBAL$SQ;
  END
END ^

@+

Bonjour e-ric,

Non aucun trigger en base. Cela fait deux jours que je fais du pas-à-pas sans savoir pourquoi au dernier moment, le commit ne me prend pas les modifs...
Ce qui est bizarre, c'est que ma table facture est bien en mode Browse juste avant le commit, j'ai bien voulu retenter un post dessus au cas où mais cela me renvoie l'erreur comme quoi elle n'est pas en mode dsInsert,dsEdit donc pour moi, le post a bien pris les modifs et le commit est censé les valider mais quand je consulte les données ensuite, j'ai toujours 0 dedans, valeur mise à l'initialisation (création de la facture)

[e-ric]

salut

As-tu essayé d'affecter les propriété ProviderFlag des champs de ton ensemble de données comme je le suggérais dans mon exemple ? Il me semble que j'avais des soucis similaires (cela fait bien 10 ans donc je n'ai plus de certitudes à ce sujet) et que j'avais trouvé cela comme remède.

@+

[Heremion]

salut

As-tu essayé d'affecter les propriété ProviderFlag des champs de ton ensemble de données comme je le suggérais dans mon exemple ? Il me semble que j'avais des soucis similaires (cela fait bien 10 ans donc je n'ai plus de certitudes à ce sujet) et que j'avais trouvé cela comme remède.

@+

Je viens de tester avec ta méthode, malheureusement, cela ne s'avère pas payant ...

[Heremion]

Après je me pose une question, voici comment se déroule grosso merdo le programme :

• j'ouvre ma form
  j'ouvre une transaction (dans le cas d'un rollback si besoin d'annuler la création de la facture complète)
  je crée une facture et mets le total de la facture à 0 puis Facture.post
  je crée les différentes lignes de facture
  dans le facture.beforePost, je recalcule le total des lignes de factures et fais un facture.edit, mets à jour le cout total puis facture.post
  je commit

Ma question est la suivante, si je mets à jour deux fois d'affilé le champ COUT de facture et que je post, puis je commit le tout, les deux posts ne vont-ils pas interférer ?

[SergioMaster]

dans le facture.beforePost, je recalcule le total des lignes de factures et fais un facture.edit, mets à jour le cout total puis facture.post

je crois que ça pêche , je suis pas sur que le beforepost soit le bon endroit .

je verrais plutôt comme ceci

• je fait un Edit de la facture (bidon)
• je fait un post // qui va declencher le before post
• Dans le beforepost j'ai un calcul du total des lignes de factures
• et met à jour le champ total

[Heremion]

je crois que ça pêche , je suis pas sur que le beforepost soit le bon endroit .

je verrais plutôt comme ceci

• je fait un Edit de la facture (bidon)
• je fait un post // qui va declencher le before post
• Dans le beforepost j'ai un calcul du total des lignes de factures
• et met à jour le champ total

Bonjour SergioMaster,

Je vais tester cette approche et t'informerai du résultat. Merci en tout cas de t'intéresser à mon problème

[Heremion]

salut SergioMaster,

j'ai testé ta suggestion, malheureusement, le problème persiste...

As-tu une idée par rapport à la question que je me posais par rapport à deux posts successifs et un commit pour la prise en compte des data ?

[SergioMaster]

Bonjour,

As-tu une idée par rapport à la question que je me posais par rapport à deux posts successifs et un commit pour la prise en compte des data ?

en fait non , j'avais juste été choqué par la liste d'actions telle que tu l'avais indiquée .
Je ne suis pas très IBTables et transactions ouvertes trop longtemps (le temps de la saisie des lignes peut être très/trop long) , en général mon commit se fait dès mon UPDATE/INSERT/DELETE (bref presque un autocommit). Ceci expliquant cela , je n'ai jamais fait deux posts sur un record pour un seul commit .

[alheuredudejeuner]

Le champ total se met à jour, si après ton travail et commit, tu le revalorises ? Ça fonctionne ?

Parce que ce serai pas inintéressant de voir si le update de total fonctionne hors contexte.

cordialement

[Heremion]

Le champ total se met à jour, si après ton travail et commit, tu le revalorises ? Ça fonctionne ?

Parce que ce serai pas inintéressant de voir si le update de total fonctionne hors contexte.

cordialement

Bonjour aleurdudejeuner, ()

Je viens de tester et en fait, juste après le commit, si je fais un edit il me renvoie l'erreur "...ne peut effectuer de modifications sur un ensemble de données fermé...", bizarre. En outrepassant cette erreur, si je fais un edit, modif, post puis commit, j'ai effectivement bien la donnée dans mon champ...

Je n'ai aucun close ou refresh après le commit, qu'est-ce qui pourrait bien la close (puisque c'est ce que me dit le message d'erreur quand je tente un edit?)