;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Cadastro\\Bibliot"
LimpAguarde()

ANO = "2009"

ConfGeral("                          ANO DE "+ANO+"                         ////"+
          "Rotina para voltar para o SISTEMA atual todas as movimenta‡”es//"+
          "do  Contas  a  Receber,  tendo  apenas  baixas,  anota‡”es  ou//"+
          "lan‡amentos !                                                 ////"+  
          "PARA  FECHAMENTO  POSTERIOR  DO ANO EM EM QUESTAO SE POR ACASO//"+ 
          "OCORRER  ALGUM ERRO DE FECHAMENTO, O QUAL FECHOU APENAS BAIXAS//"+
          "OU ANOTACOES POR EXEMPLO!                                     ////"+
          "Deseja realizar BACKUP das movimenta‡”es do Contas a Receber ?")

If Ok="S"
   Then Copy "\\Sistemas\\CtaRec\\DupNotas" "\\Sistemas\\CtaRec\\Bk_DupN"
        Copy "\\Sistemas\\CtaRec\\DupBaixa" "\\Sistemas\\CtaRec\\Bk_DupB"
        Copy "\\Sistemas\\CtaRec\\Duplic"   "\\Sistemas\\CtaRec\\Bk_Dup"
EndIf
           
Diretorio="\\Sistemas\\CtaRec\\"
Diretorios_Fechames(Diretorio)
Diretorio="\\Sistemas\\CtaRec\\"

For i From 1 To DynArraySize(Array_Diretorios)
  ANO_MES = Array_Diretorios[i]
  Aguarde ("Carregando "+ANO_MES)
  
  If Search(ANO,ANO_MES)=0
     Then Loop
  EndIf   

  DiretorioFechames=Diretorio+"Fechames\\"+ANO_MES+"\\"
  If DirExists(DiretorioFechames)=0
     Then Loop     
  EndIf 
  
  SetDir DiretorioFechaMes
  
  If IsTable("DupNotas")
     Then Add "DupNotas"  "\\Sistemas\\CtaRec\\DupNotas"
          ClearAll
          Delete "DupNotas"
  EndIf
  
  If IsTable("DupBaixa")
     Then Add "DupBaixa"  "\\Sistemas\\CtaRec\\DupBaixa"
          ClearAll
          Delete "DupBaixa"
  EndIf
  
  If IsTable("Duplic")
     Then Add "Duplic"  "\\Sistemas\\CtaRec\\Duplic"
          ClearAll
          Delete "Duplic"
  EndIf
EndFor  
  
SetDir "\\Sistemas\\Cadastro"  
  
Mensagem("Processo Concluido !")
Release Vars All