[RolphyReyes]

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 /* ENTERONONULO = INTEGER NOT NULL */,
    DESCRIPCION  CADENA50 NOT NULL /* CADENA50 = VARCHAR(50) */,
    ESTADO_ID    ENTEROPEQUENO DEFAULT 1 NOT NULL /* ENTEROPEQUENO = SMALLINT DEFAULT 1 */,
    PROTEGIDO    ENTEROPEQUENO DEFAULT 1 NOT NULL /* ENTEROPEQUENO = SMALLINT DEFAULT 1 */
);

/* Trigger: TIPOS_IDENTIFICACION_BI */
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
  );
  /* Notify listeners of insert */
  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
  /* verify record exists */
  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;
  /* notify listeners of update */
  POST_EVENT 'update_spc_tipos_identificacion_upd';  
END^

 
CREATE OR ALTER PROCEDURE SPC_DEL_TIPOS_IDENTIFICACION (
    OLD_ID INTEGER)
AS
BEGIN
  /* verify record exists */
  IF (NOT EXISTS(SELECT ID FROM TIPOS_IDENTIFICACION WHERE ID = :OLD_ID)) THEN
    EXCEPTION EXC_151105068;
  DELETE FROM TIPOS_IDENTIFICACION
  WHERE ID = :OLD_ID;
  /* Notify listeners of deletion */
  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.