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