Nesse vídeo demonstraremos a utilização da função MPDicInDB, que serve para validar se o dicionário de dados (tabelas internas como as SXs) esta no Banco de Dados.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe356
Valida se o dicionário de dados esta no Banco de Dados
@type Function
@author Atilio
@since 26/03/2023
@see https://tdn.totvs.com/display/public/framework/MPDicInDB
@obs 
    Função MPDicInDB
    Parâmetros
        Função não tem parâmetros
    Retorno
        + lRet    , Lógico    , Se .T. o dicionário está no banco de dados se não ainda esta em arquivos dentro da Protheus Data

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

User Function zExe356()
    Local aArea         := FWGetArea()
    
    //Valida se o dicionário esta no banco de dados
    If MPDicInDB()
        FWAlertSuccess("O dicionário está no banco de dados (SQL)!", "Teste MPDicInDB")
    Else
        FWAlertError("O dicionário ainda não esta no banco de dados (CTREE / DBF)!", "Teste MPDicInDB")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++