PC Toledo

Boa noite!

Pessoal, gostaria de uma orientação de vocês como eu posso fazer o seguinte: como eu devo passar o parâmetro cFormulario para o comando LOAD WINDOW e ACTIVATE WINDOW.

Código: Selecionar todos

#include "hmg.ch"

declare window Main

Function main_janela_action

	LOCAL cFormulario := ThisWindow.Name

	IF IsWindowActive(cFormulario)
	
		DoMethod(&cFormulario,"MINIMIZE")
		DoMethod(&cFormulario,"RESTORE")
		DoMethod(&cFormulario,"SETFOCUS")
	
	ELSE
	
		LOAD WINDOW &cFormulario         -> Está dando erro aqui
		ACTIVATE WINDOW &cFormulario  -> e aqui, como pode ser resolvido
	
	ENDIF

Return Nil

Abraços,

Paulo - Jacareí/SP

Amigo, acho que o ThisWindow.Name só vai retornar o nome do formulário quando a window estiver ativa, então neste caso você não poderia usar o ThisWindow.Name e sim já informar o nome do formulário:

Código: Selecionar todos

LOCAL cFormulario := "Main"

Abraços,

Olá Paulo,
Estou com este mesmo problema, como vc resolveu para não usar a macro substituição "&"? Ao Compilar a macro não substitui nesse caso.

Essa foi uma coisa chata que achei da HMG, mas com certeza tem solução.
Como HMG usa variável pra isso, talvez criar como STATIC dentro do form, e colocar sub-rotinas nesse mesmo fonte usando a variável, e acessar a variável por meio de função ou classe dentro do PRG.

Isso caso não encontre outra alternativa.

PC Toledo

Passagem de parâmetros

Passagem de parâmetros

Passagem de parâmetros

Passagem de parâmetros

Passagem de parâmetros