Exemple d'utilisation de la commande HLitRecherche

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

L'exemple suivant effectue une recherche générique sur le nom du client. Si le client est trouvé, la procédure ClientExist est lancée, si aucun client n'est trouvé la procédure ClientInconnu est lancée.

// exemple 1:Recherche générique simple
HLitRecherche (CLIENT,NOMCLI,sNomCli)
SI HTrouve(CLIENT) ALORS
ClientExist()
SINON
ClientInconnu()
FIN

L'exemple suivant effectue une recherche sur une clé composée du nom et du prénom. Les clients trouvés sont supprimés.

// Construction de la valeur de la clé composée
sValRech est une chaîne = HConstruitValClé ( CLIENT , NOM_PRENOM , sNom , sPrenom )

// Recherche de l'enregistrement
HLitRecherche ( CLIENT , NOM_PRENOM , sValRech )

TANTQUE HTrouve ( CLIENT )
   // Suppression
   HSupprime ( CLIENT )
   HLitSuivant ( CLIENT , NOM_PRENOM )
FIN

Cet exemple permet de rechercher un client avec un chiffre d'affaire supérieur à une valeur donnée.

HLitRecherche (CLIENT,CA,X)
TANTQUE PAS HEnDehors(CLIENT)
Ajoute_Client_Liste()
HLitSuivant(CLIENT)
FIN