Saludos foreros.
Estoy tratando de implementar el modelo de caja negra (black box) utilizando los componentes FibPlus 6.7 (Delphi 7, Firebird 2.0.1) y esta es parte de la estructura
Esta es la tabla
Código SQL
[-]
CREATE TABLE TIPOS_IDENTIFICACION (
ID ENTERONONULO NOT NULL ,
DESCRIPCION CADENA50 NOT NULL ,
ESTADO_ID ENTEROPEQUENO DEFAULT 1 NOT NULL ,
PROTEGIDO ENTEROPEQUENO DEFAULT 1 NOT NULL
);
CREATE TRIGGER TIPOS_IDENTIFICACION_BI FOR TIPOS_IDENTIFICACION
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.ID IS NULL) THEN
NEW.ID = GEN_ID(GEN_TIPOS_IDENTIFICACION_ID,1);
END
^
Estos son los procedimientos para las diferentes operaciones.
Para traer todos los datos:
Código SQL
[-]
CREATE OR ALTER PROCEDURE SPC_ALL_TIPOS_IDENTIFICACION
RETURNS (
ID INTEGER,
DESCRIPCION VARCHAR(50),
ESTADO_ID SMALLINT,
PROTEGIDO SMALLINT)
AS
BEGIN
FOR SELECT ID, DESCRIPCION, ESTADO_ID, PROTEGIDO
FROM TIPOS_IDENTIFICACION
INTO :ID, ESCRIPCION, :ESTADO_ID, :PROTEGIDO
DO
BEGIN
SUSPEND;
END
END^
Estos son los de manipulacion:
Código SQL
[-]
CREATE OR ALTER PROCEDURE SPC_INS_TIPOS_IDENTIFICACION (
ID INTEGER,
DESCRIPCION VARCHAR(50),
ESTADO_ID SMALLINT,
PROTEGIDO SMALLINT)
AS
BEGIN
IF (DESCRIPCION IS NULL) THEN
EXCEPTION EXC_151105906;
IF (ESTADO_ID IS NULL) THEN
ESTADO_ID = 1;
IF (PROTEGIDO IS NULL) THEN
PROTEGIDO = 1;
INSERT INTO TIPOS_IDENTIFICACION(
ID,
DESCRIPCION,
ESTADO_ID,
PROTEGIDO
) VALUES (
:ID,
ESCRIPCION,
:ESTADO_ID,
:PROTEGIDO
);
POST_EVENT 'insert_spc_tipos_identificacion_ins';
END^
CREATE OR ALTER PROCEDURE SPC_UPD_TIPOS_IDENTIFICACION (
OLD_ID INTEGER,
DESCRIPCION VARCHAR(50),
ESTADO_ID SMALLINT,
PROTEGIDO SMALLINT)
AS
BEGIN
IF (NOT EXISTS(SELECT ID FROM TIPOS_IDENTIFICACION WHERE ID = :OLD_ID)) THEN
EXCEPTION EXC_151104618;
IF (DESCRIPCION IS NULL) THEN
EXCEPTION EXC_151105407;
IF (ESTADO_ID IS NULL) THEN
ESTADO_ID = 1;
IF (PROTEGIDO IS NULL) THEN
PROTEGIDO = 1;
UPDATE TIPOS_IDENTIFICACION
SET DESCRIPCION = ESCRIPCION,
ESTADO_ID = :ESTADO_ID,
PROTEGIDO = :PROTEGIDO
WHERE ID = :OLD_ID;
POST_EVENT 'update_spc_tipos_identificacion_upd';
END^
CREATE OR ALTER PROCEDURE SPC_DEL_TIPOS_IDENTIFICACION (
OLD_ID INTEGER)
AS
BEGIN
IF (NOT EXISTS(SELECT ID FROM TIPOS_IDENTIFICACION WHERE ID = :OLD_ID)) THEN
EXCEPTION EXC_151105068;
DELETE FROM TIPOS_IDENTIFICACION
WHERE ID = :OLD_ID;
POST_EVENT 'delete_spc_tipos_identificacion_del';
END^
Y por ultimo este es para el refresh
Código SQL
[-]
CREATE OR ALTER PROCEDURE SPC_GET_TIPOS_IDENTIFICACION (
OLD_ID INTEGER)
RETURNS (
ID INTEGER,
DESCRIPCION VARCHAR(50),
ESTADO_ID SMALLINT,
PROTEGIDO SMALLINT)
AS
BEGIN
FOR SELECT ID, DESCRIPCION, ESTADO_ID, PROTEGIDO
FROM TIPOS_IDENTIFICACION
WHERE (ID = :OLD_ID)
INTO :ID, ESCRIPCION, :ESTADO_ID, :PROTEGIDO
DO
BEGIN
SUSPEND;
END
END^
Estos procedimientos los he probado desde ibexpert y funcionan de maravilla. Cuando pongos los repectivos execute procedure desde un componente Dataset de IBX funciona bien, pero al momento de utilizar el mismo componente Dataset de FibPlus este no ejecuta las operaciones de Insert y Update.
Al momento de darle al boton de edicion me arroja el siguiente error:
"Error of record updating: record does not exist".
Pero el registro lo tengo a mano y veo por el sql monitor las sentencias que se ejecutan y veo la del execute procedure correspondiente al update.
Si alguien sabe cual seria la configuracion adecuada para el dataset de fibplus se lo agradeceria.
Hasta luego.