Eu tenho uma função que transfere dentro de minha VPN arquivos de remessas e retornos entre a MATRIZ e as FILIAIS, e funciona perfeitamente no quesito de dados, mas quando chega em certa hora creio eu pela lentidão do UPLOAD da internet, o sistema simplesmente congela, trava, não responde por nada desse mundo, fica travado mesmo sem sair do processo.
Pergunto existe algo diferente de como comunicar (transferir dados) matriz filial sem que trave, ou se cai a net o sistema volta a funcionar automaticamente, evitando erro de gravação no destino devido a queda, etc.
Abaixo linha do código onde esta parando.
Código: Selecionar todos
ShowWaitMonitore("VPN - Monitorando dados na conta de VPN...","G+/N",,1) //mensagem de tela do que ta fazendo
//tem hora que mostra esta linha acima e trava, nao chegando na linha abaixo
For iK:=1 To Len(a_HANDLE) //faz um for
wSaida:=ExitSeek() //se precionar esc abre solicitando cancelamento e fechamento do sistema
d_VPN :=oVPN_DIR+a_HANDLE[iK,1]+"\" //pega diretorio
vLOJA :=a_HANDLE[iK,1] //qual loja
n_PUp :=a_HANDLE[iK,3] //qual pasta para transferir
n_FUp :=a_HANDLE[iK,4] //qual arquivo para transferir
n_PDown:=a_HANDLE[iK,5] //qual pasta para baixar
n_FDown:=a_HANDLE[iK,6] //qual arquivo para baixar
n_FUpTM:=Left(n_FUp,9)+w_EXTMP //formata para usar mais abaixo
ShowWaitMonitore("VPN - Monitorando dados na conta de VPN...","GR+/N",,1) //indica que chegou até aqui
//nao chega a mostrar aqui quando trava de vez enquando, isto quer dizer que para em algum lugar acima, mas não identifiquei aonde.
If MONITORE_VPN("MONITORA",d_VPN) //VERIFICA se esta COMUNICANDO e POSICIONA NA PASTA no destino
End
Next
Se alguem se habilitar a achar o problema, cheguei a duvidar do FOR se o problema é nele ou não, estou cogitando em mudar os FOR para WHILE, tbem não se se isto interfere.
Grato a todos.
)
