;*******************************************************************************
;* Desenvolvido: 08/02/2021 por Bruno Carvalho                                 *
;*******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

DATAM_DATA   = DateVal("28.02.2021")
DATAM_VERSAO = "2021.B"
 
DATAM_EXECUTA = "SYS_DATAM"
Play "\\Sistemas\\Cadastro\\EXEC_DAT"

If Not DATAM_EXECUTA 
   Then Exit
   Else DATAM_ROTINA  = "Contas a Pagar e Caixa/Banco"
        DATAM_EXECUTA = "SYS_DATAM_MENSAGEM"
        Play "\\Sistemas\\Cadastro\\EXEC_DAT"
        If Not DATAM_EXECUTA
           Then Exit
        EndIf
EndIf 

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

If IsTable("TpLanc")
   Then CoEdit "TpLanc"
        Moveto [Tipo de Lancamento]
        Locate "P"
        If RetVal
           Then If [Descricao do Lancamento]<>"TRANSF.ELETRON/SAQUE"
                   Then Moveto [Descricao do Lancamento] CtrlBackSpace
                        [Descricao do Lancamento] = "TRANSF.ELETRON/SAQUE"
                        UnLockRecord
                EndIf         
        EndIf
        Do_it!
        ClearAll
EndIf   

EndProc ;Correcao_Tabelas_Cadastro
 
;*******************************************************************************
;Rotina Corre‡Æo de Tabelas                                                    *
;*******************************************************************************
Proc Correcao_Tabelas_CtaPag()

If IsTable("Titulos")
   Then {Ask} {\\Sistemas\\Cadastro\\TpLanc}
        Moveto [Tipo de Lancamento     ] TypeIn "_Lanc"
        Moveto [Descricao do Lancamento] TypeIn "_Desc"
        {Ask} {Titulos}
        Moveto [Tipo do Lancamento     ] TypeIn "_Lanc, P"
        Moveto [Descricao do Lancamento] TypeIn "Changeto _Desc"
        Do_it!
        ClearAll 
EndIf

If IsTable("TitBaixa")
   Then {Ask} {\\Sistemas\\Cadastro\\TpLanc}
        Moveto [Tipo de Lancamento     ] TypeIn "_Lanc"
        Moveto [Descricao do Lancamento] TypeIn "_Desc"
        {Ask} {TitBaixa}
        Moveto [Tipo de Lancamento     ] TypeIn "_Lanc, P"
        Moveto [Descricao do Lancamento] TypeIn "Changeto _Desc"
        Do_it!
        ClearAll 
EndIf

EndProc ;Correcao_Tabelas_CtaPag()

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

If IsTable("MovCont")
   Then {Ask} {\\Sistemas\\Cadastro\\TpLanc}
        Moveto [Tipo de Lancamento     ] TypeIn "_Lanc"
        Moveto [Descricao do Lancamento] TypeIn "_Desc"
        {Ask} {MovCont}
        Moveto [Tipo do Lancamento     ] TypeIn "_Lanc, P"
        Moveto [Descricao do Lancamento] TypeIn "Changeto _Desc"
        Do_it!
        ClearAll 
EndIf

EndProc ;Correcao_Tabelas_CtaCor()

;*******************************************************************************
;Rotina Principal                                                              *
;*******************************************************************************
Aguarde("Atualizando Sistema")
Password("t01avivcl")
Password("FechaSys")

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

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

DATAM_ROTINA   = "CADASTRO"
DATAM_FECHAMES = ""
DATAM_EXECUTA  = "DATAM_SETDIR"
Play "\\Sistemas\\Cadastro\\EXEC_DAT" 

DATAM_ROTINA   = "CTAPAG"
DATAM_FECHAMES = "FECHAMES"
DATAM_EXECUTA  = "DATAM_SETDIR"
Play "\\Sistemas\\Cadastro\\EXEC_DAT" 

DATAM_ROTINA   = "CTACOR"
DATAM_FECHAMES = "FECHAMES"
DATAM_EXECUTA  = "DATAM_SETDIR"
Play "\\Sistemas\\Cadastro\\EXEC_DAT"

{Tools} {More} {Directory} {\\Sistemas\\Cadastro\\}

DATAM_EXECUTA  = "DATAM_SYSTABLE"
Play "\\Sistemas\\Cadastro\\EXEC_DAT" 

UnPassword("t01avivcl")
UnPassword("FechaSys")
LimpAguarde()
FastMsg("Fim da atualiza‡Æo !")

DATAM_EXECUTA  = "DATAM_RELEASE"
Play "\\Sistemas\\Cadastro\\EXEC_DAT"

Release Vars DATAM_EXECUTA