;** LimEmp *********************************************************************
;*  Exclusao de Registros de Determinada Empresa                               *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido 	 : 05/12/1995 por Anivel Augusto Rodrigues
;Ultima Alteracao: 29/08/2003 por Karen Lauar Nery
;Motivo Alteracao: Ajustes
;Ultima Alteracao: 15/08/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Run
;Ultima Alteracao: 12/07/2012 por Bruno Carvalho
;Motivo Alteracao: InclusÆo "FaturIDD / FaturIAD" e "NotaIDD / NotaIAD"
;Ultima Alteracao: 07/01/2013 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao tabela Sdestqt - Estoque p/ terceiros   

;*******************************************************************************
; Rotina Restruturacao                                                         *
;*******************************************************************************
Proc Limpar_Registros()
@ 04,66 ?? Tempohrs(temp)
ClearAll

NL=3

For wi From 1 to wc

   Aguarde("Aguarde, Eliminando Dados = "+Diretorio[wi])
   If NL=20
      Then Limpa_Area()
           NL=3
   EndIf

   @ NL,3 ?? Diretorio[wi]

   If DirExists(Diretorio[wi])=0
      Then NL=NL+1
           Loop
   EndIf

   SetDir Diretorio[wi]

   Switch
     Case Diretorio[wi]="\\SISTEMAS\\CARTAOP" :  Cartaop()
     Case Diretorio[wi]="\\SISTEMAS\\CHEQREC" :  CheqRec()
     Case Diretorio[wi]="\\SISTEMAS\\COMPRAS" :  Compras()
     Case Diretorio[wi]="\\SISTEMAS\\CONSIGNA":  Consigna()
     Case Diretorio[wi]="\\SISTEMAS\\CTACOR"  :  Ctacor()
     Case Diretorio[wi]="\\SISTEMAS\\CTAPAG"  :  Ctapag()
     Case Diretorio[wi]="\\SISTEMAS\\CTAREC"  :  Ctarec()
;;;;;Case Diretorio[wi]="\\SISTEMAS\\CURTUME" :  Curtume()
     Case Diretorio[wi]="\\SISTEMAS\\ESTOQUE" :  Estoque()
     Case Diretorio[wi]="\\SISTEMAS\\FACCAO"  :  Faccao()
     Case Diretorio[wi]="\\SISTEMAS\\FUNDICAO":  Fundicao()
     Case Diretorio[wi]="\\SISTEMAS\\ICMS_IPI":  Icms_ipi()
     Case Diretorio[wi]="\\SISTEMAS\\VENDAS"  :  Vendas()
     Otherwise:
          NL=NL+1
          Loop
   EndSwitch

   @ NL,3 ?? Diretorio[wi]+"  Ok!"
   NL=NL+1

   If DirExists(Diretorio[wi]+"\\Fechames")=0
      Then Loop
   EndIf

   MontaSubDiretorios()
   @ 04,66 ?? Tempohrs(temp)

   For wis From 1 to wcs

       Aguarde("Aguarde, Eliminando Dados = "+Diretorio[wi]+"\\Fechames\\"+SubDiretorio[wis])
       If NL=20
          Then Limpa_Area()
               NL=3
       EndIf

       @ NL,3 ?? Diretorio[wi]+"\\Fechames\\"+SubDiretorio[wis]

       If DirExists(Diretorio[wi]+"\\Fechames\\"+SubDiretorio[wis])=0
          Then NL=NL+1
               Loop
       EndIf

       SetDir Diretorio[wi]+"\\Fechames\\"+SubDiretorio[wis]

       Switch
             Case Diretorio[wi]="\\SISTEMAS\\CHEQREC" :  CheqRec()
             Case Diretorio[wi]="\\SISTEMAS\\COMPRAS" :  Compras()
             Case Diretorio[wi]="\\SISTEMAS\\CONSIGNA":  Consigna()
             Case Diretorio[wi]="\\SISTEMAS\\CTACOR"  :  Ctacor()
             Case Diretorio[wi]="\\SISTEMAS\\CTAPAG"  :  Ctapag()
             Case Diretorio[wi]="\\SISTEMAS\\CTAREC"  :  Ctarec()
