;** xaltpc *********************************************************************
;* Alteracao de Lancamentos no  Plano de Conta                                 *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 14/06/2018 por Anivel Augusto Rodrigues
;Ultima Alteracao: 12/12/2019 por Bruno Carvalho 
;Motivo Alteracao: Ajustes p/ ignorar fechamˆs e fechano, vari veis fazerfechames e fazerfechano recebendo false em todos os processos 

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Correcao_Tabelas_Estoque()
ClearAll

;****** Compras - Estoque ******************************************************

If IsTable("\\Sistemas\\Estoque\\NotaEC") And
   IsTable("\\Sistemas\\Estoque\\NotaECP")And
   IsTable("\\Sistemas\\Estoque\\NotaECV")
   Then
        NR = NRecords("\\Sistemas\\Estoque\\NotaEC")
        View   tabelaPlanoContasAntiga
        View   "\\sistemas\\ctacor\\plcontas"
        View   "\\Sistemas\\Estoque\\NotaECP"
        View   "\\Sistemas\\Estoque\\NotaECV"
        CoEdit "\\Sistemas\\Estoque\\NotaEC"
        Scan
           Barra(NR, RecNo())
           Aguarde("Aguarde, Processando Notas  "+BARRA_STRING)

           If [Data de Entrada]>VSDGDTFIM
              Then Loop
              Else If Not IsBlank(VSDGDTINI) And
                      [Data de Entrada]<VSDGDTINI
                      Then Loop
                   EndIf
           EndIf

           CopyToArray RegCab
           Moveto "\\Sistemas\\Estoque\\NotaECV"
           Moveto [Numero do Lancamento]
           Locate RegCab["Numero do Lancamento"]
           If RetVal
              then pegaplconta()
           EndIf
           
           Moveto "\\Sistemas\\Estoque\\NotaECP"
           Moveto [Numero do Lancamento]
           Locate RegCab["Numero do Lancamento"]
           If RetVal
              Then  While [Numero do Lancamento]=RegCab["Numero do Lancamento"]
                      pegaplconta()

                      Skip
                      If EOT() Then QuitLoop Endif
                    EndWhile
           EndIf

           Moveto "\\Sistemas\\Estoque\\NotaECV"
           Moveto [Numero do Lancamento]
           Locate RegCab["Numero do Lancamento"]
           If RetVal
              Then  While [Numero do Lancamento]=RegCab["Numero do Lancamento"]
                      pegaplconta()

                      Skip
                      If EOT() Then QuitLoop Endif
                    EndWhile
           EndIf

           Moveto "\\Sistemas\\Estoque\\NotaEC"
           
        EndScan
        Do_It!
        ClearAll
        LimpAguarde()

EndIf

EndProc   ; (Seleciona)

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Correcao_Tabelas_Ctapag()
ClearAll

;****** Consumo - Contas a Pagar ***********************************************
If IsTable("\\Sistemas\\Ctapag\\Titulos") And
   IsTable("\\Sistemas\\Ctapag\\Titbaixa")   And
   IsTable("\\Sistemas\\Ctapag\\Titrat")
   Then
        NR = NRecords("\\Sistemas\\Ctapag\\Titulos")
        View   tabelaPlanoContasAntiga
        View   "\\sistemas\\ctacor\\plcontas"
        View   "\\Sistemas\\Ctapag\\Titrat"
        View   "\\Sistemas\\Ctapag\\Titbaixa"
        CoEdit "\\Sistemas\\Ctapag\\Titulos"
        Scan
           Barra(NR, RecNo())
           Aguarde("Aguarde, Processando Notas  "+BARRA_STRING)

           If [Data de Emissao]>VSDGDTFIM
              Then Loop
              Else If Not IsBlank(VSDGDTINI) And
                      [Data de Emissao]<VSDGDTINI
                      Then Loop
                   EndIf
           EndIf

           CopyToArray RegCab

           pegaplconta()

           Moveto "\\Sistemas\\Ctapag\\Titrat"
           Moveto [Numero do Lancamento]
           Locate RegCab["Numero do Lancamento"]
           If RetVal
              Then  While [Numero do Lancamento]=RegCab["Numero do Lancamento"]
                      pegaplconta()

                      Skip
                      If EOT() Then QuitLoop Endif
                    EndWhile
           EndIf

           Moveto "\\Sistemas\\Ctapag\\Titbaixa"
           Moveto [Numero do Lancamento]
           Locate RegCab["Numero do Lancamento"]
           If RetVal
              Then  While [Numero do Lancamento]=RegCab["Numero do Lancamento"]
                      pegaplconta()

                      Skip
                      If EOT() Then QuitLoop Endif
                    EndWhile
           EndIf

           Moveto "\\Sistemas\\Ctapag\\Titulos"
           
        EndScan
        Do_It!
        ClearAll
        LimpAguarde()
