;******************************************************************************
;* Desenvolvido: 22/11/2006 por Anivel Augusto Rodrigues                      *
;* Modificado  :   /  /     por                                               *
;* Motivo      :
;******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
Mensagem("Rotinas Cadastro, Estoque, Ctapag//"+
         "//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 Muda Letra p/ Numero campo Sequencia do Lancamento                          *
;*******************************************************************************
Proc Muda_Letra_Numero()

    If IsTable("NotaEcp")
       Then
            Coedit "NotaEcp"
            Scan
                 ; Muda a letra para numero:
                 If Not IsBlank([Sequencia do Lancamento]) And ASC([Sequencia do Lancamento])>64
                    Then [Sequencia do Lancamento]=CHR(ASC([Sequencia do Lancamento])-16)
                 Endif
            EndScan
            Do_It!
            ClearAll

            ; Muda o tipo de campo de "A1" para "S"
            {Modify} {Restructure} {NotaEcp}
            Moveto [Field Name]
            Locate "Sequencia do Lancamento"
            If RetVal
               Then  Enter CtrlBackSpace "S*" Enter
            EndIf
            Do_It!
            If MenuChoice()="Trimming"
               Then {Trimming}
            Endif
            ClearImage
            {Tools} {Copy} {JustFamily} TypeIn "\\BASE\\Sistemas\\Estoque\\NotaEcp" Enter TypeIn "NotaEcp" Enter {Replace}

    EndIf

    If IsTable("Titulos")
       Then
            Coedit "Titulos"
            Scan
                 ; Muda a letra para numero:
                 If Not IsBlank([Sequencia Gerador]) And ASC([Sequencia Gerador])>64
                    Then [Sequencia Gerador]=CHR(ASC([Sequencia Gerador])-16)
                 Endif
            EndScan
            Do_It!
            ClearAll

            ; Muda o tipo de campo de "A1" para "S"
            {Modify} {Restructure} {Titulos}
            Moveto [Field Name]
            Locate "Sequencia Gerador"
            If RetVal
               Then  Enter CtrlBackSpace "S" Enter
            EndIf
            Do_It!
            If MenuChoice()="Trimming"
               Then {Trimming}
            Endif
            ClearImage
            {Tools} {Copy} {JustFamily} TypeIn "\\BASE\\Sistemas\\Ctapag\\Titulos" Enter TypeIn "Titulos" Enter {Replace}

    EndIf

EndProc



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


;****************** Estoque/FECHANO ********************
DiretorioFechAno  ="\\FechAno"
Modulo            ="\\Estoque"
Diretorios_FechAno(DiretorioFechAno)
For i From 1 to DynArraySize(Array_Dir_FechAno)
  DiretorioFA=DiretorioFechAno+"\\"+Array_Dir_FechAno[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

    Muda_Letra_Numero()
  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

  Muda_Letra_Numero()

EndFor
;------------------------------------------------------------------------------



;****************** Ctapag/FECHANO ********************
DiretorioFechAno  ="\\FechAno"
Modulo            ="\\Ctapag"
Diretorios_FechAno(DiretorioFechAno)
For i From 1 to DynArraySize(Array_Dir_FechAno)
  DiretorioFA=DiretorioFechAno+"\\"+Array_Dir_FechAno[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

    Muda_Letra_Numero()
  EndFor
EndFor

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

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

  Muda_Letra_Numero()

EndFor
;------------------------------------------------------------------------------


{Tools} {More} {Directory} {\\Sistemas\\Cadastro\\}
UnPassword("t01avivcl")
LimpAguarde()
Mensagem("Rotinas do Cadastro//"+
         "//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, Array_Lista_Diretorios
Release Procs Correcao_Tabelas
