Nesse vídeo demonstraremos a utilização da função LjIsMDI, que serve para validar se o programa esta rodando no SIGAMDI.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "Totvs.ch"

/*/{Protheus.doc} User Function zExe330
Valida se o programa esta rodando no SIGAMDI (.T.) ou não (.F.)
@type Function
@author Atilio
@since 12/03/2023
@obs 

    Função LjIsMDI
    Parâmetros
        Não tem parâmetros
    Retorno
        Retorna .T. se estiver rodando via SIGAMDI ou .F. se não

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe330()
    Local aArea     := FWGetArea()
    
    //Valida se esta rodando em SIGAMDI
    If LjIsMDI()
        FWAlertSuccess("O programa esta rodando via SIGAMDI", "Teste LjIsMDI")
    Else
        FWAlertError("Não é SIGAMDI", "Teste LjIsMDI")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++