FIXER DESTINATION RECHERCHE

version 6.5 (Modifiée)

FIXER DESTINATION RECHERCHE (destinationType{; destinationObjet})

La commande FIXER DESTINATION RECHERCHE vous permet d'indiquer à 4e Dimension où placer les résultats de toutes les recherches qui suivent l'appel de cette commande dans le process courant.

Vous spécifiez le type de la destination dans le paramètre destinationType. 4e Dimension fournit les constantes prédéfinies suivantes :

Vous spécifiez le nom de la destination de la recherche dans le paramètre optionnel destinationObjet en fonction du tableau suivant :

Avec

   FIXER DESTINATION RECHERCHE(Vers sélection courante)

Les enregistrements trouvés par la recherche seront placés dans la sélection courante de la table dans laquelle la recherche est effectuée.

Avec

   FIXER DESTINATION RECHERCHE(Vers ensemble;"monEnsem")

Les enregistrements trouvés par la recherche seront placés dans l'ensemble monEnsem. La sélection courante et l'enregistrement courant de la table dans laquelle vous recherchez restent inchangés.

Note : En client-serveur, vous ne pouvez pas utiliser comme destination de recherche un ensemble local/client (dont le nom est précédé du symbole $). En effet, ce type d'ensemble est stocké sur les postes clients alors que les recherches sont effectuées sur le serveur. Pour plus d'informations sur les types d'ensembles, reportez-vous à la section Présentation des ensembles.

Avec

   FIXER DESTINATION RECHERCHE(Vers sélection temporaire;"maTemp")

Les enregistrements trouvés par la recherche seront placés dans la sélection temporaire maTemp. La sélection courante et l'enregistrement courant pour la table sur laquelle vous effectuez la recherche restent inchangés.

Note : Si la sélection temporaire n'existe pas avant l'appel, elle est automatiquement créée une fois la recherche effectuée.

Avec

   FIXER DESTINATION RECHERCHE(Vers variable;$vlRésultatRech)

Le nombre d'enregistrements trouvés par la recherche sera placé dans la variable $vlRésultatRech. La sélection courante et l'enregistrement courant de la table dans laquelle vous effectuez la recherche restent inchangés.

