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

DATAM_DATA   = DateVal("31.05.2020")
DATAM_VERSAO = "2020.E"
 
DATAM_EXECUTA = "SYS_DATAM"
Play "\\Sistemas\\Cadastro\\EXEC_DAT"

If Not DATAM_EXECUTA 
   Then Exit
   Else DATAM_ROTINA  = "Cadastro,Caixa/Banco,Estoque e Vendas"
        DATAM_EXECUTA = "SYS_DATAM_MENSAGEM"
        Play "\\Sistemas\\Cadastro\\EXEC_DAT"
        If Not DATAM_EXECUTA
           Then Exit
        EndIf         
EndIf 

;*******************************************************************************
;Rotina para realizar a exclusÆo de reports                                    *
;*******************************************************************************
Proc Exclusao_Familia_Report(DIRETORIO,TABELA)
Private t1,t2,TABELA,DIRETORIO
  
For t1 From 1 to 2
  Switch
    Case t1 = 1 : PASTA="\\Base\\Sistemas\\"+DIRETORIO+"\\"
    Case t1 = 2 : PASTA="\\Sistemas\\"+DIRETORIO+"\\"
  EndSwitch
  If Not IsTable(PASTA+TABELA) Then Loop EndIf
  For t2 From 1 To 15
    Switch
      Case t2=1 : FileWrite Append ARQIMP From "DELT|"+PASTA+TABELA+".R"+"\n"  
      OtherWise : FileWrite Append ARQIMP From "DELT|"+PASTA+TABELA+".R"+StrVal(t2-1)+"\n"  
    EndSwitch
  EndFor          
EndFor

EndProc ;Exclusao_Familia_Report() 

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

ARQIMP=PrivDir()+"fundel.txt"
If IsFile(ARQIMP) 
   Then Deleta_Arquivo(ARQIMP)
EndIf
FileWrite ARQIMP From ""
Aguarde("Aguarde, excluindo arquivos temporarios")

;---- Cadastro -----------------------------------------------------------------
Exclusao_Familia_Report("Cadastro","Destinat")
Exclusao_Familia_Report("Cadastro","Represen")

;---- Caixa/Banco --------------------------------------------------------------
Exclusao_Familia_Report("CtaCor","MovCont")
Exclusao_Familia_Report("CtaCor","PLContas")
Exclusao_Familia_Report("CtaCor","CCusto")

;---- Contas a Receber ---------------------------------------------------------
Exclusao_Familia_Report("CtaRec","MediaI")

;---- Contas a Pagar -----------------------------------------------------------
Exclusao_Familia_Report("CtaPag","Titulos")

;---- Estoque ------------------------------------------------------------------
Exclusao_Familia_Report("Estoque","Itens")
Exclusao_Familia_Report("Estoque","Familia")
Exclusao_Familia_Report("Estoque","Marcas")
Exclusao_Familia_Report("Estoque","Grupos")
Exclusao_Familia_Report("Estoque","NotaEC")
Exclusao_Familia_Report("Estoque","Tab_InvI")
Exclusao_Familia_Report("Estoque","Aplic")
Exclusao_Familia_Report("Estoque","NCM")
Exclusao_Familia_Report("Estoque","Depart")
Exclusao_Familia_Report("Estoque","Requisit")
Exclusao_Familia_Report("Estoque","TpItem")
Exclusao_Familia_Report("Estoque","Unidades")
Exclusao_Familia_Report("Estoque","Cores")

;---- Producao -----------------------------------------------------------------
Exclusao_Familia_Report("Producao","Formulac")
Exclusao_Familia_Report("Producao","Formulai")

;---- Fundicao -----------------------------------------------------------------
Exclusao_Familia_Report("Fundicao","Formulac")
Exclusao_Familia_Report("Fundicao","Formulai")

;---- Fac‡Æo -------------------------------------------------------------------
Exclusao_Familia_Report("Faccao","Rfacc")

;---- ICMS_IPI -----------------------------------------------------------------
Exclusao_Familia_Report("ICMS_IPI","Reprocess")

;---- Vendas -------------------------------------------------------------------
Exclusao_Familia_Report("Vendas","Destin")
Exclusao_Familia_Report("Vendas","Transpor")
Exclusao_Familia_Report("Vendas","Pedidoc")
Exclusao_Familia_Report("Vendas","Pedidoi")
Exclusao_Familia_Report("Vendas","Estados")
Exclusao_Familia_Report("Vendas","NotaI")
Exclusao_Familia_Report("Vendas","NotaV")
Exclusao_Familia_Report("Vendas","FaturaC")
Exclusao_Familia_Report("Vendas","FaturaI")
Exclusao_Familia_Report("Vendas","Expedc")
Exclusao_Familia_Report("Vendas","Expedi")
Exclusao_Familia_Report("Vendas","Expediq")
Exclusao_Familia_Report("Vendas","OrcaC")
Exclusao_Familia_Report("Vendas","CondPgto")
Exclusao_Familia_Report("Vendas","Veiculos")

ExecVisecf(PrivDir()+"fundel.txt","")
Sleep 2000

Deleta_Arquivo(ARQIMP)

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

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

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

Correcao_Tabelas()

{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