EndIf

If IsTable("\\Sistemas\\Ctapag\\Fatc")
   Then
        NR = NRecords("\\Sistemas\\Ctapag\\Fatc")
        View   tabelaPlanoContasAntiga
        View   "\\sistemas\\ctacor\\plcontas"
        CoEdit "\\Sistemas\\Ctapag\\Fatc"
        Scan
           Barra(NR, RecNo())
           Aguarde("Aguarde, Processando Faturas "+BARRA_STRING)

           If [Data de Entrada]>VSDGDTFIM
              Then Loop
              Else If Not IsBlank(VSDGDTINI) And
                      [Data de Entrada]<VSDGDTINI
                      Then Loop
                   EndIf
           EndIf

           pegaplconta()

        EndScan
        Do_It!
        ClearAll
        LimpAguarde()
EndIf


EndProc   ; (Seleciona)

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Correcao_Tabelas_Ctarec()
private s

ClearAll

;****** Consumo - Contas a Receber *********************************************
If IsTable("\\Sistemas\\Ctarec\\Duplic") And
   IsTable("\\Sistemas\\Ctarec\\Dupbaixa")
   Then
        NR = NRecords("\\Sistemas\\Ctarec\\Duplic")
        View   tabelaPlanoContasAntiga
        View   "\\sistemas\\ctacor\\plcontas"
        View   "\\Sistemas\\Ctarec\\Dupbaixa"
        CoEdit "\\Sistemas\\Ctarec\\Duplic"
        Scan
           Barra(NR, RecNo())
           Aguarde("Aguarde, Processando Notas  "+BARRA_STRING)

           If [Data de Emissao]>VSDGDTFIM
              Then Loop
              Else If Not IsBlank(VSDGDTINI) And
                      [Data de Emissao]<VSDGDTINI
                      Then Loop
                   EndIf
           EndIf

           CopyToArray RegCab
           
           pegaplconta()
                      
           Moveto "\\Sistemas\\Ctarec\\Dupbaixa"
           Moveto [Numero do Lancamento]
           Locate RegCab["Numero do Lancamento"]
           If RetVal
              Then  While [Numero do Lancamento]=RegCab["Numero do Lancamento"]
                      pegaplconta()

                      Skip
                      If EOT() Then QuitLoop Endif
                    EndWhile
           EndIf

           Moveto "\\Sistemas\\Ctarec\\Duplic"
           
        EndScan
        Do_It!
        ClearAll
        LimpAguarde()

EndIf

;*******************************************************************************
If IsTable("\\Sistemas\\Ctarec\\Alttitc") And
   IsTable("\\Sistemas\\Ctarec\\Alttiti")
   Then
        NR = NRecords("\\Sistemas\\Ctarec\\Alttitc")
        View   tabelaPlanoContasAntiga
        View   "\\sistemas\\ctacor\\plcontas"
        View   "\\Sistemas\\Ctarec\\Alttiti"
        CoEdit "\\Sistemas\\Ctarec\\Alttitc"
        Scan
           Barra(NR, RecNo())
           Aguarde("Aguarde, Processando Altera‡Æo/Carteira  "+BARRA_STRING)

           If [Data da Operacao]>VSDGDTFIM
              Then Loop
              Else If Not IsBlank(VSDGDTINI) And
                      [Data da Operacao]<VSDGDTINI
                      Then Loop
                   EndIf
           EndIf

           CopyToArray RegCab
           
           pegaplconta()
                      
           Moveto "\\Sistemas\\Ctarec\\Alttiti"
           Moveto [Numero do Lote]
           Locate RegCab["Numero do Lote"]
           If RetVal
              Then  While [Numero do Lote]=RegCab["Numero do Lote"]

                      s=pegaplconta()
                      if not isblank(s) then [Descricao Plano_Conta]=s endif

                      Skip
                      If EOT() Then QuitLoop Endif
                    EndWhile
           EndIf

           Moveto "\\Sistemas\\Ctarec\\Alttitc"
           
        EndScan
        Do_It!
        ClearAll
        LimpAguarde()

