;** RM_0079S ********************************************************************
;*  Relacao de Vendas a Vista e a Prazo Simplificado                                       *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 03/11/2008 por Nikolas
;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: 17/02/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes agrupado RM_0079, substituto RM_0072S, RM_0082         

;*******************************************************************************
;* Rotina para Selecionar Registros                                            *
;*******************************************************************************
Proc RM_0079S_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 "~VSDGTPPAGTOVPO.."
        Moveto [Condicao de Pagamento  ] TypeIn "~VSDGCONDPGTO.."
        Moveto [Numero_Carregamento    ] TypeIn "~VSDGNCARREG.."
        {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
EndIf

EndProc   ;  (Seleciona)

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Proc RM_0079S_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_0079S_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("No existem registros a processar")
   else
        Switch
          case VSDGCODMODELO="1E"  : CopyReport "\\Base\\Sistemas\\Vendas\\Rm_1020" "7" Tabela "R"

          case VSDGCODMODELO="99"  : CopyReport "\\Base\\Sistemas\\Vendas\\Rm_1020" "6" Tabela "R" 

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

EndProc

;-- Chamada principal ----------------------------------------------------------
RM_0079S_Principal()

Release Vars Tabela
Release Procs RM_0079S_Principal, RM_0079S_Seleciona
