Discussion :

[Aigle4]

Bonjour.

J'aimerai améliorer mon programme de gestion de compte bancaire.

Dans une table fichier remplie par une requête, j'ai une colonne débit, une colonne crédit, une colonne solde. Cette dernière est remplie par une procédure:

Code :

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

1
2
3
4
5
6
7
POUR i=TableSelect(Table_Compte_Banque) _A_ TableOccurrence(Table_Compte_Banque)
 
	TableSelectPlus(Table_Compte_Banque,i)
	Table_Compte_Banque.Solde[i]=Table_Compte_Banque.Solde[i-1]+Table_Compte_Banque.Crédit[i]-Table_Compte_Banque.Débit[i]
	TableEnregistre(Table_Compte_Banque)
 
FIN

Cette procédure me calcul le solde intermédiaire suivant les valeurs des débits ou crédits . Lais pour un fichier de 20000 lignes cela prend 30 minutes

Y à t-il la possibilité de faire une requête pour avoir le même résultat mais
plus rapide. Je maîtrise mal les commandes sql et en regardant sur internet je n'ai
vu que très peu de renseignements

J'arrive par une requete à calculer le solde final :

Code sql :

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

1
2
SELECT SUM(Compte_Banque.Crédit-Compte_Banque.Débit) AS le_Solde_Compte
FROM Compte_Banque

Mais l'astuce pour calculer les soldes intermédiaire je cale.

Merci.

[tatayo]

Bonjour,
D'après ton code, tu veux enregistrer dans ta base les soldes intermédiaires. Est-ce bien le cas ?
Si c'est bien ça à mon avis le mieux est de passer par un trigger sur ton fichier:
A chaque création d'une ligne, tu lui affectes la sommes des lignes précédentes. Par contre tu auras un problème si tu "insères" un enregistrement.
En fait la vrai question est: pourquoi veux tu enregistrer le solde intermédiaire ? Si tu le calcule à la volée (sans enregistrement), je parie que tu seras très loin de la demi-heure pour 20000 lignes (lance l'analyseur de performances, tu verras ce qui prend le plus de temps dans ton code).

tatayo.

[Aigle4]

@tatayo

Bonjour

Avant j’utilisais le logiciel « Money » pour gérer mes compte, il m’indiquait le solde intermédiaire c’était un indicateur de situation suivant la date. Ce logiciel n’est plus suivi par Microsoft pour les connexions en banque, alors avec windev j’ai réalisé un programme qui peut m’aider à suivre mes compte et retrouver des fonctions du Money
Je pensais avec une requête imbriquée je pouvais faire quelque chose, mais peut être que faire à la volée sans enregistrer me simplifierai la tâche, je regarde de ce côté.

Merci

[PaulNero]

Bonjour,
tu peux aussi créer une procédure basée sur une requête paramétrée qui recupère le paramètre date à chaque sélection et t'aura le solde à cette date.Cette procédure pourra recupérer la date du premier enregistrement de ton fichier et avec la date selectionnée t'aura bien une requête avec deux paramètres.

[Nicolas_Jeanneau]

Bonjour,

je pense qu'en effet, cela n'a pas d'intérêt de le stocker dans la base. Quel est l'identifiant de ta table ? Y aurait-il un indicateur numérique qui te permettrait de faire une requête comme celle-ci :

Code :

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

1
2
3
SELECT SUM(Compte_Banque.Crédit-Compte_Banque.Débit) AS le_Solde_Compte
FROM Compte_Banque
where IDCompte_Banque < {NumeroLigneEnCours-1}

Sachant que ce numérique serait l'ordre d'insertion et devrait être dans l'ordre temporel des opérations ....

Cela peut aussi marcher avec des dates + heures

à bientôt,

Nicolas

[Aigle4]

@Nero Paul
@Nicolas Jeanneau

Bonjour,

Merci de vos propositions, je modifie mon programme et je test


a+

[SevenSoftware]

Bonjour,

Pourquoi tout recalculer en une seule fois?

Dans le code d'affichage d'une ligne de la table:

Code :

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

1
2
3
4
5
6
 
SI Table=1
 Solde=credit-Debit
SINON
 Solde=Solde[table-1]+Credit-Debit
FIN

Par contre, ce solde n'est valable que si on est trié en date de valeur,
du moins si on veut être en phase avec la banque...

Bon dev

Patrick

[Aigle4]

Bonjour,

Je refais mon programme sans utiliser le RAD, c’est un peu plus long mais ça crée moins de problème lors de modification et j’utilise ma procédure

Code :

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

1
2
3
4
5
6
7
8
POUR i=TABLE_Compte_Banque.IDCompte_Banque _A_ TableOccurrence(TABLE_Compte_Banque)
 
	TableSelectPlus(TABLE_Compte_Banque,i)
 
	TABLE_Compte_Banque.Solde[i]=TABLE_Compte_Banque.Solde[i-1]+TABLE_Compte_Banque.Crédit[i]-TABLE_Compte_Banque.Débit[i]
 
	TableEnregistre(TABLE_Compte_Banque)
FIN

Merci à tous.