;** Rm_FlxCx *******************************************************************
;*  Fluxo de Caixa - Sele‡Æo de Dados                                          *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 21/11/2011 por Anivel Augusto Rodrigues
;Ultima Alteracao: 15/04/2013 por Karina Andrade
;Motivo Alteracao: Ajustes desprezar SALDO
;Ultima Alteracao: 04/09/2014 por Andrey Fillipe
;Motivo Alteracao: Adicionado filtro Op‡ao de data
;Ultima Alteracao: 20/04/2015 por Andrey Fillipe
;Motivo Alteracao: Adicionado opcao de escolher mais de uma empresa, quando for empresa "0000"
;Ultima Alteracao: 19/03/2016 por Kamila Gomes
;Motivo Alteracao: Adicionado desprezar saldo de conta aplic.
;Ultima Alteracao: 15/07/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes cheques de terceiros calculo saldo inicial
;Ultima Alteracao: 22/08/2016 por Bruno Carvalho
;Motivo Alteracao: Ajustes ao verificar CheckTG_OPCARTAO[] -> Adicionado IsAssigned() 
;Ultima Alteracao: 08/09/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes VSDGOPDTEMISCOMP
;Ultima Alteracao: 22/06/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes nÆo utilizar data de competencia no fluxo de caixa nÆo existe esta situa‡Æo, esta com interpreta‡Æo errada
;Ultima Alteracao: 27/06/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes filtro transferencias entre contas
;Ultima Alteracao: 28/06/2017 por Bruno/Anivel 
;Motivo Alteracao: Ajustes filtro contas a receber todos
;Ultima Alteracao: 11/07/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes CL=CartÆo Parcelado
;Ultima Alteracao: 06/09/2017 por Bruno Carvalho
;Motivo Alteracao: Comentado CheckTG_OPCARTAO[3] da proc AReceber() *RM_0030 tem apenas 2 ¡ndices 
;Ultima Alteracao: 14/09/2017 por Bruno Carvalho
;Motivo Alteracao: Adicionado vari vel de controle PARAM_SCRIPT -> RM_0030 e RM_0060 *CheckTG_OPCARTAO[3] 
;Ultima Alteracao: 05/01/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes estorno cheques de terceiros
;Ultima Alteracao: 21/03/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes desprezar conta aplicacao     
;Ultima Alteracao: 27/03/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao campos valor do desconto, valor do juros         
;Ultima Alteracao: 03/05/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao novo processo concetrador RM_0030, RM_0040, RM_0050, RM_0060             
;Ultima Alteracao: 03/09/2019 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes release procs             
;Ultima Alteracao: 06/12/2019 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes uso CheckTG_OPCTATRANSF             
;Ultima Alteracao: 07/12/2019 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes ListaRegra_TGAtivado="[TG_EMPRESATE]"
;Ultima Alteracao: 22/01/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes desprezar t¡tulos de credito

;*******************************************************************************
;* Rotina p/ Selecionar e Ordernar Registros                                   *
;*******************************************************************************
Proc Realizado()
Private wcc,wc

ClearAll

If Not IsTable("\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont")
  Then Return
EndIf

