Discussion :

[Gregus]

Bonjour à toutes et à tous,

Forcement si j'écris pour vous solliciter c'est qu'il y a un truc que je ne fais pas correctement.

Des valeurs que j'utilise contiennent des tirets "-" et quelques fois des underscore "_". Du genre "xxx-xx" ou "xxx-xx_xxxxx" ou "x" peut être alphanumérique.

J'ai fait une fenêtre avec un champ de recherche et une table qui affiche les données. Pour alimenter la table, j'ai créé une requête :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
SELECT *
FROM
produit
WHERE
produit.IDproduit LIKE '%{Param_1}%'
OR
produit.produit_code LIKE '%{Param_1}%'
OR
produit.produit_ref_produit LIKE '%{Param_1}%'
OR
produit.produit_nom_produit LIKE '%{Param_1}%'
OR
produit.produit_ref_fournisseur LIKE '%{Param_1}%'
OR
produit.produit_designation_fournisseur LIKE '%{Param_1}%'
OR
produit.produit_code_barre LIKE '%{Param_1}%'
OR
produit.produit_ligne LIKE '%{Param_1}%'

J'ai effectué différents tests et à chaque fois j'obtenais les bons résultats.

Dans le champ "Recherche" de la fenêtre à chaque modification de, j'ai écrit

Code windev :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sZoneRecherche = SAI_SansNom2
// Pour utiliser "*" au lieu de "%"
Remplace(sZoneRecherche,"*","%")
Timer(Procedure_RechercheProduit,100,101)

J'utilise la procédure

Code windev :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
PROCÉDURE Procedure_RechercheProduit()
FinTimer(101)
 
HExécuteRequête(REQ_RechercheProduit, hRequêteDéfaut, sZoneRecherche)
 
TableAffiche(TABLE_Produit, taDébut)

Je saisie dans le champ recherche un début de code "123" (sans les guillemets) et aucun résultat s'affiche alors qu'avec la requête j'ai 480 résultats. Je complète "123-45" (sans les guillemets) toujours rien, alors qu'avec la requête 12 résultats.

Si vous pouvez me dire ou est-ce que je me plante dans le code ou ce que j'oublie. Merci.

Grégus

[Voroltinquo]

Bonjour,
1-La requête a-t-elle été initialisée correctement
2-A-t-elle terminé de s'exécuter avant le TableAffiche
3-Que donnent les mouchards lors de l'exécuton pas à pas

Dans le 2° cas il serait peut-être préférable d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
REQ_RechercheProduit.Param_1=sRecherche
TableAffiche(TABLE_Produit,taRéExécuteRequête)

[Narwe]

Code windev :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
// Pour utiliser "*" au lieu de "%"
Remplace(sZoneRecherche,"*","%")

Ne faut-il pas plutôt écrire ceci :

Code windev :

Sélectionner tout - Visualiser dans une fenêtre à part

sZoneRecherche = Remplace(sZoneRecherche,"*","%")

[Gregus]

Bonjour Voroltinquo et Narwe, bonjour à toutes et tous.

D'abord, merci à tous les deux pour vos retours, ça fonctionne.

@Narwe,
Effectivement, un point d'arrêt et un F7, m'ont permis de constater que la valeur remplacée n'était pas renvoyé à la requête. Je n'avais pas fait attention à ce détail.

Du coup, j'ai voulu améliorer la fonctionnalité. J'avais en tête de ne pas être obligé de saisir "*" dans la zone de texte. J'avais essayé avec chaîneconstruit, mais je n'arrivais pas à le faire correctement (pas certain que ce soit cette fonction d'ailleurs que j'aurais du utiliser). Parce que je voulais que le caractère joker soit au début et à la fin des caractères saisies pour que la recherche soit la plus complète possible. En lisant ce matin une autre discussion sur un autre sujet j'ai compris comment arriver à ce résultat. J'ai donc modifié le code comme suit:

Code windev :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
sZoneRecherche = SAI_SansNom2
//Concatène des jokers "*" avant et après la valeur saisie 
sZoneRecherche = "*[%sZoneRecherche%]*"
 
// Pour Remplacer caractère "*" par le joker windev "%"
sZoneRecherche = Remplace(sZoneRecherche,"*","%")
 
Timer(Procedure_RechercheProduit,110,101)

@Voroltinquo

1-La requête a-t-elle été initialisée correctement

Je crois, en pas à pas j'avais "HExécuteRequête valeur Vrai"

