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

Mensagem("Pacote 2008.L ! (Dezembro/2008)// //"+
         "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("Notac")
   Then
        {Modify} {Restructure} {Notac}
        Moveto [Field Name]
        Locate "Valor Devolucao"
        If Not RetVal
           Then End Down
                "Valor Devolucao"     Enter  "$"  Enter
        EndIf
        Moveto [Field Name]
        Locate "Serie Nota Original"
        If Not RetVal
           Then End Down
                "Serie Nota Original" Enter  "A4" Enter
        EndIf

        Do_It! ClearImage
        {Tools} {Copy} {JustFamily} TypeIn "\\BASE\\Sistemas\\Vendas\\Notac" Enter TypeIn "Notac" 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 Loop
     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