;--- Todos Caixa/Aplicacao, Conta Corrente menos cheques -----------------------
For wcc From 1 To 5
   
  {Ask} TypeIn "\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont" Enter Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
       
  Switch
    Case wcc=1: Moveto [Tipo Movimento     ] TypeIn "E"      ;Entradas
                Moveto [Tipo da Conta      ] TypeIn "Not C"  ;Caixa/Aplicacao

    Case wcc=2: Moveto [Tipo Movimento     ] TypeIn "S"      ; Saidas
                Moveto [Tipo da Conta      ] TypeIn "Not C"  ;Caixa/Aplicacao

    Case wcc=3: Moveto [Tipo Movimento     ] TypeIn "E"      ; Entradas
                Moveto [Tipo da Conta      ] TypeIn "C"      ; Conta Corrente  

    Case wcc=4: Moveto [Tipo Movimento     ] TypeIn "S"      ; Saidas
                Moveto [Tipo da Conta      ] TypeIn "C"      ; Conta Corrente
                Moveto [Tipo de Operacao   ] TypeIn "Not 05, Not 08"  ; menos cheques

    Case wcc=5: Moveto [Tipo Movimento     ] TypeIn "S"      ; Saidas
                Moveto [Tipo da Conta      ] TypeIn "C"      ; Conta Corrente
                Moveto [Tipo de Operacao   ] TypeIn "08"     ; Transferencias           
                Moveto [Tipo do Lancamento ] TypeIn "O or P" ; menos cheques

  EndSwitch
  Moveto [Data            ] TypeIn ">=~VSDGDTREF, <=~VSDGDTFIM"
  Do_It!
  ClearAll
  
  If CheckTG_OPCTATRANSF[2]
     then
          {Ask} {Answer} TypeIn "Fast Delete"
          Moveto [Tipo de Operacao       ] TypeIn "02 or 09 or 01 or 08"
          Do_It!
          ClearAll
  endif

  If CheckTG_OPFLUXOCX[5]
     Then {Ask} {Answer} TypeIn "Fast Delete"
          Moveto [Tipo da Conta] TypeIn "A"
          Do_It!
          ClearAll
  EndIf
  
  Switch
    Case TipoFluxo="Sintetico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa  ] Example "empresa"
      Moveto [Codigo da Conta    ] Example "conta"
      Moveto [Data               ] Example "data"
      Moveto [Valor              ] Example "valor"
      
      {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
      Moveto [Codigo da Empresa  ] Example "empresa"
      Moveto [Codigo da Conta    ] Example "conta"
      Moveto [Data               ] Example "data"
      Switch
        Case wcc=1 Or wcc=3: 
           Moveto [Entradas_Realizadas] Example "valor"  ;Entradas
      
        Case wcc=2 Or wcc=4 or wcc=5:
           Moveto [Saidas_Realizadas  ] Example "valor"  ;Saidas
      EndSwitch
      Do_It!
      ClearAll

    Case TipoFluxo="Analitico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] Example "data"
      Moveto [Valor                 ] Example "valor"
      Moveto [Descricao do Historico] Example "historico"
      Moveto [Nome Fantasia EmitDest] Example "NFANT"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      
      {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Previsao         ] Example "data"
      Moveto [Historico             ] Example "historico" TypeIn " + \" ; \"+" Example "NFANT"
      Switch
        Case wcc=1 Or wcc=3: 
           Moveto [Valor a Receber  ] Example "valor"  ;Entradas
      
        Case wcc=2 Or wcc=4 or wcc=5:
           Moveto [Valor a Pagar    ] Example "valor"  ;Saidas
      EndSwitch
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      Do_It!
      ClearAll

  EndSwitch

  
EndFor

;--- Cheques emitidos antes da data referente e descontados depois - Estornos---
For wcc From 1 To 2

  {Ask} TypeIn "\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont" Enter Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
  Moveto [Tipo da Conta         ] TypeIn "C"
  Moveto [Tipo Movimento        ] TypeIn "S"
  Switch
    Case wcc=1:  Moveto [Tipo de Operacao      ] TypeIn "05"

    Case wcc=2:  Moveto [Tipo de Operacao      ] TypeIn "08"
                 Moveto [Tipo do Lancamento    ] TypeIn "M or N"
  
  EndSwitch
  Moveto [Data                  ] TypeIn "<~VSDGDTREF"
  Moveto [Data Cheque Descontado] TypeIn ">=~VSDGDTREF"
  Do_It!
  ClearAll
  
  Switch
    Case TipoFluxo="Sintetico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] Example "data"
      Moveto [Valor                 ] Example "valor"
      {Ask} TypeIn Tabela Enter TypeIn "Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] Example "data"
      Moveto [Entradas_Realizadas   ] Example "valor" ;estorno
      Do_It!
      ClearAll

    Case TipoFluxo="Analitico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] Example "data"
      Moveto [Valor                 ] Example "valor"
      Moveto [Descricao do Historico] Example "historico"
      Moveto [Nome Fantasia EmitDest] Example "NFANT"
      Moveto [Numero do Cheque      ] Example "NCH"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      
      {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Previsao         ] Example "data"
      Moveto [Valor a Receber       ] Example "valor"  ;estorno 
      Moveto [Historico             ] Example "NCH" TypeIn " + \" ; \"+"
                                      Example "historico" TypeIn " + \" ; \"+" Example "NFANT"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      Do_It!
      ClearAll

  EndSwitch


EndFor

;--- Cheques emitidos antes da data referente e nÆo descontados - Estornos------
For wcc From 1 To 2

  {Ask} TypeIn "\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont" Enter Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
  Moveto [Tipo da Conta         ] TypeIn "C"
  Moveto [Tipo Movimento        ] TypeIn "S"
  Switch
    Case wcc=1:  Moveto [Tipo de Operacao      ] TypeIn "05"

    Case wcc=2:  Moveto [Tipo de Operacao      ] TypeIn "08"
                 Moveto [Tipo do Lancamento    ] TypeIn "M or N"
  
  EndSwitch
  Moveto [Data                  ] TypeIn "<~VSDGDTREF"
  Moveto [Data Cheque Descontado] TypeIn "Blank"
  Do_It!
  ClearAll
  
  Switch
    Case TipoFluxo="Sintetico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Valor                 ] Example "valor"
      {Ask} TypeIn Tabela Enter TypeIn "Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] TypeIn VSDGDTINI-1
      Moveto [Entradas_Realizadas   ] Example "valor" ;estorno
      Do_It!
      ClearAll

    Case TipoFluxo="Analitico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Valor                 ] Example "valor"
      Moveto [Descricao do Historico] Example "historico"
      Moveto [Nome Fantasia EmitDest] Example "NFANT"
      Moveto [Numero do Cheque      ] Example "NCH"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      
      {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Previsao         ] TypeIn VSDGDTINI-1
      Moveto [Valor a Receber       ] Example "valor"  ;estorno 
      Moveto [Historico             ] Example "NCH" TypeIn " + \" ; \"+"
                                      Example "historico" TypeIn " + \" ; \"+" Example "NFANT"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      Do_It!
      ClearAll

  EndSwitch

EndFor

;--- Cheques descontados no periodo --------------------------------------------
For wcc From 1 To 2

  {Ask} TypeIn "\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont" Enter Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
  Moveto [Tipo da Conta         ] TypeIn "C"
  Moveto [Tipo Movimento        ] TypeIn "S"
  Switch
    Case wcc=1:  Moveto [Tipo de Operacao      ] TypeIn "05"

    Case wcc=2:  Moveto [Tipo de Operacao      ] TypeIn "08"
                 Moveto [Tipo do Lancamento    ] TypeIn "M or N"
  
  EndSwitch
  Moveto [Data Cheque Descontado] TypeIn ">=~VSDGDTREF,<=~VSDGDTFIM"
  Do_It!
  ClearAll
  
  Switch
    Case TipoFluxo="Sintetico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Cheque Descontado] Example "data"
      Moveto [Valor                 ] Example "valor"
      {Ask} TypeIn Tabela Enter TypeIn "Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] Example "data"
      Moveto [Saidas_Realizadas     ] Example "valor"
      Do_It!
      ClearAll
      
    Case TipoFluxo="Analitico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Cheque Descontado] Example "data"
      Moveto [Valor                 ] Example "valor"
      Moveto [Descricao do Historico] Example "historico"
      Moveto [Nome Fantasia EmitDest] Example "NFANT"
      Moveto [Numero do Cheque      ] Example "NCH"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      
      {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Previsao         ] Example "data"
      Moveto [Valor a Pagar         ] Example "valor"   
      Moveto [Historico             ] Example "NCH" TypeIn " + \" ; \"+"
                                      Example "historico" TypeIn " + \" ; \"+" Example "NFANT"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      Do_It!
      ClearAll

  EndSwitch

EndFor

;--- Cheques emitidos mˆs anterior ---------------------------------------------                   
;    nÆo pre-datados e nÆo descontados no per¡odo                   
For wcc From 1 To 2

  {Ask} TypeIn "\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont" Enter Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
  Moveto [Tipo da Conta         ] TypeIn "C"
  Moveto [Tipo Movimento        ] TypeIn "S"
  Switch
    Case wcc=1:  Moveto [Tipo de Operacao      ] TypeIn "05"

    Case wcc=2:  Moveto [Tipo de Operacao      ] TypeIn "08"
                 Moveto [Tipo do Lancamento    ] TypeIn "M or N"
  
  EndSwitch
  Moveto [Data                  ] TypeIn "<~VSDGDTINI"
  Moveto [Cheque Pre-Datado     ] TypeIn "N or Blank"
  Moveto [Data Cheque Descontado] TypeIn "Blank or >~VSDGDTFIM"
  Do_It!
  ClearAll
  
  Switch
    Case TipoFluxo="Sintetico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Valor                 ] Example "valor"
      {Ask} TypeIn Tabela Enter TypeIn "Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] TypeIn VSDGDTINI ; data inicial
      Moveto [Cheques_CNA_PreDatados] Example "valor"
      Do_It!
      ClearAll
      
    Case TipoFluxo="Analitico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Valor                 ] Example "valor"
      Moveto [Descricao do Historico] Example "historico"
      Moveto [Nome Fantasia EmitDest] Example "NFANT"
      Moveto [Numero do Cheque      ] Example "NCH"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      
      {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Previsao         ] TypeIn VSDGDTINI
      Moveto [Valor a Pagar         ] Example "valor"   
      Moveto [Historico             ] TypeIn "\"* CNA \"+"
                                      Example "NCH" TypeIn " + \" ; \"+"
                                      Example "historico" TypeIn " + \" ; \"+" Example "NFANT"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      Do_It!
      ClearAll

  EndSwitch

EndFor

;--- Cheques emitidos no per¡odo -----------------------------------------------                   
;    nÆo pre-datados e nÆo descontados no per¡odo                   
For wcc From 1 To 2

  {Ask} TypeIn "\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont" Enter Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
  Moveto [Tipo da Conta         ] TypeIn "C"
  Moveto [Tipo Movimento        ] TypeIn "S"
  Switch
    Case wcc=1:  Moveto [Tipo de Operacao      ] TypeIn "05"

    Case wcc=2:  Moveto [Tipo de Operacao      ] TypeIn "08"
                 Moveto [Tipo do Lancamento    ] TypeIn "M or N"
  
  EndSwitch
  Moveto [Cheque Pre-Datado     ] TypeIn "N or Blank"
  Moveto [Data                  ] TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
  Moveto [Data Cheque Descontado] TypeIn "Blank Or >~VSDGDTFIM"
  Do_It!
  ClearAll
  
  Switch
    Case TipoFluxo="Sintetico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] Example "data"
      Moveto [Valor                 ] Example "valor"
      {Ask} TypeIn Tabela Enter TypeIn "Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] Example "data"
      Moveto [Cheques_CNA_PreDatados] Example "valor"
      Do_It!
      ClearAll
      
    Case TipoFluxo="Analitico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] Example "data"
      Moveto [Valor                 ] Example "valor"
      Moveto [Descricao do Historico] Example "historico"
      Moveto [Nome Fantasia EmitDest] Example "NFANT"
      Moveto [Numero do Cheque      ] Example "NCH"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      
      {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Previsao         ] Example "data"
      Moveto [Valor a Pagar         ] Example "valor"   
      Moveto [Historico             ] TypeIn "\"* CNA \"+"
                                      Example "NCH" TypeIn " + \" ; \"+"
                                      Example "historico" TypeIn " + \" ; \"+" Example "NFANT"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      Do_It!
      ClearAll

  EndSwitch

EndFor

;--- Cheques pre-datados mˆs anterior ------------------------------------------                   
;    nÆo descontados no per¡odo                   
For wcc From 1 To 2

  {Ask} TypeIn "\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont" Enter Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
  Moveto [Tipo da Conta         ] TypeIn "C"
  Moveto [Tipo Movimento        ] TypeIn "S"
  Switch
    Case wcc=1:  Moveto [Tipo de Operacao      ] TypeIn "05"

    Case wcc=2:  Moveto [Tipo de Operacao      ] TypeIn "08"
                 Moveto [Tipo do Lancamento    ] TypeIn "M or N"
  
  EndSwitch
  Moveto [Cheque Pre-Datado     ] TypeIn "S"
  Moveto [Data Cheque Pre-Datado] TypeIn "<~VSDGDTINI"
  Moveto [Data Cheque Descontado] TypeIn "Blank Or >~VSDGDTFIM"
  Do_It!
  ClearAll
  
  Switch
    Case TipoFluxo="Sintetico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Valor                 ] Example "valor"
      {Ask} TypeIn Tabela Enter TypeIn "Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] TypeIn VSDGDTINI
      Moveto [Cheques_CNA_PreDatados] Example "valor"
      Do_It!
      ClearAll
      
    Case TipoFluxo="Analitico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Valor                 ] Example "valor"
      Moveto [Descricao do Historico] Example "historico"
      Moveto [Nome Fantasia EmitDest] Example "NFANT"
      Moveto [Numero do Cheque      ] Example "NCH"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      
      {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Previsao         ] TypeIn VSDGDTINI
      Moveto [Valor a Pagar         ] Example "valor"   
      Moveto [Historico             ] TypeIn "\"* CNA \"+"
                                      Example "NCH" TypeIn " + \" ; \"+"
                                      Example "historico" TypeIn " + \" ; \"+" Example "NFANT"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      Do_It!
      ClearAll

  EndSwitch


EndFor

;--- Cheques pre-datados no per¡odo --------------------------------------------                   
;    nÆo descontados no per¡odo                   
For wcc From 1 To 2

  {Ask} TypeIn "\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont" Enter Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
  Moveto [Tipo da Conta         ] TypeIn "C"
  Moveto [Tipo Movimento        ] TypeIn "S"
  Switch
    Case wcc=1:  Moveto [Tipo de Operacao      ] TypeIn "05"

    Case wcc=2:  Moveto [Tipo de Operacao      ] TypeIn "08"
                 Moveto [Tipo do Lancamento    ] TypeIn "M or N"
  
  EndSwitch
  Moveto [Cheque Pre-Datado     ] TypeIn "S"
  Moveto [Data Cheque Pre-Datado] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"
  Moveto [Data Cheque Descontado] TypeIn "Blank Or >~VSDGDTFIM"
  Do_It!
  ClearAll
  
  Switch
    Case TipoFluxo="Sintetico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Cheque Pre-Datado] Example "data"
      Moveto [Valor                 ] Example "valor"
      {Ask} TypeIn Tabela Enter TypeIn "Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data                  ] Example "data"
      Moveto [Cheques_CNA_PreDatados] Example "valor"
      Do_It!
      ClearAll

    Case TipoFluxo="Analitico":

      {Ask} {Answer}
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Cheque Pre-Datado] Example "data"
      Moveto [Valor                 ] Example "valor"
      Moveto [Descricao do Historico] Example "historico"
      Moveto [Nome Fantasia EmitDest] Example "NFANT"
      Moveto [Numero do Cheque      ] Example "NCH"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      
      {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
      Moveto [Codigo da Empresa     ] Example "empresa"
      Moveto [Codigo da Conta       ] Example "conta"
      Moveto [Data Previsao         ] Example "data"
      Moveto [Valor a Pagar         ] Example "valor"   
      Moveto [Historico             ] TypeIn "\"* PRE \"+"
                                      Example "NCH" TypeIn " + \" ; \"+"
                                      Example "historico" TypeIn " + \" ; \"+" Example "NFANT"
      moveto [Valor do Desconto     ] example "_vrdescto"
      moveto [Valor do Juros        ] example "_vrjuros"
      Do_It!
      ClearAll

  EndSwitch


EndFor
ClearAll

If TipoFluxo="Analitico"
   Then Return
EndIf

;--- Cheques pre-datados -------------------------------------------------------                   
;    ap¢s per¡odo e nÆo descontados no per¡odo                   
CHP              =BlankNum()
CHP_Acima_120Dias=BlankNum()
CHP_de90_120Dias =BlankNum()
CHP_de60_90Dias  =BlankNum()
CHP_de30_60Dias  =BlankNum()
CHP_Ate_30Dias   =BlankNum()

{Ask} TypeIn "\\Sistemas\\Ctacor\\"+Dir_Trab+"MovCont" Enter Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
Moveto [Tipo da Conta         ] TypeIn "C"
Moveto [Tipo Movimento        ] TypeIn "S"
Moveto [Tipo de Operacao      ] TypeIn "05 or 08"
Moveto [Cheque Pre-Datado     ] TypeIn "S"
Moveto [Data Cheque Pre-Datado] TypeIn ">~VSDGDTFIM"
Moveto [Data Cheque Descontado] TypeIn "Blank Or >~VSDGDTFIM"
Do_It!

Scan
  If [Tipo de Operacao]="08"
     Then If [Tipo do Lancamento]<>"M" And
             [Tipo do Lancamento]<>"N"    
             Then Loop
          EndIf
  EndIf   

  If Not IsBlank([Data Cheque Pre-Datado])
     Then NDIAS=[Data Cheque Pre-Datado]-VSDGDTFIM
     Else NDIAS=0
  EndIf   
  Switch
   Case NDIAS>120              : CHP_Acima_120Dias=CHP_Acima_120Dias+[Valor]
   Case NDIAS>90 AND NDIAS<=120: CHP_de90_120Dias =CHP_de90_120Dias +[Valor]
   Case NDIAS>60 AND NDIAS<=90 : CHP_de60_90Dias  =CHP_de60_90Dias  +[Valor]
   Case NDIAS>30 AND NDIAS<=60 : CHP_de30_60Dias  =CHP_de30_60Dias  +[Valor]
   Case              NDIAS<=30 : CHP_Ate_30Dias   =CHP_Ate_30Dias   +[Valor]
  EndSwitch
EndScan
CHP=CHP_Acima_120Dias+CHP_de90_120Dias+CHP_de60_90Dias+CHP_de30_60Dias+CHP_Ate_30Dias
ClearAll

EndProc   ;

;*******************************************************************************
;* Rotina p/ Selecionar e Ordernar Registros                                   *
;*******************************************************************************
Proc AReceber()
              
If CheckTG_OPFLUXOCX[2]
   Then Return
EndIf

Aguarde("Aguarde, Processando Titulos a Receber")

;--- Titulos a receber do per¡odo ----------------------------------------------
{Ask} {\\Sistemas\\CtaRec\\Duplic} Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
Moveto [Data de Vencimento] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"
Moveto [Saldo do Documento] TypeIn ">0.01"
Moveto [Situacao          ] TypeIn "Blank"
Moveto [Tipo do Lancamento] TypeIn "Not A"
Do_It!
ClearAll

If CheckTG_OPFLUXOCX[1]
   Then {Ask} {Answer} TypeIn "Fast Delete"
        Moveto  [Tipo do Pagamento] TypeIn "CT or CD or CL"
        Do_It!
        ClearAll
EndIf
If CheckTG_OPFLUXOCX[6]
   Then {Ask} {Answer} TypeIn "Fast Delete"
        Moveto  [Tipo do Pagamento] TypeIn "TC"
        Do_It!
        ClearAll
EndIf


Switch
  Case TipoFluxo="Sintetico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa ] Example "empresa"
    Moveto [Codigo da Conta   ] Example "conta"
    Moveto [Data de Vencimento] Example "data"
    Moveto [Saldo do Documento] Example "valor"
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa] Example "empresa"
    Moveto [Codigo da Conta  ] Example "conta"
    Moveto [Data             ] Example "data"
    Moveto [Titulos_AReceber ] Example "valor"
    Do_It!
    ClearAll

  Case TipoFluxo="Analitico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Codigo da Conta       ] Example "conta"
    Moveto [Data de Vencimento    ] Example "data"
    Moveto [Saldo do Documento    ] Example "valor"
    Moveto [Tipo do Documento     ] Example "TPDOCT"
    Moveto [Numero do Documento   ] Example "NDOCT"
    Moveto [Nome Fantasia EmitDest] Example "NFANT"
    
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Codigo da Conta       ] Example "conta"
    Moveto [Data Previsao         ] Example "data"
    Moveto [Valor a Receber       ] Example "valor"
    Moveto [Historico             ] TypeIn "\"* A RECEBER \"+" Example "TPDOCT"  TypeIn "+\"/ \"+" Example "NDOCT"  TypeIn "+\" - \"+" Example  "NFANT"
    Do_It!
    ClearAll

