;** AC_S_ITE *******************************************************************
;* Programa de Acerto p/ refazer a tabela dos Itens                            *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 16/09/2015 por Bruno Carvalho
;Ultima Alteracao:   /  /     por                          
;Motivo Alteracao:

;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Vendas\\Bib_Bal"

ConfGeral("Rotina p/ refazer a tabela dos ITENS, continuar com esse processo?")
If Ok<>"S"
   Then Return
EndIf

Array Tabela_Item[1]
Tabela_Item[1]= "ITENS"

SetDir "\\Sistemas\\Estoque"
ConfGeral("Deseja efetuar o backup da tabela ITENS?")

If Ok="S"
   Then Copy "\\Sistemas\\Estoque\\Itens" "BK_ITENS"
EndIf

For i From 1 To ArraySize(Tabela_Item)
  If Tabela_Item[i]="ITENS"
     Then ;Debug 
  EndIf
  If Istable(Tabela_Item[i])
     Then Aguarde("Refazendo a Tabela "+Tabela_Item[i])
          ;CONTADOR = 0
          ;Coedit Tabela_Item[i]
          ;While True
          ;  If [Numero da Of]=""
          ;     Then Del
          ;          Home
          ;  EndIf
          ;  Skip
          ;  If Eot() Then QuitLoop EndIf
          ;EndWhile
          ;Do_it!
          ;ClearAll
          ;Rename Tabela_Item[i] "Answer"
          
          {Ask} TypeIn Tabela_Item[i] Enter Check
          Moveto [Codigo do Item] TypeIn "Not Blank"
          Do_It!
          ClearAll
                    
          TAB_REN = "AUX_ITE"
          Rename "Answer" TAB_REN
          
          If IsEmpty(TAB_REN)
             Then Copy "\\Base\\Sistemas\\Estoque\\"+Tabela_Item[i] Tabela_Item[i]
                  Delete TAB_REN
                  Loop
          EndIf   
          
          Tabela=Cria_Temp(PrivDir())
          Create Tabela Like "\\Base\\Sistemas\\Estoque\\"+Tabela_Item[i]
          
          CONTADOR = 0
          View Tabela
          CoEdit TAB_REN
          Scan
            Barra(NRecords(TAB_REN), RecNo())
            Aguarde("Refazendo a Tabela "+Tabela_Item[i]+" "+BARRA_STRING)
            
            CopyToArray REG_ITE
            CONTADOR = CONTADOR + 1
            Moveto Tabela
            If CONTADOR=1
               Then End
               Else End Down
            EndIf
            CopyFromArray REG_ITE
            UnLockRecord   
            
            Moveto TAB_REN
          EndScan
          Do_it!
          ClearAll
          
          ;---- Excluindo a Tabela de Origem p/ ser realizado o processo -------
          Delete Tabela_Item[i]
          
          ;---- Copiando a Familia da Tabela do Base p/ a Answer e renomeando p/ Nome Original
          If Tabela_Item[i]="ITENS"
             Then ;Debug 
          EndIf
          Copy Tabela "\\Sistemas\\Estoque\\"+Tabela_Item[i]
          {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\Estoque\\"+Tabela_Item[i] Enter TypeIn Tabela_Item[i] Enter {Replace}
          
          ;--- Add = Problema com muitos Registros -----------------------------
          ;Add Tabela Tabela_Item[i]          
          
          Delete TAB_REN
          Delete Tabela
     Else Mensagem("Tabela no encontrado no Estoque: "+Tabela_Item[i])
  EndIf   
EndFor 
SetDir "\\Sistemas\\Cadastro"

Mensagem("Processo ConcluĦdo//A tabela do item foi refeita!")

Release Vars All
Release Procs All
