Discussion :

[windmastr26]

Hello,

Je suis en train de travailler sur un logiciel de gestion d'adhérents. Le cahier des charges m'impose d'implémenter toute une partie "comptabilité" également. Cela signifie que, sur la partie adhésions, pour chaque adhésion enregistrée, je dois insérer dans la base de données les écritures correspondantes dans une table que j'ai appelé "écritures" (base FireBird) :

Code :

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

1
2
3
4
5
6
7
8
9
10
ECRITURES
id (int)
exercice (int) 
journal (varchar)
date (date)
compte (varchar)
piece (varchar)
libelle (varchar)
montant (double)
pointage (varchar)

J'ai pour cela créé une fonction "ecrire" sous Delphi :

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
function ecrire(journal : string; dateEcriture : TDate; compte,piece,libelle : string; montant : double) : boolean;
begin
  With data_main.BD_ecritures do
  begin
    Open; Insert;
    FieldByName('EXERCICE').AsInteger:=1;
    FieldByName('JOURNAL').AsString:='VE';
    FieldByName('DATE').AsDateTime:=dateEcriture;
    FieldByName('COMPTE').AsString:=compte;
    FieldByName('PIECE').AsString:=piece;
    FieldByName('LIBELLE').AsString:=libelle;
    FieldByName('MONTANT').AsCurrency:=montant;
    Post; Close;
  end;
  Result:=true;
end;

Seulement voilà : comment gérer les erreurs dans ce genre de cas ?

Je veux dire, prenons une écriture d'adhésion :

1. Enregistrement de la dette de l'adhérent
2. Enregistrement du produit (adhésion)
3. Enregistrement du produit (dons éventuels)

La fonction "ecrire" sera donc appelée 3 fois. Mais que faire si une des 3 insertions se déroule mal ? Peut être utiliser les "transactions" mais je trouve ce système incompatible avec ma fonction "ecrire" et je ne vois pas comment le mettre en oeuvre...

Avez-vous des idées ? Des avis ? Merci

[evarisnea]

je vois bien une transaction gérer cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
StartTransaction;
try
  //Enregistrement de la dette de l'adhérent
  //Enregistrement du produit (adhésion)
  //Enregistrement du produit (dons éventuels)
 
  // valider la transaction
  CommitTransaction;
catch
  RollbackTransaction;
  //message d'erreur
end;

[SergioMaster]

Avec BDE il faut utiliser la propriété CacheUpdates de TTable
puis ApplyUpdates

Code aide delphi :

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
 
procedure ApplyButtonClick(Sender: TObject);
 
begin
with CustomerQuery do
begin
Database1.StartTransaction;
try
ApplyUpdates; {essayer d'écrire les mises à jour dans la base};
Database1.Commit; {en cas de réussite, valider les modifications};
except
Database1.Rollback; {en cas d'échec, annuler les modifications};
raise; {déclencher l'exception pour empêcher l'appel de CommitUpdates!}
end;
CommitUpdates; {en cas de réussite, effacer le cache}
end;
end;

[windmastr26]

Merci à vous 2 pour vos précieuses réponses.

En fait, ici je sais à l'avance que pour cette opération j'aurai 3 écritures. Mais à coté de ça, l'utilisateur pourra aussi enregistrer ses opérations courantes et là je ne sais pas combien d'écritures il y aura : 2 dans la plus part des cas (un tiers et une charge/un produit), mais il peut aussi y en avoir plusieurs. Du coup, je vais devoir appeler "ecrire" plusieurs fois dans une boucle, et de ce fait je ne peux pas inclure la vérification de la transaction dans la fonction "ecrire" car elle n'aurait que peu d'utilité.

Mais en lisant vos propositions, j'ai eu une idée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure demarrerEcriture
	//Ouverture de la table
	//Démarrage de la transaction
 
procedure ecrire : boolean
	//Insertion de l'écriture
 
procedure appliquerEcriture : boolean
	//Application des mises à jour de la table
	//Si ok => validation des modif => renvoi true
	//Si non => annulation des mises à jour => renvoi false
	//suppression du cache

du coup il ne me restera plus qu'à faire ça :

Code :

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

1
2
3
4
5
demarrerEcriture;
tantQue ligneDansMonTableauDeSaisie faire
  ecrire;
fin
appliquerEcriture;

Je pense pouvoir m'en sortir comme ça !

Merci encore !

[windmastr26]

Je complète ma précédente réponse :

Code :

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

1
2
3
4
5
6
function Tdata_main.demarrerEcritures : boolean;
begin
  data_main.BD_ecritures.Open;
  data_main.BD_ecritures.Transaction.CommitRetaining; //Lance la transaction
  Result:=true;
end;

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
function Tdata_main.ecrire(journal : string;
                           dateEcriture : TDate;
                           compte,piece,libelle : string;
                           montant : double) : boolean;
begin
  try
    With data_main.BD_ecritures do
    begin
      Insert;
      FieldByName('EXERCICE').AsInteger:=Param.exercice;
      FieldByName('JOURNAL').AsString:=journal;
      FieldByName('DATE').AsDateTime:=dateEcriture;
      FieldByName('COMPTE').AsString:=compte;
      FieldByName('PIECE').AsString:=piece;
      FieldByName('LIBELLE').AsString:=libelle;
      FieldByName('MONTANT').AsCurrency:=montant;
      Post;
    end;
    Result:=true;
  except
    Result:=false;
  end;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function Tdata_main.appliquerEcritures : boolean;
begin
  try
     data_main.BD_ecritures.ApplyUpdates; //Appliquer les modifs
     data_main.BD_ecritures.Transaction.CommitRetaining; //Valide les modifs
     Result:=true;
  except
     data_main.BD_ecritures.Transaction.RollbackRetaining; //Annule les modifs
     Result:=false;
     raise;
  end;
  data_main.BD_ecritures.CancelUpdates; //Vide le cache
  data_main.BD_ecritures.Close;
end;

Sachant qu'il faut mettre la propriété "CachedUpdates" de la table en question à "true".

[SergioMaster]

Il aurait été bon d'indiquer de quels types de composants il s'agit ?