;******************************************************************************
;* 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

Array Nom_Campo[24]                    
Nom_Campo[1]="Frete Incluso na Nota"
Nom_Campo[2]="Valor do Frete"
Nom_Campo[3]="Valor ICMS Frete"
Nom_Campo[4]="Valor do Seguro"
Nom_Campo[5]="Numero Nota Original"
Nom_Campo[6]="Serie Nota Original"
Nom_Campo[7]="Codigo da Tabela"
Nom_Campo[8]="Sistema Gerador"
Nom_Campo[9]="Valor BCSubstituicao ICMS"
Nom_Campo[10]="Soma Itens Substituicao"
Nom_Campo[11]="ICMS sobre Total NF"
Nom_Campo[12]="Numero da OC Link"
Nom_Campo[13]="Lookup_NotaC"
Nom_Campo[14]="Numero_Carregamento"
Nom_Campo[15]="Codigo_Usuario"
Nom_Campo[16]="Data_Inclusao"
Nom_Campo[17]="Hora_Inclusao"
Nom_Campo[18]="Numero_Controle_Dia"
Nom_Campo[19]="Tipo CTR"
Nom_Campo[20]="Recolhimento Substituicao"
Nom_Campo[21]="BC Substituicao Destinat"
Nom_Campo[22]="Vr Substituicao Destinat"
Nom_Campo[23]="Lookup_OCV"
Nom_Campo[24]="Observacao"

Array Tipo_Campo[24]
Tipo_Campo[1]="A1"
Tipo_Campo[2]="$"
Tipo_Campo[3]="$"
Tipo_Campo[4]="$"
Tipo_Campo[5]="A6"
Tipo_Campo[6]="A4"
Tipo_Campo[7]="A5"
Tipo_Campo[8]="A2"
Tipo_Campo[9]="$"
Tipo_Campo[10]="$"
Tipo_Campo[11]="A1"
Tipo_Campo[12]="A6"
Tipo_Campo[13]="A4"
Tipo_Campo[14]="A6"
Tipo_Campo[15]="A4"
Tipo_Campo[16]="D"
Tipo_Campo[17]="A5"
Tipo_Campo[18]="A6"
Tipo_Campo[19]="A3"
Tipo_Campo[20]="A1"
Tipo_Campo[21]="$"
Tipo_Campo[22]="$"
Tipo_Campo[23]="A6"
Tipo_Campo[24]="M70"

If IsTable("Notaec")
   Then {Modify} {Restructure} {Notaec}
         For wc From 1 To 24
             If wc=24 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! ClearImage
{Tools} {Copy} {JustFamily} TypeIn "\\BASE\\Sistemas\\Estoque\\Notaec" Enter TypeIn "Notaec" 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
