;** 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:   /  /     por 
;Motivo Alteracao: 

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

{Ask} TypeIn "\\Sistemas\\Estoque\\NotaEC" Enter
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
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 
Moveto "NotaEc" ClearImage
Moveto "NotaEI" ;IMPRIREL ir  apagar a Imagem, caso answer tenha registros

EndProc   ; Registro()

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

VSDGDTINI    = BlankDate()
VSDGDTFIM    = Today()

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

Registro()

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

DISPOSITIVO()
If OK=""
   Then Return
EndIf

AGUARDE("Aguarde, Gerando o Relat¢rio")
Tabela=Cria_Temp(PrivDir()) 

If IsTable(Tabela)
   Then Add "Answer" Tabela
   Else Rename "Answer" Tabela
EndIf

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

IMPRIREL(Tabela,"R")
