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

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

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

;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 Corre‡Æo de Tabelas                                                    *
;*******************************************************************************
Proc Correcao_Tabelas_Vendas()

If Not IsTable("\\Sistemas\\Vendas\\PedMotiv")
   Then Copy "\\Base\\Sistemas\\Vendas\\PedMotiv" "\\Sistemas\\Vendas\\PedMotiv"
EndIf   

If IsTable("PedidoC")
   Then {Modify} {Restructure} {PedidoC}
        Moveto [Field Name]
        Locate "Pedido_Motivo_Sequencia"
        If Not RetVal
           Then End Down
                "Pedido_Motivo_Sequencia"  Enter  "A2"  Enter
                "Pedido_Motivo_Descricao"  Enter  "A20" Enter
        EndIf
        Home
        Moveto [Field Name]
        Locate "Numero Pedido Origem"
        If RetVal
           Then If Rtrim([Field Type])<>"A25"
                   Then Moveto [Field Type] CtrlBackSpace TypeIn "A25" Enter
                EndIf
        EndIf
        Do_It!
        ClearAll        
        
        {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\Vendas\\PedidoC" Enter TypeIn "PedidoC" Enter {Replace}
EndIf

If IsTable("TIBPT")
   Then {Ask} {TIBPT}
        Moveto [UF] TypeIn "MB, Changeto MG"
        Do_it!
        ClearAll
EndIf

EndProc ;Correcao_Tabelas_Vendas() 

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

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

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

DATAM_ROTINA   = "VENDAS"
DATAM_FECHAMES = "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      