Multiplicar un campo sumado con un parametro

[daragor]

Hola compañeros, recurro a uds. para me que ayuden con una consulta que no me esta funcionando, me da error de sintaxis -902

En una consulta quiero multiplicar un campo sumado x un parametro, ya que el mismo es variable.
Ejemplo:

Código SQL [-]
SELECT (SUM(precio)*:CI) AS total FROM ventas

CI es el parametro que toma la variable x ejemplo 50

Espero me entiendan muchas gracias!

[jhonny]

¿Esta consulta que mencionas, la estas tratando de ejecutar tal y cual?, porque si es así, seguramente lo que necesitas es vincularla a un procedimiento almacenado.

[daragor]

Estoy trabajando con lazarus, es un query en un procedimiento. Creo que no acepta multiplicacion por parametros?

[ecfisa]

Hola daragor.

Yo opino como jhonny, hasta donde conozco, Firebird no permite el uso de los parámetros de ese modo, vas a tener que hacerte un procedimiento almacenado...

Por ejemplo:

Código SQL [-]
SET TERM ^;

CREATE PROCEDURE SP_SUMTOTAL(MULT DOUBLE PRECISION)
RETURNS (RESULT DOUBLE PRECISION)
AS
BEGIN
  SELECT SUM(PRECIO) FROM VENTAS INTO RESULT;
  RESULT = RESULT * MULT;
  SUSPEND;
END^

SET TERM; ^

Desde Delphi:

Código Delphi [-]
  with IBStoredProc1 do
  begin
    Params.ParamByName('MULT').AsFloat:= 5;
    ExecProc;
    ShowMessage(ParamByName('RESULT').AsString);
  end;

Lo que te debo es como sería con el equivalente al TIBStoredProc en Lazarus ya que desconozco cuál es el componente.

Saludos

[daragor]

Gracias muchachos

[ecfisa]

De nada daragor, por si te pudiera servir de ayuda, te detallo la asignación anterior del TIBStoredProc en tiempo de ejecución.

Código Delphi [-]
  with IBStoredProc1 do
  begin
    DataBase:= IBDatabase1;
    StoredProcName:= 'SP_SUMTOTAL';
    Params.Clear;
    Params.CreateParam(ftFloat,'RESULT',ptOutput);
    Params.CreateParam(ftFloat,'MULT',ptInput);
    Params.ParamByName('MULT').AsFloat:= 5;
    ExecProc;
    ShowMessage(ParamByName('RESULT').AsString);
  end;

Saludos