;** AC_BK **********************************************************************
;*  ExclusÆo de Registros                                                      *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 23/09/2014 por Bruno Carvalho
;Ultima Alteracao:   /  /     por 
;Motivo Alteracao: 

;*******************************************************************************
; Rotina Principal                                                             *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Cadastro\\Bibliot"

; ExclusÆo dos registros de backup que ficam armazenados no sistema desnecessariamente
; ExclusÆo dos registros que iniciam com "AAA" que ficam armazenados no sistema desnecessariamente 

MSG = "Deseja executar a rotina de exclus„o de arquivos de BACKUP que//"+
      "estÆo  armazenados no sistema desnecessariamente, por exemplo,////"+
      "** Arquivos que come‡am com BK -> BKPPEDC ou BK_PEDC          //"+
      "** Arquivos que come‡am com AAA -> AAA_3000                   //"

ConfGeral(MSG)
If Ok="S"
   Then UNIDADE = SubStr(Directory(),1,2)
        TABELA  = Cria_Temp(PrivDir())
        
        Array DIRETORIO[22]
        
        DIRETORIO[1]  = "CADASTRO"
        DIRETORIO[2]  = "CARTAOP"
        DIRETORIO[3]  = "CHEQREC"
        DIRETORIO[4]  = "COBRANCA"
        DIRETORIO[5]  = "COMPRAS"
        DIRETORIO[6]  = "Consigna"
        DIRETORIO[7]  = "CTACOR"
        DIRETORIO[8]  = "CTAPAG"
        DIRETORIO[9]  = "CTAREC"
        DIRETORIO[10] = "Curtume"
        DIRETORIO[11] = "ESTOQUE"
        DIRETORIO[12] = "EXPORTA"
        DIRETORIO[13] = "Faccao"
        DIRETORIO[14] = "Fundicao"
        DIRETORIO[15] = "ICMS_IPI"
        DIRETORIO[16] = "IMAGENS"
        DIRETORIO[17] = "PRODUCAO"
        DIRETORIO[18] = "REPORTS"
        DIRETORIO[19] = "TRANSPOR"
        DIRETORIO[20] = "USUARIOS"
        DIRETORIO[21] = "UTILITAR"
        DIRETORIO[22] = "VENDAS"
        
        For i From 1 To 22
          For ii From 1 To 2  
            If DirExists("\\Sistemas\\"+DIRETORIO[i])=0
               Then Loop
            EndIf          
            SetDir "\\Sistemas\\"+DIRETORIO[i]
            {Tools} {Info} {Inventory} {Files} Enter ClearImage
            If Not IsEmpty("List")  
               Then Copy "List" TABELA 
                    If ii = 1
                       Then {Ask} TypeIn TABELA Enter Moveto [Name] Check TypeIn "bk.."
                       Else {Ask} TypeIn TABELA Enter Moveto [Name] Check TypeIn "aaa.."
                    EndIf  
                    Do_It!
                    ClearAll
               Else ClearAll
                    Loop     
            EndIf   
            
            If IsEmpty("Answer")
               Then Loop 
            EndIf   
                                        
            NR = NRecords("Answer")
            View "Answer"
            Scan
              Barra(NR, RecNo())
              Aguarde("Aguarde, otimizando diret¢rio -> "+Upper(DIRETORIO[i])+" "+BARRA_STRING)
              
              ARQUIVO = [Name]
              A = UNIDADE+"\\SISTEMAS\\"+DIRETORIO[i]+"\\"+ARQUIVO
              Deleta_Arquivo(UNIDADE+"\\SISTEMAS\\"+DIRETORIO[i]+"\\"+ARQUIVO)
              Sleep 1000
            EndScan
            ClearAll
          Endfor   
        EndFor
        
        SetDir "\\Sistemas\\Cadastro"
        Mensagem("Processo realizado para otimiza‡„o do sistema !")
EndIf