Current form name
Current form name : Text
| Parâmetro | Tipo | Descrição | |
|---|---|---|---|
| Resultado | Text | ← | Nome do projeto de formulário atual ou tabela formulário atual no processo |
Esse comando não é seguro para thread e não pode ser usado em código adequado.
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