Current form name

Current form name : Text

Descrição​

O comando Current form name retorna o nome do formulário atual definido para o processo. O formulário atual pode ser um formulário de projeto ou formulário de tabela.

Como padrão, se não tiver chamado o comando FORM LOAD no processo chamado, o formulário atual é aquele sendo exibido ou impresso. Se q tiver chamado o comando FORM LOAD no processo, o formulário atual é aquele estabelecido pelo comando e continua sendo assim até chamar FORM UNLOAD (ou CLOSE PRINTING JOB).

O comando retorna:

• o nome do formulário ou
• o nome de arquivo sem a extensão se o formulário atual tiver sido criado por um arquivo json ou
• o atributo "nome" se o formulário atual for criado por um objeto ou
• uma string vazia se não houver formulário atual definido para o processo

Exemplo 1​

Em um formulário de entrada, ponha o código abaixo em um botão:

 var $FormName : Text
 $win:=Open form window([Members];"Input";Plain form window)
 DIALOG([Members];"Input")
 $FormName:=Current form name
 // $FormName = "Input"
 FORM LOAD([Members];"Drag")
 $FormName:=Current form name
 // $FormName = "Drag"
 //...

Exemplo 2​

Se quiser obter o formulário atual se este for um formulário projeto:

 $PointerTable:=Current form table
 If(Nil($PointerTable)) // este é um formulário projeto
  $FormName:=Current form name
  ... // processamento
 End if

Ver também​

FORM LOAD

Propriedades​