Nesse vídeo será demonstrado em como manipular e buscar os logs (usados por exemplo na MostraErro) através das funções AutoGrLog e GetAutoGrLog.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe053 Exemplo de função para montar o "MostraErro" e para buscar a mensagem @type Function @author Atilio @since 05/12/2022 @see https://tdn.totvs.com/pages/releaseview.action?pageId=6815089 e https://tdn.totvs.com/pages/releaseview.action?pageId=6815090 @obs Função AutoGrLog Parâmetros + cText , Caractere , Texto que será gravado dentro do log do MostraErro Função GetAutoGRLog Retorno + aRet , Array , Array com as linhas das mensagens do log do MostraErro Observação: só é possível usar se a variável lAutoErrNoFile estiver declarada como Private **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe053() Local aArea := FWGetArea() Local aRespos := {} Local nAtual := 0 Local cMsg := "" Private lAutoErrNoFile := .F. //Exemplo 1 //Montando a mensagem para exibir no MostraErro lAutoErrNoFile := .F. AutoGrLog("Houve uma falha - ID #01!") AutoGrLog("As tabelas não estavam posicionadas no momento do processamento da rotina.") AutoGrLog("Contate o administrador") MostraErro() //Exemplo 2 //Agora monta uma mensagem, só que ao invés de exibir, será gravado em um array lAutoErrNoFile := .T. AutoGrLog("Houve uma falha - ID #02!") AutoGrLog("As tabelas não estavam posicionadas no momento do processamento da rotina.") AutoGrLog("Contate o administrador") aRespos := GetAutoGRLog() //Percorre todas as linhas do log e salva num arquivo txt For nAtual := 1 To Len(aRespos) cMsg += aRespos[nAtual] + CRLF Next MemoWrite("\x_logs\log_auto.txt", cMsg) FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.