Pb Set filter to et de grid !!!Résolu

Question

aloha,

   voici mon code  qui est plac&#233; dans la methode click d'un bouton:

****************************************************************************************
close table all
select 1 
use clients
* selection du numero de client pour permetre de retrouver toutes les factures qui lui sont ratach&#233;es
LOCATE FOR societe= thisform.listcli.value
SCATTER FIELDS numero memvar


select 2
use interven
SET EXACT ON
SET FILTER TO interven.Numero = m.numero
go top


thisform.grid2.recordsource= "interven"

****************************************************************************************

mon probleme est que lorsque j'appuis sur le bouton, tout ce passe a peu pres comme il faut sauf si j'ai le malheur de cliquer dans le grid2. A ce moment la , il m'annonce une erreur , me disant qu'il ne trouve pas la variable numero alors qu'aucun code n'est mis deriere le grid2. Du coup la table perd son filtre et le grid2 affiche alors toute la table interven.

Y'aurait il quelque chose que j'aurais homis de faire, avec mon set filter to ou alors avec mon grid2 ?
Pourquoi suis je oblig&#233; de faire un go top pour que le filtre marche ? 

Sinon , j'ai plusieurs fois essay&#233; de faire une requete sql (select ... from ...where) et a chaque fois il y a une fenetre qui apparait pour me mettre le enregistrements selectionn&#233;s par la requete. C assez g&#233;nant de la voir apparaitre !!!!

michelatoutfox · Accepted Answer

Spoutnic,

admettons que tu gardes cette approche (je te conseille quand m&#234;me de regarder du cot&#233; des indexs, et des relations, si tu ne te sens pas de cr&#233;er un dbc avec des vues sur tes tables ind&#233;pendantes).

1) mets un rep&#232;re d'index structurel sur le champ societe (appellons le xsociete)
2) ouvre tes tables dans l'environnement de donn&#233;es, et donnes le controlsource de ton grid en cr&#233;ation de formulaire (et non pas dans le click)
3) dans ton click, utilise la syntaxe suivante: 
if indexseek(thisform.listcli.value,.t.,"clients","xsociete") && je me positionne sur le client, s'il existe
   xnumero=societe.numero && je r&#233;cup&#232;re son num&#233;ro
   select interven
   set filter to numero=xnumero && je pr&#233;pare le filtre
   go top && j'ex&#233;cute le filtre en d&#233;pla&#231;ant le pointeur
   if not eof ( ) && j'ai des enregistrements qui vont bien..
      *!* je fais ce que j'ai &#224; faire
   endif
endif

regarde bien l'aide concernant l'&#233;tendue et la dur&#233;e de vie des variables, tu auras ta r&#233;ponse &#224; ta question sur m.numero (qui n'est pas publique, donc qui n'existe pas en dehors de ton click) ; et quand tu fais un scatter name, tu ne cr&#233;es pas un alias, mais un objet, attention &#224; la confusion)

est-ce que tu peux donner les messages d'erreurs que tu obtiens (avec le num&#233;ro exact, et le message complet), c'est utile pour t'aider plus efficacement.

cs_spoutnic_37 · Answer

re-aloha,
   
   j'ai chang&#233; ma condition de SET FILTER TO et une autre erreur apparait lors du click sur le grid. Donc le pb doit venir du filtre.
Sinon est t'il possible de faire deux filtres sur la meme table ou de specifier un filtre qui aurait deux conditions? 
Je pense sinon a utiliser un scan endscan ou je marquerais les enregistrements qui ne m'interesse pas avec un delete et ensuite faire un SET DELETE on pour ne pas les traiter dans mon grid2 . Est ce une bonne methode ?

Le probleme de filtrages multiples est deja venu a moi pr&#233;cedement et je l'ai contourn&#233; en faisant un COPY TO et en travaillant sur la nouvelle table (effacer les enregistrements inutiles). Mais le probleme c qu'il y a creation d'un fichier dbf, recopie des enregistrements, elimination des enregistrements, et affichage dans le grid, et je trouve que ca met du temps (clignotement du grid)du je pense &#224; l'acces au disque dur.
La aussi est-ce une bonne methode ?

Merci de votre attention.

FredArmoni · Answer

As tu regard&#233; du c&#244;t&#233; des vues param&#232;tr&#233;es ou simplement des relations ?