EndSwitch

ClearAll
If TipoFluxo="Analitico"
   Then Return
EndIf

;--- Titulos a receber fora do per¡odo -----------------------------------------
RVencido              =BlankNum()    RAVencer              =BlankNum()
RVencido_Acima_120Dias=BlankNum()    RAVencer_Acima_120Dias=BlankNum()
RVencido_de90_120Dias =BlankNum()    RAVencer_de90_120Dias =BlankNum()
RVencido_de60_90Dias  =BlankNum()    RAVencer_de60_90Dias  =BlankNum()
RVencido_de30_60Dias  =BlankNum()    RAVencer_de30_60Dias  =BlankNum()
RVencido_Ate_30Dias   =BlankNum()    RAVencer_Ate_30Dias   =BlankNum()

{Ask} {\\Sistemas\\CtaRec\\Duplic} Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
Moveto [Data de Vencimento] TypeIn "<~VSDGDTINI Or >~VSDGDTFIM"
Moveto [Saldo do Documento] TypeIn ">0.01"
Moveto [Situacao          ] TypeIn "Blank"
Moveto [Tipo do Lancamento] TypeIn "Not A"
Do_It!
ClearAll

View "Answer"
Scan
  If Not IsBlank([Data de Vencimento])
     Then NDIAS=VSDGDTINI-[Data de Vencimento]
     Else NDIAS=0
  EndIf   
  Switch
   Case NDIAS>120              : RVencido_Acima_120Dias=RVencido_Acima_120Dias+[Saldo do Documento]
   Case NDIAS>90 AND NDIAS<=120: RVencido_de90_120Dias =RVencido_de90_120Dias +[Saldo do Documento]
   Case NDIAS>60 AND NDIAS<=90 : RVencido_de60_90Dias  =RVencido_de60_90Dias  +[Saldo do Documento]
   Case NDIAS>30 AND NDIAS<=60 : RVencido_de30_60Dias  =RVencido_de30_60Dias  +[Saldo do Documento]
   Case NDIAS>=0 AND NDIAS<=30 : RVencido_Ate_30Dias   =RVencido_Ate_30Dias   +[Saldo do Documento]
  EndSwitch

  If Not IsBlank([Data de Vencimento])
     Then NDIAS=[Data de Vencimento]-VSDGDTFIM
     Else NDIAS=0
  EndIf   
  Switch
   Case NDIAS>120              : RAVencer_Acima_120Dias=RAVencer_Acima_120Dias+[Saldo do Documento]
   Case NDIAS>90 AND NDIAS<=120: RAVencer_de90_120Dias =RAVencer_de90_120Dias +[Saldo do Documento]
   Case NDIAS>60 AND NDIAS<=90 : RAVencer_de60_90Dias  =RAVencer_de60_90Dias  +[Saldo do Documento]
   Case NDIAS>30 AND NDIAS<=60 : RAVencer_de30_60Dias  =RAVencer_de30_60Dias  +[Saldo do Documento]
   Case NDIAS>=0 AND NDIAS<=30 : RAVencer_Ate_30Dias   =RAVencer_Ate_30Dias   +[Saldo do Documento]
  EndSwitch
