Ver Mensaje Individual
  #7  
Antiguo 15-09-2007
Avatar de gmontes
gmontes gmontes is offline
Miembro
 
Registrado: jul 2004
Ubicación: Culiacán, Sinaloa, México
Posts: 668
Reputación: 21
gmontes Va por buen camino
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.
Responder Con Cita