;;;;;;;;;;;;;Case Diretorio[wi]="\\SISTEMAS\\CURTUME" :  Curtume()
             Case Diretorio[wi]="\\SISTEMAS\\ESTOQUE" :  Estoque()
             Case Diretorio[wi]="\\SISTEMAS\\FACCAO"  :  Faccao()
             Case Diretorio[wi]="\\SISTEMAS\\FUNDICAO":  Fundicao()
             Case Diretorio[wi]="\\SISTEMAS\\VENDAS"  :  Vendas()
         Otherwise:
              NL=NL+1
              Loop
       EndSwitch

       @ NL,3 ?? Diretorio[wi]+"\\Fechames\\"+SubDiretorio[wis]+"  Ok!"
       NL=NL+1

   EndFor

EndFor
ClearAll
LimpAguarde()
SetDir "\\Sistemas\\Cadastro"
EndProc  ; (Estoque)


;*******************************************************************************
;*  Cadastro                                                                   *
;*******************************************************************************
Proc CADASTRO()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Cadastro")

If IsTable("DestObs")
   Then Empty("DestObs")
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("DestMsg")
   Then Empty("DestMsg")
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("FichaCli")
   Then Empty("FichaCli")
EndIf
@ 04,66 ?? Tempohrs(temp)
ClearAll
EndProc

;*******************************************************************************
;*  CARTAOP                                                                    *
;*******************************************************************************
Proc CARTAOP()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Empregados")

If IsTable("Empregad")
   Then {Ask} {Empregad} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc


;*************************+*****************************************************
;*  Fechamento de Controle de Cheques Pre-Datados                              *
;*******************************************************************************
Proc CHEQREC()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Cheques de Terceiros")

