;** Rm_0281a *******************************************************************
;*  Rela‡Æo de Notas por Fornecedor/Item para Consulta F5 no item              *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 12/04/2011 por Bruno Carvalho
;Ultima Alteracao: 29/08/2017 por por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes logica           

;*******************************************************************************
;* Rotina p/ Selecionar e Ordernar Registros                                   *
;*******************************************************************************
Proc Registro()
private JanelaNEC,JanelaNEI

{Ask} TypeIn "\\Sistemas\\Estoque\\NotaEC" Enter   JanelaNEC=GetWindow()
Moveto [Numero do Lancamento  ] CheckPlus Example "LANCTO"
Moveto [Codigo da Empresa     ] CheckPlus TypeIn "~VSDGEMPRESA.."
Moveto [Nome Fantasia Empresa ] CheckPlus
Moveto [Codigo                ] CheckPlus Typein "~VSDGDESTINAT.."
Moveto [Nome Fantasia EmitDest] CheckPlus 
Moveto [Tipo do Documento     ] CheckPlus 
Moveto [Numero do Documento   ] CheckPlus 
Moveto [CFO                   ] CheckPlus 
Moveto [Data de Entrada       ] CheckPlus TypeIn "<=~VSDGDTFIM"
Moveto [Tipo de Operacao      ] CheckPlus TypeIn "C"

{Ask} TypeIn "\\Sistemas\\Estoque\\NotaEI" Enter   JanelaNEI=GetWindow()
Moveto [Numero do Lancamento] Example "LANCTO"
Moveto [Codigo do Item      ] CheckPlus Typein Item
Moveto [Descricao do Item   ] CheckPlus
Moveto [Quantidade          ] CheckPlus
Moveto [Unidade Fiscal      ] CheckPlus
Moveto [Unidade Interna     ] CheckPlus
Moveto [Preco Unitario      ] CheckPlus
Moveto [Preco Total         ] CheckPlus
Moveto [Custo Medio Unitario] CheckPlus
Moveto [Codigo CCusto       ] CheckPlus
Do_It!   

Moveto "Answer" ClearImage 
Window Select JanelaNEC  ClearImage
Window Select JanelaNEI  ClearImage

EndProc   ; Registro()

;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************

VSDGDTINI    = BlankDate()
VSDGDTFIM    = Today()

If Not IsAssigned(NOMEMPRESA)
   Then NOMEMPRESA=""
EndIf

Registro()

Release Procs Registro

If IsEmpty("Answer") 
   Then Mensagem("N„o Existem Registros a Processar")
        Return 
EndIf     

DISPOSITIVO()
If OK=""
   Then Return
EndIf

AGUARDE("Aguarde, Gerando o Relat¢rio")

TabelaRel=Cria_Temp(PrivDir()) 
Rename "Answer" TabelaRel

CopyReport "\\Base\\Sistemas\\Estoque\\Rm_2000" "5" TabelaRel "R"

IMPRIREL(TabelaRel,"R")

Release Vars TabelaRel
