Função que testa se está utilizando o SIGAMDI em AdvPL

Função que testa se está utilizando o SIGAMDI em AdvPL

Olá pessoal…

Hoje vou mostrar uma função que testa se está utilizando o MDI (SIGAMDI) via AdvPL.

AdvPL
AdvPL

Para verificar se está utilizando o MDI, basta verificar o atributo lMdi, dentro do objeto oApp (oApp:lMDI).

Para otimizar, ao invés de ficar testando a variável, criei a função zIsMDI(), que retorna verdadeiro ou falso se está utilizando o MDI.

Abaixo o código completo.

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zIsMDI
Função que retorna se está utilizando o MDI (SIGAMDI)
@type function
@author Atilio
@since 06/11/2016
@version 1.0
@return lRet, .T. (se está utilizanod o MDI) ou .F. (caso não esteja, como SIGAADV, SIGAFAT, etc)
	@example
	u_zIsMDI()
/*/

User Function zIsMDI()
	Local aArea := GetArea()
	Local lRet  := .F.

	//Se tiver instanciado no objeto oApp
	If Type("oApp") == "O"
		lRet := oApp:lMDI
	EndIf

	RestArea(aArea)
Return lRet

Esses e outros códigos, estão disponíveis gratuitamente no nosso GitHub, acesse em github.com/dan-atilio/AdvPL.

Bom pessoal, por hoje é só.
Abraços e até a próxima.

About Dan_Atilio

Analista e desenvolvedor de sistemas. Técnico em Informática pelo CTI da Unesp. Graduado em Banco de Dados pela Fatec Bauru. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor do projeto Terminal de Informação, onde são postados tutoriais e notícias envolvendo o mundo da tecnologia.

Deixe uma resposta

%d blogueiros gostam disto: