*
* ABREARQS.PRG - Validacao do Caminho de Trabalho
*
clear
set cursor on
use aspgerad exclusive
arquivo=rtrim(caminho_a)+"\asputl01.dbf"
if .not. file(arquivo)
   texto="Pasta de Trabalho" 
   painel(09,10,15,69,.f.,texto,"",CorCalci,CorVerme)
   @ 11,12 say "A Pasta de Trabalho definida nao e valida para o Sistema"
   laco=.t.
   do while laco
      @ 13,12 say "Nova Pasta" get caminho_a
      read
      arquivo=rtrim(caminho_a)+"\asputl01.dbf"
      if file(arquivo)
         laco=.f.
      endif
   enddo
endif
use
set cursor off
return