;** Rm_0100 ********************************************************************
;*  Emissao dos Clientes com Faturamento                                       *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 26/02/97 por Anivel Augusto Rodrigues
;Ultima Alteracao: 08/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: 21/01/2021 por Bruno Carvalho
;Motivo Alteracao: Ajustes p/ chamar filtro padrÆo *RM_0120*                   
;Ultima Alteracao: 20/04/2021 por Bruno Carvalho             
;Motivo Alteracao: Ajustes no processo do filtro "TG_STATUS" na "Bib_Show"
;Ultima Alteracao: 27/04/2021 por Bruno Carvalho             
;Motivo Alteracao: Alterado VSDGSITUACAO p/ VSDGSITUACAOCLIENTE
;Ultima Alteracao: 16/07/2021 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes VSDGSTATUS

;*******************************************************************************
;* Rotina para Selecionar Registros                                            *
;*******************************************************************************
Proc RM_0120A_Seleciona()
ClearAll

If IsTable("\\Sistemas\\Vendas\\"+Dir_Trab+"NotaC")
   Then {Ask} {\\Sistemas\\Cadastro\\Represen}
        Moveto [Codigo do Representante] Example "crep"
        If VSDGGERENCIA<>""
           Then Moveto [Codigo da Gerencia     ] TypeIn "~VSDGGERENCIA"
           Else Moveto [Codigo da Gerencia     ] TypeIn "~VSDGGERENCIA.."
        EndIf
        If (VSDGSTATUS<>"" And VSDGSTATUS<>"TODOS") Or (VSDGSITUACAOCLIENTE<>"" And VSDGSITUACAOCLIENTE<>"TODAS")
           Then {Ask} {\\Sistemas\\Cadastro\\Destinat}
                Moveto [Codigo] TypeIn "_Cod"
                Switch
                  Case VSDGSTATUS="INATIVO" : Moveto [Inativo] TypeIn "S"
                  Case VSDGSTATUS="ATIVO"   : Moveto [Inativo] TypeIn "Not S"
                EndSwitch     
                Switch
                  Case ListaRegra_VSDGSITUACAOCLIENTE_Ativo : Moveto [Situacao do Cliente] TypeIn ListaRegra_VSDGSITUACAOCLIENTE
                  Case VSDGSITUACAOCLIENTE<>"TODAS"         : Moveto [Situacao do Cliente] TypeIn "~VSDGSITUACAOCLIENTE.."
                EndSwitch
        EndIf
        {Ask} TypeIn "\\Sistemas\\Vendas\\"+Dir_Trab+"NotaC" Enter
        If VSDGMARCA<>""
           Then Moveto [Codigo da Empresa     ] TypeIn "_CodE, ~VSDGEMPRESA.."
                Moveto [Numero do Documento   ] TypeIn "_Ndoc"
                Moveto [Serie do Documento    ] TypeIn "_Sdoc"
           Else Moveto [Codigo da Empresa     ] TypeIn "~VSDGEMPRESA.."
        EndIF
        If (VSDGSTATUS<>"" And VSDGSTATUS<>"TODOS") Or (VSDGSITUACAOCLIENTE<>"" And VSDGSITUACAOCLIENTE<>"TODAS")
           Then Moveto [Codigo         ] Check typeIn "_Cod"
           Else Moveto [Codigo         ] Check
        EndIf   
        Moveto [Nome Fantasia EmitDest ] Check
        Moveto [Cidade                 ] Check
        If UPPER(VSDGCIDADE)<>"TODAS"
           Then TypeIn VSDGCIDADE 
        EndIf
        Moveto [Uf                     ] Check
        Moveto [Nome Fantasia Represent] Check
        Moveto [Valor Nota Fiscal      ] TypeIn "Calc Sum as Total Nota Fical"
        Moveto [Codigo do Representante] Check Example "crep" TypeIn ", ~VSDGREPRESEN.."   
        Moveto [Data de Emissao        ] Check TypeIn " >=~VSDGDTINI,<=~VSDGDTFIM"
        Moveto [Descricao da Destinacao] TypeIn "..VEND.. or ..SERV.. or ..SAIDA.."
        Moveto [Tipo Movimento Estoque ] TypeIn "S"
        Moveto [Situacao               ] TypeIn "Not C"
        If VSDGMARCA<>""  
           Then {Ask} TypeIn "\\Sistemas\\Vendas\\"+Dir_Trab+"NotaI" Enter
                Moveto [Codigo da Empresa  ] Example "CodE"
                Moveto [Numero do Documento] Example "Ndoc"
                Moveto [Serie do Documento ] Example "Sdoc"
                Moveto [Codigo do Item     ] Example "CodI"
                {Ask} {\\Sistemas\\Estoque\\Itens}
                Moveto [Codigo do Item     ] Example "CodI"
                Moveto [Codigo da Marca    ] TypeIn "~VSDGMARCA.."
        EndIf     
        Do_It!
        ClearAll
EndIf

EndProc ;RM_0120A_Seleciona

;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************
While True
  AGUARDE("Aguarde, gerando o relat¢rio")

  Tabela=Cria_Temp(PrivDir())
  Empty "\\Base\\Sistemas\\Vendas\\Rm_0100"
  Copy "\\Base\\Sistemas\\Vendas\\Rm_0100" Tabela

  Monta_Dir_Trab(VSDGDTINI,VSDGDTFIM)
  While Novo_Dir_Trab()
    If IsTable("Answer")     Then Delete "Answer" EndIf
    RM_0120A_Seleciona()
    Add "Answer" Tabela
  EndWhile
  
  If IsEmpty(Tabela)
     Then MENSAGEM("N„o existem registros a processar")
          Delete Tabela
          Return
  EndIf

  IMPRIREL(Tabela,"R")

  Delete Tabela
  QuitLoop
EndWhile
ClearAll

Release Vars RM_0120A_Seleciona
