;******************************************************************************
;* Desenvolvido: 10/09/2010 por Bruno Carvalho                                *
;* Modificado  :   /  /     por                                               *
;* Motivo      :                                                              *
;******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

;*******************************************************************************
;Rotina Corre‡Æo de Tabelas                                                    *
;*******************************************************************************
Proc Correcao_Tabelas()    
private wc, cont

Ok=False

Array Campo_Antigo[3]                    
Campo_Antigo[1]="Tamanho"
Campo_Antigo[2]="MVA Interno"
Campo_Antigo[3]="MVA Externo"

Array Campo_Novo[3]                    
Campo_Novo[1]="DTamanho"
Campo_Novo[2]="MVA_1"
Campo_Novo[3]="MVA_2"

Array Nom_Campo[44]                    
Nom_Campo[1]="Observacao"
Nom_Campo[2]="NCM"
Nom_Campo[3]="Indice Preco de Venda"
Nom_Campo[4]="Unidade Embalagem"
Nom_Campo[5]="Fator Conversao Embalagem"
Nom_Campo[6]="Unidade Entrada"
Nom_Campo[7]="Inativo"             
Nom_Campo[8]="Situacao"
Nom_Campo[9]="Vendagem"
Nom_Campo[10]="Flag"
Nom_Campo[11]="Codigo do Departamento"
Nom_Campo[12]="Descricao do Departamento"
Nom_Campo[13]="Fracionado"
Nom_Campo[14]="Composto"
Nom_Campo[15]="Codigo Concentrador"
Nom_Campo[16]="Peso Variavel"
Nom_Campo[17]="Desconto Maximo"
Nom_Campo[18]="Quantidade Maxima Venda"
Nom_Campo[19]="Data da Manutencao"
Nom_Campo[20]="Hora da Manutencao"
Nom_Campo[21]="Chapa"
Nom_Campo[22]="Nome"
Nom_Campo[23]="Data_Cadastro"
Nom_Campo[24]="Data_Inativo"
Nom_Campo[25]="Referencia"
Nom_Campo[26]="Codigo da Grade"
Nom_Campo[27]="MVA_1"
Nom_Campo[28]="MVA_2"
Nom_Campo[29]="Tipo Codigo_Barras"
Nom_Campo[30]="DTamanho"
Nom_Campo[31]="Tipo_Codificacao"
Nom_Campo[32]="Codigo MVA"
Nom_Campo[33]="Codigo da Simbologia"
Nom_Campo[34]="Descricao da Simbologia"
Nom_Campo[35]="Pais"
Nom_Campo[36]="Codigo_Servico"
Nom_Campo[37]="Genero"
Nom_Campo[38]="EX_TIPI"
Nom_Campo[39]="IPI_CST"
Nom_Campo[40]="PIS_CST"
Nom_Campo[41]="PIS_Aliquota"
Nom_Campo[42]="COFINS_CST"
Nom_Campo[43]="COFINS_Aliquota"
Nom_Campo[44]="CSOSN"
              
Array Tipo_Campo[44]
Tipo_Campo[1]="M70"
Tipo_Campo[2]="A8"
Tipo_Campo[3]="N"
Tipo_Campo[4]="A4"
Tipo_Campo[5]="N"
Tipo_Campo[6]="A4"
Tipo_Campo[7]="A1"
Tipo_Campo[8]="A1"
Tipo_Campo[9]="A7"
Tipo_Campo[10]="A1"
Tipo_Campo[11]="A3"
Tipo_Campo[12]="A20"
Tipo_Campo[13]="A1"
Tipo_Campo[14]="A1"
Tipo_Campo[15]="A10"
Tipo_Campo[16]="A1"
Tipo_Campo[17]="N"
Tipo_Campo[18]="N"
Tipo_Campo[19]="D"
Tipo_Campo[20]="A5"
Tipo_Campo[21]="A4"
Tipo_Campo[22]="A30"
Tipo_Campo[23]="D"
Tipo_Campo[24]="D"
Tipo_Campo[25]="A20"
Tipo_Campo[26]="A1"
Tipo_Campo[27]="N"
Tipo_Campo[28]="N"
Tipo_Campo[29]="A10"
Tipo_Campo[30]="A2"
Tipo_Campo[31]="A1"
Tipo_Campo[32]="A3"
Tipo_Campo[33]="A3"
Tipo_Campo[34]="A20"
Tipo_Campo[35]="A20"
Tipo_Campo[36]="N"
Tipo_Campo[37]="A2"
Tipo_Campo[38]="A3"
Tipo_Campo[39]="A2"
Tipo_Campo[40]="A2"
Tipo_Campo[41]="N"
Tipo_Campo[42]="A2"
Tipo_Campo[43]="N"
Tipo_Campo[44]="A3"

