;******************************************************************************
;* 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[23]                    
Nom_Campo[1]="Valor Desconto Total"
Nom_Campo[2]="Valor Acrescimo Total"
Nom_Campo[3]="Fator de Conversao"
Nom_Campo[4]="Comissao do Item"
Nom_Campo[5]="Valor Acrescimos_Desctos"
Nom_Campo[6]="CFO"
Nom_Campo[7]="Unidade Interna"
Nom_Campo[8]="Lookup_Tabela_Preco"
Nom_Campo[9]="Indice Preco de Venda"
Nom_Campo[10]="Preco_Venda"
Nom_Campo[11]="Unidade Entrada"
Nom_Campo[12]="Codigo_Fornecedor"
Nom_Campo[13]="Lookup_Codigo_Fornecedor"
Nom_Campo[14]="Tipo Tributacao"
Nom_Campo[15]="NCM"
Nom_Campo[16]="Codigo CCusto"
Nom_Campo[17]="Descricao CCusto"
Nom_Campo[18]="Edita Descricao do Item"
Nom_Campo[19]="Quantidade Convertida"
Nom_Campo[20]="MVA"
Nom_Campo[21]="ICMS UF_ORIGEM"
Nom_Campo[22]="ICMS UF_DESTINO"
Nom_Campo[23]="IPI_CST"

Array Tipo_Campo[23]
Tipo_Campo[1]="$"
Tipo_Campo[2]="$"
Tipo_Campo[3]="N"
Tipo_Campo[4]="N"
Tipo_Campo[5]="$"
Tipo_Campo[6]="A4"
Tipo_Campo[7]="A4"
Tipo_Campo[8]="A5"
Tipo_Campo[9]="N"
Tipo_Campo[10]="$"
Tipo_Campo[11]="A4"
Tipo_Campo[12]="A15"
Tipo_Campo[13]="A4"
Tipo_Campo[14]="A3"
Tipo_Campo[15]="A8"
Tipo_Campo[16]="A7"
Tipo_Campo[17]="A25"
Tipo_Campo[18]="A1"
Tipo_Campo[19]="N"
Tipo_Campo[20]="N"
Tipo_Campo[21]="N"
Tipo_Campo[22]="N"
Tipo_Campo[23]="A2"

If IsTable("Notaei")
   Then {Modify} {Restructure} {Notaei}
         For wc From 1 To 23
             If wc=23 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\\Notaei" Enter TypeIn "Notaei" 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
