somme d'une ligne et les totaux des colonnes

[miloudsat]

Salut tout le monde
j'ai creer un tableau contient devis (col_N,col_Désignation,col_Quantité,col_Prix Unitaire,col_Montant) et deux champs sai_mesure et sai_total
j'ai rempli le tableau 8 articles comme suite :
PROCEDURE FEN_Autorisation()
TableAjouteLigne(TDevis,"01","Travaux d'Encaissemnt sur 50 cm Profondeur","M3",COL_Quant,"500",COL_Montant)
TableAjouteLigne(TDevis,"02","Exécution Couche de Fondation sur 30 cm","M3",COL_Quant,"1500",COL_Montant)
TableAjouteLigne(TDevis,"03","Exécution Couche de Base sur 20 cm","M3",COL_Quant,"3500",COL_Montant)
TableAjouteLigne(TDevis,"04","Exécution d'un Profilage de la Chaussée","M2",COL_Quant,"1500",COL_Montant)
TableAjouteLigne(TDevis,"05","Revêtement de la Chaussée","M2",COL_Quant,"1500",COL_Montant)
TableAjouteLigne(TDevis,"06","Revêtement en Tapis","T",COL_Quant,"8000",COL_Montant)
TableAjouteLigne(TDevis,"07","Location Tracteur et Panneaux","J",COL_Quant,"3000",COL_Montant)
pour calculer la quantité chaque car sont different quant :"01" = sai_mesure * 0.20
02 = sai_mesure *1.2 ....ect
code de quant == COL_Quant = SAI_Mesure * 0.60
code col_montant
POUR TOUT LIGNE DE TDevis

TDevis.COL_Montant = COL_Quant * TDevis.COL_Prix_Unitaire

FIN

et le total de tous montant
i est un entier
POUR i=1 A TableOccurrence(TDevis)
SAI_Total+=TDevis.COL_Montant
FIN

quant je test l'application
resultat 1er ligne ok pour quantite mais le montant faux et le bizard que les quantité pour les restes des lignes = 0 et montant donne des chiffres et le totl de tous lignes FAUX
aide moi ....pour resoudre ce probleme et merci

[MedSaid]

Je suis bien disposé à vous aider. Malheureusement, je ne comprend pas bien le pb

[Soks]

Bonjour,

de ce que je vois, tu essayes de faire des operations numeriques avec des chaines, ça peut marchouiller (comprendre ne pas planter mais faire des trucs aléatoires) mais pas fonctionner ..

Ici, pour plus de facilité, je te proposerai bien de basculer les colonnes ( col_Quantité, col_Prix Unitaire et col_Montant ) de ta table en numerique et de laisser ton code tel quel.

Si toute fois tu ne pourrais pas, essayes de remplacer cette ligne de code :

Code :

TDevis.COL_Montant = COL_Quant * TDevis.COL_Prix_Unitaire

par

Code :

TDevis.Col_Montant = NumériqueVersChaine(Val(COL_Quant) * Val(COL_Prix_Unitaire))

Puis le bout de code suivant :

Code :

i est un entier
POUR i=1 A TableOccurrence(TDevis)
SAI_Total+=TDevis.COL_Montant
FIN

par

Code :

i est un entier
nTotal est un entier = 0
POUR i=1 A TableOccurrence(TDevis)
nTotal += Val(TDevis.COL_Montant)
FIN
SAI_Total = NumériqueVersChaine(nTotal)

Quant à la quantité, j'ai pas trop compris ce que tu veux faire ...

Bon courage et dis nous si ça fonctionne =}

[miloudsat]

salut
et merci tout qui voulais m'aider
voici mon problem

resultat

j'arrive pas trouver la solution y'a personne voulais m'aider et Merçiiiii

[Soks]

Rebonjour,

à l'évènement de sortie du champs SAI_Mesure, ajoutes ce code si tu as toujours le meme coefficient :

Code :

Cpt est un entier = 0

TANTQUE Cpt <= TDevis..Occurrence
Cpt++
TDevis.COL_Quantite[Cpt] = NumériqueVersChaîne(Val(SAI_Mesure) * 0.6)
FIN

Ou ce code si ton coefficient change parfois :

Code :

TDevis.COL_Quantite[1] = NumériqueVersChaîne(Val(SAI_Mesure) * 0.20)
TDevis.COL_Quantite[2] = NumériqueVersChaîne(Val(SAI_Mesure) * 0.1.2)
....

Ensuite essayes d'utiliser les bouts de code de ce matin en les plaçant à la suite du code que tu auras choisi.

Bon courage =}

[miloudsat]

Salut
Merçi Ami Soks pour m'aider j'ai reussi de calculer les quantité et montant mais il rest le total des montants
Merci autre fois