WM Calculs dans les ruptures d'un champ Table windev mobile

Bonjour
Comment Calculs dans les ruptures d'un champ Table windev mobile avec programmation
sur mon code il me calcule seulement la premier rupture

[windev]MyReq1 est une Source de Données
ChaineSQL1 est une chaîne

ChaineSQL1 = [
SELECT
INSCRIPTIONS.IDINSCRIPTION AS IDINSCRIPTION,
INSCRIPTIONS.IDAnneeScolaire AS IDAnneeScolaire,
INSCRIPTIONS.IDLESCLASSE AS IDLESCLASSE,
INSCRIPTIONS.IDeleve AS IDeleve,
INSCRIPTIONS.IDFratrie AS IDFratrie,

MoisPaiement.LibMois AS LibMois,
FraisPaiement.LibFrais AS LibFrais,
FraisPaiement.Engagement AS Engagement,

ParametresPaiements.IDPaiement AS IDPaiement,
ParametresPaiements.IDMoisPaiement AS IDMoisPaiement,
ParametresPaiements.PaiementDu AS PaiementDu,
ParametresPaiements.PaiementPaye AS PaiementPaye,
ParametresPaiements.PaiementReste AS PaiementReste,
ParametresPaiements.PaiementCloture AS PaiementCloture,

ELEVES.ResponsablePaiement AS NomPere,
ELEVES.NomPrénomEleve_FR AS NomPrénomEleve
FROM
MoisPaiement,
ParametresPaiements,
FraisPaiement,
INSCRIPTIONS,
ELEVES
WHERE
ELEVES.IDeleve = INSCRIPTIONS.IDeleve
AND INSCRIPTIONS.IDINSCRIPTION = ParametresPaiements.IDINSCRIPTION
AND FraisPaiement.IDFraisPaiement = ParametresPaiements.IDFraisPaiement
AND MoisPaiement.IDMoisPaiement = ParametresPaiements.IDMoisPaiement
]

ChaineSQL1 = ChaineSQL1 + " AND INSCRIPTIONS.IDAnneeScolaire = '" + Indice + "'"
ChaineSQL1 = ChaineSQL1 + " AND INSCRIPTIONS.IDFratrie = ' " + NumFratrie + " ' "
ChaineSQL1 = ChaineSQL1 + " AND MoisPaiement.VisibleMois = 1 "
ChaineSQL1 = ChaineSQL1 + " ORDER By MoisPaiement.IDMoisPaiement ASC"
TableSupprimeTout(TABLE_Paiements)
HExécuteRequêteSQL(MyReq1,hRequêteDéfaut,ChaineSQL1)
POUR TOUT MyReq1
TableAjouteLigne(TABLE_Paiements, MyReq1.LibMois, MyReq1.LibFrais, MyReq1.NomPrénomEleve,MyReq1.PaiementDu, MyReq1.PaiementPaye,...
MyReq1.PaiementReste,MyReq1.PaiementCloture,MyReq1.IDMoisPaiement)
// TABLE_Paiements[TableOccurrence(TABLE_Paiements)].LIB_Mois = MyReq1.LibMois

FIN

moTotalCol est un monétaire = 0
POUR i = TableIndiceRupture(TABLE_Paiements.RUPT_HautRupture1) _À_ TableIndiceRupture(TABLE_Paiements.RUPT_BasRupture1)
moTotalCol = moTotalCol + TABLE_Paiements.COL_PD
LIB_SansNom1 = moTotalCol
FIN

TABLE_Paiements.RUPT_HautRupture1..Visible = Vrai
TABLE_Paiements.COL_Mois..LiaisonFichier = MyReq1.LibMois
TableTrie(TABLE_Paiements,"COL_IDMoisPaiement")
TableAffiche(TABLE_Paiements,taInit)
TableEnrouleTout(TABLE_Paiements)[/windev]