4D Doc Center : End selection

4D v14.3

End selection


End selection {( tabela )} -> Resultado

Parâmetro	Tipo	Descrição
tabela	Tabela	Tabela na qual provar se o ponteiro do registro está além do último registro selecionado, ou Tabela por padrão, se omitida
Resultado	Booleano	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

 &NBSP;Case of

 &NBSP; ` ...

 &NBSP;:(Form event=On Printing Footer)

 &NBSP; ` Um rodapé será impresso

 &NBSP;If(End selection($vpFormTabela->))

 &NBSP; ` O código para o último rodapé vai aqui

 &NBSP;Else

 &NBSP; ` 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=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