[mailto:frederic.steczycki@mvps.org Fred]
membre actif d'AtoutFox
MS MVP VFP

michelatoutfox · Answer

bonjour Spoutnic,

quelques remarques avant de r&#233;pondre exactement &#224; tes questions, si tu permets..

pourquoi fermes-tu tes tables ouvertes dans ce click? et pourquoi celles dont tu as besoin ne sont-elles pas d&#233;j&#224; ouvertes?
en g&#233;n&#233;ral, les tables ou vues sont ouvertes au niveau du formulaire, en utilisant l'environnement de donn&#233;es, ou bien dans le load ou l'init du form (perso, je pr&#233;conise l'environnement de donn&#233;es). tu es ainsi assur&#233; qu'elles sont ouvertes quand tes objets sont cr&#233;&#233;s, et que leur controlsource existe bien.

ta syntaxe "select1" puis "use clients" est incorrecte, m&#234;me si elle ne te renvoie pas d'erreur.
USE CLIENTS IN 0 ALIAS CLIENTS ORDER SONORDRE AGAIN SHARED
USE INTERVEN IN 0 ALIAS INTERVEN ORDER SONORDRE AGIN SHARED
SELECT CLIENTS
... traitement....
SELECT INTERVEN
...traitement...
etc, etc...

concernant ta table clients, on peut supposer que tu as un rep&#232;re d'index sur les champs les plus utilis&#233;s et d&#233;terminants. Donc, au lieu d'un locate for, tu pourrais uiliser un :
"if indexseek(thisform.listcli.value,"sonordre",.t.)"
c'est infiniment plus rapide, et tu dois toujours t'assurer du r&#233;sultat de ta recherche (donc derri&#232;re un locate, tu mets toujours un if found(), sur un seek, tu mets un if !eof(), etc..)

pour ton grid, tu as 2 approches possibles : l'une qui utilise les relations (set relation... et set skip...) l'autre qui utilise une vue param&#233;tr&#233;e pour le controlsource. et surtout pas le copy to !

tu regardes l'aide dans ces 2 directions, tu fais des essais avec les wizards (les assistants), et on reprend ensuite.

cs_spoutnic_37 · Answer

