TIMERSYS

TIMERSYS

=============================================

 TimerSys("matos_timer",100)

    // CHAMA A PROCEDURE MATOS_TIMER
   //  E EXECUTA DE TANTO EM TANTO TEMPO

=============================================
PROCEDURE matos_timer()

xml_arquivo is string = "c:\importa\964-env-loterps-ret.xml"
IF fLoadText(xml_arquivo)="" THEN
    EDT_criaXml="Aguarde....."
    // CASO NAO ACHAR O ARQUIVO, AGUARDAR
ELSE
    EDT_criaXml=fLoadText(xml_arquivo)
    EndTimerSys()
   // CASO ACHO OU ARQUIVO TERMINE O PROCESSO , TIMER
END