Current form table

Current form table : Pointer

Descrição​

O comando Current form table retorna o ponteiro para a tabela do formulário em tela ou impresso no processo atual.

A função retorna Is nil pointer nos seguintes casos:

• Não há formulário mostrado ou impresso no processo atual,
• O formulário atual é um formulário de projeto. Se houver várias janelas abertas no processo atual (significa que a última janela aberta é a janela ativa atual), o comando retorna um ponteiro até a tabela do formulário que aparece na janela ativa.

Se o formulário mostrado atualmente é o formulário detalhado de uma área de subformulário, você se encontra em entrada de dados e fez um duplo clique em um registro ou subregistro em uma área de subformulário de duplo clique. Neste caso, o comando retorna:

• O ponteiro em direção a tabela mostrada no área do subformulário, se o subformulário mostra uma tabela.
• Um ponteiro não significativo, se a área de subformulário mostrar uma subtabela.

Exemplo​

Em su aplicação, utiliza a seguinte convenção quando visualiza um registro:
Se a variável vsCurrentRecord estiver presente em um formulário, mostra "Novo registro" se estiver trabalhando com um novo registro. Se estiver trabalhando com o registro 56 de uma seleção composta por 5200 registros, mostra "56 de 5200".

Para isso, utilize o método de objeto para criar a variável vstRegistroAtual, depois copie-o e cole-o em todos seus formulários:

 // Método de objeto da variável não editável vstRegistroAtual
 Case of
  :(Form event code=On Load)
    C_STRING(31;vstRegistroAtual)
    var $vpTabelaPai : Pointer
    var $vlNumRegistro : Integer
    $vpTabelaPai:=Current form table
    $vlNumRegistro:=Record number($vpTabelaPai->)
    Case of
     :($vlNumRegistro=-3)
       vstRegistroAtual:="Novo registro"
     :($vlNumRegistro=-1)
       vstRegistroActual:="Ningún registro"
     :($vlNumRegistro>=0)
       vstRegistroAtual:=String(Selected record number($vpTabelaPai->))+" de "+
       vstRegistroAtual:=vstRegistroAtual+String(Records in selection($vpTabelaPai->))
    End case
 End case

Ver também​

DIALOG
FORM SET OUTPUT
FORM SET INPUT
PRINT SELECTION

Propriedades​