le resultat et la meme ou pas
si ouivous pouvez utiliser redis
-
Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !Rejeter la notice
DEMANDE la requête a été exécuté plusieurs fois avec les même paramétrés dans la même minute
Discussion dans 'Windev' créé par Safo, Mai 17, 2020.
Tags:
Bonjour,
Que donne :
Par ailleurs, où se trouve ton code. Cela peut influer, surtout s'il se trouve dans le code de sélection d'une de tes combos.Code (Windev):Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(REQ_Achat)
//L'utilisation de HLibèreRequête après le TableAffiche risque de fausser le résultat car le remplissage du champ se fait en tâche de fond
REQ_Achat.Param1=ValeurParam1
...
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(REQ_Achat,taReExécuteRequete)
Tu sélectionnes les 3 conditions, tu exécutes la requête 3 fois.
Bonjour,
Que donne :
Par ailleurs, où se trouve ton code. Cela peut influer, surtout s'il se trouve dans le code de sélection d'une de tes combos.Code (Windev):Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(REQ_Achat)
//L'utilisation de HLibèreRequête après le TableAffiche risque de fausser le résultat car le remplissage du champ se fait en tâche de fond
REQ_Achat.Param1=ValeurParam1
...
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(REQ_Achat,taReExécuteRequete)
Tu sélectionnes les 3 conditions, tu exécutes la requête 3 fois.Cliquez pour agrandir...
le résultat est parfait mais quand je ferme le débogueur je reçois ce message j'ai utilisé le "
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
" mais le même message Dans le débogueurest-il possible de filtrer les donnes dans la "table reliée a fichier" j'ai combo avec 1er ligne personnalisée "Tout" est entre 2 date ?
SI COMBO_Type=1 ALORS
TABLE_Commande..Visible=Vrai
TABLE_Réception..Visible=Faux
Command()
NBRCommande()
Message(" "+"Les Bons De Commande"+" ")
FIN
//***********************Réception***********************************************
SI COMBO_Type=2ALORS
BonRéception()
NBRéception()
TABLE_Réception..Visible=Vrai
TABLE_Commande..Visible=Faux
Message(" "+"Les Bons De Réception"+" ")
FIN
PROCÉDURE BonRéception()
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,Null,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,Null,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,Null,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,COMBO_Fourniosseur,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,COMBO_Fourniosseur,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,COMBO_Fourniosseur,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Fourniosseur,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,Null,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
PROCÉDURE NBRéception()
nb est un entier = TableOccurrence(TABLE_Réception)
POUR i = 0 À nb
sInfo est une chaîne
sInfo="Les Bons De Réception"+" "+"("+i+")"
LIB_SansNom1=sInfo
FIN
SI nb<=0 ALORS
SAI_Total=TABLE_Réception.COL_TotalTTC[ligneTotal]
SAI_Reste=TABLE_Réception.COL_Rest[ligneTotal]
RETOUR
SINON
TableTrie(TABLE_Réception,"-col_Date" )
TableTrie(TABLE_Réception,"-col_Heure")
FIN
SAI_Total=TABLE_Réception.COL_TotalTTC[ligneTotal]
SAI_Reste=TABLE_Réception.COL_Rest[ligneTotal]
Fichiers attachés:
Bonjour,
Que donne :
Par ailleurs, où se trouve ton code. Cela peut influer, surtout s'il se trouve dans le code de sélection d'une de tes combos.Code (Windev):Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(REQ_Achat)
//L'utilisation de HLibèreRequête après le TableAffiche risque de fausser le résultat car le remplissage du champ se fait en tâche de fond
REQ_Achat.Param1=ValeurParam1
...
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(REQ_Achat,taReExécuteRequete)
Tu sélectionnes les 3 conditions, tu exécutes la requête 3 fois.Cliquez pour agrandir...
le résultat est parfait mais quand je ferme le débogueur je reçois ce message j'ai utilisé le "
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
" mais le même message Dans le débogueurest-il possible de filtrer les donnes dans la "table reliée a fichier" j'ai combo avec 1er ligne personnalisée "Tout" est entre 2 date ?
SI COMBO_Type=1 ALORS
TABLE_Commande..Visible=Vrai
TABLE_Réception..Visible=Faux
Command()
NBRCommande()
Message(" "+"Les Bons De Commande"+" ")
FIN
//***********************Réception***********************************************
SI COMBO_Type=2ALORS
BonRéception()
NBRéception()
TABLE_Réception..Visible=Vrai
TABLE_Commande..Visible=Faux
Message(" "+"Les Bons De Réception"+" ")
FIN
PROCÉDURE BonRéception()
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,Null,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,Null,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,Null,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,COMBO_Fourniosseur,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,COMBO_Fourniosseur,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,COMBO_Fourniosseur,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Fourniosseur,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,Null,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
PROCÉDURE NBRéception()
nb est un entier = TableOccurrence(TABLE_Réception)
POUR i = 0 À nb
sInfo est une chaîne
sInfo="Les Bons De Réception"+" "+"("+i+")"
LIB_SansNom1=sInfo
FIN
SI nb<=0 ALORS
SAI_Total=TABLE_Réception.COL_TotalTTC[ligneTotal]
SAI_Reste=TABLE_Réception.COL_Rest[ligneTotal]
RETOUR
SINON
TableTrie(TABLE_Réception,"-col_Date" )
TableTrie(TABLE_Réception,"-col_Heure")
FIN
SAI_Total=TABLE_Réception.COL_TotalTTC[ligneTotal]
SAI_Reste=TABLE_Réception.COL_Rest[ligneTotal]
Bonjour. c'est mon code je l'ai mis dans la sélection d'une ligne de chaque combo ma table est reliée a la Requête.
le résultat est parfait mais quand je ferme le débogueur je reçois ce message j'ai utilisé le "Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
" mais le même message Dans le débogueur
est-il possible de filtrer les donnes dans la "table reliée a fichier" j'ai combo avec 1er ligne personnalisée "Tout" est entre 2 date ?
SI COMBO_Type=1 ALORS
TABLE_Commande..Visible=Vrai
TABLE_Réception..Visible=Faux
Command()
NBRCommande()
Message(" "+"Les Bons De Commande"+" ")
FIN
//***********************Réception***********************************************
SI COMBO_Type=2ALORS
BonRéception()
NBRéception()
TABLE_Réception..Visible=Vrai
TABLE_Commande..Visible=Faux
Message(" "+"Les Bons De Réception"+" ")
FIN
PROCÉDURE BonRéception()
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,Null,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,Null,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,Null,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,COMBO_Fourniosseur,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs<>"Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Utilisateurs..ValeurAffichée,COMBO_Fourniosseur,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement="Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,COMBO_Fourniosseur,Null,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Fourniosseur,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
SI COMBO_Fourniosseur="Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,Null,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
PROCÉDURE NBRéception()
nb est un entier = TableOccurrence(TABLE_Réception)
POUR i = 0 À nb
sInfo est une chaîne
sInfo="Les Bons De Réception"+" "+"("+i+")"
LIB_SansNom1=sInfo
FIN
SI nb<=0 ALORS
SAI_Total=TABLE_Réception.COL_TotalTTC[ligneTotal]
SAI_Reste=TABLE_Réception.COL_Rest[ligneTotal]
RETOUR
SINON
TableTrie(TABLE_Réception,"-col_Date" )
TableTrie(TABLE_Réception,"-col_Heure")
FIN
SAI_Total=TABLE_Réception.COL_TotalTTC[ligneTotal]
SAI_Reste=TABLE_Réception.COL_Rest[ligneTotal]
SalutBonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
,
Je crois qu'il y a une erreur sur la requête suivante, il manque un Null avant le fournisseur :
Avec le Null :Code (Text):SI COMBO_Fourniosseur<>"Tout" ET COMBO_ModeRéglement<>"Tout" ET COMBO_Utilisateurs="Tout" ALORS
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,COMBO_Fourniosseur,COMBO_ModeRéglement,Null,Null,Null)
TableAffiche(TABLE_Réception,taInit)
HLibèreRequête(REQ_Réception)
FIN
Le plus simple aurait été d'utiliser une seule requête, c'est plus lisible, par exemple :Code (Text):HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,Null,COMBO_Fourniosseur,COMBO_ModeRéglement,Null,Null,Null)
A+.Code (Text):sUtil = COMBO_Utilisateurs..ValeurAffichée
sFourniss = COMBO_Fourniosseur
sModeRegl = COMBO_ModeRéglement
SI sUtil = "Tout" ALORS sUtil = Null
SI sModeRegl = "Tout" ALORS sModeRegl = Null
SI sModeRegl = "Tout" ALORS sModeRegl = Null
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,sUtil,sFourniss,sModeRegl,Null,Null,Null)
pour moi ce message n'est qu'un warming, pour de l'optimisation.
je l'ai lors de l'utilisation d'une requête parametré par exemple lancer dans un boucle
ex pour tout client lance la requet liste des facture avec code client =client
je pourrais lancer la requete pour l'ensemble des client mais apres le parcours de la requête est beaucoup plus long.
je pense pas que le hlibere y change quelque chose car la requete est reinitiliser a chaque appel.
par contre dans ton cas peut je rejoint freud tu peut te permettre facilement de ne l'appeler qu'une fois.
tu gagenrais du temps de traitement et tu n'aura plus le warning.
sUtil = COMBO_Utilisateurs..ValeurAffichée
sFourniss = COMBO_Fourniosseur
sModeRegl = COMBO_ModeRéglement
SI sUtil = "Tout" ALORS sUtil = Null
SI sModeRegl = "Tout" ALORS sModeRegl = Null
SI sModeRegl = "Tout" ALORS sModeRegl = Null
HExécuteRequête(REQ_Réception,hRequêteDéfaut,Null,SAI_Au,SAI_Du,sUtil,sFourniss,sModeRegl,Null,Null,Null)Cliquez pour agrandir...
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
merci beaucoup c'est la réponse que j'attendais <3