crea un procedimiento en tu base de datos y luego esta la puedes consultar como si fuera una tabla mas.
procedimiento en la base de datos.
icodigo parametro de entrada.
***procedimiento kardex***
begin
/* Procedure Text */
nvariable = 0.0;
for select clavemi, codigo, fechadoc, tipo, referencia, cantidad, precio, documento, mov
from cmovinv where codigo = :icodigo order by clavemi
into :sclavemi, :scodigo, :sfechadoc, :stipo, :sreferencia, :scantidad, :sprecio, :sdocumento, :smov
do
begin
if (:smov = 'E') then
nvariable = nvariable + scantidad;
else
nvariable = nvariable - scantidad;
sexist = nvariable;
suspend;
end
end
y el codigo:
with DMSIU.zroqryListados do
begin
Close;
SQL.Clear;
DMSIU.cdsClientes.Active:=false;
SQL.Add('select scodigo, sfechadoc, stipo, sreferencia, sdocumento, sprecio,smov, scantidad, sexist, sclavemi from kardex('''+sDaCodigo+''') ');
Open;
__________________
Todos llevamos nuestros demonios a cuestas..
Última edición por gmontes fecha: 15-09-2007 a las 21:09:36.
|