Stock Limitante

[soloriv]

Hola a todos para saber mi stock limitante tengo dos tablas Vtas:codproducto,fecha,cantidad,precio,vendedor y otra de compras con los mismos campos. Realizo la sgte consulta para saber que productos son menores a la resta de las compras y ventas de productos de cada tabla comparados con variablecantidad.
codigo delphi

Close;
sql.add('select sum(tc.cantidad) as cant, tc.codproducto, sum(tv.cantidad) as cant2 from tablaCpras tc, tablaVtas tv ');
sql.add('where tc.codproducto=tv.codproducto');
sql.add('group by tc.codproducto ');
sql.add('having (sum(tc.cantidad)-sum(tv.cantidad))<' + inttostr(variablecantidad));
execsql;
open;
Si alguien me puede dar una mano muy agradecido.
Saludos y Gracias Soloriv.