LER O ARQUIVO AUTOMATICAMENTE
Boa Tarde.
Estou com um problema que não consigo resolve, estou fazendo um sistema que leia um arquivo XML numa pasta e o sistema automaticamente veja se tem alguma coisa nesta pasta, encontrando ele abra e salve numa tabela de SQL, após tudo isso ele imprima um relatorio em Crystal....
OBS. Tudo automaticamente sem a intervenção do Usuário.
Alguem tem alguma idéia em fazer isso.
Obrigado
Samuel
Estou com um problema que não consigo resolve, estou fazendo um sistema que leia um arquivo XML numa pasta e o sistema automaticamente veja se tem alguma coisa nesta pasta, encontrando ele abra e salve numa tabela de SQL, após tudo isso ele imprima um relatorio em Crystal....
OBS. Tudo automaticamente sem a intervenção do Usuário.
Alguem tem alguma idéia em fazer isso.
Obrigado
Samuel
Que tal um timer em um form?
fAÇO ISSO TUDO DENTRO DO TIMER
Citação:fAÇO ISSO TUDO DENTRO DO TIMER
Se isso foi uma pergunta, Sim voce pode colocar dentro do timer todas as funções que deseja executar.
Se tem dificuldades em alguma parte, va postando aqui que vamos ajudando no que for possÃvel
Pessoal Bom dia
fiz este timer mas não funciona alguem pode me ajudar.
Private Sub Timer1_Timer()
Dim arquivo As String
arquivo = Dir([Ô]c:\NFe\Autorizados\*.xml[Ô], vbNormal)
Do While arquivo <> [Ô][Ô]
[ô]desabilita o timer enquanto houver arquivos para assinar
Timer1.Interval = 0
arquivo = [Ô]c:
fe\Autorizados\[Ô] & arquivo
[ô]carrega os dados do xml nas variaveis e salva no banco de dados.
- Minha dúvida está aqui em como ler o XML que o Sefaz me envia de retorno.
[ô]abre o crystal reports e imprimi a DANFE
[ô]próximo arquivo
arquivo = Dir([Ô]c:\NFe\Autorizados\*.xml[Ô], vbNormal)
Loop
[ô]reativa o time definindo o intervalo para 2 segundos
Timer1.Interval = 2000
End Sub
Alguem pode me ajudar
Obrigado
Svincenzo
fiz este timer mas não funciona alguem pode me ajudar.
Private Sub Timer1_Timer()
Dim arquivo As String
arquivo = Dir([Ô]c:\NFe\Autorizados\*.xml[Ô], vbNormal)
Do While arquivo <> [Ô][Ô]
[ô]desabilita o timer enquanto houver arquivos para assinar
Timer1.Interval = 0
arquivo = [Ô]c:
fe\Autorizados\[Ô] & arquivo
[ô]carrega os dados do xml nas variaveis e salva no banco de dados.
- Minha dúvida está aqui em como ler o XML que o Sefaz me envia de retorno.
[ô]abre o crystal reports e imprimi a DANFE
[ô]próximo arquivo
arquivo = Dir([Ô]c:\NFe\Autorizados\*.xml[Ô], vbNormal)
Loop
[ô]reativa o time definindo o intervalo para 2 segundos
Timer1.Interval = 2000
End Sub
Alguem pode me ajudar
Obrigado
Svincenzo
Tópico encerrado , respostas não são mais permitidas