2-A-t-elle terminé de s'exécuter avant le TableAffiche

En revanche, je suis incapable de répondre. Est-ce que la solution pour avoir cette aurai été de mettre un Trace ou un Info avant TableAffiche, ou je pouvais avoir l'information autrement? Jusqu'à présent je mettais un Trace ou un Info à la fin d'une action pour voir si elle s’exécute, mais là j'ai oublié.

Toujours est-il que j'avais remarqué dans les mouchards que pour l'expression "REQ_RechercheProduit" toutes les valeurs étaient à zéro alors que normalement ça ne devait pas.

Dans les deux cas j'obtiens le résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
HExécuteRequête(REQ_RechercheProduit, hRequêteDéfaut, sZoneRecherche)
TableAffiche(TABLE_Produit, taDébut)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
REQ_RechercheProduit.Param_1=sZoneRecherche
TableAffiche(TABLE_Produit,taRéExécuteRequête)

Lequel il vaut mieux que j'utilise, j'ai compris la différence entre taDébut et taRéExécuteRequête, c'est pour avant TableAffiche, d'autant que je voudrais m'essayer à mettre cette procédure dans une procédure globale pour la réutiliser dans d'autre fenêtre?

Merci encore à tous les deux.

Avec mon respect

Grégus

N.B.: Je passerai en Résolu dans quelques jours s'il y avait des compléments de réponse.

[Voroltinquo]

taRéExécuteRequête permet d'éviter l'utilisation de la propriété ExécutionTerminée sur la requête.
Le contenu affiché correspond vraiment à la requête..

[Gregus]

propriété ExécutionTerminée

Après lecture de la doc, je trouve cette propriété intéressante, pour moi. Mais alors, puisque taRéExécuteRequête permet d'éviter l'utilisation de cette propriété, que faut-il que je fasse pour obtenir le résultat de l'exemple?

J'ai creusé un peu, ma tête, et j'ai fait un essai avec un ToastAffiche plutôt qu'un Info, après TableAffiche. Est-ce que c'est une bonne idée ou il vaut mieux que je m'oriente vers autre chose?

[frenchsting]

Bonjour,

Tout dépend de comment est lancée l'exécution de la requête. En règle générale, je préconise le info.
L'utilisateur clique sur un bouton. Si le traitement est long, il a tendance à décrocher son regard de l'écran (va boire un café, raconter une blague à un collègue, passer un appel, ...), Lorsqu'il revient sur l'écran, l'info lui dira que le traitement est terminé. Dans le cas du toast, s'il ne reste pas rivé à l'écran, il ne saura pas que c'est fini.

[Gregus]

Bonjour frenchsting,

Merci. Effectivement, Info est mieux que ToastAffiche, je viens de rater un Toast.

