;******************************************************************************
;* Desenvolvido: 20/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]="Numero do Lancamento"
Nom_Campo[2]="Sequencia"
Nom_Campo[1]="Agencia"
Nom_Campo[2]="Numero_Conta"
Nom_Campo[3]="Numero_Cheque"
Nom_Campo[4]="CPF"
Nom_Campo[5]="Tipo_Emitente"
Nom_Campo[6]="Titular_Cheque"
Nom_Campo[7]="Cidade"
Nom_Campo[8]="UF"
Nom_Campo[9]="Observacao"
Nom_Campo[10]="Numero do Cartao"
Nom_Campo[11]="Nome do Cartao"
Nom_Campo[12]="Valor da Comissao"
Nom_Campo[13]="Codigo CMC7"

Array Tipo_Campo[13]
Tipo_Campo[1]="A6"
Tipo_Campo[2]="A10"
Tipo_Campo[3]="A10"
Tipo_Campo[4]="A18"
Tipo_Campo[5]="A8"
Tipo_Campo[6]="A40"
Tipo_Campo[7]="A20"
Tipo_Campo[8]="A2"
Tipo_Campo[9]="A70"
Tipo_Campo[10]="A30"
Tipo_Campo[11]="A15"
Tipo_Campo[12]="$"
Tipo_Campo[13]="A35"

If IsTable("Notav")
   Then {Modify} {Restructure} {Notav}
         For wc From 1 To 13
             If wc=13 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\\Vendas\\Notav" Enter TypeIn "Notav" Enter {Replace}
                  
EndIf

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

View "SysTable"
SYS_CODIGO_CLIENTE = [Codigo do Cliente   ]
ClearAll
;-------------------------------------------------------------------------------

;****************** Vendas/FECHANO ********************
DiretorioFechAno  ="\\FechAno"
Modulo            ="\\Vendas"
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
;------------------------------------------------------------------------------

;****************** Vendas/FECHAMES ********************
Diretorio="\\Sistemas\\Vendas\\"
Diretorios_Fechames_C(Diretorio)
Array_Diretorios[1]=""
For i From 1 to DynArraySize(Array_Diretorios)
  If i=1
     Then Diretorio="\\Sistemas\\Vendas"
     Else Diretorio="\\Sistemas\\Vendas\\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 Vendas//"+
         "//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
