// Résumé : Renvoie la première ligne vide d'un champ table
// Syntaxe :
//[ <Résultat> = ] ChercherLigneVide (<chMaTable> est champ)
//
// Paramètres :
// chMaTable (champ) : Champ concerné
// Valeur de retour :
// entier : n° de la première ligne non vide, 0 s'il n'y a pas de lignes vides

FONCTION ChercherLigneVide(chMaTable est Champ) :entier
nLigne est un entier
POUR TOUTE LIGNE nLigne de chMaTable
SI EstVide(nLigne) ALORS
RENVOYER nLigne
FIN
FIN
RENVOYER Faux

// Résumé : Détermine si une ligne est vide
// Syntaxe :
//[ <Résultat> = ] EstVide (<nLigne>)
//
// Paramètres :
// nLigne : N° de ligne à tester
// Valeur de retour :
// booléen :Vrai si la ligne est vide, Faux sinon
//
// Remarque :
// Dans le cas d'un champ table entièrement composé de colonne "Numériques", cette fonction considère une ligne de 0 comme vide
//
Procedure EstVide(nLigne)
nNoCol est un entier
chColonne est Champ

POUR nNoCol=1 _À_ TableOccurrence(TABLE_SansNom1,toColonne)
chColonne<-TableEnumèreColonne(TABLE_SansNom1,nNoCol)
Trace(chColonne..Nom)
SELON EstNumérique(chColonne)
CAS Vrai
SI chColonne[nLigne]<>0 ALORS
RENVOYER Faux
FIN
CAS Faux
SI chColonne[nLigne]<>"" ALORS
RENVOYER Faux
FIN
FIN
FIN
RENVOYER Vrai