EndIf


EndProc   ; (Seleciona)

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Correcao_Tabelas_Ctacor()
ClearAll

;****** Lan‡amentos - Caixa / Banco ********************************************
If IsTable("\\Sistemas\\Ctacor\\Movcont")
   Then
        NR = NRecords("\\Sistemas\\Ctacor\\Movcont")
        View   tabelaPlanoContasAntiga
        View   "\\sistemas\\ctacor\\plcontas"
        CoEdit "\\Sistemas\\Ctacor\\Movcont"
        Scan
           Barra(NR, RecNo())
           Aguarde("Aguarde, Processando Notas  "+BARRA_STRING)

           If [Data]>VSDGDTFIM
              Then Loop
              Else If Not IsBlank(VSDGDTINI) And
                      [Data]<VSDGDTINI
                      Then Loop
                   EndIf
           EndIf

           pegaplconta()
           
        EndScan
        Do_It!
        ClearAll
        LimpAguarde()

EndIf

EndProc   ; (Seleciona)

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Correcao_Tabelas_Cadastro()
ClearAll

NR = NRecords("\\Sistemas\\Cadastro\\Destinat")
View   tabelaPlanoContasAntiga
View   "\\sistemas\\ctacor\\plcontas"
CoEdit "\\Sistemas\\Cadastro\\Destinat"
Scan
   Barra(NR, RecNo())
   Aguarde("Aguarde, Processando Pessoas "+BARRA_STRING)

   pegaplconta()
   
EndScan
Do_It!
ClearAll
LimpAguarde()

EndProc   ; (Seleciona)


;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc pegaplconta()
private codigoplc, s


; tabelaPlanoContasAntiga, tabela com [codigo Plano_Conta] codigo antigo e [Conta Contabil] com codigo novo

         s=""
codigoplc = [Codigo Plano_Conta]

 if not isblank([Codigo Plano_Conta])
    then 
         getrecord tabelaPlanoContasAntiga codigoplc to regplcontas   ; verifica se existe
         if retval
            then if not isblank(regplcontas["Conta Contabil"])
                    then  
                         getrecord "\\sistemas\\ctacor\\plcontas" regplcontas["Conta Contabil"] to regplcontasnew  ; verifica se existe
                         if retval
                            then [Codigo Plano_Conta]=   regplcontas["Conta Contabil"       ]
                                                    s=regplcontasnew["Descricao Plano_Conta"]
                         endif
                endif
         endif
 endif           

return s
endproc

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc SD_Dialog(Disparo,Campo,Evento,Elemento)
Private executarF1, JANELA_DIALOG, winarray5

Temp=True
MSG_CAMPO=""
TECLA=""

If Disparo="OPEN"  
   Then AoCriarShowDialog()
        TiraSombraShowDialog()
EndIf
If Disparo="EVENT" And Evento["Type"]="KEY" Then
   Switch
     Case Evento["KeyCode"] = 9: Temp=False
     Case Evento["KeyCode"] =  27:
          Temp=False
          Switch
            Case Campo="TG_DTINI"       : Campo="NO"
            Case Campo="TG_DTFIM"       : Campo="TG_DTINI"
            Case Campo="YES" Or Campo="NO": Campo="TG_DTINI"
          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_DTINI"       : Campo="TG_DTFIM"
                      Case Campo="TG_DTFIM"       : Campo="YES"
                   EndSwitch
           EndIf
           RefreshDialog
   EndSwitch
