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

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

If Not DATAM_EXECUTA 
   Then Exit
   Else DATAM_ROTINA  = "Cadastro, Contas a Pagar, Contas a Receber, MDFE, Estoque 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_Cadastro()
private s, wwi

;---- Em 06/01/2021 por Anivel Augusto Rodrigues  ------------------------------
CoEdit "Tpdoctos"
for wwi from 1 to 3
  moveto [Codigo do Documento]
  locate "NCE"+strval(wwi)
  if not retval
     then END DOWN
  endif   
  [Codigo do Documento    ]="NCE"+strval(wwi)
  [Tipo do Documento      ]="NFCE"
  [Serie do Documento     ]="NCE"+strval(wwi)
  [Modelo do Documento    ]="65"
  [Descricao do Documento ]="NF CONSUMIDOR FINAL ELETR SERIE "+strval(wwi)
  UNLOCKRECORD
endfor
Do_it!

;---- Em 15/01/2021 por Anivel Augusto Rodrigues ------------------------------- 
CoEdit "Tppagto"
for wwi from 1 to 1
  moveto [Tipo do Pagamento]
  locate "PX"
  if not retval
     then END DOWN
          [Tipo do Pagamento       ]="PX"
          [Descricao Tipo Pagamento]="PIX"
          [Utiliza_ECF             ]="N"
          [Utiliza_VisePedidos     ]="N"
          [Codigo_Avanco           ]="0000"
          UNLOCKRECORD

  endif   
endfor
Do_it!
ClearAll

;---- Em 18/01/2021 por Anivel Augusto Rodrigues -------------------------------
CoEdit "M_prin"
for wwi from 1 to 5

  switch
    case wwi=1:
      moveto [Descricao]
      Locate Pattern "Tributos.."
      if retval
         then [Descricao]="~Tribut rio/Fiscal"
              
              copytoarray reg
              Del
         else 
              quitloop
      endif   

    case wwi=2:
      moveto [Descricao]
      Locate Pattern "Faturamento.."
      if retval
         then Down
              Ins
              copyfromarray reg
              UNLOCKRECORD
      endif   

    case wwi=3:
      moveto [Descricao]
      Locate Pattern "C~heques.."
      if retval
         then [Descricao]="C~heques Terceiros"
              UNLOCKRECORD
      endif   

    case wwi=4:
      moveto [Descricao]
      Locate Pattern "E~xporta.."
      if retval
         then [Descricao]="E~xportar/Integra‡Æo"
              UNLOCKRECORD
      endif   

  endswitch
endfor
Do_it!
ClearAll

;---- Em 18/01/2021 por Anivel Augusto Rodrigues -------------------------------
if istable("M_prod_f")
   then Delete "M_prod_f"
endif

;---- Em 28/01/2021 por Bruno Carvalho -----------------------------------------
If IsTable("TpLanc")
   Then CoEdit "TpLanc"
        Moveto [Tipo de Lancamento]
        Locate "P"
        If RetVal
           Then If [Descricao do Lancamento]<>"PIX/DOC/TED/SAQUE"
                   Then Moveto [Descricao do Lancamento] CtrlBackSpace
                        [Descricao do Lancamento] = "PIX/DOC/TED/SAQUE"
                        UnLockRecord
                EndIf         
        EndIf
        Do_it!
        ClearAll
EndIf     

EndProc ;Correcao_Tabelas_Cadastro()

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

;---- Em 28/01/2021 por Bruno Carvalho -----------------------------------------
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()

;---- Em 28/01/2021 por Bruno Carvalho -----------------------------------------
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 Corre‡Æo de Tabelas                                                    *
;*******************************************************************************
Proc Correcao_Tabelas_Estoque()

;---- 28/01/2021 por Bruno Carvalho Rodrigues ----------------------------------
If IsTable("Tab_InvC")
   Then {Modify} {Restructure} {Tab_InvC}
        Moveto [Field Name]
        Locate "Estoque_com_Terceiro"
        If Not RetVal
           Then End Down
                "Estoque_com_Terceiro"   Enter  "A1"  Enter
                "Codigo"                 Enter  "A4"  Enter
                "Nome Fantasia EmitDest" Enter  "A20" Enter
        EndIf
        Do_It!
        ClearAll
        
        {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\Estoque\\Tab_InvC" Enter TypeIn "Tab_InvC" Enter {Replace}
        {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\Estoque\\Tab_InvI" Enter TypeIn "Tab_InvI" Enter {Replace}
EndIf

EndProc ;Correcao_Tabelas_Estoque()

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

;---- Em 15/01/2021 por Bruno Carvalho -----------------------------------------
If IsTable("Mdfe_rvr") 
   Then {Modify} {Restructure} {Mdfe_rvr}
        Moveto [Field Name]
        Locate "CIOT Veiculo"
        If Retval
           Then Enter CtrlBackSpace "A16" Enter 
        EndIf
        Do_It!
        ClearAll
        
        {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\MDFE\\Mdfe_rvr" Enter TypeIn "Mdfe_rvr" Enter {Replace}
EndIf   

EndProc ;Correcao_Tabelas_MDFE()

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

;---- Em 15/01/2021 por Bruno Carvalho  ----------------------------------------
If IsTable("Veiculos") 
   Then {Modify} {Restructure} {Veiculos}
        Moveto [Field Name]
        Locate "CIOT Veiculo"
        If Retval
           Then Enter CtrlBackSpace "A16" Enter 
        EndIf
        Do_It!
        ClearAll
        
        {Tools} {Copy} {JustFamily} TypeIn "\\Base\\Sistemas\\Vendas\\Veiculos" Enter TypeIn "Veiculos" Enter {Replace}
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   = "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"

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

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