EndScan
RVencido=RVencido_Acima_120Dias+RVencido_de90_120Dias+RVencido_de60_90Dias+RVencido_de30_60Dias+RVencido_Ate_30Dias
RAVencer=RAVencer_Acima_120Dias+RAVencer_de90_120Dias+RAVencer_de60_90Dias+RAVencer_de30_60Dias+RAVencer_Ate_30Dias
ClearAll
EndProc

;*******************************************************************************
;* Rotina p/ Selecionar e Ordernar Registros                                   *
;*******************************************************************************
Proc APagar()

;--- Titulos a pagar do per¡odo ------------------------------------------------
Aguarde("Aguarde, Processando Titulos a Pagar")
{Ask} {\\Sistemas\\CtaPag\\Titulos} Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
Moveto [Data de Vencimento] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"
Moveto [Saldo do Documento] TypeIn ">0.01"
Moveto [Situacao          ] TypeIn "Blank"
Do_It!
ClearAll

If CheckTG_OPFLUXOCX[6]
   Then {Ask} {Answer} TypeIn "Fast Delete"
        Moveto  [Tipo do Pagamento] TypeIn "TC"
        Do_It!
        ClearAll
EndIf

Switch
  Case TipoFluxo="Sintetico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa ] Example "empresa"
    Moveto [Codigo da Conta   ] Example "conta"
    Moveto [Data de Vencimento] Example "data"
    Moveto [Saldo do Documento] Example "valor"
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa] Example "empresa"
    Moveto [Codigo da Conta  ] Example "conta"
    Moveto [Data             ] Example "data"
    Moveto [Titulos_APagar   ] Example "valor"
    Do_It!
    ClearAll

  Case TipoFluxo="Analitico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Codigo da Conta       ] Example "conta"
    Moveto [Data de Vencimento    ] Example "data"
    Moveto [Saldo do Documento    ] Example "valor"
    Moveto [Tipo do Documento     ] Example "TPDOCT"
    Moveto [Numero do Documento   ] Example "NDOCT"
    Moveto [Nome Fantasia EmitDest] Example "NFANT"
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Data Previsao         ] Example "data"
    Moveto [Valor a Pagar         ] Example "valor"
    Moveto [Historico             ] TypeIn "\"* A PAGAR \"+" Example "TPDOCT"  TypeIn "+\"/ \"+" Example "NDOCT"  TypeIn "+\" - \"+" Example  "NFANT"
    Do_It!
    ClearAll

