Before selection

Before selection {( tabela )} : Boolean

Parâmetro	Tipo		Descrição
tabela	Table	→	Tabela na qual vai testar se o registro do ponteiro está antes do primeiro registro selecionado, ou tabela padrão, se omitido
Resultado	Boolean	←	Sim (TRUE) ou Não (FALSE)

Descrição

Before selection retorna TRUE quando o ponteiro do registro atual se encontra antes do primeiro registro da seleção atual de tabela. Before selection geralmente é utilizado para verificar se o comando PREVIOUS RECORD tiver movido o ponteiro do registro atual antes do primeiro registro. Se a seleção atual estiver vazia, Before selection retorna TRUE.

Para mover o ponteiro do registro atual à seleção, utilize os comandos FIRST RECORD, LAST RECORD ou GOTO SELECTED RECORD. NEXT RECORD.

Before selection retorna TRUE no cabeçalho quando um relatório está sendo impresso com PRINT SELECTION ou a partir do comando de menu Imprimir. Pode utilizar o seguinte código para testar o primeiro cabeçalho e imprimir um cabeçalho especial para a primeira página:

  // Método de um formulário de saída utilizado para um relatório
  $vpFormTabela:=Current form table
  Case of
   // ...
:(Form event code=On Header)
   // A área cabeçalho vai ser impressa
  Case of
  :(Before selectiom($vpFormTabela->))
   // O código para a primeira quebra do cabeçalho fica aqui
   // ...
  End case

Exemplo

Este formulário é utilizado durante a impressão de um relatório. Define uma variável vTitulo, que será imprimida na área do cabeçalho na primeira página:

  // Método de formulário [Finanças];"Array"
 Case of
  // ...
    :(Form event code=On Header)
       Case of
          :(Before selection([Finanças))
             vTitulo:="Relatório de finanças de 1997" // Definir o título para a primeira página
          Else
             vTitulo:="" // Apagar o título para todas as outras páginas
       End case
 End case

Ver também

End selection
FIRST RECORD
Form event code
PREVIOUS RECORD
PRINT SELECTION