1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
// Résumé : retourne l'indice de la ligne survolée dans un champ table
// Syntaxe :
//[ <Résultat> = ] TableLigneSurvol (<ps_Champ> est chaîne)
//
// Paramètres :
// ps_Champ (chaîne ANSI) : Nom du champ table
// Valeur de retour :
// entier : indice de la ligne survolée. -1 si pas de ligne survolée
//
// Exemple :
// TableLigneSurvol(Tab_ListeClient..nom)
//
PROCEDURE TableLigneSurvol(ps_Champ est une chaîne) : entier
SI ChampExiste(ps_Champ) ALORS
SI {ps_Champ,indChamp}..Type = typTable ALORS
RENVOYER TableInfoXY(ps_Champ, tiNumLigne, SourisPosX(), SourisPosY())
SINON
ExceptionDéclenche(2,"Le champ '"+ps_Champ+"' n'est pas de type table")
FIN
SINON
ExceptionDéclenche(1,"Le champ '"+ps_Champ+"' n'existe pas")
FIN
RENVOYER -1 |
Partager