Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Bom dia,
O Código abaixo serve para verificar a última data de modificação de um arquivo qvd e alertar-me se estou trabalhando com dados antigos ou estou com os dados atualizados.
Faço minhas consultas e gero estes arquivos para trabalho, então como as vezes fico muito tempo sem carregar dados, decidi fazer este código.
Primeiro,
Ao dar carga, atualizo a data do arquivo
LET dtUltAtual = (QvdCreateTime('caminho_do_meu_arquivo.qvd'));
Segundo,
Tenho dois disparadores no documento:
Um para Definir uma variável chamada dtTemp, que recebe o valor de dtUltAtual
Um segundo disparador para Executar Macro, chamada Alerta
Terceiro,
Para executar sem problemas, tive de selecionar "Permitir Acesso ao Sistema" em Segurança Local Atual.
Código da macro:
Sub Alerta
Dim fso, f
Dim dtAnt
Dim dtModArq
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("path_para_seu_arquivo.qvd")
dtAnt = ActiveDocument.Variables("dtTemp").GetContent.STRING
dtModArq = f.DateLastModified
If (CDate(dtModArq) > CDate(dtAnt)) then
MsgBox("Sua última carga foi às " & FormatDateTime(dtAnt,vbGeneralDate) & " e o arquivo foi atualizado em " & FormatDateTime(dtModArq,vbGeneralDate))
End If
End Sub
Muito bom !
Então se eu faço uma carga dia 10 mas só tem dados do dia 8, o alerta me diz isto!?
Morandi
Boa tarde Wagner,
Na verdade, meu servidor gera os qvd´s para mim a cada 1h.
Se passo de 1h sem dar carga, o alerta entra em ação.
Valeu.
Muito legal Peterson Silva, parabéns !