Error Foreyng key en Master-Detail

[morta71]

Hola a todos,

hace un tiempo que vengo aprendiendo con Firebird, y ahora me llego el turno de las tablas maestro-detalle.

Bien el caso es que no sé como evitar el error "violation of FOREYNG KEY constraint".

Esto realizando las pruebas con la siguiente base de datos:

Código SQL [-]
 CREATE DATABASE 'C:\FDBDATA\PRUEBAS.fdb'
 USER 'SYSDBA' PASSWORD 'masterkey';
 
 CREATE GENERATOR ID_MASTER;
 SET GENERATOR ID_MASTER TO 0;
 
 CREATE TABLE LINEAS (
     ID           INTEGER NOT NULL,
     LINEA        INTEGER NOT NULL,
     DESCRIPCION  VARCHAR(20)
 );
 
 CREATE TABLE MASTER (
     ID      INTEGER NOT NULL,
     NOMBRE  VARCHAR(20)
 );
 
 ALTER TABLE LINEAS ADD CONSTRAINT PK_LINEAS PRIMARY KEY (LINEA, ID);
 ALTER TABLE MASTER ADD CONSTRAINT PK_MASTER PRIMARY KEY (ID);
 
 ALTER TABLE LINEAS ADD CONSTRAINT RELATION_200 FOREIGN KEY (ID) REFERENCES MASTER (ID);
 
 CREATE TRIGGER MASTER_BI0 FOR MASTER
 ACTIVE BEFORE INSERT POSITION 0
 AS
 begin
   NEW.ID = GEN_ID(ID_MASTER, 1);
 end;

He creado un formulario con el DBEdit para el campo NOMBRE de la tabla Master, y un DBGrid para la tabla Lineas. Las tablas tienen la propiedad CachedUpdates activada.

En algún sitio lei que daba problemas al actualizar si la propiedad DataSource de la tabla subordinada 'detalles' estaba asisgnada en el momento del post, así que en el evento click del botón grabar hay el siguiente código:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
begin
  DataModule2.Lineas.DataSource := nil;

  DataModule2.Master.Post;
end;

El código del DataModule son los siguiente:

Código Delphi [-]
 unit Unit2;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   IBDatabase, Db, IBCustomDataSet;
 
 type
   TDataModule2 = class(TDataModule)
     IBDatabase: TIBDatabase;
     IBTransaction: TIBTransaction;
     Master: TIBDataSet;
     Lineas: TIBDataSet;
     dsMaster: TDataSource;
     dsLineas: TDataSource;
     procedure DataModuleCreate(Sender: TObject);
     procedure MasterAfterCancel(DataSet: TDataSet);
     procedure MasterAfterDelete(DataSet: TDataSet);
     procedure MasterAfterPost(DataSet: TDataSet);
     procedure LineasBeforeEdit(DataSet: TDataSet);
     procedure DataModuleDestroy(Sender: TObject);
     procedure LineasNewRecord(DataSet: TDataSet);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   DataModule2: TDataModule2;
 
 implementation
 
 {$R *.DFM}
 
 procedure TDataModule2.DataModuleCreate(Sender: TObject);
 begin
   IBDatabase.Open;
   Master.Open;
   Lineas.Open;
 end;
 
 procedure TDataModule2.MasterAfterCancel(DataSet: TDataSet);
 begin
   Master.CancelUpdates;
   Lineas.CancelUpdates;
 end;
 
 procedure TDataModule2.MasterAfterDelete(DataSet: TDataSet);
 begin
   IBDatabase.ApplyUpdates([Lineas, Master]);
   IBTransaction.CommitRetaining;
 end;
 
 procedure TDataModule2.MasterAfterPost(DataSet: TDataSet);
 begin
   Lineas.Post;
 
   IBDatabase.ApplyUpdates([Master, Lineas]);
   IBTransaction.CommitRetaining;
 
   Lineas.DataSource := dsMaster;
 end;
 
 procedure TDataModule2.LineasBeforeEdit(DataSet: TDataSet);
 begin
   Master.Edit;
 end;
 
 procedure TDataModule2.DataModuleDestroy(Sender: TObject);
 begin
   IBTransaction.Rollback;
   IBDatabase.Close;
 end;
 
 procedure TDataModule2.LineasNewRecord(DataSet: TDataSet);
 begin
   Lineas.FieldByName('ID').AsInteger := Master.FieldByName('ID').AsInteger;
 end;
 
 end.

¿Puede alguien orientarme dónde estoy fallando, o que puedo hacer para solucionar el error "violation of FOREYNG KEY constraint"?

Saludos

[[egostar]]

Una pregunta, en el archivo MASTER ¿ya tienes datos?

Por lo poco que he visto si no exiten datos en MASTER te puede enviar un error porque no encuentra la referencia al momento de grabar datos en LINEAS.

Salud OS.

[morta71]

MASTER viene a ser por ejemplo la tabla FACTURAS, con sus respectivas líneas.

Con Paradox, puedo generar en el mismo formulario tanto la cabecera de MASTER (o Facturas si preferis), e ir añadiendo registros en LINEAS, todo ello con CachedUpdated activado. Al hacer un Post con Paradox funciona sin ninguna queja ... pero con Firebird no es lo mismo.

Os adjunto los fuentes, está realizado en Delphi 5 profesional.

Gracias

[[Héctor Randolph]]

Hola morta71!

Si estás utilizando una transacción con Interbase, supongo que no será necesario por lo pronto usar actualizaciones en Caché.

Olvidando un poco ese detalle, ¿quién te garantiza que dentro de la transacción actual, se guardan primero los cambios en la tabla maestro y después los cambios en la tabla detalle?.

Por ejemplo, si la tabla maestro estuviera dentro de su propia transacción y la tabla detalle en otra, tu podrías determinar el orden en el cuál se aplican los cambios usando primero Commit en el maestro y después en el detalle. Es probable que de la manera que lo haces actualmente primero se intentar guardar los registros del detalle y no encuentra el registro del maestro simplemente porqué aún no han sido guardados.

Saludos

[morta71]

Hola Héctor, lo que me comentas tiene sentido, pero yo lo que quiero es que se grabe todo en una misma transacción. Es decir, que si falla al grabar en LINEAS no se actualice MASTER.

Sinembargo, lo que me comentas puedo probrarlo. Sería algo así como realizar una transacción dentro de otra, es decir Transaccion1 que englobaría a MASTER y LINEAS, y Tansaccion2 que se refiere sólo a la tabla MASTER.

De ésta manera realizo primero un Commit en Transaccion2 y después el Commit en Transaccion1. Si en Transaccion1 hay algun fallo, supongo que en el Rollback deshace también Transaccion1???????

Lo probaré a ver que sucede.

Gracias

[[gluglu]]

Yo no veo el sentido de utilizar dos transacciones diferentes. Como bien dice morta71, si no se graban LINEAS, para qué actualizar MASTER.

A mi me funciona sin problema, al menos en INTERBASE. Lo que si hay asegurarse en cualquier caso es que hagas un POST de MASTER antes de insertar una nueva línea en LINEAS.

Lo que comentas acerca de desasignar el DataSource antes del Post, yo no lo hago nunca, y no tengo problemas.