If IsTable("Itens")
   Then Ok=True
        {Modify} {Restructure} {Itens}
         For cont From 1 To 3
             Moveto [Field Name]
             Locate Campo_Antigo[cont] 
             If Retval
                Then CtrlBackSpace
                     TypeIn Campo_Novo[cont]  Enter
             EndIf 
         EndFor
EndIf

If Ok
   Then For wc From 1 To 44
            If wc=44 Then Quitloop EndIf
            Moveto [Field Name]
            Locate Nom_Campo[wc+1] 
            If Not Retval
               Then Locate Nom_Campo[wc]
                    If Retval  
                       Then Down Ins
                            TypeIn Nom_Campo[wc+1]  Enter  TypeIn Tipo_Campo[wc+1]  Enter
                    EndIf 
            EndIf  
        EndFor

Do_It! 

While True
      If MenuChoice()="Delete"
         Then {Delete}    
         Else QuitLoop       
      Endif
EndWhile

ClearImage
{Tools} {Copy} {JustFamily} TypeIn "\\BASE\\Sistemas\\Estoque\\Itens" Enter TypeIn "Itens" Enter {Replace}
       
EndIf

EndProc
;-------------------------------------------------------------------------------
Aguarde("Atualizando Sistema")
Password("t01avivcl")
Password("FechaSys")

View "SysTable"
SYS_CODIGO_CLIENTE = [Codigo do Cliente   ]
ClearAll
;-------------------------------------------------------------------------------
;****************** Estoque/FECHANO ********************
DiretorioFechAno  ="\\FechAno"
Modulo            ="\\Estoque"
Diretorios_FechAno(DiretorioFechAno)
For i From 1 to DynArraySize(Array_Diretorios)
  DiretorioFA=DiretorioFechAno+"\\"+Array_Diretorios[i]+Modulo
  If DirExists(DiretorioFA)=0 Then Loop EndIf

  Lista_Diretorio(DiretorioFA)
  For j From 1 to DynArraySize(Array_Lista_Diretorios)
    Diretorio=DiretorioFA+"\\"+Array_Lista_Diretorios[j]+"\\"
    Aguarde("Atualizando Pasta: "+Diretorio)
    {Tools} {More} {Directory} TypeIn Diretorio Enter

    Correcao_Tabelas()
  EndFor
EndFor
;------------------------------------------------------------------------------

;****************** Estoque/FECHAMES ********************
Diretorio="\\Sistemas\\Estoque\\"
Diretorios_Fechames_C(Diretorio)
Array_Diretorios[1]=""
For i From 1 to DynArraySize(Array_Diretorios)
  If i=1
     Then Diretorio="\\Sistemas\\Estoque"
     Else Diretorio="\\Sistemas\\Estoque\\Fechames\\"+Array_Diretorios[i]
  EndIf
  Aguarde("Atualizando Pasta: "+Diretorio)
  {Tools} {More} {Directory} TypeIn Diretorio Enter

  Correcao_Tabelas()

EndFor

;------------------------------------------------------------------------------

{Tools} {More} {Directory} {\\Sistemas\\Cadastro\\}
UnPassword("t01avivcl")
LimpAguarde()
Mensagem("Rotina Estoque//"+
         "//Tabelas do Sistema e Base foram atualizadas !!!//"+
         "// // Execute a rotina de Reestrutura‡„o Completa "+
         "// // Obrigado Vise Inform tica [SIM].")

Release Vars Diretorio, Array_Diretorios, i
Release Procs Correcao_Tabelas
