Lparameters oForm as Object
Select *, 0.0 AS Estoque From Temporario into cursor Temporario readwrite

Select Temporario
Go Top 
Scan

	sSql=""
	sSql=sSql+"SELECT movimento.empresa, movimento.produto, "+Chr(13)
	sSql=sSql+"    sum( "+Chr(13)
	sSql=sSql+"        CASE "+Chr(13)
	sSql=sSql+"            WHEN movimento.movimento = 'E'::bpchar THEN movimento.quantidade "+Chr(13)
	sSql=sSql+"            ELSE - movimento.quantidade "+Chr(13)
	sSql=sSql+"         END) AS quantidade "+Chr(13)
	sSql=sSql+"    FROM movimento "+Chr(13)
	sSql=sSql+"   WHERE movimento.estoque "+Chr(13)
	sSql=sSql+"   And movimento.produto = "+FiltroX(Temporario.CodPro)
	sSql=sSql+"   GROUP BY movimento.produto, movimento.empresa"+Chr(13)
	sSql=sSql+"   ORDER BY movimento.produto;"+Chr(13)
	ExecutaBd(sSql, "CEstoque")
	
	Replace Estoque With CEstoque.Quantidade in Temporario
EndScan
	
	
	Select ReportGroup, Venda, Referencia, Produtos, Descricao, CAST (QtVenda AS Numeric(10)) AS Qt_Venda, CAST (Estoque AS Numeric(10)) AS Qt_Estoque, Total, Custo, Markup ;
		From Temporario into Cursor Temporario readWrite