EndSwitch

ClearAll
If TipoFluxo="Analitico"
   Then Return
EndIf

;--- Titulos a pagar fora do per¡odo -------------------------------------------

PVencido              =BlankNum()    PAVencer              =BlankNum()
PVencido_Acima_120Dias=BlankNum()    PAVencer_Acima_120Dias=BlankNum()
PVencido_de90_120Dias =BlankNum()    PAVencer_de90_120Dias =BlankNum()
PVencido_de60_90Dias  =BlankNum()    PAVencer_de60_90Dias  =BlankNum()
PVencido_de30_60Dias  =BlankNum()    PAVencer_de30_60Dias  =BlankNum()
PVencido_Ate_30Dias   =BlankNum()    PAVencer_Ate_30Dias   =BlankNum()

{Ask} {\\Sistemas\\CtaPag\\Titulos} Check
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
Moveto [Data de Vencimento] TypeIn "<~VSDGDTINI Or >~VSDGDTFIM"
Moveto [Saldo do Documento] TypeIn ">0.01"
Moveto [Situacao          ] TypeIn "Blank"
Do_It!
ClearAll

View "Answer"
Scan
  If Not IsBlank([Data de Vencimento])
     Then NDIAS=VSDGDTINI-[Data de Vencimento]
     Else NDIAS=0
  EndIf   
  Switch
   Case NDIAS>120              : PVencido_Acima_120Dias=PVencido_Acima_120Dias+[Saldo do Documento]
   Case NDIAS>90 AND NDIAS<=120: PVencido_de90_120Dias =PVencido_de90_120Dias +[Saldo do Documento]
   Case NDIAS>60 AND NDIAS<=90 : PVencido_de60_90Dias  =PVencido_de60_90Dias  +[Saldo do Documento]
   Case NDIAS>30 AND NDIAS<=60 : PVencido_de30_60Dias  =PVencido_de30_60Dias  +[Saldo do Documento]
   Case NDIAS>=0 AND NDIAS<=30 : PVencido_Ate_30Dias   =PVencido_Ate_30Dias   +[Saldo do Documento]
  EndSwitch

  If Not IsBlank([Data de Vencimento])
     Then NDIAS=[Data de Vencimento]-VSDGDTFIM
     Else NDIAS=0
  EndIf   
  Switch
   Case NDIAS>120              : PAVencer_Acima_120Dias=PAVencer_Acima_120Dias+[Saldo do Documento]
   Case NDIAS>90 AND NDIAS<=120: PAVencer_de90_120Dias =PAVencer_de90_120Dias +[Saldo do Documento]
   Case NDIAS>60 AND NDIAS<=90 : PAVencer_de60_90Dias  =PAVencer_de60_90Dias  +[Saldo do Documento]
   Case NDIAS>30 AND NDIAS<=60 : PAVencer_de30_60Dias  =PAVencer_de30_60Dias  +[Saldo do Documento]
   Case NDIAS>=0 AND NDIAS<=30 : PAVencer_Ate_30Dias   =PAVencer_Ate_30Dias   +[Saldo do Documento]
  EndSwitch
EndScan
PVencido=PVencido_Acima_120Dias+PVencido_de90_120Dias+PVencido_de60_90Dias+PVencido_de30_60Dias+PVencido_Ate_30Dias
PAVencer=PAVencer_Acima_120Dias+PAVencer_de90_120Dias+PAVencer_de60_90Dias+PAVencer_de30_60Dias+PAVencer_Ate_30Dias
ClearAll

EndProc

;*******************************************************************************
;* Rotina p/ Selecionar e Ordernar Registros                                   *
;*******************************************************************************
Proc CheqTerceiros()

If TipoFiltro="Conta" And VSDGTPCONTA<>"X"
  Then Return
EndIf

If CheckTG_OPFLUXOCX[8]
  Then Return
EndIf

Aguarde("Aguarde, Processando Cheques Terceiros")

;--- Cheques terceiros do per¡odo-----------------------------------------------
{Ask} {\\Sistemas\\CheqRec\\ChequeC}
Moveto [Numero do Lancamento  ] Example "nl"
Moveto [Codigo da Empresa     ] CheckPlus  
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
{Ask} {\\Sistemas\\CheqRec\\ChequeI}
Moveto [Numero do Lancamento  ] Example "nl"
Moveto [Data Vencimento       ] CheckPlus TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"
Moveto [Valor                 ] CheckPlus
Moveto [Situacao              ] TypeIn "Blank Or \"EM ABERTO\" Or \"PRORROGADO\""
Moveto [Numero_Cheque         ] CheckPlus
Moveto [Titular_Cheque        ] CheckPlus
Moveto [Codigo da Conta       ] CheckPlus 
switch 
  case TipoFiltro="Conta"   :
    Moveto [Codigo da Conta   ] Typein "~VSDGCONTA.."

endswitch
Do_It!
ClearAll

