Modelo Black Box

[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.

[[Lepe]]

Precisamente lo que haces en los SP, es lo que hace el componente Datasets de FIBPlus. Estas "reinventando la rueda", aunque quizás tenga una explicación que no alcanzo a ver.

Al momento de darle al boton de edicion me arroja el siguiente error:
"Error of record updating: record does not exist".

Lo más normal es que la inserción y el update se estén haciendo en transacciones distintas, por eso una no ve a la otra. Se supone que después de hacer el insert deberías hacer un commit/Retaining.

saludos

[RolphyReyes]

Gracias Lepe por responder.

Pero cuando te refieres a que estoy "reinventando la rueda" en realidad no es así, te explico, sabes que se puede espiar que se esta enviando a X base de datos.

Entonces se pueden ver los diferentes comandos de inserccion, actualizacion y demas con los nombres de las tablas, el usuario podria manipular tus sentencias y enviarlas a la BD ocasionandote problemas; sin embargo con los SP el usuario ve solamente execute procedure con el nombre del mismo y sus parametros, claro podria mandarte algun valor pero si haces bien tus SP los daños podrian ser menores.

Volviendo ya a mi inquietud hice la prueba aqui en el trabajo, aca tengo el mismo Delphi 7, FibPlus 6.7 pero con FireBird 1.5, atacando la BD Employee en la tabla COUNTRY y funciono de maravilla tendre que ver si hay algo raro en mi ambiente de mi casa.

Si alguien sabe, por favor no dude en responder.

[RolphyReyes]

Saludos.

Ya encontre la solución a mi problema y esta en dos propiedades del DataSet que por alguna razón que desconozco actua diferente cuando utilizas Stored Procedure en las sentencias de manipulacion en vez de sentencias directas
osea poner los insert, update y delete tal cual.

Las propiedades son: poProtectedEdit y pfSetReadOnlyFields.

Según la documentacion de ellos la primera sirve para poner en modo pesimista la edicion de un registro asi cualquier otro usuario que intente modificar un registro que esta siendo modificado por otro le manda una excepcion. Pero como mencione que esta propiedad se comporta diferente con los SP de tal manera que me envia el mensaje de error que comente anteriormente.

La segunda es para poner en modo ReadOnly los campos calculados en el servidor pero vuelvod digo se comporta diferente con los SP de tal forma que pone en ReadOnly todos los campos.

Espero que si alguien se encuentra con esta situacion esto le sirva de guia.

Hasta luego.