pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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


Le code suivant permet de connaître le volet d'un champ présent dans un onglet. La procédure DonneVolet permet de rechercher un champ parmi les champs présents dans les volets d'un onglet.



PROCEDURE DonneVolet(NomOnglet, NomChamp)
// Dans quel volet de l'onglet se trouve le champ ?
i est un entier
j est un entier
sChamp est une chaîne
NbVolet est un entier = {NomOnglet}..Occurrence
NumOnglet est un entier = 0
POUR i = 1 A NbVolet
  
j = 1
   sChamp = Majuscule( EnumèreChamp ({NomOnglet}[i],j))
   TANTQUE sChamp <> ""
      // trace(sChamp, i)
     
SI sChamp = Majuscule(NomChamp) ALORS NumOnglet = i
     
j++
      sChamp = Majuscule( EnumèreChamp ({NomOnglet}[i],j))
   FIN
FIN
// Exemples d'utilisation
Info("SAISIE1", DonneVolet("ONGLET1", "SAISIE1"))
Info("SAISIE5", DonneVolet("ONGLET1", "SAISIE5"))
Info("SAISIE3", DonneVolet("ONGLET1", "SAISIE3"))
Info("NOMCLI", DonneVolet("ONGLET1", "NOMCLI"))