Problemas inserción de registros en IBDataset maestro-detalle y Foreign Key

[Luis F. Orjuela]

Señores muy buenos dias.

Algo muy raro está pasando o simplemente me ha ganado el tema.

He buscado por todo lado aparte de nuestro amado foro pero nada de nada.

Paso a detallar el problema:

Tengo una base de datos Firebird 2.5 con las siguientes tablas:

Código SQL [-]
CREATE TABLE DEPART (
  COD_DEPARTAMENTO VARCHAR(2) CHARACTER SET ISO8859_1 NOT NULL COLLATE ISO8859_1,
  NOMBRE_DEPARTAMENTO VARCHAR(50) CHARACTER SET ISO8859_1 NOT NULL COLLATE ISO8859_1);


ALTER TABLE DEPART ADD PRIMARY KEY (COD_DEPARTAMENTO);


CREATE TABLE MUNIC (
  COD_DEPARTAMENTO VARCHAR(2) CHARACTER SET ISO8859_1 NOT NULL COLLATE ISO8859_1,
  COD_MUNICIPIO VARCHAR(3) CHARACTER SET ISO8859_1 NOT NULL COLLATE ISO8859_1,
  NOMBRE_MUNICIPIO VARCHAR(30) CHARACTER SET NONE NOT NULL COLLATE NONE);


ALTER TABLE MUNIC ADD PRIMARY KEY (COD_DEPARTAMENTO,COD_MUNICIPIO);

Dentro del formulario tengo dos IBDataSet con sus instrucciones SQL y en relación maestro-detalle funcionando bien.

Lo de "funcionando bien" lo digo porque en las pruebas que he realizado al momento de ingresar registros tanto en la tabla maestra (DEPART) como en la tabla detalle (MUNIC) lo hace bien, pues al consultar la base de datos luego de la operación se refleja la información.

Pero vaya sorpresa que cuando dentro de la base de datos quise colocar una validación de integridad referencial es decir una llave foránea para la tabla MUNIC sobre el campo COD_DEPARTAMENTO:

Código SQL [-]
ALTER TABLE MUNIC ADD CONSTRAINT FK_MUNIC FOREIGN KEY (COD_DEPARTAMENTO) REFERENCES DEPART(COD_DEPARTAMENTO) ON DELETE CASCADE ON UPDATE CASCADE;

El proceso de inserción de registros sólo me graba la información en la tabla Maestra y NO graba nada en la tabla Detalle. A continuación muestro el código en el cual grabo en la base de datos:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin

    With IBD_Departamento do
     begin
       Open;
       Insert;
       FieldByName('COD_DEPARTAMENTO').Value:=cxTextEdit1.Text;
       FieldByName('NOMBRE_DEPARTAMENTO').Value:=cxTextEdit2.Text;
       Post;
       IBD_Municipios.ApplyUpdates;
       IBTransaction1.CommitRetaining;
       Close;
     end;
end;

La tabla detalle tiene activada la propiedad "CacheUpdates"

En el evento OnBeforePost de la tabla detalle tengo el siguiente código para forzar que el campo COD_DEPARTAMENTO sea el mismo de la tabla maestra:

Código Delphi [-]
procedure TForm1.IBD_MunicipiosBeforePost(DataSet: TDataSet);
begin
//  IBD_Municipios.FieldByName('COD_DEPARTAMENTO').AsString := IBD_Departamento.FieldByName('COD_DEPARTAMENTO').AsString;

      With IBD_Municipios do
       begin
        FieldByName('COD_DEPARTAMENTO').Value:=cxTextEdit1.Text;
       end;

end;

Aunque la literatura dice que utilizando la instrucción

Código Delphi [-]
CopyMasterFieldToDetail := True;

la cual está en la unidad IBUTILS.PAS que se debe agregar en el USES del formulario, debería colocar el valor de forma automática pero la verdad no funciona.

En espera de sus comentarios, un calurosos saludo desde Bogotá-Colombia

PD: Si así lo quieren puedo subir el código fuente y la base de datos para poder ser más específicos y dar con el problema.

[[gluglu]]

Suelen darse estos casos de desesperación .... a mi también me ocurrió.

Casi con toda seguridad tiene que ver con las Transacciones. Probablemente la tabla Detalle depende de una transacción y la tabla maestra de otra diferente. Comprueba al detalle este tema de las transacciones.

... y si no es por ahí, vuelve a comprobar la validez y corrección de las Sentencias SQL para Insert y Update de tu DataSet.

[[gluglu]]

Perdón .... !

Acabo de revisar de nuevo tu código.

En níngún sitio estás haciendo un Post de la tabla Detalle ! .... con lo cual el evento OnBeforePost nunca se va a ejecutar. Ejecuta tu aplicación en modo Debug paso a paso, y comprueba si realmente en algún momento el programa pasa por el evento OnBeforePost que indicas.

[Luis F. Orjuela]

Hola Gluglu, gracias por responder e interesarte en mi problema..

Bueno en cuanto a lo que tú dices en tu segundo mensaje, te cuento que no realizo el post sobre la tabla detalle porque ésta tiene activada la propiedad "CacheUpdates" y por tanto lo que debo hacer es un "ApplyUpdates" a la tabla detalle.

Nota: todo lo tengo encapsulado en una única transacción...

En espera de tus comentarios.. y gracias ante todo...

[ecfisa]

Hola Luis.

Si estás usando componentes IBX con tablas en relación maestro/deltalle y CachedUpdates activado tenés que desactivar el DataSource de la tabla detalle al aplicar los updates.

Por ejemplo:

Código Delphi [-]
procedure TuForm.btGuardarClick(Sender: TObject);
begin
  if MessageDlg('¿Confirma la operación?', mtConfirmation, [mbYes,mbNo], 0)= mrYes then
  begin
    DMDatos.tbDetalle.DataSource:= nil;       // desconectar 
    DMConect.IBDatabase.ApplyUpdates([tbMaster ,tbDetalle]); // aplicar updates
    DMDatos.tbDetalle.DataSource:= dsDetalle; // conectar
    DMConect.IBTransaction.CommitRetaining;
  end
  else
    DMConect.IBTransaction.RollbackRetaining;    
end;

Saludos.

[[Delphius]]

Empezado por ecfisa

Hola Luis.

Si estás usando componentes IBX con tablas en relación maestro/deltalle y CachedUpdates activado tenés que desactivar el DataSource de la tabla detalle al aplicar los updates.

Por ejemplo:
Código Delphi [-]procedure TuForm.btGuardarClick(Sender: TObject); begin if MessageDlg('¿Confirma la operación?', mtConfirmation, [mbYes,mbNo], 0)= mrYes then begin DMDatos.tbDetalle.DataSource:= nil; // desconectar DMConect.IBDatabase.ApplyUpdates([tbMaster ,tbDetalle]); // aplicar updates DMDatos.tbDetalle.DataSource:= dsDetalle; // conectar DMConect.IBTransaction.CommitRetaining; end else DMConect.IBTransaction.RollbackRetaining; end;


Saludos.

Recuerdo haber leído en otras ocasiones esto que comentas. Pregunta: ¿Sólo aplica lo de desconectar/conectar cuando se está utilizando la propiedad CachedUpdates en true y el método ApplyUpdates?

Saludos,