;*******************************************************************************
;* Desenvolvido: 03/12/2019 por Bruno Carvalho                                 *
;*******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

DATAM_DATA   = DateVal("30.11.2019")
DATAM_VERSAO = "2019.K"
 
DATAM_EXECUTA = "SYS_DATAM"
Play "\\Sistemas\\Cadastro\\EXEC_DAT"

If Not DATAM_EXECUTA 
   Then Exit
   Else DATAM_ROTINA  = "Cadastro, Estoque e Fac‡Æo"
        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()

;---- Em 14/11/2019 por Bruno Carvalho -----------------------------------------
If IsTable("C_cliep")
   Then {Modify} {Restructure} {C_cliep}
        Moveto [Field Name]
        Locate "Unidade Fiscal"
        If Not RetVal
           Then End Down
                "Unidade Fiscal"  Enter  "A2" Enter
                "Quantidade"      Enter  "N"  Enter    
        EndIf
        Do_It!
        ClearAll        
        
        {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\Cadastro\\C_cliep" Enter TypeIn "C_cliep" Enter {Replace}
        {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\Cadastro\\C_cliec" Enter TypeIn "C_cliec" Enter {Replace}
EndIf

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

;---- Em 07/11/2019 por Bruno Carvalho -----------------------------------------
If IsTable("Itens") 
   Then {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\Estoque\\Itens" Enter TypeIn "Itens" Enter {Replace}
        If IsFile("AC_DTCAD.SC")
           Then Play "AC_DTCAD"
        EndIf        
EndIf

;---- Em 25/11/2019 por Anivel Augusto Rodrigues -------------------------------
If IsTable("Re_0010e")
   Then {Modify} {Restructure} {Re_0010e}
        Moveto [Field Name]
        Locate "INMETRO"
        If Not RetVal
           Then End Down
                "INMETRO"  Enter  "A15" Enter
        EndIf
        Do_It!
        ClearAll        
        
        {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\Estoque\\Re_0010e" Enter TypeIn "Re_0010e" Enter {Replace}
EndIf

EndProc ;Correcao_Tabelas_Estoque()

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

;---- Em 03/12/2019 por Bruno Carvalho -----------------------------------------                     

;Foi substituido pelo AC_RFAC.SC 

ARQUIVO1 = "AC_RFRIG.sc"
ARQUIVO2 = "AC_RFRIG.sc2" 
If IsFile(ARQUIVO1) Then Deleta_Arquivo(ARQUIVO1) EndIf
If IsFile(ARQUIVO2) Then Deleta_Arquivo(ARQUIVO2) EndIf

ARQUIVO1 = "AC_RFRIR.sc"
ARQUIVO2 = "AC_RFRIR.sc2"
If IsFile(ARQUIVO1) Then Deleta_Arquivo(ARQUIVO1) EndIf
If IsFile(ARQUIVO2) Then Deleta_Arquivo(ARQUIVO2) EndIf

Release Vars ARQUIVO,ARQUIVO2

EndProc ;Correcao_Tabelas_Faccao()

;*******************************************************************************
;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   = "ESTOQUE"
DATAM_FECHAMES = ""
DATAM_EXECUTA  = "DATAM_SETDIR"
Play "\\Sistemas\\Cadastro\\EXEC_DAT"

DATAM_ROTINA   = "FACCAO"
DATAM_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      