J'imagine une autre possibilité avec une barre de progression. Je n'ai pas encore tout compris au code ni à la façon de le positionner. Mais j'y travaille. Je suis entrain de lire d'anciennes discussions pour essayer de comprendre. Cela peut-être une bonne alternative et en plus (lorsque j'aurai décortiqué comment faire) je pourrai avoir une indication du temps d'exécution.

[Voroltinquo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
TANT QUE PAS REQ_RechercheProduit.ExécutionTerminée     //On boucle jusqu'à la fin de la récupération des données par la requête
//On peut Afficher une jauge Recherche en cours
FIN
TableAffiche(TableProduit)     //Le champ affiche les données donc la recherche est terminée

[frenchsting]

Bonjour frenchsting,

Merci. Effectivement, Info est mieux que ToastAffiche, je viens de rater un Toast.

J'imagine une autre possibilité avec une barre de progression. Je n'ai pas encore tout compris au code ni à la façon de le positionner. Mais j'y travaille. Je suis entrain de lire d'anciennes discussions pour essayer de comprendre. Cela peut-être une bonne alternative et en plus (lorsque j'aurai décortiqué comment faire) je pourrai avoir une indication du temps d'exécution.

Regarde ducôté de jauge(). Par contre, l'inconvénient, si le nombre d'enregistrement est important (> 50 000 enregistrements environ), c'est que l'affichage de la jauge ralentit le traitement.

[tatayo]

Dans ce cas une solution est de mettre un compteur dans la boucle, et de ne rafraichir l'affichage que tous les x itérations.
Ou alors de "regarder l'heure" à chaque itération, de comparer avec la dernière heure enregistrée, et de ne mettre à jour l'affichage que toutes les x secondes.

Ca permet de limiter l'impact de la mise à jour sur la durée du traitement.

Tatayo.

[Gregus]

Bonjour à tous les trois, à toutes et tous.

J'ai fait un petit break, j'avais le cerveau qui surchauffait.

Ça semble vachement plus simple quand tu regarde l'exemple livré WD, mais dans la réalité...

Il y a cette notion du nombre d'enregistrement que j'avais découverte dans une réponse de frenchsting à une autre discussion : https://www.developpez.net/forums/d1...e/#post8507582

Tu dois mettre ton code ans l'affichage d'une ligne de ta table.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
//Déclaration de variable dans le code de la fenêtre
jg est un entier
HExécuteRequête(REQ_POINTAGEPC,hRequêteDéfaut,SAI_Date6,SAI_Date7)
HLitPremier(REQ_POINTAGEPC)
 
jg = 0
JAUGE_SansNom1..BorneMin = 0
JAUGE_SansNom1..BorneMax = HNbEnr(REQ_POINTAGEPC)
 
TableAffiche(TABLE_REQ_POINTAGEPC)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
// Code Affichage d'une ligne de la table 
jg++
JAUGE_SansNom1..Valeur = jg

A voir et adapter suivant ton cas : Inconvénient, cela ralentit l'affichage. Si ton nombre de lignes à afficher est important, il faudra songer à ne ré-afficher ta jauge que toutes les 10, 20, 50 lignes.

Pour l'instant j'ai créé un LIB qui n'est pas visible à l'ouverture de la fenêtre, qui le devient en cliquant sur le bouton qui exécute l'action et reste sur dessus de la fenêtre tant que l'action est en court. Ça c'est le début.
J'ai mis un petit texte "Recherche en cours..." et une jauge. J'ai lu ce week-end quelques anciennes discussions et je vais m'atteler maintenant à essayer de faire avancer cette jauge comme expliqué par ailleurs.

Je n'en suis pas encore à la proposition

Dans ce cas une solution est de mettre un compteur dans la boucle, et de ne rafraichir l'affichage que tous les x itérations.
Ou alors de "regarder l'heure" à chaque itération, de comparer avec la dernière heure enregistrée, et de ne mettre à jour l'affichage que toutes les x secondes.

Ca permet de limiter l'impact de la mise à jour sur la durée du traitement.

Tatayo.

mais la boucle sur x itérations à mon niveau me parait plus simple à mettre en œuvre.

Je reviens vous dire ça.

Merci à tous les trois.

Grégus

[Voroltinquo]

Le problème est qu'on n'obtient le nombre d'enregistrement que lorsque l'exécution est terminée.

[Gregus]

Ah zut

Réponse rapide sans réfléchir, je n'ai rien testé encore. J'essaye d'être logique.

[CODE]
JAUGE_SansNom1..BorneMax = HNbEnr(REQ_xxxx)

Ne peut s'obtenir qu'une fois que la requête à tournée. Donc la jauge ne peut pas progresser dès le lancement de l'exécution de la requête.
Si la requête est longue, très longue, pas de progression.
C'est cela Voroltinquo?
Est-ce que c'est comme ça tout le temps ou il y a un moyen d'y parvenir?

[Voroltinquo]

C'est cela. Une solution est une jauge "infinie", avec une borne max à X qui repart à 0 quand la borne max est atteinte. Pour le pourcentage de progression, on repassera, mais souvent, qui s'en soucie.

[Gregus]

Très souvent je ne vois pas les choses (en même temps je ne suis pas un professionnel) mais si l'on me met les yeux et le doigt dessus, j'essaye de réfléchir.

Bon, je vais creuser tout cela et essayer d'y arriver. Il va peut-être me falloir un peu de temps. En tous les cas je pense que j'ai pas mal et de bons éléments pour construire un début.

Je reviens vous dire.

[frenchsting]

Dans ce cas une solution est de mettre un compteur dans la boucle, et de ne rafraichir l'affichage que tous les x itérations.
Ou alors de "regarder l'heure" à chaque itération, de comparer avec la dernière heure enregistrée, et de ne mettre à jour l'affichage que toutes les x secondes.

Ca permet de limiter l'impact de la mise à jour sur la durée du traitement.

Tatayo.

Oui, c'est ce que je fais. J'en aurai parlé dans un deuxième temps.

Je voulais juste préciser ceci à grégus, car c'est toujours déroutant de voir les performances s'effondrer simplement parce qu'on essaye d'améliorer l'expérience utilisateur.