Switch
  Case TipoFluxo="Sintetico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa   ] Example "empresa"
    Moveto [Data Vencimento     ] Example "data"
    Moveto [Valor               ] Example "valor"
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa   ] Example "empresa"
    Moveto [Data                ] Example "data"
    Moveto [Cheques_Terceiros   ] Example "valor"
    Do_It!
    ClearAll

  Case TipoFluxo="Analitico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Data Vencimento       ] Example "data"
    Moveto [Valor                 ] Example "valor"
    Moveto [Numero_Cheque         ] Example "NDOCT"
    Moveto [Titular_Cheque        ] Example "NFANT"
    
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Data Previsao         ] Example "data"
    Moveto [Valor a Receber       ] Example "valor"
    Moveto [Historico             ] TypeIn "\"* A RECEBER CHT \"+" Example "NDOCT"  TypeIn "+\" - \"+" Example  "NFANT"
    Do_It!
    ClearAll

EndSwitch


;--- Cheques terceiros todos ---------------------------------------------------
{Ask} {\\Sistemas\\CheqRec\\ChequeC}
Moveto [Numero do Lancamento  ] Example "nl"
Moveto [Codigo da Empresa     ] CheckPlus  
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
{Ask} {\\Sistemas\\CheqRec\\ChequeI}
Moveto [Numero do Lancamento  ] Example "nl"
Moveto [Valor                 ] CheckPlus
Moveto [Situacao              ] TypeIn "Blank Or \"EM ABERTO\" Or \"PRORROGADO\""
Moveto [Numero_Cheque         ] CheckPlus
Moveto [Titular_Cheque        ] CheckPlus
Moveto [Data_Entrada          ] CheckPlus TypeIn "<~VSDGDTINI"
Moveto [Data Vencimento       ]           TypeIn "<=~VSDGDTFIM"
Moveto [Codigo da Conta       ] CheckPlus 
switch 
  case TipoFiltro="Conta"   :
    Moveto [Codigo da Conta   ] Typein "~VSDGCONTA.."

endswitch
Do_It!
ClearAll

Switch
  Case TipoFluxo="Sintetico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa   ] Example "empresa"
    Moveto [Valor               ] Example "valor"
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa   ] Example "empresa"
    Moveto [Data                ] TypeIn "~VSDGDTINI-1"
    Moveto [Saidas_Realizadas   ] Example "valor"
    Do_It!
    ClearAll

  Case TipoFluxo="Analitico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Valor                 ] Example "valor"
    Moveto [Numero_Cheque         ] Example "NDOCT"
    Moveto [Titular_Cheque        ] Example "NFANT"
    
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Data Previsao         ] TypeIn "~VSDGDTINI-1"
    Moveto [Valor a Pagar         ] Example "valor"
    Moveto [Historico             ] TypeIn "\"* A RECEBER CHT \"+" Example "NDOCT"  TypeIn "+\" - \"+" Example  "NFANT"
    Do_It!
    ClearAll

EndSwitch
ClearAll


{Ask} {\\Sistemas\\CheqRec\\ChequeC}
Moveto [Numero do Lancamento  ] Example "nl"
Moveto [Codigo da Empresa     ] CheckPlus  
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
{Ask} {\\Sistemas\\CheqRec\\ChequeI}
Moveto [Numero do Lancamento  ] Example "nl"
Moveto [Valor                 ] CheckPlus
Moveto [Situacao              ] TypeIn "Blank Or \"EM ABERTO\" Or \"PRORROGADO\""
Moveto [Numero_Cheque         ] CheckPlus
Moveto [Titular_Cheque        ] CheckPlus
Moveto [Data Vencimento       ] CheckPlus TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"
Moveto [Data_Entrada          ] CheckPlus TypeIn "~VSDGDTINI"
Moveto [Codigo da Conta       ] CheckPlus 
switch 
  case TipoFiltro="Conta"   :
    Moveto [Codigo da Conta   ] Typein "~VSDGCONTA.."

endswitch
Do_It!
ClearAll

