Nesse vídeo demonstraremos a utilização das funções LookUpMod e GetAmb que servem para exibir a tela de consulta de módulos do sistema (compras, faturamento, estoque, etc).

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

//Bibliotecas
#Include "Totvs.ch"

/*/{Protheus.doc} User Function zExe334
Abre a consulta de módulos do produtos (compras, estoque, faturamento, etc)
@type Function
@author Atilio
@since 12/03/2023
@obs 

    Função LookUpMod
    Parâmetros
        Não tem parâmetros
    Retorno
        Retorna .T. se a janela foi confirmada ou .F. se não

    Função GetAmb
    Parâmetros
        Recebe se deve retornar o código ("1") ou a descrição ("2") do módulo selecionado
    Retorno
        Retorna o texto conforme o parâmetro informado

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

User Function zExe334()
    Local aArea     := FWGetArea()
    Local cMensagem := ""

    //Se a pergunta de módulos foi confirmada
    If LookUpMod()
        //Monta a mensagem e exibe
        cMensagem := "Codigo: " + GetAmb("1") + CRLF
        cMensagem += "Descricao: " + GetAmb("2")
        FWAlertInfo(cMensagem, "Teste LookUpMod e GetAmb")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++