Nesse vídeo demonstraremos a utilização da função TCSqlReplay, que serve para ativar a gravação de logs do DbAccess para acessarmos via AdvPL.

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

//Bibliotecas
#Include "TOTVS.ch"
 
/*/{Protheus.doc} User Function zExe484
Ativa a gravação de logs do DBAccess direto dentro da Protheus Data
@type Function
@author Atilio
@since 03/04/2023
@see https://tdn.totvs.com/display/tec/TCSQLReplay
@obs 
 
    TCSQLReplay
    Parâmetros
        + nOption     , Numérico       , Opção a ser executada (consulte o link do TDN para mais informações)
        + cMessage    , Caractere      , Comando a ser executado ou mensagem de retorno da execução
    Retorno
        + lRet        , Lógico         , Dependendo do comando retorna .T. se deu certo ou .F. se não
 
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
 
User Function zExe484()
    Local aArea     := FWGetArea()
    Local cComando  := ""
 
    //Verifica se no DbAccess existe o recurso para executar o TCSqlReplay
    If TCSqlReplay(1, @cComando)
 
        //Define o nome do arquivo de log que será gerado dentro da Protheus Data
        cComando := "/sqlreplay_teste.log"
        TCSqlReplay(2, @cComando)
 
        //Ativa o log de rotinas internas
        cComando := "1"
        TCSqlReplay(6, @cComando)
 
        //Altera o tamanho do log para até 5 MB
        cComando := "5"
        TCSqlReplay(7, @cComando)
 
        //Verifica se esta ativo o log, se sim, executa alguns comandos no banco (como posicionar em um registro)
        cComando := ""
        If TCSqlReplay(4, @cComando)
            DbSelectArea("SB1")
            SB1->(DbSetOrder(1))
            SB1->(MsSeek(FWxFilial("SB1") + "F0001"))
        EndIf
 
        //Finaliza o TCSqlReplay
        TCSqlReplay(3, @cComando)
    EndIf
 
    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++