Data do qvd

petersonrs — Fri, 19 Sep 2014 13:25:39 GMT

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

Re: Data do qvd

Anonymous — Fri, 19 Sep 2014 15:29:33 GMT

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

Re: Data do qvd

petersonrs — Fri, 19 Sep 2014 16:17:22 GMT

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.

Re: Data do qvd

Anonymous — Mon, 22 Sep 2014 13:55:59 GMT

Muito legal Peterson Silva, parabéns !

topic Re: Data do qvd in Brasil

Data do qvd

Re: Data do qvd

Re: Data do qvd

Re: Data do qvd