;** Rm_2000  *******************************************************************
;* Inclusao de Titulos a Receber por Usuario                                   *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 29/01/2005 por Anivel Augusto Rodrigues
;Ultima Alteracao: 06/09/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 06/09/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 04/11/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes modelo impressÆo com plano de contas/centro de custo
;Ultima Alteracao: 05/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes TG_NCONTROLE                   
;Ultima Alteracao: 26/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 24/03/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog modelo relatorio
;Ultima Alteracao: 31/12/2020 por Bruno Carvalho
;Motivo Alteracao: Ajustes p/ chamar filtro padrao *RM_2000  

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

If IsTable("\\Sistemas\\Ctarec\\"+Dir_Trab+"Duplic")
   Then {Ask} TypeIn "\\Sistemas\\Ctarec\\"+Dir_Trab+"DupliC" Enter Check
        Moveto [Codigo da Empresa      ] TypeIn "~VSDGEMPRESA.."
        Moveto [Tipo do Documento      ] TypeIn "~VSDGTPDOCTO.."
        Moveto [Codigo_Usuario         ] TypeIn "~VSDGCHAPA.."
        Moveto [Numero_Controle_Dia    ] TypeIn "~VSDGNCONTROLE.."
        Switch
           Case VSDGOPDT="1" :
                Moveto [Data de Emissao] TypeIn ">=~VSDGDTINI ,<=~VSDGDTFIM"
           Case VSDGOPDT="2" :
                Moveto [Data de Entrada] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"       
           Case VSDGOPDT="3" :
                Moveto [Data_Inclusao  ] TypeIn ">=~VSDGDTINI ,<=~VSDGDTFIM"
        EndSwitch
        Do_It!
        ClearAll
EndIf

EndProc  ;RM_2000_SELECIONA()

;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************
AGUARDE("Aguarde, gerando o relat¢rio")
While True
  Tabela=Cria_Temp(PrivDir())
  
  AGUARDE("Aguarde, processando")
  Tabela=Cria_Temp(PrivDir())
        
  Monta_Dir_Trab(VSDGDTINI,VSDGDTFIM)
  While Novo_Dir_Trab()
    If IsTable("Answer")     Then Delete "Answer" EndIf
    RM_2000_SELECIONA()
    If Not IsTable("Answer") Then Loop EndIf
    If IsTable(Tabela)
       Then Add "Answer" Tabela
       Else Rename "Answer" Tabela
    EndIf
  EndWhile

  If IsEmpty(Tabela)
     Then MENSAGEM("N„o existem registros a processar")
          Delete Tabela
          QuitLoop
  EndIf
  Impressao_Orientacao="Paisagem"
   
  switch
    case VSDGCODMODELO="60A"  : CopyReport "\\Base\\Sistemas\\CtaRec\\Rm_1002" "4" Tabela "R"
    case VSDGCODMODELO="60B"  : CopyReport "\\Base\\Sistemas\\CtaRec\\Rm_1002" "5" Tabela "R" 
  Endswitch
  
  IMPRIREL(Tabela,"R")
  Delete Tabela
  QuitLoop
EndWhile
ClearAll

Release Vars RM_2000_SELECIONA            