End selection

versión 3

End selection {(tabla)} Booleano

End selection devuelve TRUE cuando el puntero del registro actual está más allá del último registro de la selección actual de tabla. End selection se utiliza generalmente para probar si la llamada al comando NEXT RECORD ha movido o no el puntero del registro actual detrás del último registro de la selección. Si la selección actual está vacía, End selection devuelve TRUE.

Para mover el puntero del registro actual dentro de la selección, utilice LAST RECORD, FIRST RECORD, o GOTO SELECTED RECORD. PREVIOUS RECORD no mueva el puntero a la selección.

End selection devuelve también TRUE cuando el último pie de página de un informe se imprime con PRINT SELECTION o desde el menú Imprimir. Puede utilizar el siguiente código para probar el último pie de de página e imprimir un pie de página especial para la última página:

      ` Método de un formulario de salida utilizado para imprimir un informe
   $vpFormTabla:=Current form table
   Case of
         ` ...
      : (Form event=On Printing Footer)
            ` Se va a imprimir un pie de de página
         If(End selection($vpFormTabla->))
            ` El código para el último pie de página va aquí
         Else
            ` El código para el pie de página va aquí
         End if   
   End case

Este método de formulario se utiliza durante la impresión de un informe. Se define la variable vPie a imprimir en el área de pie de página de la última página:

      ` [Finanzas];"Resumen" Método de formulario
   Case of
         ` ...
      : (Form event=On Printing Footer)
         If(End selection([Finanzas]))
            vPie := "©2001 Acme Corp."  ` Definir el pie de página de la última página
         Else
            vPie := ""  ` Borrar el pie de página para todas las otras páginas
         End if      
   End case

Before selection, Form event, LAST RECORD, NEXT RECORD, PRINT SELECTION.