AIDE Jauge de chargement adaptative

Bonjour.
Voici comment je fais :

Code (Windev):

ni est un entier
nbreEnr est un entier

TriggerControl(Faux)

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

(FEN_Jauge_REQ, "Procesando los datos")
ni = 0
FEN_Jauge_REQ..Titre="Analizando Fichero "+§<FICHIER>§
// Initialisation de la requête pour la fenêtre de suivi...
FEN_Jauge_REQ.InitialiseJauge(§<FICHIER>§..Nom, "¿Desea parar el proceso?")
nbreEnr =

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

(§<FICHIER>§)
// Parcours du fichier

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

(§<FICHIER>§, §<CLEF>§)
TANTQUE PAS

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

(§<FICHIER>§)
    ni ++
    SI PAS FEN_Jauge_REQ.IncrémenteJauge() ALORS SORTIR
    // Traitement pour chaque registre
 
   

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

(§<FICHIER>§, §<CLEF>§)
FIN
// Fermeture de la jauge...
// Modification de l'état d'une fenêtre
SELON

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

(FEN_Jauge_REQ)
    CAS Actif
       

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

(FEN_Jauge_REQ)
    CAS Inexistant
        //Ouvre(NomFenetre)
FIN
TriggerControl(Vrai)
 

 

Code (Windev):

PROCEDURE FEN_Jauge_REQ(sTitre="Procesando los datos")

gclJaugeReq est un objet clJaugeRequete(JAUGE_PROGRESSION..NomComplet,SAI_DUREE..NomComplet,SAI_DUREE_RESTE..NomComplet,SAI_NBENR..NomComplet)
gsInfoArretJauge est une chaîne="¿Desea parar el proceso?"
LIB_TITRE_JAUGE=sTitre
 

 

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

 

Bonjour,
Un truc du style

Code (Windev):

PROCÉDURE JaugeDétailCommande(saNoCommande)
nLigneMax est un entier

nLigneMax=500000
REQ_DétailCommande.pNoCommande=saNoCommande

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

(REQ_DétailCommande)

TANTQUE PAS REQ_DétailCommande..ExécutionTerminée
   

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!

((hNonBloquant),nLigneMax))
FIN

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

(TABLE_DétailCommande)

 

Note
nLigneMax doit être tel que :
1-

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

((hNonBloquant)<nLigneMax
2-nLigneMax doit être assez "petit" pour que l'on voit la progression. Dans le code que j'ai fourni, 500 000 est sans doute trop grand 15 000 ou 20 000 devrait faire l'affaire (à tester.) On ne peut malheureusement pas utiliser à nouveau HNbEnr dans la mesure ou le nombre total d'enregistrement ne sera connu qu'à la fin de l'exécution de la requête