{"id":17923,"date":"2026-08-07T10:21:50","date_gmt":"2026-08-07T13:21:50","guid":{"rendered":"https:\/\/kb.elipse.com.br\/?p=17923"},"modified":"2026-08-07T10:21:50","modified_gmt":"2026-08-07T13:21:50","slug":"deteccao-de-falha-na-gravacao-do-historico-hist","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/deteccao-de-falha-na-gravacao-do-historico-hist\/","title":{"rendered":"Detec\u00e7\u00e3o de falha na grava\u00e7\u00e3o do Hist\u00f3rico (Hist)."},"content":{"rendered":"
\n
\n

1.<\/span> Introdu\u00e7\u00e3o<\/h2>\n<\/div>\n<\/div>\n
\n
Uma d\u00favida recorrente ao gravar dados no objeto Hist\u00f3rico (Hist<\/code>) do E3 \u00e9 como reagir quando a grava\u00e7\u00e3o falha \u2014 por exemplo, disparar um alarme se um registro n\u00e3o chegar ao banco de dados. A tentativa natural \u00e9 olhar o valor de retorno do m\u00e9todo WriteRecord()<\/code><\/strong>, esperando um c\u00f3digo de sucesso ou de erro.O problema \u00e9 que WriteRecord()<\/code> n\u00e3o retorna um valor que indique sucesso ou falha na grava\u00e7\u00e3o<\/strong>: ele sempre devolve 0<\/code>, independentemente do resultado. Portanto, n\u00e3o existe um c\u00f3digo de status a ser verificado logo ap\u00f3s a chamada.Este artigo explica por que isso acontece \u2014 o Hist\u00f3rico grava por meio de um buffer interno<\/strong> \u2014 e apresenta as estrat\u00e9gias recomendadas para detectar uma falha de grava\u00e7\u00e3o<\/strong> e acionar uma l\u00f3gica de alarme.<\/p>\n<\/section>\n
\n

2.<\/span> Por que o WriteRecord()<\/code> sempre retorna 0<\/h2>\n

O m\u00e9todo WriteRecord()<\/code> do objeto Hist\u00f3rico grava um registro imediatamente<\/strong> (mesmo quando o ScanTime<\/code> \u00e9 0<\/code>, ou seja, grava\u00e7\u00e3o apenas manual). O que ele faz, na pr\u00e1tica, \u00e9 enfileirar o registro no buffer interno do Hist\u00f3rico<\/strong> \u2014 n\u00e3o escrever diretamente na tabela do banco e aguardar a confirma\u00e7\u00e3o do SGBD.<\/p>\n

Como a chamada apenas entrega o registro ao buffer, ela retorna antes de o banco confirmar a grava\u00e7\u00e3o. Por isso o retorno \u00e9 sempre 0<\/code>: no momento em que WriteRecord()<\/code> devolve o controle ao script, o E3 ainda n\u00e3o sabe se o registro foi persistido no banco.<\/p>\n

\n

Consequ\u00eancia pr\u00e1tica<\/p>\n

Qualquer l\u00f3gica de sucesso\/falha que dependa do valor devolvido por WriteRecord()<\/code> \u00e9 inv\u00e1lida. A verifica\u00e7\u00e3o precisa ser feita de forma indireta, conforme a se\u00e7\u00e3o 4.<\/p>\n<\/div>\n<\/section>\n

\n

3.<\/span> Como o Hist\u00f3rico grava os dados (buffer interno)<\/h2>\n

O Hist\u00f3rico do E3 grava os dados atrav\u00e9s de um buffer interno<\/strong>. Quando WriteRecord()<\/code> \u00e9 chamado, o registro \u00e9 enviado para esse buffer. Se o banco de dados estiver dispon\u00edvel, o registro \u00e9 persistido em seguida. Caso o banco esteja indispon\u00edvel no momento<\/strong>, o registro fica retido no buffer<\/strong> at\u00e9 a conex\u00e3o ser restabelecida \u2014 e s\u00f3 ent\u00e3o \u00e9 gravado.<\/p>\n

Esse buffer \u00e9 materializado em arquivos tempor\u00e1rios na pasta raiz do dom\u00ednio<\/strong>, com as extens\u00f5es .e3i<\/code> e .e3o<\/code>. Em condi\u00e7\u00f5es normais (banco respondendo r\u00e1pido), esses arquivos s\u00e3o criados e apagados quase imediatamente. Quando o banco est\u00e1 indispon\u00edvel, eles persistem<\/strong> \u2014 e essa persist\u00eancia \u00e9 justamente o sinal observ\u00e1vel de que a grava\u00e7\u00e3o n\u00e3o est\u00e1 sendo conclu\u00edda.<\/p>\n<\/section>\n

\n

4.<\/span> Estrat\u00e9gias para detectar falha na grava\u00e7\u00e3o<\/h2>\n

Como n\u00e3o h\u00e1 retorno a verificar, a detec\u00e7\u00e3o precisa ser feita de forma indireta<\/strong>, confirmando se o registro chegou ao banco (ou se o buffer est\u00e1 acumulando). A seguir, tr\u00eas abordagens, da mais direta \u00e0 mais robusta.<\/p>\n

4.1. Consulta SELECT<\/code> ap\u00f3s o WriteRecord()<\/code><\/h3>\n

A verifica\u00e7\u00e3o mais simples \u00e9 fazer, logo ap\u00f3s a grava\u00e7\u00e3o, uma consulta ao banco para confirmar se o registro foi realmente persistido. Se a consulta n\u00e3o trouxer o registro esperado, trata-se de um ind\u00edcio de falha.<\/p>\n

4.2. Monitorar o RecordCount<\/code><\/h3>\n

Em vez de validar o conte\u00fado, compara-se o n\u00famero total de registros<\/strong> antes e depois da grava\u00e7\u00e3o. Guarde a contagem atual, chame WriteRecord()<\/code> e, ap\u00f3s um curto intervalo, verifique se a contagem aumentou. Se o contador n\u00e3o subiu<\/strong> como deveria, h\u00e1 ind\u00edcio de falha.<\/p>\n

\n
<\/div>\n
' No clique do bot\u00e3o: guarda a contagem ANTES de gravar<\/span>\r\nSub<\/span> Botao_Click()\r\n    Dim<\/span> RS\r\n    Set<\/span> RS = Parent.Item(\"Consulta1\"<\/span>).GetADORecordset()\r\n    Screen.Item(\"R1\"<\/span>).Value = RS.RecordCount        ' contagem antes<\/span>\r\n    Application.GetObject(\"Hist1\"<\/span>).WriteRecord()     ' grava o registro<\/span>\r\n    Screen.Item(\"TagContador1\"<\/span>).Enabled = True<\/span>       ' dispara a verifica\u00e7\u00e3o<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/div>\n
\n
<\/div>\n
' TagContador1: tag de tempo com Enabled = False e Preset = 2 s.<\/span>\r\n' Ao ser habilitado, dispara OnPreset ap\u00f3s 2 s e faz a verifica\u00e7\u00e3o.<\/span>\r\nSub<\/span> TagContador1_OnPreset()\r\n    Dim<\/span> RS\r\n    Set<\/span> RS = Parent.Item(\"Consulta1\"<\/span>).GetADORecordset()\r\n    Parent.Item(\"R2\"<\/span>).Value = RS.RecordCount        ' contagem depois<\/span>\r\n\r\n    If<\/span> Parent.Item(\"R2\"<\/span>).Value > Parent.Item(\"R1\"<\/span>).Value Then<\/span>\r\n        MsgBox \"Registro inserido com sucesso\"<\/span>\r\n    Else<\/span>\r\n        MsgBox \"O registro n\u00e3o foi inserido\"<\/span>        ' aqui \u00e9 poss\u00edvel acionar o alarme<\/span>\r\n    End If<\/span>\r\n\r\n    Screen.Item(\"TagContador1\"<\/span>).Enabled = False<\/span>       ' verifica apenas uma vez<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/div>\n
4.3. Monitorar os arquivos de buffer (.e3i<\/code> \/ .e3o<\/code>)<\/h3>\n
A abordagem mais confi\u00e1vel para detectar indisponibilidade prolongada do banco<\/strong> \u00e9 observar a presen\u00e7a dos arquivos de buffer (.e3i<\/code> \/ .e3o<\/code>) na pasta raiz do dom\u00ednio. Como eles somem quase imediatamente quando o banco responde, a persist\u00eancia<\/strong> deles ao longo de v\u00e1rias verifica\u00e7\u00f5es seguidas indica que o banco est\u00e1 indispon\u00edvel.<\/p>\n
A ideia \u00e9 executar o script periodicamente<\/strong> (por exemplo, a cada minuto, usando um TimerTag<\/code>) e contar quantas vezes seguidas<\/strong> os arquivos aparecem. Se o contador atingir um limite X<\/code> (por exemplo, 5 verifica\u00e7\u00f5es = 5 minutos), dispara-se o alarme; assim que os arquivos somem, o contador \u00e9 zerado.<\/p>\n
\n
<\/div>\n
Dim<\/span> fso, pasta, arq, achouBuffer, caminhoDominio, contador\r\n\r\ncaminhoDominio = \"C:\\MeuDominio\\\"<\/span>   ' AJUSTAR para o caminho real da pasta do dom\u00ednio<\/span>\r\n\r\nSet<\/span> fso = CreateObject(\"Scripting.FileSystemObject\"<\/span>)\r\nachouBuffer = False<\/span>\r\n\r\nIf<\/span> fso.FolderExists(caminhoDominio) Then<\/span>\r\n    Set<\/span> pasta = fso.GetFolder(caminhoDominio)\r\n    For Each<\/span> arq In<\/span> pasta.Files\r\n        If<\/span> LCase(fso.GetExtensionName(arq.Name)) = \"e3i\"<\/span> _\r\n        Or<\/span> LCase(fso.GetExtensionName(arq.Name)) = \"e3o\"<\/span> Then<\/span>\r\n            achouBuffer = True<\/span>\r\n            Exit For<\/span>\r\n        End If<\/span>\r\n    Next<\/span>\r\nEnd If<\/span>\r\n\r\ncontador = Application.GetObject(\"Dados.ContadorBufferPersistente\"<\/span>).Value\r\n\r\nIf<\/span> achouBuffer Then<\/span>\r\n    contador = contador + 1\r\nElse<\/span>\r\n    contador = 0    ' zera assim que os arquivos somem (banco respondeu)<\/span>\r\nEnd If<\/span>\r\n\r\nApplication.GetObject(\"Dados.ContadorBufferPersistente\"<\/span>).Value = contador\r\n\r\n' Se os arquivos persistirem por N checagens seguidas (ex.: 5 min, a cada 1 min),<\/span>\r\n' dispara o alarme:<\/span>\r\nIf<\/span> contador >= 5 Then<\/span>\r\n    Application.GetObject(\"Dados.AlarmeGravacaoFalhou\"<\/span>).Value = True<\/span>\r\nElse<\/span>\r\n    Application.GetObject(\"Dados.AlarmeGravacaoFalhou\"<\/span>).Value = False<\/span>\r\nEnd If<\/span><\/pre>\n<\/div>\n<\/section>\n
\n
5.<\/span> Observa\u00e7\u00f5es e boas pr\u00e1ticas<\/h2>\n
    \n
  • N\u00e3o confie no retorno do WriteRecord()<\/code>.<\/strong> Ele \u00e9 sempre 0<\/code> e n\u00e3o reflete o resultado da grava\u00e7\u00e3o no banco. Qualquer l\u00f3gica de sucesso\/falha baseada nesse retorno \u00e9 inv\u00e1lida.<\/li>\n
  • A aus\u00eancia moment\u00e2nea do buffer n\u00e3o garante sucesso permanente.<\/strong> Os arquivos .e3i<\/code> \/ .e3o<\/code> existem normalmente por instantes mesmo com o banco saud\u00e1vel; por isso a detec\u00e7\u00e3o por buffer deve contar ocorr\u00eancias seguidas<\/strong>, n\u00e3o uma \u00fanica presen\u00e7a.<\/li>\n
  • Escolha a estrat\u00e9gia pela finalidade.<\/strong> Para confirmar um registro pontual (ex.: evento de batch), a consulta SELECT<\/code> ou o RecordCount<\/code> bastam. Para monitorar a sa\u00fade cont\u00ednua<\/strong> da grava\u00e7\u00e3o (banco caindo por per\u00edodos), o monitoramento do buffer \u00e9 o indicador mais robusto.<\/li>\n
  • D\u00ea um intervalo entre gravar e verificar.<\/strong> Como a persist\u00eancia passa pelo buffer, uma verifica\u00e7\u00e3o imediata pode ocorrer antes de o registro chegar ao banco. Um pequeno atraso (como o Preset<\/code> de 2 s do exemplo) reduz falsos negativos.<\/li>\n<\/ul>\n<\/section>\n
    <\/section>\n