WDForge.org - Forums

Update simple d'un fichier a deux vitesse

Sujet: Update simple d'un fichier a deux vitesse
par foufi sur 14/2/2008 17:33:53

Bonjour,

J'ai besoin de mettre a jour un fichier en base SQL
Il s'agit d'un fichier article dans lequel je doit rajouter un pourcentage de decote en fonction d'une autre table et ensuite je doit calculer la valeur du stock de l'article decoté

En gros je doit mettre dans stock.decote = XX (chiffre)
puis stock.ValDecote = val* (1- val* decote)

Est il possible selon vous de faire les deux calcul dans un meme update , j'avoue ne pas avoir essayer un sql direct mais windev ne permet un update que avec un parametre ou une valeur fixe , pas un calcul ....

Sinon quelqu'un peux il m'expliquer pourquoi la premiere moulinette qui update le fichier en mettant les decote et assez rapide et que que la 2 eme partie du code me fait environ 1/3 du fichier en qq secondes puis apres n'avance plus , il devient extrement et il met au moins 30 minutes pour finir les 60 % qui reste....

Voici le code , standard en somme, j'ai essayer avec un "pour tout" mais c'est la meme chose

nbr = HNbEnr(Article_Calcul_Rotation)
HLitPremier(Article_Calcul_Rotation,Arart)
TANTQUE PAS HEnDehors(Article_Calcul_Rotation)
Article_Calcul_Rotation.TotalDecote = Article_Calcul_Rotation.ValeurStock * (1 - Article_Calcul_Rotation.Decote /100)

HModifie(Article_Calcul_Rotation)
HLitSuivant(Article_Calcul_Rotation,Arart)
FIN