If IsTable("ChequeC") And IsTable("ChequeI")
   Then {Ask} {ChequeC}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {ChequeI} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("ChequeC")
   Then {Ask} {ChequeC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("BordChC") And IsTable("BordChI")
   Then {Ask} {BordChC}
        Moveto [Numero do Lote      ] Example "lote"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {BordChI} TypeIn "Fast Delete"
        Moveto [Numero do Lote      ] Example "lote"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("BordChC")
   Then {Ask} {BordChC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Pesqchq")
   Then Empty("Pesqchq")
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc

;*******************************************************************************
;*  COMPRAS                                                                    *
;*******************************************************************************
Proc COMPRAS()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Compras")

If IsTable("OCC") And IsTable("OCI")
   Then {Ask} {OCC}
        Moveto [Numero da OC        ] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {OCI} TypeIn "Fast Delete"
        Moveto [Numero da OC        ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("OCC") And IsTable("OCV")
   Then {Ask} {OCC}
        Moveto [Numero da OC        ] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {OCV} TypeIn "Fast Delete"
        Moveto [Numero da OC        ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("OCC")
   Then {Ask} {OCC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)


EndProc

;*******************************************************************************
;*  Consigna‡Æo                                                                *
;*******************************************************************************
Proc CONSIGNA()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Consigna‡äes")

If IsTable("CabMovim") And IsTable("IteMovim")
   Then {Ask} {CabMovim}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {IteMovim} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("CabMovim")
   Then {Ask} {CabMovim} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc

;*******************************************************************************
;* Caixa/Banco                                                                 *
;*******************************************************************************
Proc CTACOR()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Caixa/Banco")

If IsTable("MovCont")
   Then {Ask} {MovCont} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Conta") And IsTable("SaldCont")
   Then {Ask} {Conta}
        Moveto [Codigo da Conta  ] Example "conta"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {SaldCont} TypeIn "Fast Delete"
        Moveto [Codigo da Conta  ] Example "conta"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Conta")
   Then {Ask} {Conta} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("ContaTrf")
   Then {Ask} {ContaTrf} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa Trf] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("TalaoCHQ")
	 Then {Ask} {TalaoCHQ} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc

;*******************************************************************************
;*  Contas a Pagar                                                             *
;*******************************************************************************
Proc CTAPAG()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Contas a Pagar")

If IsTable("Titulos") And IsTable("TitBaixa")
   Then {Ask} {Titulos}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {TitBaixa} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Titulos") And IsTable("TitCheq")
   Then {Ask} {Titulos}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {TitCheq} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Titulos") And IsTable("Titnota")
   Then {Ask} {Titulos}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {Titnota} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Titulos") And IsTable("Titrat")
   Then {Ask} {Titulos}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {Titrat} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Titulos")
   Then {Ask} {Titulos} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("AltContC") And IsTable("AltContI")
   Then {Ask} {AltContC}
        Moveto [Numero do Lote   ] Example "lote"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {AltContI} TypeIn "Fast Delete"
        Moveto [Numero do Lote   ] Example "lote"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("AltContC")
   Then {Ask} {AltContC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("MediaC") And IsTable("MediaI")
   Then {Ask} {MediaC}
        Moveto [Numero do Lote      ] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {MediaI} TypeIn "Fast Delete"
        Moveto [Numero do Lote      ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("MediaC")
   Then {Ask} {MediaC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc

;*******************************************************************************
;* Contas a Receber                                                            *
;*******************************************************************************
Proc CTAREC()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Contas a Receber")

If IsTable("Duplic") And IsTable("DupBaixa")
   Then {Ask} {Duplic}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {DupBaixa} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Duplic")
   Then {Ask} {Duplic} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("AltContC") And IsTable("AltContI")
   Then {Ask} {AltContC}
        Moveto [Numero do Lote   ] Example "lote"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {AltContI} TypeIn "Fast Delete"
        Moveto [Numero do Lote   ] Example "lote"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("AltContC")
   Then {Ask} {AltContC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("AltCartC") And IsTable("AltCartI")
   Then {Ask} {AltCartC}
        Moveto [Numero do Lote   ] Example "lote"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {AltCartI} TypeIn "Fast Delete"
        Moveto [Numero do Lote   ] Example "lote"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("AltCartC")
   Then {Ask} {AltCartC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("AltTitC") And IsTable("AltTitI")
   Then {Ask} {AltTitC}
        Moveto [Numero do Lote   ] Example "lote"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {AltTitI} TypeIn "Fast Delete"
        Moveto [Numero do Lote   ] Example "lote"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("AltTitC")
   Then {Ask} {AltTitC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("MediaC") And IsTable("MediaI")
   Then {Ask} {MediaC}
        Moveto [Numero do Lote      ] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {MediaI} TypeIn "Fast Delete"
        Moveto [Numero do Lote      ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("MediaC")
   Then {Ask} {MediaC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc

;*******************************************************************************
;* Estoque                                                                     *
;*******************************************************************************
Proc ESTOQUE()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Estoque")

If IsTable("SdEstq")
   Then {Ask} {SdEstq} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("SdEstqt")
   Then {Ask} {SdEstqt} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("EstqPrm")
   Then {Ask} {EstqPrm} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa  ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaEc") And IsTable("NotaEi")
   Then {Ask} {NotaEc}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {NotaEi} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaEc") And IsTable("NotaEcp")
   Then {Ask} {NotaEc}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {NotaEcp} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaEc") And IsTable("NotaEcv")
   Then {Ask} {NotaEc}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {NotaEcv} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaEc")
   Then {Ask} {NotaEc} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("RQCabeca") And IsTable("RQItem")
   Then {Ask} {RQCabeca}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {RQItem} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("RQCabeca") And IsTable("RQItemG")
   Then {Ask} {RQCabeca}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {RQItemG} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("RQCabeca") And IsTable("RqMatPri")
   Then {Ask} {RQCabeca}
        Moveto [Numero do Lancamento] Example "lancto"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        {Ask} {RqMatPri} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("RQCabeca")
   Then {Ask} {RQCabeca} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("RQCabeca") And IsTable("RQItem")
   Then {Ask} {RQCabeca}
        Moveto [Numero do Lancamento     ] Example "lancto"
        Moveto [Codigo da Empresa Destino] TypeIn "~VSDGEMPRESA"
        {Ask} {RQItem} TypeIn "Fast Delete"
        Moveto [Numero do Lancamento] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("RQCabeca")
   Then {Ask} {RQCabeca} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa Destino] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)


If IsTable("Pecasmov")
   Then {Ask} {Pecasmov} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Pecassd")
   Then {Ask} {Pecassd} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc

;*******************************************************************************
;*  FACCAO                                                                     *
;*******************************************************************************
Proc FACCAO()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Faccao")

If IsTable("CfacC") And IsTable("Cfacp")
   Then {Ask} {Cfacc}
        Moveto [Numero_Corte             ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Cfacp} TypeIn "Fast Delete"
        Moveto [Numero_Corte             ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("CfacC") And IsTable("Cfacri")
   Then {Ask} {Cfacc}
        Moveto [Numero_Corte             ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Cfacri} TypeIn "Fast Delete"
        Moveto [Numero_Corte             ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("CfacC") And IsTable("Cfacrig")
   Then {Ask} {Cfacc}
        Moveto [Numero_Corte             ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Cfacrig} TypeIn "Fast Delete"
        Moveto [Numero_Corte             ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Cfacc")
   Then {Ask} {Cfacc} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)



If IsTable("PCfacC") And IsTable("PCfacri")
   Then {Ask} {PCfacc}
        Moveto [Numero_Producao_Corte    ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {PCfacri} TypeIn "Fast Delete"
        Moveto [Numero_Producao_Corte    ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("PCfacC") And IsTable("PCfacrig")
   Then {Ask} {PCfacc}
        Moveto [Numero_Producao_Corte    ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {PCfacrig} TypeIn "Fast Delete"
        Moveto [Numero_Producao_Corte    ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("PCfacc")
   Then {Ask} {PCfacc} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)




If IsTable("PfacC") And IsTable("Pfacri")
   Then {Ask} {Pfacc}
        Moveto [Numero_Programacao       ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Pfacri} TypeIn "Fast Delete"
        Moveto [Numero_Programacao       ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("PfacC") And IsTable("Pfacrig")
   Then {Ask} {Pfacc}
        Moveto [Numero_Programacao       ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Pfacrig} TypeIn "Fast Delete"
        Moveto [Numero_Programacao       ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Pfacc")
   Then {Ask} {Pfacc} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)


If IsTable("RfacC") And IsTable("Rfacri")
   Then {Ask} {Rfacc}
        Moveto [Numero_Producao          ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Rfacri} TypeIn "Fast Delete"
        Moveto [Numero_Producao          ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("RfacC") And IsTable("Rfacrig")
   Then {Ask} {Rfacc}
        Moveto [Numero_Producao          ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Rfacrig} TypeIn "Fast Delete"
        Moveto [Numero_Producao          ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Rfacc")
   Then {Ask} {Rfacc} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Vales")
   Then {Ask} {Vales} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc


;*******************************************************************************
;*  FUNDICAO                                                                   *
;*******************************************************************************
Proc FUNDICAO()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Faccao")

If IsTable("Progfc") And IsTable("Progfl")
   Then {Ask} {Progfc}
        Moveto [Numero_Fusao             ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Progfl} TypeIn "Fast Delete"
        Moveto [Numero_Fusao             ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Progfc") And IsTable("Progfp")
   Then {Ask} {Progfc}
        Moveto [Numero_Fusao             ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Progfp} TypeIn "Fast Delete"
        Moveto [Numero_Fusao             ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Progfc") And IsTable("Progfpr")
   Then {Ask} {Progfc}
        Moveto [Numero_Fusao             ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Progfpr} TypeIn "Fast Delete"
        Moveto [Numero_Fusao             ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Progfc") And IsTable("Progfri")
   Then {Ask} {Progfc}
        Moveto [Numero_Fusao             ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Progfri} TypeIn "Fast Delete"
        Moveto [Numero_Fusao             ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Progfc") And IsTable("Progfrm")
   Then {Ask} {Progfc}
        Moveto [Numero_Fusao             ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Progfrm} TypeIn "Fast Delete"
        Moveto [Numero_Fusao             ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Progfc") And IsTable("Progfrp")
   Then {Ask} {Progfc}
        Moveto [Numero_Fusao             ] Example "lancto"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        {Ask} {Progfrp} TypeIn "Fast Delete"
        Moveto [Numero_Fusao             ] Example "lancto"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("Progfc")
   Then {Ask} {Progfc} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa        ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc

;*******************************************************************************
;*  ICMS_IPI                                                                   *
;*******************************************************************************
Proc ICMS_IPI()
ClearAll
LIMPAGUARDE()
Aguarde("Processando ICMS/IPI")

If IsTable("ImpostoI")
   Then {Ask} {ImpostoI} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("ImpostoO")
   Then {Ask} {ImpostoO} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("ImpostoC")
   Then {Ask} {ImpostoC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

EndProc


;*******************************************************************************
;* Faturamento                                                                 *
;*******************************************************************************
Proc VENDAS()
ClearAll
LIMPAGUARDE()
Aguarde("Processando Faturamento")

If IsTable("NotaC") And IsTable("NotaI")
   Then {Ask} {NotaC}
        Moveto [Codigo da Empresa   ] Example "emp" TypeIn ", ~VSDGEMPRESA"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        {Ask} {NotaI} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] Example "emp"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)
         
If IsTable("NotaC") And IsTable("NotaV")
   Then {Ask} {NotaC}
        Moveto [Codigo da Empresa   ] Example "emp" TypeIn ", ~VSDGEMPRESA"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        {Ask} {NotaV} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] Example "emp"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaC") And IsTable("NotaIC")
   Then {Ask} {NotaC}
        Moveto [Codigo da Empresa   ] Example "emp" TypeIn ", ~VSDGEMPRESA"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        {Ask} {NotaIC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] Example "emp"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaC") And IsTable("NotaIDV")
   Then {Ask} {NotaC}
        Moveto [Codigo da Empresa   ] Example "emp" TypeIn ", ~VSDGEMPRESA"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        {Ask} {NotaIDV} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] Example "emp"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaC") And IsTable("NotaIDD")
   Then {Ask} {NotaC}
        Moveto [Codigo da Empresa   ] Example "emp" TypeIn ", ~VSDGEMPRESA"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        {Ask} {NotaIDD} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] Example "emp"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaC") And IsTable("NotaIAD")
   Then {Ask} {NotaC}
        Moveto [Codigo da Empresa   ] Example "emp" TypeIn ", ~VSDGEMPRESA"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        {Ask} {NotaIAD} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] Example "emp"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaC") And IsTable("NotaCF")
   Then {Ask} {NotaC}
        Moveto [Codigo da Empresa   ] Example "emp" TypeIn ", ~VSDGEMPRESA"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        {Ask} {NotaCF} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] Example "emp"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("NotaC")
   Then {Ask} {NotaC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("DupC") And IsTable("DupI")
   Then {Ask} {DupC}
        Moveto [Codigo da Empresa   ] Example "emp" TypeIn ", ~VSDGEMPRESA"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        {Ask} {DupI} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] Example "emp"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("DupC") And IsTable("DupNF")
   Then {Ask} {DupC}
        Moveto [Codigo da Empresa   ] Example "emp" TypeIn ", ~VSDGEMPRESA"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        {Ask} {DupNF} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] Example "emp"
        Moveto [Numero do Documento ] Example "doc"
        Moveto [Serie do Documento  ] Example "ser"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("DupC")
   Then {Ask} {DupC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("FaturaC") And IsTable("FaturaI")
   Then {Ask} {FaturaC}
        Moveto [Numero da OF     ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {FaturaI} TypeIn "Fast Delete"
        Moveto [Numero da OF     ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("FaturaC") And IsTable("FaturaID")
   Then {Ask} {FaturaC}
        Moveto [Numero da OF     ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {FaturaID} TypeIn "Fast Delete"
        Moveto [Numero da OF     ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("FaturaC") And IsTable("FaturIDD")
   Then {Ask} {FaturaC}
        Moveto [Numero da OF     ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {FaturIDD} TypeIn "Fast Delete"
        Moveto [Numero da OF     ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("FaturaC") And IsTable("FaturIAD")
   Then {Ask} {FaturaC}
        Moveto [Numero da OF     ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {FaturIAD} TypeIn "Fast Delete"
        Moveto [Numero da OF     ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("FaturaC") And IsTable("FaturaV")
   Then {Ask} {FaturaC}
        Moveto [Numero da OF     ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {FaturaV} TypeIn "Fast Delete"
        Moveto [Numero da OF     ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("FaturaC") And IsTable("FaturaIC")
   Then {Ask} {FaturaC}
        Moveto [Numero da OF     ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {FaturaIC} TypeIn "Fast Delete"
        Moveto [Numero da OF     ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("FaturaC")
   Then {Ask} {FaturaC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("ECF_C")
	 Then {Ask} {ECF_C} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("ECF_T")
	 Then {Ask} {ECF_T} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("PedidoC") And IsTable("PedidoI")
   Then {Ask} {PedidoC}
        Moveto [Numero do Pedido ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {PedidoI} TypeIn "Fast Delete"
        Moveto [Numero do Pedido ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("PedidoC") And IsTable("PedidoV")
   Then {Ask} {PedidoC}
        Moveto [Numero do Pedido ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {PedidoV} TypeIn "Fast Delete"
        Moveto [Numero do Pedido ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("PedidoC") And IsTable("PedidoIG")
   Then {Ask} {PedidoC}
        Moveto [Numero do Pedido ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {PedidoIG} TypeIn "Fast Delete"
        Moveto [Numero do Pedido ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("PedidoC")
   Then {Ask} {PedidoC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("OrcaC") And IsTable("OrcaI")
   Then {Ask} {OrcaC}
        Moveto [Numero do Orcamento] Example "of"
        Moveto [Codigo da Empresa  ] TypeIn "~VSDGEMPRESA"
        {Ask} {OrcaI} TypeIn "Fast Delete"
        Moveto [Numero do Orcamento] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("OrcaC") And IsTable("OrcaCPG")
   Then {Ask} {OrcaC}
        Moveto [Numero do Orcamento] Example "of"
        Moveto [Codigo da Empresa  ] TypeIn "~VSDGEMPRESA"
        {Ask} {OrcaCPG} TypeIn "Fast Delete"
        Moveto [Numero do Orcamento] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("OrcaC")
   Then {Ask} {OrcaC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)


If IsTable("ExpedC") And IsTable("ExpedI")
   Then {Ask} {ExpedC}
        Moveto [Numero da OE     ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {ExpedI} TypeIn "Fast Delete"
        Moveto [Numero da OE     ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("ExpedC") And IsTable("ExpedIE")
   Then {Ask} {ExpedC}
        Moveto [Numero da OE     ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {ExpedIE} TypeIn "Fast Delete"
        Moveto [Numero da OE     ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)

If IsTable("ExpedC") And IsTable("ExpedTG")
   Then {Ask} {ExpedC}
        Moveto [Numero da OE     ] Example "of"
        Moveto [Codigo da Empresa] TypeIn "~VSDGEMPRESA"
        {Ask} {ExpedTG} TypeIn "Fast Delete"
        Moveto [Numero da OE     ] Example "of"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)


If IsTable("ExpedC")
   Then {Ask} {ExpedC} TypeIn "Fast Delete"
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA"
        Do_It!
        ClearAll
EndIf
@ 04,66 ?? Tempohrs(temp)



EndProc

;*******************************************************************************
; Rotina Seleciona Linha Texto                                                 *
;*******************************************************************************
;;; Procedure 1
Proc Posicao()
Home
Editor Info to InfoArray
ci=InfoArraY["CHARPOS"]

End
Editor Info to InfoArray
cf=InfoArraY["CHARPOS"]

Editor Select ci cf
Editor Extract to ELinha
EndProc

;*******************************************************************************
; Rotina Procura Diretorios                                                    *
;*******************************************************************************
Proc MontaDiretorios()
@ 04,66 ?? Tempohrs(temp)
ClearAll
Aguarde("Aguarde, Verificando Diretorios")

DynArray Diretorio[]

Lista_Diretorio(SubStr(Directory(),1,2)+"\\Sistemas")
wc=0
While wc<DynArraySize(Array_Lista_Diretorios)
  wc=wc+1
  Diretorio[wc]="\\SISTEMAS\\"+Rtrim(Array_Lista_Diretorios[wc])
EndWhile
Release Vars Array_Lista_Diretorios
EndProc

;*******************************************************************************
; Rotina Procura SubDiretorios                                                 *
;*******************************************************************************
Proc MontaSubDiretorios()
@ 04,66 ?? Tempohrs(temp)

ClearAll
Aguarde("Aguarde, Verificando SubDiretorios")

DynArray SubDiretorio[]

Lista_Diretorio(SubStr(Directory(),1,2)+"\\Fechames")
wcs=0
While wc<DynArraySize(Array_Lista_Diretorios)
  wc=wcs+1
  SubDiretorio[wc]="\\SISTEMAS\\"+Rtrim(Array_Lista_Diretorios[wc])
EndWhile
Release Vars Array_Lista_Diretorios
EndProc

;*******************************************************************************
;* Rotina Para Limpa Area de Trabalho                                          *
;*******************************************************************************
Proc Limpa(nl,nc)
Private nl,nc
Style Reverse
While nl < 23
  @ nl,nc ?? "İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ"
  nl=nl+1
EndWhile
Style
EndProc   ; (Limpa)

Proc Tempohrs(tini)
private tini,hrs,seg,h,m,s, tfim

tfim=ticks()
if tfim<tini
   then seg=(86400000-tini)
        seg=(seg+tfim)/1000
   else seg=(tfim-tini)/1000
endif

h=seg/3600
m=(h-int(h))*60
s=(m-int(m))*60

hrs=AlinhM(StrVal(int(h)),2)+":"+
    AlinhM(StrVal(int(m)),2)+":"+
    AlinhM(StrVal(Round(s,0)),2)
return hrs
endproc

Proc Limpa_Area()
Private i
For i From 3 to 19
  @ i,03 ?? Fill(" ",62)
EndFor
EndProc

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc SD_Dialog(Disparo,Campo,Evento,Elemento)
Temp=True
MSG_CAMPO=""
TECLA=""
If Disparo="OPEN"  Then AoCriarShowDialog() EndIf
If Disparo="EVENT" And Evento["Type"]="KEY" Then
   Switch
     Case Evento["KeyCode"] = 9: Temp=False
     Case Evento["KeyCode"] = -59: Dialog_F1()
     Case Evento["KeyCode"] =  27:
          Temp=False
          Switch
            Case Campo="TG_EMPRESA"       : Campo="NO"
            Case Campo="YES" Or Campo="NO": Campo="TG_EMPRESA"
          EndSwitch
     Case (Evento["KeyCode"] <= -104 And Evento["KeyCode"] >= -113) Or 
           Evento["KeyCode"]  = -139 Or  Evento["KeyCode"]  = -140:
           SYS_TECLA_ACIONADA=Evento["KeyCode"]
           Seta_Tecla_Acionada()
           CancelDialog
     Case Evento["KeyCode"] = 13:
          Temp=False
          If Checa_TAG()
             Then Switch
                    Case Campo="TG_EMPRESA" :
                         If Not IsBlank(VSDGEMPRESA)
                            Then Campo = "YES"
                            Else VSDGNOMEMP=""
                         EndIf
                  EndSwitch
          EndIf
          RefreshDialog
   EndSwitch
EndIf
Switch
  Case Campo="TG_EMPRESA":
       MSG_CAMPO="Informe uma Empresa"
Endswitch
Monta_Prompt(MSG_CAMPO,TECLA)
Return Temp
EndProc

;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Cadastro\\Bibliot"
LimpAguarde()

MSG="O Backup j  foi Realizado ?// //"
MSG=MSG+"Todos os dados referente a Empresa selecionada ser„o elimidados !// //"
MSG=MSG+"Este processo pode demorar alguns minutos !// //"
MSG=MSG+"Caso esteja trabalhando em rede, avise os usuarios p/ liberar o Sistema !//"
Mensagem(MSG)

If Not IsAssigned(SYS_EMPRESA_DEFAULT)
   Then SYS_EMPRESA_DEFAULT=""
        SYS_NOMEMP_DEFAULT=""
EndIf

EMPANT=SYS_EMPRESA_DEFAULT
NOMANT=SYS_NOMEMP_DEFAULT
SYS_EMPRESA_DEFAULT=""
SYS_NOMEMP_DEFAULT=""

While Checa_Supervisor()

  ShowDialog "Exclus„o de movimentos do Sistema" Proc "SD_Dialog"
  Trigger "OPEN","ARRIVE"
  Key "F1","ENTER","ESC","TAB",
      -104, -105, -106, -107, -108, -109, -110, -111, -112, -113, -139, -140  
    @ 06,18 Height 07 Width 38

    Label  @ 00,00 "Empresa"  For "TG_EMPRESA"
    Accept @ 01,01 Width 07 "A4"  Picture "[&,#][#*#]" Tag "TG_EMPRESA"    To VSDGEMPRESA
    Accept @ 01,09 Width 23 "A20" Picture "!*!" Tag "TG_NOMEMPRESA" To VSDGNOMEMP

    Pushbutton @ 03,05 width 11 "~O~k"      OK     Default Value "Ok" Tag "YES" To BottonValue
    Pushbutton @ 03,19 width 11 "~C~ancela" CANCEL                    Tag "NO"  To BottonValue

  EndDialog

  If Not RetVal Then QuitLoop EndIf

  If IsBlank(VSDGEMPRESA)
     Then Loop
  EndIf

  Limpa(1,0)
  Janelar("Exclus„o de Dados",2,2,20,74)
  AGUARDE("Aguarde, Eliminando Dados da Empresa -> "+VSDGEMPRESA)
  Sound 100 400

  temp=ticks()
  @ 03,65 ?? "+ Tempo -+"
  @ 04,65 ?? "İ00:00:00İ"
  @ 05,65 ?? "+--------+"

  MontaDiretorios()
  Limpar_Registros()
  Cadastro()

  MENSAGEM("Opera‡„o Finalizada !")
  Limpa(1,0)
EndWhile
SYS_EMPRESA_DEFAULT=EMPANT
SYS_NOMEMP_DEFAULT =NOMANT
ClearAll
Release Vars All
Release Procs All
