version 5
Fin de selection {(table)} Booléen
Paramètre | Type | Description | |
table | Table | Table pour laquelle tester si le pointeur | |
d'enregistrement courant est au-delà du dernier | |||
enregistrement de la sélection courante ou | |||
Table par défaut si ce paramètre est omis | |||
Résultat | Booléen | Oui (Vrai), Non (Faux) |
Description
La fonction Fin de selection retourne Vrai lorsque le pointeur de l'enregistrement courant se trouve après le dernier enregistrement de la sélection courante de table. Fin de selection est généralement utilisée pour tester si l'appel à la commande ENREGISTREMENT SUIVANT place ou non le pointeur d'enregistrement courant derrière le dernier enregistrement de la sélection. Si la sélection courante est vide, Fin de selection retourne Vrai.
Pour replacer le pointeur d'enregistrement courant dans la sélection, utilisez les commandes ALLER A DERNIER ENREGISTREMENT, DEBUT SELECTION ou ALLER DANS SELECTION. ENREGISTREMENT PRECEDENT ne replace pas le pointeur dans la sélection.
Fin de selection retourne également Vrai lors de l'impression du dernier pied de page d'un état, déclenchée par la commande IMPRIMER SELECTION ou le menu Imprimer. Vous pouvez utiliser l'instruction suivante pour intercepter le dernier pied de page et insérer une mention particulière :
` Méthode d'un formulaire sortie utilisé pour imprimer un état $vpFormTable:=Table du formulaire courant Au cas ou ` ... : (Evenement formulaire=Sur impression pied de page) ` Un pied Si (Fin de selection($vpFormTable->)) ` Le code pour le dernier pied de page doit être placé ici Sinon ` Le code pour le pied de page doit être placé ici Fin de si Fin de cas
Exemple
La méthode formulaire de l'exemple suivant est utilisée lors de l'impression d'un état. Elle crée la variable VPied, à imprimer dans le pied de page de la dernière page :
` Méthode formulaire [Finances];"Tableau" Au cas ou ` ... : (Evenement formulaire=Sur impression pied de page) Si (Fin de selection([Finances])) VPied:= "©1997 SARL Dupont" ` Définir le pied de page de la dernière page Sinon VPied:= "" ` Effacer le pied de page pour toutes les autres pages Fin de si Fin de cas
Référence
ALLER A DERNIER ENREGISTREMENT, Avant selection, ENREGISTREMENT SUIVANT, Evenement formulaire, IMPRIMER SELECTION.