;******************************************************************************
;* Desenvolvido: 12/01/2010 por Anivel Augusto Rodrigues                      *
;* Modificado  :   /  /     por                                               *
;* Motivo      :                                                              *
;******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

Mensagem("Pacote 2010.A ! (Janeiro/2010)// //"+
         "Rotina Vendas//"+
         "//Tabelas do Sistema e Base ser„o atualizadas !!!//"+
         "// Este processo deve ser executado sem que outros Usuarios//"+
         "// estejam utilizando o Sistema, Ok !!!")


While True
  If Verifica_Usuario()
     Then QuitLoop
     Else ConfGeral("Comunicar os usuarios !// //Deseja Continuar com Atualizacao ?")
          If OK<>"S"
             Then Exit
          EndIf
  EndIf
EndWhile


;*******************************************************************************
;Rotina Corre‡Æo de Tabelas                                                    *
;*******************************************************************************
Proc Correcao_Tabelas()

If IsTable("MovCont")
   Then   
        {ask} TypeIn "X:"+Diretorio+"\\MovCont\\"
				Moveto [Numero do Lancamento  ] example "nlanc"
				Moveto [Codigo da Conta       ] example "ccont"
				Moveto [Codigo Plano_Conta    ] Example "cplan"
				Moveto [Descricao Plano_Conta ] Example "dplan"
        {ask} {Movcont}
				Moveto [Numero do Lancamento  ] example "nlanc"
				Moveto [Codigo da Conta       ] example "ccont"
				Moveto [Codigo Plano_Conta    ] TypeIn "Changeto " Example "cplan"
				Moveto [Descricao Plano_Conta ] TypeIn "Changeto " Example "dplan"
        Do_It!
        ClearAll
EndIf   

EndProc

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

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

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