Switch
  Case TipoFluxo="Sintetico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa   ] Example "empresa"
    Moveto [Valor               ] Example "valor"
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa   ] Example "empresa"
    Moveto [Data                ] TypeIn "~VSDGDTINI"
    Moveto [Saidas_Realizadas   ] Example "valor"
    Do_It!
    ClearAll

  Case TipoFluxo="Analitico":

    {Ask} {Answer}
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Valor                 ] Example "valor"
    Moveto [Numero_Cheque         ] Example "NDOCT"
    Moveto [Titular_Cheque        ] Example "NFANT"
    
    {Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
    Moveto [Codigo da Empresa     ] Example "empresa"
    Moveto [Data Previsao         ] TypeIn "~VSDGDTINI"
    Moveto [Valor a Pagar         ] Example "valor"
    Moveto [Historico             ] TypeIn "\"* ESTORNO CHT \"+" Example "NDOCT"  TypeIn "+\" A RECEBER - \"+" Example  "NFANT"
    Do_It!
    ClearAll

EndSwitch
ClearAll



If TipoFluxo="Analitico"
   Then Return
EndIf



;--- Cheques terceiros fora do per¡odo------------------------------------------

CHTAVencer              =BlankNum()      CHTVencido              =BlankNum()
CHTAVencer_Acima_120Dias=BlankNum()      CHTVencido_Acima_120Dias=BlankNum()
CHTAVencer_de90_120Dias =BlankNum()      CHTVencido_de90_120Dias =BlankNum()
CHTAVencer_de60_90Dias  =BlankNum()      CHTVencido_de60_90Dias  =BlankNum()
CHTAVencer_de30_60Dias  =BlankNum()      CHTVencido_de30_60Dias  =BlankNum()
CHTAVencer_Ate_30Dias   =BlankNum()      CHTVencido_Ate_30Dias   =BlankNum()

{Ask} {\\Sistemas\\CheqRec\\ChequeC}
Moveto [Numero do Lancamento] Example "nl"
Moveto [Codigo da Empresa   ] Check  
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
{Ask} {\\Sistemas\\CheqRec\\ChequeI} Check
Moveto [Numero do Lancamento  ] Example "nl"
Moveto [Data Vencimento       ] TypeIn "<~VSDGDTINI Or >~VSDGDTFIM"
Moveto [Situacao              ] TypeIn "Blank Or \"EM ABERTO\" Or \"PRORROGADO\""
Moveto [Codigo da Conta       ] CheckPlus 
Moveto [Codigo da Conta       ] CheckPlus 
switch 
  case TipoFiltro="Conta"   :
    Moveto [Codigo da Conta   ] Typein "~VSDGCONTA.."

endswitch
Do_It!
ClearAll

View "Answer"
Scan
  
  If Not IsBlank([Data Vencimento])
     Then NDIAS=VSDGDTINI-[Data Vencimento]
     Else NDIAS=0
  EndIf   
  Switch
   Case NDIAS>120              : CHTVencido_Acima_120Dias=CHTVencido_Acima_120Dias+[Valor]
   Case NDIAS>90 AND NDIAS<=120: CHTVencido_de90_120Dias =CHTVencido_de90_120Dias +[Valor]
   Case NDIAS>60 AND NDIAS<=90 : CHTVencido_de60_90Dias  =CHTVencido_de60_90Dias  +[Valor]
   Case NDIAS>30 AND NDIAS<=60 : CHTVencido_de30_60Dias  =CHTVencido_de30_60Dias  +[Valor]
   Case NDIAS>=0 AND NDIAS<=30 : CHTVencido_Ate_30Dias   =CHTVencido_Ate_30Dias   +[Valor]
  EndSwitch

  If Not IsBlank([Data Vencimento])
     Then NDIAS=[Data Vencimento]-VSDGDTFIM
     Else NDIAS=0
  EndIf   
  Switch
   Case NDIAS>120              : CHTAVencer_Acima_120Dias=CHTAVencer_Acima_120Dias+[Valor]
   Case NDIAS>90 AND NDIAS<=120: CHTAVencer_de90_120Dias =CHTAVencer_de90_120Dias +[Valor]
   Case NDIAS>60 AND NDIAS<=90 : CHTAVencer_de60_90Dias  =CHTAVencer_de60_90Dias  +[Valor]
   Case NDIAS>30 AND NDIAS<=60 : CHTAVencer_de30_60Dias  =CHTAVencer_de30_60Dias  +[Valor]
   Case NDIAS>=0 And NDIAS<=30 : CHTAVencer_Ate_30Dias   =CHTAVencer_Ate_30Dias   +[Valor]
  EndSwitch
EndScan
CHTAVencer=CHTAVencer_Acima_120Dias+CHTAVencer_de90_120Dias+CHTAVencer_de60_90Dias+CHTAVencer_de30_60Dias+CHTAVencer_Ate_30Dias
CHTVencido=CHTVencido_Acima_120Dias+CHTVencido_de90_120Dias+CHTVencido_de60_90Dias+CHTVencido_de30_60Dias+CHTVencido_Ate_30Dias
ClearAll

EndProc

;*******************************************************************************
;* ROTINA Ajusta Dados Empresa                                                 *
;*******************************************************************************
Proc Processa2()

;***** Ajusta Dados ************************************
switch
  case VSDGEMPRESA="0000"            :
    {Ask} TypeIn Tabela Enter TypeIn "Fast"
    Moveto [Codigo da Empresa      ] TypeIn "changeto 0000"
    Moveto [Nome Fantasia Empresa  ] TypeIn "changeto TOTALIZA EMPRESAS"
    Do_It!
    ClearAll

  case ListaRegra_VSDGEMPRESA_Ativo  :     
    {Ask} TypeIn Tabela Enter TypeIn "Fast"
    Moveto [Codigo da Empresa      ] TypeIn "changeto blank"
    Moveto [Nome Fantasia Empresa  ] TypeIn "changeto SELECIONADAS"
    Do_It!
    ClearAll

  otherwise                          :
    {Ask} {\\Sistemas\\Cadastro\\Empresas}
    Moveto [Codigo da Empresa     ] Example "cde"
    Moveto [Nome Fantasia Empresa ] Example "nfe"
    {Ask} TypeIn Tabela Enter TypeIn "Fast"
    Moveto [Codigo da Empresa     ] Example "cde"
    Moveto [Nome Fantasia Empresa ] TypeIn "changeto _nfe"
    Do_It!
    ClearAll

Endswitch

EndProc

;*******************************************************************************
;* Rotina p/ processar Db temporaria                                           *
;*******************************************************************************
Proc ProcessaS()

Aguarde("Aguarde, Processando Saldos")

Switch
  Case TipoFiltro="Empresa": 

    {Ask} TypeIn Tabela Enter TypeIn "Fast"
    Moveto [Codigo da Conta  ] TypeIn "Changeto Blank"
    Do_It!
    ClearAll
    
    Processa2()

  Case TipoFiltro="Conta"  : 

    {Ask} TypeIn Tabela Enter TypeIn "Fast"
    Moveto [Codigo da Empresa] TypeIn "Changeto Blank"
    Do_It!
    ClearAll
     
EndSwitch

;----- Desprezar entradas/Saidas realizadas -
If CheckTG_OPFLUXOCX[3]
   Then 
        {Ask} TypeIn Tabela Enter TypeIn "Fast"
        Moveto [Entradas_Realizadas   ] TypeIn "Changeto Blank"
        Moveto [Saidas_Realizadas     ] TypeIn "Changeto Blank"
        Do_It!
        ClearAll
EndIf         

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

{Ask} TypeIn Tabela Enter
Moveto [Codigo da Empresa     ] Check
Moveto [Codigo da Conta       ] Check
Moveto [Data                  ] Check
Moveto [Entradas_Realizadas   ] TypeIn "Calc Sum as EntradasRealizadas"
Moveto [Titulos_AReceber      ] TypeIn "Calc Sum as TitulosAReceber"
Moveto [Cheques_Terceiros     ] TypeIn "Calc Sum as ChequesTerceiros"
Moveto [Saidas_Realizadas     ] TypeIn "Calc Sum as SaidasRealizadas"
Moveto [Titulos_APagar        ] TypeIn "Calc Sum as TitulosAPagar"
Moveto [Cheques_CNA_PreDatados] TypeIn "Calc Sum as ChequesCNAPreDatados"
Do_It!
ClearAll

Empty(Tabela)

{Ask} {Answer}
Moveto [Codigo da Empresa     ] Example "empresa"
Moveto [Codigo da Conta       ] Example "conta"
Moveto [Data                  ] Example "data"
Moveto [EntradasRealizadas    ] Example "er"
Moveto [TitulosAReceber       ] Example "tar"
Moveto [ChequesTerceiros      ] Example "ct"
Moveto [SaidasRealizadas      ] Example "sr"
Moveto [TitulosAPagar         ] Example "tap"
Moveto [ChequesCNAPreDatados  ] Example "ch"
{Ask} TypeIn Tabela Enter TypeIn "Fast Insert"
Moveto [Codigo da Empresa     ] Example "empresa"
Moveto [Codigo da Conta       ] Example "conta"
Moveto [Data                  ] Example "data"
Moveto [Entradas_Realizadas   ] Example "er"
Moveto [Titulos_AReceber      ] Example "tar"
Moveto [Cheques_Terceiros     ] Example "ct"
Moveto [Total_Entradas        ] TypeIn "_er+_tar+_ct"
Moveto [Saidas_Realizadas     ] Example "sr"
Moveto [Titulos_APagar        ] Example "tap"
Moveto [Cheques_CNA_PreDatados] Example "ch"
Moveto [Total_Saidas          ] typeIn "_sr+_tap+_ch"
Do_It!
ClearAll

;***** Limite Credito *************
{Ask} {Conta}
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
Moveto [Credito           ] TypeIn "Calc Sum as Credito"

If CheckTG_OPFLUXOCX[5]
   Then Moveto [Tipo da Conta] TypeIn "Not A"
EndIf

Do_It!
If Not IsEmpty("Answer")
   Then CREDITO=[Credito]
   Else CREDITO=BlankNum()
EndIf   
ClearAll

;***** Saldo Inicial **************
{Ask} {Conta}
Moveto [Codigo da Conta  ] Example "conta"
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
If CheckTG_OPFLUXOCX[5]
   Then Moveto [Tipo da Conta] TypeIn "Not A"
EndIf
{Ask} {SaldCont}
Moveto [Codigo da Conta   ] Example "conta"
Moveto [Ano Referencia    ] TypeIn "~ANOREF"
Moveto [Mes Referencia    ] TypeIn "~MESREF"
Moveto [Saldo Inicial     ] TypeIn "Calc Sum as Saldo Inicial"
Do_It!
If Not IsEmpty("Answer")
   Then SALDOINI=[Saldo Inicial]
   Else SALDOINI=0
EndIf   
ClearAll

Coedit Tabela
Scan

  While [Data]<VSDGDTINI and not IsBlank([Data])
     SALDOINI=(SALDOINI+[Total_Entradas])-[Total_Saidas]
     Del
  EndWhile

  If IsBlank([Data])
     Then QuitLoop
  EndIf

EndScan

;----- Desprezar saldo Inicial --------------
If CheckTG_OPFLUXOCX[4]
   Then SALDOINI=0
        CREDITO =0
EndIf         
;--------------------------------------------

If CheckTG_OPFLUXOCX[7]
   Then CREDITO =0
EndIf 

Home
Ins
Switch
  Case TipoFiltro="Empresa":
    switch
      case VSDGEMPRESA="0000" : 
        [Codigo da Empresa     ]=""

      case ListaRegra_VSDGEMPRESA_Ativo  :
        [Codigo da Empresa     ]=""
            
      otherwise               : 
        [Codigo da Empresa     ]=VSDGEMPRESA2

    endswitch
  
  Case TipoFiltro="Conta"  : 
    [Codigo da Conta       ]=VSDGCONTA
    
EndSwitch
[Data                  ]=VSDGDTINI-1
[Saldo                 ]=SALDOINI
[Limite_Credito        ]=CREDITO
Do_It!
ClearAll

EndProc    ; (Processa)


;*******************************************************************************
;* Rotina p/ processar Db temporaria                                           *
;*******************************************************************************
Proc ProcessaA()

Aguarde("Aguarde, Processando Saldos")

Switch
  Case TipoFiltro="Empresa": 

    {Ask} TypeIn Tabela Enter TypeIn "Fast"
    Moveto [Codigo da Conta  ] TypeIn "Changeto Blank"
    Do_It!
    ClearAll
    
    Processa2()

  Case TipoFiltro="Conta"  : 

    {Ask} TypeIn Tabela Enter TypeIn "Fast"
    Moveto [Codigo da Empresa] TypeIn "Changeto Blank"
    Do_It!
    ClearAll
     
EndSwitch

;***** Limite Credito *************
{Ask} {Conta}
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
Moveto [Credito           ] TypeIn "Calc Sum as Credito"
If CheckTG_OPFLUXOCX[5]
   Then Moveto [Tipo da Conta] TypeIn "Not A"
EndIf
Do_It!
If Not IsEmpty("Answer")
   Then CREDITO=[Credito]
   Else CREDITO=BlankNum()
EndIf   
ClearAll

;***** Saldo Inicial **************
{Ask} {Conta}
Moveto [Codigo da Conta  ] Example "conta"
  switch 
    case TipoFiltro="Empresa" :
      switch
        case ListaRegra_VSDGEMPRESA_Ativo  : Moveto [Codigo da Empresa ] TypeIn ListaRegra_VSDGEMPRESA
        otherwise                          : Moveto [Codigo da Empresa ] TypeIn "~VSDGEMPRESA2.."
      endswitch
    
    case TipoFiltro="Conta"   :
      Moveto [Codigo da Conta ] TypeIn "~VSDGCONTA.."

  endswitch
If CheckTG_OPFLUXOCX[5]
   Then Moveto [Tipo da Conta] TypeIn "Not A"
EndIf
{Ask} {SaldCont}
Moveto [Codigo da Conta   ] Example "conta"
Moveto [Ano Referencia    ] TypeIn "~ANOREF"
Moveto [Mes Referencia    ] TypeIn "~MESREF"
Moveto [Saldo Inicial     ] TypeIn "Calc Sum as Saldo Inicial"
Do_It!
If Not IsEmpty("Answer")
   Then SALDOINI=[Saldo Inicial]
   Else SALDOINI=0
EndIf   
ClearAll

Coedit Tabela
Scan

  While [Data Previsao]<VSDGDTINI and not IsBlank([Data Previsao])
     SALDOINI=(SALDOINI+[Valor a Receber])-[Valor a Pagar]
     Del
  EndWhile

  If IsBlank([Data Previsao])
     Then QuitLoop
  EndIf

EndScan

;----- Desprezar saldo Inicial --------------
If CheckTG_OPFLUXOCX[4]
   Then SALDOINI=0
        CREDITO =0
EndIf

If CheckTG_OPFLUXOCX[7]
   Then CREDITO =0
EndIf

Home
Ins
Switch
  Case TipoFiltro="Empresa":  
    switch
      case VSDGEMPRESA="0000" : 
        [Codigo da Empresa     ]=""

      case ListaRegra_VSDGEMPRESA_Ativo  :
        [Codigo da Empresa     ]=""
            
      otherwise               : 
        [Codigo da Empresa     ]=VSDGEMPRESA2

    endswitch
    
  Case TipoFiltro="Conta"  : 
    [Codigo da Conta       ]=VSDGCONTA
    
EndSwitch
[Data Previsao         ]=VSDGDTINI-1
[Historico             ]="SALDO ANTERIOR"
[Saldo                 ]=SALDOINI

Home
Ins
Switch
  Case TipoFiltro="Empresa":  
    switch
      case VSDGEMPRESA="0000" : 
        [Codigo da Empresa     ]=""

      case ListaRegra_VSDGEMPRESA_Ativo  :
        [Codigo da Empresa     ]=""
            
      otherwise               : 
        [Codigo da Empresa     ]=VSDGEMPRESA2

    endswitch
    
  Case TipoFiltro="Conta"  : 
    [Codigo da Conta       ]=VSDGCONTA
    
EndSwitch
[Data Previsao         ]=VSDGDTINI
[Historico             ]="CREDITO BANCARIO"
[Valor a Receber       ]=CREDITO

Do_It!
ClearAll
EndProc    ; (Processa)


;*******************************************************************************
;* Rotina principal                                                            *
;*******************************************************************************
AGUARDE("Aguarde, Gerando o Relat¢rio")

Tabela=Cria_Temp(PrivDir())
Switch
  Case TipoFluxo="Sintetico": Copy "\\Base\\Sistemas\\Ctacor\\Rm_1000" Tabela
  Case TipoFluxo="Analitico": Copy "\\Base\\Sistemas\\Ctacor\\Rm_0020" Tabela
EndSwitch
Empty Tabela
  
Monta_Dir_Trab(VSDGDTINI,VSDGDTFIM)
While Novo_Dir_Trab()
  Realizado()
EndWhile

AReceber()
APagar()
CheqTerceiros()

Switch
   Case TipoFluxo="Sintetico": ProcessaS()
                               Processa2()
                               Impressao_Orientacao="Paisagem"

   Case TipoFluxo="Analitico": ProcessaA()
                               Impressao_Orientacao="Retrato"

EndSwitch
Processa2()

release procs Realizado, AReceber, APagar, CheqTerceiros, ProcessaS, Processa2, ProcessaA