Attention : FIXER DESTINATION RECHERCHE affecte toutes les recherches suivantes dans le process courant. N'oubliez pas d'associer toujours un appel à FIXER DESTINATION RECHERCHE (lorsque destinationType#0) à un appel à FIXER DESTINATION RECHERCHE(0) ultérieur pour rétablir le mode standard de recherche.

FIXER DESTINATION RECHERCHE modifie uniquement le comportement des commandes de recherche, c'est-à-dire :

• CHERCHER

• CHERCHER DANS SELECTION

• CHERCHER PAR EXEMPLE

• CHERCHER PAR FORMULE

• CHERCHER PAR FORMULE DANS SELECTION

• CHERCHER PAR TABLEAU

En revanche, FIXER DESTINATION RECHERCHE n'affecte pas les autres commandes qui modifient la sélection courante telles que TOUT SELECTIONNER, LIEN RETOUR, etc.

(1) Vous créez un formulaire qui affiche les enregistrements de la table [Annuaire]. Vous créez un objet de type onglet nommé asRolodex (avec un onglet pour chaque lettre de l'alphabet) et un sous-formulaire qui affiche les enregistrements de la table [Annuaire]. En choisissant un onglet, vous affichez les enregistrements qui correspondent à cette lettre. Puisque, dans cet exemple, la table [Annuaire] contient des données statiques, vous ne voulez pas effectuer une recherche chaque fois que vous cliquez sur un onglet et donc vous dépensez moins de temps précieux à exécuter ces recherches. Pour faire ceci, vous pouvez placer vos recherches dans les sélections temporaires pour les réutiliser quand il le faut. Vous écrivez la méthode objet de l'onglet asRolodex comme indiquée ci-dessous :

      ` Méthode objet de l'onglet asRolodex
   Au cas ou 
    
   : (Evenement formulaire=Sur chargement)
         ` Avant que le formulaire s'affiche à l'écran, 
         ` initialiser l'onglet et le tableau de booléens qui nous indiquent
         ` si une recherche pour la lettre sur laquelle vous avez cliqué
         ` a été exécutée ou pas
      TABLEAU ALPHA(1;asRolodex;26)
      TABLEAU BOOLEEN(abRechFini;26)
      Boucle ($vlElém;1;26)
         asRolodex{$vlElém}:=Caractere(64+$vlElém)
         abRechFini{$vlElém}:=Faux
      Fin de boucle 

   : (Evenement formulaire=Sur clic)
         ` Lorsque l'utilisateur clique sur un onglet, vérifier si une recherche pour cette lettre
         ` a été exécutée ou pas
      Si (Non(abRechFini{asRolodex}))
            ` Sinon, fixer la destination de la recherche vers une sélection temporaire 
         FIXER DESTINATION RECHERCHE(Vers sélection temporaire;"Rolodex"+asRolodex{asRolodex})
            ` Effectuer la recherche
         CHERCHER([Phone Book];[Phone Book]Last name=asRolodex{asRolodex}+"@")
            ` Restituer le mode standard de recherche
         FIXER DESTINATION RECHERCHE(Vers sélection courante)
            ` La prochaine fois que cette lettre est choisie, la recherche ne sera pas exécutée
         abRechFini{asRolodex}:=Vrai
      Fin de si 
         ` Utiliser la sélection temporaire pour l'affichage des enregistrements qui correspondent à cette lettre
      UTILISER SELECTION("Rolodex"+asRolodex{asRolodex})

   : (Evenement formulaire=Sur libération)
         ` Après que le formulaire disparaît de l 'écran
         ` Effacer les sélections temporaires de la mémoire
          Boucle ($vlElem;1;26)
         Si(abRechFini{$vlElém})
            EFFACER SELECTION("Rolodex"+asRolodex{$vlElém})
         Fin de si
      Fin de boucle 
         ` Effacer les deux tableaux dont nous n'avons pas besoin
      EFFACER VARIABLE(asRolodex)
      EFFACER VARIABLE(abRechFini)

   Fin de cas 

(2) La méthode ValeursUniques suivante vérifie si les valeurs sont uniques pour des champs dans une table de votre choix. L'enregistrement courant peut déjà exister ou vient d'être créé.

      ` Méthode projet ValeursUniques
      ` ValeursUniques ( Pointeur ; Pointeur { ; Pointeur... } ) -> Booléen
      ` ValeursUniques ( ->Table ; ->Champ { ; ->Champ2...  } ) -> Oui ou non

   C_BOOLEEN($0;$2)
   C_POINTEUR(${1})
   C_ENTIER LONG($vlChamp;$vlNmbChamps;$vlTrouvé;$vlEnregCour)
   $vlNmbChamps:=Nombre de parametres-1
   $vlEnregCour:=Numero enregistrement($1->)
   Si ($vlNmbChamps>0)
      Si ($vlEnregCour#-1)
         Si ($vlEnregCour<0)
               ` Il s'agit d'un nouvel enregistrement qui n'a pas été sauvegardé (numéro d'enregistrement est
               ` égal à -3) 
               ` donc nous pouvons arrêter la recherche dès que nous avons trouvé un enregistrement
            FIXER LIMITE RECHERCHE(1)
         Sinon 
               ` Il s'agit d'un enregistrement existant, donc nous pouvons arrêter
               ` la recherche dès que nous avons trouvé au moins deux enregistrements
            FIXER LIMITE RECHERCHE(2)
         Fin de si 
            ` La recherche retournera le résultat dans la variable $vlTrouvé 
            ` sans changer l'enregistrement courant ni la sélection courante
         FIXER DESTINATION RECHERCHE(Vers variable;$vlTrouvé)
            ` Construire la recherche selon le nombre de champs spécifiés
         Au cas ou 
            : ($vlNmbChamps=1)
               CHERCHER($1->;$2->=$2->)
            : ($vlNmbChamps=2)
               CHERCHER($1->;$2->=$2->;*)
               CHERCHER($1->; & ;$3->=$3->)
            Sinon 
               CHERCHER($1->;$2->=$2->;*)
               Boucle ($vlChamp;2;$vlNmbChamps-1)
                  CHERCHER($1->; & ;${1+$vlChamp}->=${1+$vlChamp}->;*)
               Fin de boucle 
               CHERCHER($1->; & ;${1+$vlNmbChamps}->=${1+$vlNmbChamps}->)
         Fin de cas 
         FIXER DESTINATION RECHERCHE(0) ` Rétablir le mode standard de recherche
         FIXER LIMITE RECHERCHE(0) ` Enlever la limite sur la recherche
            ` Traiter le résultat de la recherche
         Au cas ou 
            : ($vlTrouvé=0)
               $0:=Vrai ` Pas de valeurs dupliquées
            : ($vlTrouvé=1)
               Si ($vlEnregCour<0)
                  $0:=Faux ` Trouvé un enregistrement existant avec les mêmes valeurs que le nouveau
               Sinon 
                  $0:=Vrai ` Pas de valeurs dupliquées, nous avons trouvé le même enregistrement
               Fin de si 
            : ($vlTrouvé=2)
               $0:=Faux  ` Quoi que ce soit, les valeurs sont dupliquées
         Fin de cas 
      Sinon 
         Si (<>Débogage)  ` Cela n'a aucun sens, signalez-le pendant le développement de la base
            TRACE  ` ATTENTION ! Cette méthode a été appelée sans enregistrement courant
         Fin de si 
         $0:=Faux  ` Ne peut pas garantir le résultat
      Fin de si 
   Sinon 
      Si (<>Débogage)  ` Cela n'a aucun sens, signalez-le pendant le développement de la base
         TRACE  ` ATTENTION ! Cette méthode a été appelée sans conditions de recherche
      Fin de si 
      $0:=Faux  ` Ne peut pas garantir le résultat
   Fin de si 

Lorsque cette méthode est implémentée dans votre application, vous pouvez écrire le code suivant :

      ` ...
   Si (ValeursUniques (->[Contacts];->[Contacts]Société;->[Contacts]Nom;->[Contacts]Prénom))
         ` Traitement de l'enregistrement qui a les valeurs uniques
   Sinon
      ALERTE("Il existe déjà un contact avec ce nom pour cette société.")
   Fin de si
      ` ...

CHERCHER, CHERCHER DANS SELECTION, CHERCHER PAR EXEMPLE, CHERCHER PAR FORMULE, CHERCHER PAR FORMULE DANS SELECTION, CHERCHER PAR TABLEAU, FIXER LIMITE RECHERCHE.