Aportación del código de un stored procedure para conversión literal de números

[ecfisa]

Muchas gracias por tu aporte birmain.

Saludos.

[guillotmarc]

Excelente aporte.

Gracias.

[marcoszorrilla]

Excelente aportación.

Muchas gracias.

[guillotmarc]

Que curioso.

Le he tenido que quitar los acentos a los comentarios para que me acepte crear los procedimientos almacenados.

Aparte de eso, parece funcionar perfectamente.

Gracias de nuevo por la aportación, Fernando.

[[birmain]]

Hola Marc, creo que el tema de los acentos en los comentarios se debe al juego de caracteres con que tengas definida la base de datos. A mi me dio problemas este asunto en la migración. Una vez migrado, fijando la metadata con el modificador corespondiente en GBak no me ha causado mas problemas. El conjunto de caracteres que tengo definido es ISO8859_1.

Por otra parte quiero decirte que en ocasiones he leído algunos comentarios tuyos, y veo que tienes una gran orientación didáctica, puesto que no pierdes ocasión de explicar las cosas ayudando a la gente. Te diré que una de las opiniones que más sopesé para pasar todas mis UDF a stored procedures es la tuya, que la he visto reflejada en varios post muy bien argumentada. Estoy contento de haberlo hecho, pero era muy tentador hacer una dll en pascal cuando uno no dominaba aún la esencia de los stored procedures.

Espero mantener conversaciones mas a menudo con vosotros, de los que estoy muy agradecido.

Un saludo.

[[birmain]]

Calcula la edad de una persona tal y como está convenido socialmente. (Hasta el cumpleaños no se incrementa la edad)

Código SQL [-]

SET NAMES ISO8859_1;

SET CLIENTLIB 'C:\Program Files (x86)\Firebird\Firebird_2_5\bin\fbclient.dll';

CONNECT 'cadena de conexion' USER 'SYSDBA' PASSWORD 'masterkey';





SET TERM ^ ; 



/******************************************************************************/
/***                           Stored Procedures                            ***/
/******************************************************************************/

CREATE PROCEDURE IUDF_EDAD (
    FECHANACIMIENTO DATE)
RETURNS (
    RESULTADO DECIMAL(15,4))
AS
BEGIN
  SUSPEND;
END^






SET TERM ; ^



/******************************************************************************/
/***                           Stored Procedures                            ***/
/******************************************************************************/


SET TERM ^ ;

ALTER PROCEDURE IUDF_EDAD (
    FECHANACIMIENTO DATE)
RETURNS (
    RESULTADO DECIMAL(15,4))
AS
declare variable bisiestos float;
declare variable anionacimiento integer;
declare variable anioactual integer;
declare variable dias_diferencia float;
begin
 anionacimiento = extract(year from fechanacimiento);
 anioactual = extract(year from current_date);
 bisiestos = 0;
 while (anionacimiento <= anioactual) do
 begin
          if ((mod(anionacimiento, 100)= 0) or
             (mod(anionacimiento, 400)= 0) or
             (mod(anionacimiento, 4)= 0)) then bisiestos = bisiestos + 1;
         anionacimiento = anionacimiento + 1;
 end
 dias_diferencia = datediff(day, fechanacimiento, current_date);
 resultado = (dias_diferencia - bisiestos)/365;
 resultado = floor(resultado);
 suspend;
end^



SET TERM ; ^

[[birmain]]

Pongo la corrección de un detalle, en el procedimiento IUDF_NUMLITERAL.
El problema se causa cuando hay una entrada decimal, p. ejemplo de prec 2, y esta termina en cero. Ejemplo: 14.20. La salida es: CATORCE CON DOS, en vez de CATORCE CON VEINTE.

Solución: Realizar el cambio siguiente

Código SQL [-]

poner esta -->      if (prec > 6) then prec = 2; -- Ponemos dos por defecto en caso de entrar una precisión mayor que seis
  -- Eliminar esta línea  if (prec > char_length(num_cad)) then prec = char_length(num_cad);
  -- Fin del chequeo de la precisión