4D v14.3

Current form table

Página Inicial

 
4D v14.3
Current form table

Current form table 


 

Current form table -> Resultado 
Parâmetro Tipo   Descrição
Resultado  Ponteiro in Ponteiro a tabela do formulário atualmente exibido

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  Nil 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=On Load)
       C_STRING(31;vstRegistroAtual)
       C_POINTER($vpTabelaPai)
       C_LONGINT($vlNumRegistro)
       $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

 
PROPRIEDADES 

Produto: 4D
Tema: Tabela
Número 627

 
HISTÓRIA 

Modificado: 4D v11 SQL

 
VER TAMBÉM 

DIALOG
Formulários
INPUT FORM
OUTPUT FORM
PRINT SELECTION

 
ARTICLE USAGE

Manual de linguagem 4D ( 4D v11 SQL Release 6)
Manual de linguagem 4D ( 4D v12.4)
Manual de linguagem 4D ( 4D v14 R2)
Manual de linguagem 4D ( 4D v14 R3)
Manual de linguagem 4D ( 4D v13.5)
Manual de linguagem 4D ( 4D v14.3)
Manual de linguagem 4D ( 4D v14 R4)