Aller au contenu principal
Version: 20 R7 BETA

End selection

End selection {( laTable )} -> Résultat

ParamètreTypeDescription
laTableTableTable 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ésultatBooleanOui (Vrai), Non (Faux)

Description

La fonction End selection retourne Vrai lorsque le pointeur de l'enregistrement courant se trouve après le dernier enregistrement de la sélection courante de laTable. End selection est généralement utilisée pour tester si l'appel à la commande NEXT RECORD place ou non le pointeur d'enregistrement courant derrière le dernier enregistrement de la sélection. Si la sélection courante est vide, End selection retourne Vrai.

Pour replacer le pointeur d'enregistrement courant dans la sélection, utilisez les commandes FIRST RECORD, LAST RECORD ou GOTO SELECTED RECORD. PREVIOUS RECORD ne replace pas le pointeur dans la sélection.

End selection retourne également Vrai lors de l'impression du dernier pied de page d'un état, déclenchée par la commande PRINT 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:=Current form table
 Case of
  // ...
    :(Form event code=On Printing Footer)
  // Un pied
       If(End selection($vpFormTable->))
  // Le code pour le dernier pied de page doit être placé ici
       Else
  // Le code pour le pied de page doit être placé ici
       End if
 End case

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"
 Case of
  // ...
    :(Form event code=On Printing Footer)
       If(End selection([Finances]))
          VPied:="©1997 SARL Dupont" // Définir le pied de page de la dernière page
       Else
          VPied:="" // Effacer le pied de page pour toutes les autres pages
       End if
 End case

Voir aussi

Before selection
Form event code
LAST RECORD
NEXT RECORD
PRINT SELECTION