[gmontes]

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;