;** RM_0079B *******************************************************************
;*  Relacao de Vendas a Vista e a Prazo                                        *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 11/07/1997 por Ricardo Augusto Silva
;Ultima Alteracao: 06/09/2004 por Jos‚ Luˇs Ameno da Silva
;Motivo Alteracao: PrivDir
;Ultima Alteracao: 12/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 10/02/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes TG_DESTIN, TG_TPMOVDESTIN                  
;Ultima Alteracao: 14/02/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes agrupado RM_0079, substituto RM_0072          
;Ultima Alteracao: 21/02/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes TG_REPRESEN          

;*******************************************************************************
;* Rotina para Selecionar Registros                                            *
;*******************************************************************************
Proc RM_0079B_Seleciona() 
ClearAll
If IsTable("\\Sistemas\\Vendas\\"+Dir_Trab+"NotaC") And
   IsTable("\\Sistemas\\Vendas\\"+Dir_Trab+"NotaV")
   Then 
        {Ask} TypeIn "\\Sistemas\\Vendas\\"+Dir_Trab+"NotaC" Enter Check
        Moveto [Codigo da Empresa      ] Example "cemp" TypeIn ", ~VSDGEMPRESA.."
        Moveto [Numero do Documento    ] Example "ndoc"
        Moveto [Serie do Documento     ] Example "sdoc"
        Moveto [Data de Emissao        ] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"
        switch
          case ListaRegra_VSDGDESTIN_Ativo  : Moveto [Codigo da Destinacao] TypeIn ListaRegra_VSDGDESTIN
          otherwise                         : Moveto [Codigo da Destinacao] TypeIn "~VSDGDESTIN.."
        endswitch
        Moveto [Descricao da Destinacao] TypeIn "..VEND.. Or ..SAIDA.. Or ..SERV.."
        Moveto [Tipo Movimento Estoque ] TypeIn "S"
        Moveto [Situacao               ] TypeIn "not C"
        Moveto [Tipo de Pagamento      ] TypeIn "V or P"
        Moveto [Numero_Carregamento    ] TypeIn "~VSDGNCARREG.."
        Moveto [Codigo do Representante] TypeIn "~VSDGREPRESEN.."
        {Ask} TypeIn "\\Sistemas\\Vendas\\"+Dir_Trab+"NotaV" Enter Check
        Moveto [Codigo da Empresa      ] Example "cemp"
        Moveto [Numero do Documento    ] Example "ndoc"
        Moveto [Serie do Documento     ] Example "sdoc"
        Moveto [Forma de Pagamento     ] TypeIn "~VSDGTPPAGTO.."
        Do_It!
        ClearAll   
        
        {Ask} {Answer}
        Moveto [Descricao CondPagto] TypeIn "Changeto Blank"
        Do_It!
        ClearAll

        {Ask} {Answer}
        Moveto [Forma de Pagamento-1    ] Example "Fp"
        Moveto [Descricao CondPagto     ] TypeIn "Changeto _Tp"
        {Ask} {\\Sistemas\\Cadastro\\TpPagto}
        Moveto [Tipo do Pagamento       ] Example "Fp"
        Moveto [Descricao Tipo Pagamento] Example "Tp"
        Do_It!
        ClearAll
EndIf

EndProc   ;  (Seleciona)

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Proc RM_0079B_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_0079B_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="55"  : CopyReport "\\Base\\Sistemas\\Vendas\\Rm_1020" "2" Tabela "R"
          case VSDGCODMODELO="55A" : CopyReport "\\Base\\Sistemas\\Vendas\\Rm_1020" "R"  Tabela "R"
          case VSDGCODMODELO="55B" : CopyReport "\\Base\\Sistemas\\Vendas\\Rm_1020" "1"  Tabela "R"
      
        endSwitch
        IMPRIREL(Tabela,"R")  
EndIf
Delete Tabela

EndProc

;-- Chamada principal ----------------------------------------------------------
RM_0079B_Principal()

Release Vars Tabela
Release Procs RM_0079B_Principal, RM_0079B_Seleciona