Je ne comprend pas ta question ? (vues param&#232;tr&#233;es ???)
J'utilise des tables independantes , si ca repond &#224; ta question.

Le probleme viendrait apparement du m.numero. en effet je l'ai remplac&#233; par un SCATTER FIELDS numero name ouou et maintenant c unn alias qui n'est pas trouv&#233;, que se soit lorsque je click sur le grid2 ou alors lorsque je hide mon formulaire et le show apres.
A mon avis , la variable m.numero, ou l'alias ouou.numero, ne sont pas gard&#233;es en memoire, et du coups ca plante, mais je ne comprend pas pourquoi puisque elle sont normalement cr&#233;&#233;es lorsque j'appuis sur le bouton. Elles n'ont occune utilit&#233; avant et rien ne les appellent.

ps: Ah oui j'oubliais de dire que je travail avec vfp 6 .

cs_spoutnic_37 · Answer

Aloha ,
   j'ai suivi tes derniers conseils, Michel, en reprenant le code et en rectifiant juste quelques petites choses. J'avait encore une erreur qui apparaissait me disant qu'il ne trouvait pas la variable 'xnumero' alors j'ai tout simplement definit xnumero comme une variable public, et ainsi elle est gard&#233;e en m&#233;moire.

......
public xnumero
xnumero=clients.numero && je r&#233;cup&#232;re son num&#233;ro
.....

merci pour cette pr&#233;cieuse aide!!!

Pour mon autre pb, a savoir comment faire pour filtrer, j'ai commenc&#233; a voir avec une autre methode .  j'ai une table clients, qui contient tous les champs le concernant, et qui contient entre autre les champs :   societe,ctra_date, ctra_prix,ctra_01m,ctra_03m, ctra_06m,ctra_12m .
Les 4 dernier sont des champs logique qui determine si oui ou non le contrat est mensuel, trimestriel,.....annuel.
Je dois donc grace a un listbox determinant le mois, trouver tout les societes dont les contrats stipulent donc qu'elles doivent payer le mois indiqu&#233; par le listbox.
pourc e faire je fait la requete sql suivante :

SELECT societe,ctra_date,ctra_prix,ctra_01m,ctra_03m,ctra_06m,ctra_12m ;
FROM Clients WHERE ((month(ctra_date))=parmois) and (ctra_01m=.T.) or;
     ((month(ctra_date))=partrim) and (ctra_03m=.T.) or;
     ((month(ctra_date))=parsem) and (ctra_06m=.T.) or;
     ((month(ctra_date))=this.listindex) and (ctra_12m=.T.) into cursor CurseurGrid

le into cursor me permet de cr&#233;er un fichier tmp mais il est en lecture seul. Or je voudrais un seul champs a la place qui indique semestiel,annuel, mensuel,trimestriel et calculer ce qu'il doivent payer 

donc au final, je dois avoir la societe, le prix du contrat, le ytpe de contrat, la date du contrat, et se qu'il doivent payer dans mon grid.(grid a recordsourcetype = alias et recordsource CurseurGrid )

que me proposeriez vous?

michelatoutfox · Answer

Je referais une autre requete sur le curseur cr&#233;&#233; par la premi&#232;re, avec des champs calcul&#233;s (des iif, probablement).

MAIS:
Je suis de tr&#232;s mauvais conseil sur les requetes SQL et les grids, alors attend un peu de voir si quelqu'un d'autre te r&#233;pond avant de suivre ma proposition... 

cel&#224; dit, ta solution pour la variable xnumero ne me plait pas: il faudrait vraiment savoir dans quelle m&#233;thode ou proc&#233;dure tu la d&#233;finis, et dans quelle m&#233;thode ou proc&#233;dure ton erreur apparait. si c'est dans deux methode distinctes, alors, c'est normal que tu perdes sa visibilit&#233;, mais il vaudrait mieux la passer comme param&#232;tre plutot que de la d&#233;clarer publique. Juste une piste, une id&#233;e que je te propose

cs_spoutnic_37 · Answer

aloha !!!!

Voila g r&#233;ussi a m'en tirer aevc ctte requete, du coup plus de set filter to .Vu que je suis encore moins bon en sql qu'en foxpro, ca pas ete simple, surtout que je n'ai rein trouver pour comparer deux heures et ainsi  determiner le temps ecoul&#233; entre ces deux heures.

date1=CTOd(substr(thisform.period.value,4,10)) && date de debut de periode
date2=CTOD(substr(thisform.period.value,18,10)) && date de fin de periode



select clients


if indexseek(thisform.listcli.value,.t.,"clients","societe") && je me positionne sur le client, s'il existe
   public xnumero
   xnumero=clients.numero && je r&#233;cup&#232;re son num&#233;ro
 
 && tps_passe2 et tps_passe1sont de type dateheure, la somme des dur&#233;es est plac&#233;e dans le champ temps du cuseur test
 
select id_int,date_int,(alltrim(str(hour(tps_passe2)+ hour(tps_passe1)))+":"+;
                                 alltrim(str(minute(tps_passe2)+ minute(tps_passe1)))+":"+;
                                 alltrim(str(sec(tps_passe2)+ sec(tps_passe1))));
                                 as temps,objet,total_h_t from interven  ;
                                 where numero=xnumero and (dtos(date_int);
                                 between dtos(date1) and dtos(date2));
                                 into cursor test 

endif

thisform.grid2.recordsource= "test"

michelatoutfox · Answer

attention &#224; la syntaxe de between:

between(valeur_&#224;_tester, borne_inf&#233;rieure, borne_sup&#233;rieure)

cs_spoutnic_37 · Answer

oui, ca marche , mais j'avais fait comme cela car j'avais vu un exemple dans la msdn pour une requete sql .

Merci encore, et maintenant je me dirige vers un serieux pb: un &#233;tat. Je n'en ai jamais fait et je me demande comment faire pour recuperer les infos contenus dans mon grid2."test" etant un curseur, je ne peux pas le mettre dans l'environement de donn&#233;e. De plus, je ne sais pas comment integrer ma requete sql dans un etat, et avant tout est-ce possible ?

A c pas simple tout ca !!!

FredArmoni · Answer

Michel, le between SQL est un peu diff&#233;rent. en VFP on peut utiliser les deux syntaxes

[mailto:frederic.steczycki@mvps.org Fred]
membre actif d'AtoutFox
MS MVP VFP

Pb Set filter to et de grid !!!

11 réponses

Votre réponse

Discussions similaires