Olá pessoal…

Hoje vou mostrar uma função que testa se está utilizando o MDI (SIGAMDI) via 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

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

Tags: AdvPL