WD Calcul solde

OK dans un premier temps, duplique ta fenêtre. Puis Enlève tous ce qui se trouve dans la fenêtre sauf la table. Ensuite ajoute a la fin de la table un colonne "Col_ID" bien sure que vous l'ajouter dans votre fichier de donnée(si cela est déjà fais vous pouvez laisser votre table comme tel).
Il faut créer une zone de saisie "SAI_Solde_actuelle"

Créer en premier une requête automatique et ajouter : "ID","Solde" de votre fichier de donnée mouvement. puis mettre l'id en croissant. Nommé cette requête "Mouvement_Dernier"
En suivant vos propre nom de propriété (nom,Civ,..etc),
Faite un clique droite sur votre fenêtre et ajouter,
dans la partie déclaration global du projet, ajoute : gmoSolde_Tot est un monétaire.

Dans la partie fin d'initialisation de la fenêtre met :

//Code de la partie initiale de la fenêtre
moSold_Total est un monétaire = 0
HExécuteRequête(REQ_Mouvement_Dernier)
POUR TOUT REQ_Mouvement_Dernier
gmoSolde_Tot = REQ_Mouvement_Dernier.Solde
FIN
SAI_Solde_actuelle = gmoSolde_Tot

Pour ton bouton d'ajout, retire et modifie les valeurs pour l'adapté a ton projet.
dans la partie au click :
SI OuiNon("Confirmez vous l'enregistrement ?") ALORS
EcranVersFichier(FEN_Principale)
Mouvement.Cred = SAI_Cred
Mouvement.DateOp = SAI_DateOp
Mouvement.Deb = SAI_Deb
Mouvement.Desc = SAI_Desc
Mouvement.NumCompt = SAI_NumCompt
Mouvement.NumPiece = SAI_NumPiece
Mouvement.Solde = SAI_Solde
Mouvement.Tiers = COMBO_Tiers..ValeurAffichée
SI HAjoute(Mouvement) ALORS
Info("Enregistrer")
RAZ(Vrai)
SAI_Solde = gmoSolde_Tot
TableAffiche(TABLE_Mouvement,taDébut)
HExécuteRequête(REQ_Mouvement_Dernier)
POUR TOUT REQ_Mouvement_Dernier
gmoSolde_Tot = REQ_Mouvement_Dernier.Solde
FIN
SAI_Solde_actuelle = gmoSolde_Tot
FIN
FIN

Dans ton bouton supprimer :
//Au click
SI OuiNon("Confirmez vous la suppression ?") ALORS
HLitRecherche(Mouvement,IDMouv,COL_Id)
SI HTrouve(Mouvement) ALORS
HSupprime(Mouvement)
moUv est un monétaire
POUR TOUT Mouvement
SI Mouvement.Cred = 0 ALORS

SINON
moUv = moUv + Mouvement.Cred
FIN
SI Mouvement.Deb = 0 ALORS

SINON
moUv = moUv - Mouvement.Deb
FIN
FIN
HExécuteRequête(REQ_Mouvement_Dernier)
POUR TOUT REQ_Mouvement_Dernier
HLitRecherche(Mouvement,IDMouv,REQ_Mouvement_Dernier.IDMouv)
SI HTrouve(Mouvement) ALORS
Mouvement.Solde = moUv
HModifie(Mouvement)
FIN

FIN
FIN
FIN
tableaffiche(nom_de_ta_table,tadebut)
Voila je crois bien qu'avec ca tu peut le faire.
Je te fait des captures

 

Voici un aperçu. Je te fais une vidéo si jamais tu a un soucis.

 

Bonjour,
Tous les détails (ou presque) avaient déjà été donné sur un autre forum :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

.
Par ailleurs, la loi française interdit d'effacer une ligne comptable dans une application de caisse

 

Bonsoir, Moi j'ai juste donnée les informations nécessaires pour aboutir au résultat.

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

In "Display a Row of Table"

IF CurrentSubscript() = 1 THEN
TABLE_Tgld_journal.COL_Balance[CurrentSubscript()] = TABLE_Tgld_journal.COL_Debit[CurrentSubscript()]
ELSE
TABLE_Tgld_journal.COL_Balance[CurrentSubscript()] = TABLE_Tgld_journal.COL_Balance[CurrentSubscript()-1] + COL_Debit[CurrentSubscript()]
END


note : - this table name TABLE_Tgld_journal
- table must load in memory (not direct access)

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

, désolé mais je crois que

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

et

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

n'ont même pas lu ta réponse qui correspond à la demande.

Cliquez pour agrandir...