;** RM_0040C *******************************************************************
;*  Conferencia de Notas de Entradas por Emitente/Per¡odo - Vencimentos        *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 06/02/2006 por Anivel Augusto Rodrigues
;Ultima Alteracao: 14/02/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes CheckPlus
;Ultima Alteracao: 18/09/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 27/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog  
;Ultima Alteracao: 28/12/2016 por Rafael Matos
;Motivo Alteracao: Ajustes showdialog TG_DESTINAT                 
;Ultima Alteracao: 27/03/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes agrupado RM_0040, substituido RM_0009

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

If IsTable("\\Sistemas\\Estoque\\"+Dir_Trab+"NotaEC") And
   IsTable("\\Sistemas\\Estoque\\"+Dir_Trab+"NotaECP")
   Then
        {Ask} TypeIn "\\Sistemas\\Cadastro\\Destinat" Enter
        Moveto [Codigo                   ] example "cemit"
        Moveto [Codigo Atividade         ] TypeIn "~VSDGATIVIDADE.."

        {Ask} TypeIn "\\Sistemas\\Estoque\\"+Dir_Trab+"NotaEC" Enter Check
        Moveto [Numero do Lancamento] Example "LANCTO" TypeIn "!, ~VSDGNE.."
        Moveto [Codigo da Empresa   ] TypeIn "~VSDGEMPRESA.."   
        Moveto [Codigo              ] Example "cemit" TypeIn ",~VSDGDESTINAT.."
        Moveto [Tipo de Operacao    ] TypeIn "~VSDGOPERACAO.."
        Moveto [Tipo do Documento   ] TypeIn VSDGESPDOCTO
        Moveto [Numero do Documento ] TypeIn VSDGNUMDOCTO
        Switch
          Case VSDGTPDATA="1" : Moveto [Data de Entrada  ] TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
          Case VSDGTPDATA="2" : Moveto [Data de Emissao  ] TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
          Case VSDGTPDATA="3" : Moveto [Data_Inclusao    ] TypeIn ">=~VSDGDTINI, <=~VSDGDTFIM"
        EndSwitch
        Moveto [UF                  ] TypeIn "~VSDGESTADO.."

        Moveto [Tipo de Pagamento   ] TypeIn "P"

        {Ask} TypeIn "\\Sistemas\\Estoque\\"+Dir_Trab+"NotaECP" Enter Check
        Moveto [Numero do Lancamento] Example "LANCTO"
        Do_It!
        ClearAll
        
EndIf
EndProc  ;(Seleciona)

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Proc RM_0040C_Principal()

AGUARDE("Aguarde, gerando o relat¢rio")
Tabela=Cria_Temp(PrivDir())

Monta_Dir_Trab(VSDGDTINI,VSDGDTFIM)
While Novo_Dir_Trab()
  If IsTable("Answer")     Then Delete "Answer" EndIf
  RM_0040C_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")
   else
        Switch
          Case VSDGCODMODELO="47"  : CopyReport "\\Base\\Sistemas\\Estoque\\Rm_2010" "R" Tabela "R"

        EndSwitch
        IMPRIREL(Tabela,"R")  
EndIf
Delete Tabela

EndProc

;-- Chamada principal ----------------------------------------------------------
RM_0040C_Principal()

Release Vars Tabela
Release Procs RM_0040C_Principal, RM_0040C_Seleciona

