UDF Firebird

[jhonny]

Aún no declaras la función en la base de datos

[subzero]

Creo que si la tengo declara es más ejecuto el siguiente script

Código SQL [-]
DECLARE EXTERNAL FUNCTION ECUACION
  DECIMAL(18, 4),
  DECIMAL(18, 4),
  DECIMAL(18, 4),
  DECIMAL(18, 4),
  DECIMAL(18, 4),
  DECIMAL(18, 4),
  DECIMAL(18, 4)
RETURNS DECIMAL(18, 4) BY VALUE
ENTRY_POINT 'ecuacion' MODULE_NAME 'MIS_UDFS';

Para más info anexo el codigo de la dll hecha en delphi:

Código Delphi [-]
library MIS_UDFS;

uses
  SysUtils,
  Classes;

function ecuacion(var cant, bonif, costo, desc, desc2, desc3, present : real) : Real;stdcall;
var dt1, dt2, dt3, costo_dts : real;
begin
  dt1 := 0; dt2  := 0; dt3  := 0; costo_dts  := 0;
  dt1       := Costo * (desc/100);
  costo_dts := Costo - dt1;
  dt2       := costo_dts * (desc2/100);
  costo_dts := costo_dts - dt2;
  dt3       := costo_dts * (desc3/100);
  costo_dts := costo_dts - dt3;
  costo_dts := (costo_dts * cant)/(cant + bonif);
  result := costo_dts / Present;
end;

exports ecuacion;

begin
end.

[[mightydragonlor]]

las udf deben declararse en cada maquina que las vaya a usar, no estoy seguro, pero creo que la udf va vinculada al motor y no a la base de datos.

[guillotmarc]

El mensaje de error es, como dice Jhonny, de que no está declarada. Pero está claro que si ejecutas ese script entonces debería estarlo. Así que no se me ocurre donde está el error. Si en un Servidor Firebird te funciona, en otro también debería hacerlo.

Yo te sugiero de que no te compliques la vida con UDF's (que siempre es un problema a la hora de distribuir la aplicación) y que utilices un procedimiento almacenado.

donde ahora tienes algo como :

select idventa, ..., ecuacion(cantidad, bonif, costo, ...)
from XXX

ahora puedes hacer :

select idventa, ..., (select RESULTADO from ECUACION(cantidad, bonif, costo, ...))
from XXX

Ya solo tienes que programar el procedimiento almacenado ECUACION para que haga el mismo cálculo que tu Dll.

NOTA: no te olvides poner un SUSPEND; al final del procedimiento almacenado. Ya que el resultado tiene que devolverse como un Dataset para que sea leído en la subconsulta donde se va a utilizar.

Saludos.

[jhonny]

Empezado por guillotmarc

El mensaje de error es, como dice Jhonny, de que no está declarada. Pero está claro que si ejecutas ese script entonces debería estarlo. Así que no se me ocurre donde está el error. Si en un Servidor Firebird te funciona, en otro también debería hacerlo.

En ese caso, a mi se me acurre que si dicho Script esta siendo ejecutado con IBExpert, FlameRobin o similares... quizá lo estas ejecutando pero se te haya olvidado hacer el commit... bueno, es lo que se me ocurre de momento :S.

[subzero]

Efectivamente realize pruebas con la ecuacion en un procedimiento almacenado y definitivamente menos dolores de cabeza... le agradezco a todos por su aporte, especialmente a guillotmarc, pués aprendí una utilidad diferente para con los procedimientos almacenados.

[Casimiro Noteví]

¿Desde qué versión es posible hacer eso?, no recuerdo haber hecho uso de esa particularidad.