End selection

End selection {( tabela )} : Boolean

Parâmetro	Tipo		Descrição
tabela	Table	→	Tabela na qual provar se o ponteiro do registro está além do último registro selecionado, ou Tabela por padrão, se omitida
Resultado	Boolean	←	Sim (TRUE) ou Não (FALSE)

Descrição

End selection retorna TRUE quando o ponteiro do registro atual está além do último registro da seleção atual de tabela. End selection se utiliza geralmente para testar se a chamada ao comando NEXT RECORD ha movido ou não o ponteiro do registro atual detrás do último registro da seleção. Se a seleção atual está vazia, End selection retorna TRUE.

Para mover o ponteiro do registro atual dentro da seleção, utilize FIRST RECORD, LAST RECORD ou GOTO SELECTED RECORD. PREVIOUS RECORD não mova o ponteiro à seleção.

End selection retorna também TRUE quando o último rodapé de um relatório se imprime com PRINT SELECTION ou desde o menu Imprimir. Pode utilizar o seguinte código para testar o último rodapé e imprimir um rodapé especial para a última página:

  // Método de um formulário de saída utilizado para imprimir um relatório $vpFormTabela:=Current form table
  Case of
   // ...
  :(Form event code=On Printing Footer)
   // Um rodapé será impresso
  If(End selection($vpFormTabela->))
   // O código para o último rodapé vai aqui
  Else
   // O código para o rodapé vai aqui
End if
End case

Exemplo

Este método de formulário é utilizado durante a impressão de um relatório. Ele define a variável vPie a imprimir na área de rodapé da última página:

  // [Finanças];"Resumo" Método de formulário
 Case of
  // ...
    :(Form event code=On Printing Footer)
       If(End selection([Finanças]))
          vPie:="©2001 Acme Corp." // Definir o rodapé da última página
       Else
          vPie:="" // Apagar o rodapé para todas as outras páginas
       End if
 End case

Ver também

Before selection
Form event code
LAST RECORD
NEXT RECORD
PRINT SELECTION