Salut à tous,
Voici mon problème :
- J'ai un table fichier.
- Dans la description ce champ table, onglet Contenu, la rubrique de parcours est IDDEP_PROJET.
- J'ai coché la case "Utiliser la fonction HFiltre pour le parcours du fichier", pour les tries
- Je veux effectuer une recherche générique (type wildcard : dudule*machin*.doc) sur la clé de parcours "NomFichier" (donc différente de IDDEP_PROJET).
- j'ai donc une fenetre avec cette table un champ de saisie et un bouton de lancement de recherche. voici le code :
CléParcours est une chaîne
RubParcours est une chaîne = "NomFichier"
HDésactiveFiltre ("REPOSITORY")
SI SaisieFichier<>"" ALORS
cWhere est une chaîne = renvoyerClauseWhere(RubParcours,SaisieFichier)
CléParcours=HFiltre("REPOSITORY",cWhere)
SI CléParcours <> "" ALORS
//Code pour test
// HLitPremier(REPOSITORY,CléParcours)
// tantque pas HEnDehors(REPOSITORY)
// test est une chaine = REPOSITORY.NomFichier
// HLitSuivant(REPOSITORY,CléParcours)
// FIN
//Fin code pour test
TableAffiche(TableDest,taDébut)
//TableDest..RubriqueParcourue=CléParcours
FIN
SINON
// Annule le filtre
TableDest..FiltreÞP_PROJET.IDDEP_PROJET
TableDest..RubriqueParcourue="IDDEP_PROJET"
FIN
- Le code de renvoyerClauseWhere:
PROCEDURE renvoyerClauseWhere(nomChamp="",cWhere="")
_where est une chaîne
nbEtoiles est entier
nbChaines est entier
i est entier
SI Droite(cWhere,1) ="*" ALORS
cWhere=Gauche(cWhere,Taille(cWhere)-1)
FIN
SI Gauche(cWhere,1)="*" ALORS
cWhere=Droite(cWhere,Taille(cWhere)-1)
FIN
_where = nomChamp+"~] '"+cWhere+"'"
nbEtoiles = ChaîneOccurrence(cWhere,"*")
SI nbEtoiles>0 ALORS
nbChaines = nbEtoiles+1
_where=""
POUR i=1 A nbChaines
_where+=nomChamp+"~] '"+ExtraitChaîne(cWhere,i,"*")+"' ET "
FIN
_where = Gauche(_where,Taille(_where)-4)
FIN
RENVOYER _where
- Si je laisse la case "Utiliser la fonction HFiltre pour le parcours du fichier", le Code pour test me liste bien les valeurs recherchées mais le tableaffiche n'affiche pas ces valeurs
- Si j'enlève la case "Utiliser la fonction HFiltre pour le parcours du fichier", çà fonctionne et je perds le trie automatique et la recherche "simple"...
- si je décommente la ligne TableDest..RubriqueParcourue=CléParcours alors il me renvoie une ligne qui n'a rien a à voir avec la recherche...
Quelqu'un a une idée ??
Michel |