[Résolu] Table hiérarchique

Posté par doudoua le 12/2/2007 10:50:42

Voila j’ai une table hiérarchique remplie par 2 requêtes la 1ére requête :
Balance annuelle
Annee : Champs année
Somme débit : monétaire
sommeCrédit : monétaire
Ensuite la 2éme requête
BalanceMensuelle
Mois : Champs mois extrait grace : Balance.Mois[[5 A 7]]
Somme débitMensuel : Monétaire
SommeCréditMensuel : Monétaire
Voila
La procédure MAJBalance() :
//sert à remplir la table :
TableSupprimeTout(TABLEH_BALANCE)
HExécuteRequête(BalanceMensuelle,hRequêteDéfaut,IDCompte)
HExécuteRequête(BalanceAnnuelle,hRequêteDéfaut,IDCompte)

sDateMois est une chaîne
LeMois est une chaine
sannée est une chaîne
nannée est une chaîne
nNoeudDateMois est un entier

POUR TOUT BalanceAnnuelle
sannée=BalanceAnnuelle.Année
nannée=TableAjouteLigne(TABLEH_BALANCE,sannée,BalanceAnnuelle.la_somme_MtDébit,BalanceAnnuelle.SommeCrédit)


FIN
//ajouter les mois
TableAjouteFils(TABLEH_BALANCE,sannée,"janvier")
TableAjouteFils(TABLEH_BALANCE,sannée,"Février")
// ainsi de suite pour les autres mois de telle sorte que j’ai les mois de l’année mm si le compte n’a pas été mouvementé.

POUR BalanceMensuelle

sannée=BalanceArtisanAnnuelle.Mois[[1 A 4]]
Lemois= BalanceArtisanAnnuelle.Mois[[5 A 7]]
SELON Lemois
Cas 1
Lemois = "janvier"
Cas 2
Lemois = "Février"

//ETC
C’est là ou ca coince pour moi je n’arrive pas trouver le nœud pour ajouter les mois.
TableAjouteFils(TABLEH_BALANCE, ???
Puisque j’ai ajouté les mois en lettre.


Comment pourrais je faire ?

Merci