EndIf
Switch
  Case Campo="":
     MSG_CAMPO=""
  Case Campo="TG_DTINI":
     MSG_CAMPO="Informe a Data Inicial"
  Case Campo="TG_DTFIM":
     MSG_CAMPO="Informe a Data Final"
Endswitch
Monta_Prompt(MSG_CAMPO,TECLA)
Return Temp
EndProc

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

COR_MENSAGEM="1"
MSG="- Antes de efetuar esta opera‡„o de altera‡„o de dados,     //"
MSG=MSG+"  recomendamos que seja feito um backup do sistema.         //"
MSG=MSG+"- Caso a altera‡„o de dados fique errada ‚ poss¡vel retornar//"
MSG=MSG+"  aos valores anteriores com a restaura‡„o do backup.       //"
MSG=MSG+"- Recomendamos tamb‚m que durante este processo ningu‚m     //"
MSG=MSG+"  esteja usando o sistema.                                  //"
Mensagem(MSG)

VSDGDTINI    =BlankDate()
VSDGDTFIM    =BlankDate()


tabelaPlanoContasAntiga="\\sistemas\\ctacor\\PCONTOLD"  ; tabela antiga

While True

  ShowDialog "Altera‡„o de lan‡amentos - Plano de Conta" Proc "SD_Dialog"
  Trigger "OPEN","ARRIVE"
  Key "F1","ENTER","ESC","TAB",
      -104, -105, -106, -107, -108, -109, -110, -111, -112, -113, -139, -140  
   @ 05,12   Height 10 Width 72

    @ 01,01 ?? "Tabela referˆncia: "+tabelaPlanoContasAntiga

    Label  @ 03,00 "Per¡odo Referente de" For "TG_DTINI"
    Accept @ 04,03 Width 13 "D"  Picture "#[#];.##;.##[##]" Tag "TG_DTINI" To VSDGDTINI
    Label  @ 04,16 "at‚" For "TG_DTFIM"
    Accept @ 04,21 Width 13 "D"  Picture "#[#];.##;.##[##]" Tag "TG_DTFIM" To VSDGDTFIM

    Pushbutton @ 06,22 width 11 "~O~k"      OK     Default Value "Ok" Tag "YES" To BottonValue
    Pushbutton @ 06,36 width 11 "~C~ancela" CANCEL                    Tag "NO"  To BottonValue

  EndDialog
  If Not RetVal Then QuitLoop EndIf

  If Not Verifica_Usuario()
     Then Loop
  EndIf

  if not istable(tabelaPlanoContasAntiga)
     then
          Mensagem("Tabela antiga de referencia nÆo existe !// //"+tabelaPlanoContasAntiga)
          loop
  endif   

  LimpaRodape(0)
  ExibeRodape(1,"")

  ;****************** CADASTRO **************************
  Diretorio="\\Sistemas\\Cadastro\\"

  Correcao_Tabelas_Cadastro()

   
  ;****************** ESTOQUE/FECHAMES ******************
  Diretorio="\\Sistemas\\Estoque\\"
  
  fazerfechames=false
  if fazerfechames
     then LimpaRodape(0)
          ExibeRodape(1,Diretorio)
        
          Diretorios_Fechames_C(Diretorio)
          Array_Diretorios[1]=""
          For i From 1 to DynArraySize(Array_Diretorios)
            If i=1  
               Then Diretorio="\\Sistemas\\Estoque"
               Else Diretorio="\\Sistemas\\Estoque\\Fechames\\"+Array_Diretorios[i]
            EndIf   
            Aguarde("Atualizando Pasta: "+Diretorio)
            {Tools} {More} {Directory} TypeIn Diretorio Enter
                    
            Correcao_Tabelas_Estoque() 
            LimpAguarde()
          EndFor    
     Else Aguarde("Atualizando Pasta: "+Diretorio)
          {Tools} {More} {Directory} TypeIn Diretorio Enter
          Correcao_Tabelas_Estoque()          
  EndIf
  LimpAguarde()

  fazerfechano=false
  if fazerfechano
     then ;****************** ESTOQUE/FECHANO ********************
          DiretorioFechAno  ="\\FechAno"
          Modulo            ="\\Estoque"
        
          LimpaRodape(0)
          ExibeRodape(1,Modulo+" "+DiretorioFechAno)
        
          Diretorios_FechAno(DiretorioFechAno)
          For i From 1 to DynArraySize(Array_Diretorios)
            LimpAguarde()
            DiretorioFA=DiretorioFechAno+"\\"+Array_Diretorios[i]+Modulo
            If DirExists(DiretorioFA)=0 Then Loop EndIf
                    
            Lista_Diretorio(DiretorioFA)
            For j From 1 to DynArraySize(Array_Lista_Diretorios)
              Diretorio=DiretorioFA+"\\"+Array_Lista_Diretorios[j]+"\\"
              Aguarde("Atualizando Pasta: "+Diretorio)
              {Tools} {More} {Directory} TypeIn Diretorio Enter
                    
             Correcao_Tabelas_Estoque()
             LimpAguarde()
            EndFor  
          EndFor    
          LimpAguarde() 
  endif

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

  ;****************** CTAPAG/FECHAMES ******************
  Diretorio="\\Sistemas\\Ctapag\\"
  
  fazerfechames=false
  if fazerfechames
     Then LimpaRodape(0)
          ExibeRodape(1,Diretorio)
        
          Diretorios_Fechames_C(Diretorio)
          Array_Diretorios[1]=""
          For i From 1 to DynArraySize(Array_Diretorios)
            If i=1  
               Then Diretorio="\\Sistemas\\Ctapag"
               Else Diretorio="\\Sistemas\\Ctapag\\Fechames\\"+Array_Diretorios[i]
            EndIf   
            Aguarde("Atualizando Pasta: "+Diretorio)
            {Tools} {More} {Directory} TypeIn Diretorio Enter
                    
            Correcao_Tabelas_Ctapag() 
            LimpAguarde()
          EndFor    
     Else Aguarde("Atualizando Pasta: "+Diretorio)
          {Tools} {More} {Directory} TypeIn Diretorio Enter
          Correcao_Tabelas_Ctapag()     
  EndIf
  LimpAguarde()
            
  fazerfechano=false   
  if fazerfechano
     then ;****************** CTAPAG/FECHANO ********************
          DiretorioFechAno  ="\\FechAno"
          Modulo            ="\\Ctapag"
        
          LimpaRodape(0)
          ExibeRodape(1,Modulo+" "+DiretorioFechAno)
        
          Diretorios_FechAno(DiretorioFechAno)
          For i From 1 to DynArraySize(Array_Diretorios)
            LimpAguarde()
            DiretorioFA=DiretorioFechAno+"\\"+Array_Diretorios[i]+Modulo
            If DirExists(DiretorioFA)=0 Then Loop EndIf
                    
            Lista_Diretorio(DiretorioFA)
            For j From 1 to DynArraySize(Array_Lista_Diretorios)
              Diretorio=DiretorioFA+"\\"+Array_Lista_Diretorios[j]+"\\"
              Aguarde("Atualizando Pasta: "+Diretorio)
              {Tools} {More} {Directory} TypeIn Diretorio Enter
                    
             Correcao_Tabelas_Ctapag() 
             LimpAguarde()
            EndFor  
          EndFor    
          LimpAguarde()
  endif

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

  ;****************** CTAREC/FECHAMES ******************
  fazerfechames=false
  if fazerfechames
     Then Diretorio="\\Sistemas\\Ctarec\\"

          LimpaRodape(0)
          ExibeRodape(1,Diretorio)
        
          Diretorios_Fechames_C(Diretorio)
          Array_Diretorios[1]=""
          For i From 1 to DynArraySize(Array_Diretorios)
            If i=1  
               Then Diretorio="\\Sistemas\\Ctarec"
               Else Diretorio="\\Sistemas\\Ctarec\\Fechames\\"+Array_Diretorios[i]
            EndIf   
            Aguarde("Atualizando Pasta: "+Diretorio)
            {Tools} {More} {Directory} TypeIn Diretorio Enter
                    
            Correcao_Tabelas_Ctarec() 
            LimpAguarde()
          EndFor
     Else {Tools} {More} {Directory} TypeIn Diretorio Enter          
          Correcao_Tabelas_Ctarec() 
          LimpAguarde()     
  EndIf
  LimpAguarde()
            
  fazerfechano=false 
  if fazerfechano
     then ;****************** CTAREC/FECHANO ********************
          DiretorioFechAno  ="\\FechAno"
          Modulo            ="\\Ctarec"
        
          LimpaRodape(0)
          ExibeRodape(1,Modulo+" "+DiretorioFechAno)
        
          Diretorios_FechAno(DiretorioFechAno)
          For i From 1 to DynArraySize(Array_Diretorios)
            LimpAguarde()
            DiretorioFA=DiretorioFechAno+"\\"+Array_Diretorios[i]+Modulo
            If DirExists(DiretorioFA)=0 Then Loop EndIf
                    
            Lista_Diretorio(DiretorioFA)
            For j From 1 to DynArraySize(Array_Lista_Diretorios)
              Diretorio=DiretorioFA+"\\"+Array_Lista_Diretorios[j]+"\\"
              Aguarde("Atualizando Pasta: "+Diretorio)
              {Tools} {More} {Directory} TypeIn Diretorio Enter
                    
             Correcao_Tabelas_Ctarec() 
             LimpAguarde()
            EndFor  
          EndFor    
          LimpAguarde()
  endif

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

  ;****************** CTACOR/FECHAMES ******************
  fazerfechames=false
  if fazerfechames
     Then Diretorio="\\Sistemas\\Ctacor\\"

          LimpaRodape(0)
          ExibeRodape(1,Diretorio)
        
          Diretorios_Fechames_C(Diretorio)
          Array_Diretorios[1]=""
          For i From 1 to DynArraySize(Array_Diretorios)
            If i=1  
               Then Diretorio="\\Sistemas\\Ctacor"
               Else Diretorio="\\Sistemas\\Ctacor\\Fechames\\"+Array_Diretorios[i]
            EndIf   
            Aguarde("Atualizando Pasta: "+Diretorio)
            {Tools} {More} {Directory} TypeIn Diretorio Enter
                    
            Correcao_Tabelas_Ctacor() 
            LimpAguarde()
          EndFor    
          LimpAguarde()
     Else Aguarde("Atualizando Pasta: "+Diretorio)
          {Tools} {More} {Directory} TypeIn Diretorio Enter
          Correcao_Tabelas_Ctacor()
  EndIf   
  LimpAguarde()
            
  fazerfechano=false 
  if fazerfechano
     then ;****************** CTACOR/FECHANO ********************
          DiretorioFechAno  ="\\FechAno"
          Modulo            ="\\Ctacor"
        
          LimpaRodape(0)
          ExibeRodape(1,Modulo+" "+DiretorioFechAno)
        
          Diretorios_FechAno(DiretorioFechAno)
          For i From 1 to DynArraySize(Array_Diretorios)
            LimpAguarde()
            DiretorioFA=DiretorioFechAno+"\\"+Array_Diretorios[i]+Modulo
            If DirExists(DiretorioFA)=0 Then Loop EndIf
                    
            Lista_Diretorio(DiretorioFA)
            For j From 1 to DynArraySize(Array_Lista_Diretorios)
              Diretorio=DiretorioFA+"\\"+Array_Lista_Diretorios[j]+"\\"
              Aguarde("Atualizando Pasta: "+Diretorio)
              {Tools} {More} {Directory} TypeIn Diretorio Enter
                    
             Correcao_Tabelas_Ctacor() 
             LimpAguarde()
            EndFor  
          EndFor    
          LimpAguarde()
  endif

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

  limparodape(0)
  Mensagem("Fim do processo!")

  setdir "\\Sistemas\\ctacor" 
  quitloop
EndWhile
ClearAll
Release Vars All
Release Procs All
