;*******************************************************************************
;* Acerto da Ficha Financeira                                                  *
;Desenvolvido: 23/06/2010 por Bruno Carvalho                                 *
;Pedido      : 23/06/2010 por Karina Andrade                                 *
;Ultima Alteracao: 08/07/2011 por Karina Andrade
;Motivo Alteracao: Add novas tabelas.
;Ultima Alteracao: 30/05/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Retirado tabela
;Ultima Alteracao: 31/05/2017 por Rafael Matos
;Motivo Alteracao: Retirado tabela Fatura TG
;Ultima Alteracao: 14/07/2017 por Bruno Carvalho
;Motivo Alteracao: Removido "NotaCF" e inclu¡do "NotaCC" 
;Ultima Alteracao: 17/07/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes familia Fatura
                
;*******************************************************************************

Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"

;Rotina Realizada para ExclusÆo das Notas Fiscais Eletr“nicas que estÆo armaze-
;nadas no sistema como testes, e por isso ‚ preciso a exclusÆo destas, para que
;possa a partir de entÆo a inser‡Æo de novos lan‡amentos.
;ROTINA DE EXCLUSAO sendo feito nas tabelas:
;NOTAC, NOTAI, NOTAV; FATURAC, FATURAI, FATURAV; DUPC, DUPI, DUPNF; 
;DUPLIC, DUPBAIXA; MOVCONT

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

If Not IsTable("Notac")
   Then Return
EndIf

;*****************DupVendas*****************
{Ask} {Notac} 
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Moveto [Codigo do Documento] TypeIn  "nfe.."
{Ask} {Dupc} TypeIn "Fast Delete"
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Do_It!
ClearAll

{Ask} {Notac} 
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Moveto [Codigo do Documento] TypeIn  "nfe.."
{Ask} {Dupi} TypeIn "Fast Delete"
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Do_It!
ClearAll

{Ask} {Notac} 
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Moveto [Codigo do Documento] TypeIn  "nfe.."
{Ask} {Dupnf} TypeIn "Fast Delete"
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Do_It!
ClearAll

;*****************Nota**********************
{Ask} {Notac} 
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Moveto [Codigo do Documento] TypeIn  "nfe.." 
{Ask} {Notai} TypeIn "Fast Delete"
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Do_It!
ClearAll

{Ask} {Notac} 
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Moveto [Codigo do Documento] TypeIn  "nfe.." 
{Ask} {NotaIDV} TypeIn "Fast Delete"
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Do_It!
ClearAll

{Ask} {Notac} 
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Moveto [Codigo do Documento] TypeIn  "nfe.." 
{Ask} {NotaIC} TypeIn "Fast Delete"
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Do_It!
ClearAll

{Ask} {Notac} 
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Moveto [Codigo do Documento] TypeIn  "nfe.." 
{Ask} {NotaR} TypeIn "Fast Delete"
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Do_It!
ClearAll

{Ask} {Notac} 
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Moveto [Codigo do Documento] TypeIn  "nfe.." 
{Ask} {NotaCC} TypeIn "Fast Delete"
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Do_It!
ClearAll

{Ask} {Notac} 
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Moveto [Codigo do Documento] TypeIn  "nfe.."
{Ask} {Notav} TypeIn "Fast Delete"
Moveto [Codigo da Empresa  ] Example "em" 
Moveto [Numero do Documento] Example "ndoc"
Do_It!
ClearAll

{Ask} {Notac} TypeIn "Fast Delete"
Moveto [Codigo do Documento] TypeIn  "nfe.."
Do_It!
ClearAll

;*****************Fatura*********************
{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {FaturaCC} TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {FaturaI}  TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {FaturaIC} TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {FaturaID} TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {FaturaIG} TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {FaturaR} TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {Faturav} TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {FaturIAD} TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {FaturICM} TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} 
Moveto [Numero da OF     ] Example "nof"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
{Ask} {FaturIDD} TypeIn "Fast Delete"
Moveto [Numero da OF     ] Example "nof"
Do_It!
ClearAll

{Ask} {Faturac} TypeIn "Fast Delete"
Moveto [Docto Nota Gerada] TypeIn  "nfe.."
Do_It!
ClearAll

;*****************Duplicatas*****************************
{Ask} {\\Sistemas\\CtaRec\\Duplic}
Moveto [Numero do Lancamento] Example "nlan"
Moveto [Codigo da Empresa   ] Example "em" 
Moveto [Codigo do Documento ] TypeIn  "nfe.. or dpe.."
{Ask} {\\Sistemas\\CtaRec\\Dupbaixa} TypeIn "Fast Delete"
Moveto [Numero do Lancamento] Example "nlan"
Moveto [Codigo da Empresa   ] Example "em" 
Do_It!
ClearAll

{Ask} {\\Sistemas\\CtaRec\\Duplic} TypeIn "Fast Delete"
Moveto [Codigo do Documento ] TypeIn  "nfe.. or dpe.."
Do_It!
ClearAll

;*****************Caixa********************************
{Ask} {\\Sistemas\\CtaCor\\Movcont} TypeIn "Delete"
Moveto [Codigo do Documento ] TypeIn  "DPE.. or NFE.."
Do_It!
ClearAll

EndProc
;------------------------------------------------------------------------------
Aguarde("Atualizando Faturamento")

;****************** VENDAS *******************
Diretorio="\\Sistemas\\Vendas\\"
Aguarde("Atualizando Pasta: "+Diretorio)
{Tools} {More} {Directory} TypeIn Diretorio Enter
Correcao_Tabelas()

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

{Tools} {More} {Directory} {\\Sistemas\\Cadastro\\}
LimpAguarde()
Mensagem("Rotinas Ok !"+
         "// // Obrigado Vise Inform tica [SIM].")
