Ayuda con Stored Procedure

[Sudamericano]

Consulta:

Tengo la siguientes tablas

Tabla : producto

codigo_producto
nombre_producto
Stock_fisico

Tabla : Serie_productos ( )

Codigo_producto
codigo_serie

El stock_fisico(tabla producto) debe coincidir con el numero de series (tabla serie_productos)

ejemplo si tengo 5 monitores samgung debo tener 5 series

Tengo un procedimiento almacenado de esta manera


CREATE PROCEDURE STOCK_VS_SERIE
RETURNS (
CODiGO_ PRODUCTO VARCHAR(25) CHARACTER SET NONE,
NOMBRE_PRODUCTO VARCHAR(150) CHARACTER SET NONE,
STOCk_FISICO DOUBLE PRECISION,
NRO_SERIES INTEGER,
DIFERENCIA INTEGER)
AS
DECLARE VARIABLE CNT INTEGER;
DECLARE VARIABLE CODPROD VARCHAR(50);
BEGIN
FOR SELECT
CODIGO_PRODUCTO,
NOMBRE_PRODUCTO,
STOCK_FISICO,
FROM PRODUCTO
INTO :CODIGO_PRODUCTO,
:NOMBRE_PRODUCTO,
:STOCK_FISICO,
DO
BEGIN
/* Por cada registro yo verifico cuantas series existen, deberian ser iguales */
SELECT COUNT (*) FROM SERIE_PRODUCTOS
WHERE CODIGO_PRODUCTO = :CODPROD
INTO :CNT;
NRO_SERIES = :CNT;
DIFERENCIA = STOCK_FISICO - :CNT;
CODIGO_PRODUCTO = :CODPROD;
SUSPEND;
END
END


// Este SP me devuelve todos los productos con la cantidad de Nro_series

lo que deseo es que me devuelva solo los que la variable diferencia sea distinta de cero

haber si alguien me da una mano con esto es la primera vez que escribo asi que disculpen si estoy cometiendo alguna falta grave, desde ya gracias por la ayuda

[kinobi]

Hola,

Empezado por Sudamericano

// Este SP me devuelve todos los productos con la cantidad de Nro_series

lo que deseo es que me devuelva solo los que la variable diferencia sea distinta de cero

Código SQL [-]
select * 
  from STOCK_VS_SERIE 
  where DIFERENCIA > 0

Como parece que eres nuevo por estos foros, te aconsejo la lectura de la Guía de estilo

Además, si introduces código en tus mensajes, también te aconsejo la lectura de este hilo (http://www.clubdelphi.com/foros/showthread.php?t=9991) que trata sobre el uso de las etiquetas vB para el formateo de mensajes.

Saludos y bienvenido.

[Sudamericano]

Gracias kinobi por tu respuesta, pero la verdad es algo que yo ya habia intentado y obviamente funciona, pero muy lento por eso mi pregunta era como modificar el stored procedure original para obtener los diferentes de cero

[guillotmarc]

Hola.

¿ Ya has creado un índice para el campo CODIGO_PRODUCTO en la tabla SERIE_PRODUCTOS ?

Saludos.

[Sudamericano]

Gracias por tu respuesta tan rapida, pero si he creado el indice

creo que lo ideal es modificar ese sp, y en eso necesito la ayuda de ustedes

[cahp]

para que te devuelva solo los que difieren las cantidades, pon el suspend dentro de un if:

Código SQL [-]
DIFERENCIA = STOCK_FISICO - :CNT;

IF (DIFERENCIA > 0) THEN
    SUSPEND;

Saludos.