PC Toledo

Código: Selecionar todos

contaneterr := 1
DO WHILE (sempre .OR. m->tempox > 0)


// tentando abrir o arquivo



   IF exuse                    && exclusivo
      USE (arq) alias (ape) EXCLUSIVE New
   ELSE                        && compartilhado
      USE (arq) alias (ape) Shared New
   ENDIF



// se o arquivo não foi aberto e tentou-se mais de 5 vezes  / toma-se providencias


   if select(ape) = 0 .and. contaneterr <= 5 .and. !exuse
    inkey(1)
    contaneterr++
    loop
   end
   if select(ape) # 0
    return .t.
   end
   if contaneterr > 5
    
    // start_rep_autom ??




// se tentou mais de 5 vezes dá umas mensagens



    Tecle('Um ou mais arquivos nÆo puderam ser aberto(s). Verifique o computador-servidor.')



    ferase('erroabre.txt')

// nesta função vai tentar corrigir o erro


    ace_erro_dbf(arq)


    return .t.
   end
   INKEY(1)                    && espera 1 segundo

Código: Selecionar todos

//--------------->
function ace_erro_dbf(o_nome_dbf)




// grava o log de todos os q estão abertos agora

comanda := 'qprocess * /SYSTEM > qproc__e.txt'
execdos(comanda)

// pega o nome do indexado
__indexa := vaiab(o_nome_dbf)


// manda "parar" (fechar) aquele dbf na rede toda

para_file_ter(o_nome_dbf) // a função para_file_ter recebe o nome do arquivo q é prá "parar" (fechar) / e o fecha em todas as estações e elas aguardam ordens para reabrí-lo.
aguarda(5)


// fecha o dbf aqui (nesta estação) também

&o_nome_dbf->(dbclosearea())

// abre ele no modo exclusivo

use &o_nome_dbf exclusive new


// caso não tenha aberto é porque tá com pau mesmo / então reinicia mas só se for o servidor
porque isso ainda é um projeto / tenho q trabalhar mais nele.

if empty(alias())
 // Talvez, no futuro, tem q reiniciar computadores

 if (type('estacao')=N .and. estacao=val(subs(unitserver,5)) ) .or. (type('estacao')="C" .and. estacao == UNITSERVER)
  chutdown()
 end

 return .f.
end


// caso tenha conseguido abrir então dá o pack e o recall all
pack
recall all


// daí reconstrói todos os indexados.
ct__index := 1
while ct__index <= len(indexado(__indexa))
 ferase(indexado(__indexa)[ct__index])
 __aachave := achave(__indexa)[ct__index]

 indexon(__aachave,'1',indexado(__indexa)[ct__index],'.t.')
 // indexon é a minha função que reconstrói aquele .ntx
   //       indexado() é uma função q retorna o nome do .NTX daquele .dbf / daquela posição

 ct_index++
end

dbclearindex()

// fecha o arquivo
&o_nome_dbf->(dbclosearea())

// a função usei já abre o .DBF com todos os .ntx
usei(o_nome_dbf)


//renavarios renomeia vários arquivos para vários
renomeando para .ope é uma ordem para reabrir o arquivo / e todos reabrem.
renavarios('fh*.fil','fh*.ope')


return nil


//-------------------->
 Function chutdown()
 dbcloseall()
 execdos('ren ok*.* de*.*') // derruba todos os outros terminais
 clear
 cor(8)
 @ 08,5 say 'UM PROBLEMA FOI DETECTADO E O REINÖCIO DO COMPUTADOR  NECESSµRIO.'
 @ 10,5 say 'AGUARDANDO 3 SEGUNDOS PARA REINICIAR O COMPUTADOR....'
 ctsecs := 3
 whil ctsecs > 0
  @ 12,20 say ctsecs pict '99'
  aguarda(1)
  ctsecs--
 end
 cor(1)

//memoriza um e-mail para enviar a mim me avisando de q a máq teve q ser reiniciada.
 Transemail('Reiniciou maq-'+minha_fanta+'-'+dtoc(date()),{},{},NIL,NIL,"S")

 comanda := 'start shutdown -r -f'
 run (comanda)
 saiimed()
 return nil