Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Migrando firebird 2.5 a 3 (https://www.clubdelphi.com/foros/showthread.php?t=96606)

Casimiro Noteví 28-05-2024 18:59:09

Eso parece según ese mensaje, que es algún error en el componente TIBStoredProc.
Yo no lo he detectado porque no lo uso, sino que para ejecutar procedures utilizo el TIBDataSet normal.

IVAND 30-05-2024 18:53:39

Exacto mamcx , el error es de los componentes , quedo muy agradecido de uds voy a intentar seguir averiguando como se soluciiona esto , por el momento creo que comprare los IBDAC , Gracias

Casimiro Noteví 30-05-2024 19:40:49

IVAND, en ese enlace están usando un TIBStoredProc ¿tú estás usando un TIBStoredProc?
Si es así, simplemente utiliza un TIBDataset y en su sql.text pon "execute procedure ......" y se acabó el problema.
Suponiendo que ese sea el problema, que todavía no lo tengo muy claro.

IVAND 06-06-2024 03:56:27

Gracias a todos , por su tiempo pero no es problema del sp , es los manejo de errores de los componentes , ya compre los ibdac empezare hacer pruebas , en estos si me sale el mensaje bien

IVAND 01-12-2024 04:33:14

Hola despues de muchas pruebas y buscar lo poco que hay en internet , pues si es problema de el manejo de errores cuando se dispara un trigger , he echo lo que indicas casimiro pero parece que realmente no es el problema en ejecutar un stored procedure , el verdadero problema es manejar el error que da en el trigger , cuando este tiene alguna validacion en mi caso es cuando no debe permitir colocar una cantidad en valor negativo

Código SQL [-]
CREATE OR ALTER trigger producto_bodega_au0 for producto_bodega
active after update position 0
AS
 declare variable nombre varchar(150);
begin
  /* Trigger text */
 if (new.cantidad<=-1) then
   Begin
     exception bloquear_saldo_bodega ;

  End

end


en firebird 2.5 funciona bien y sale el mensaje muy claro , en firebird 3 sale el mensaje generico que ya les indique ( en este caso el store procedure ejecuta un procedimiento q descuenta el saldo de los inventarios y si un producto se coloca en negativo el error debe enviar la validacion y es ahi donde falla

Como valida estos los companeros que trabajan ya con firebird 3 y los componentes IBX uso delphi 2009

Casimiro Noteví 01-12-2024 13:04:47

Cita:

Empezado por IVAND (Mensaje 560308)
Como valida estos los companeros que trabajan ya con firebird 3 y los componentes IBX uso delphi 2009

Es que no hay ninguna diferencia, es igual. Yo tengo programas con firebird 3, 4 y 5 y funciona igual, salta el mensaje de excepción que pongas.
Aunque se me está ocurriendo que a partir de cierta versión, que no recuerda cuál, los mensajes tienes que declararlos como excepción para poder llamarlos.
A ver si es eso lo que te está ocurriendo.
Código SQL [-]
 CREATE EXCEPTION ex_cantidad_invalida 'Valor inválido en el campo cantidad.';
Código SQL [-]
CREATE OR ALTER TRIGGER trg_check_cantidad
BEFORE INSERT OR UPDATE
ON tbVentas
AS
BEGIN
  IF (NEW.cantidad <  0) THEN
  BEGIN
    -- Lanza una excepción personalizada
    EXCEPTION ex_cantidad_invalida 'La cantidad debe ser mayor que cero.';
  END
END;
El texto que se define al crear la excepción sirve como un mensaje predeterminado, y el texto que se usa al lanzar la excepción dentro del trigger puede ser un mensaje más específico o detallado para esa situación particular.

IVAND 02-12-2024 03:02:33

Exactamente asi lo hago , pero sigue el error usando los componentes IBX , pense que algun companero del foro tenia algun problema similar

Casimiro Noteví 02-12-2024 09:58:45

Creo que lo único que queda por comprobar es la versión de IBX que estás usando.


La franja horaria es GMT +2. Ahora son las 23:47:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi