Error Foreyng key en Master-Detail

[[gluglu]]

He revisado tu código que adjuntas.

En :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  DataModule2.Master.Append;
end;

lo que estás haciendo es un Append, y junto con el Generador que tienes puesto estás incremento ese generador en 1. Pero no estás realizando el POST correspondiente, que es la razón principal del error que te está dando.

Al pulsar el Button3 y ejecutar :

Código Delphi [-]
procedure TDataModule2.MasterAfterPost(DataSet: TDataSet);
begin
  Lineas.Post;

  IBDatabase.ApplyUpdates([Master, Lineas]);
  IBTransaction.CommitRetaining;

  Lineas.DataSource := dsMaster;
end;

me dá error en la primera línea ya que Lineas no está en Modo Edit y por lo tanto no se puede realizar un Post de Líneas.

O eso es al menos lo que me parece a mi.

La cuestión es que te has liado mucho en tu código cuando es más fácil de lo que te imaginas.

Haciendo algunos cambios en tu código como eliminar todo el código de MasterAfterPost a mi me funciona, aunque mi manera de programar será difente a la tuya.

Todo el error del Foreign Key viene porque te tienes que ASEGURAR que antes de que ejecutes el Post de la tabla LINEAS, tiene que estar hecho el POST de MASTER.

Espero haberte ayudado un poco.

[morta71]

Gracias por vuestras respuestas, pero en cada prueba obtengo el mismo error .

Si hago lo que me indicas, gluglu, no da error porque no hago el Post en Lineas, pero en cuanto intento actualizar Lineas ... zas el error.

Si te funciona, te importa, por favor, enviarme el ejemplo corregido (mi e-mail es [email protected])

Gracias

[[gluglu]]

Aquí tienes el código modificado como yo entiendo es más fácil y más simple.

Hay una cosa que debes de eliminar por tu cuenta, y es el Trigger en tu base de datos sobre la tabla Master.

Cada vez que se añade un registro a Master, actua tanto el incremento del generador que has definido en DataModule2 sobre la tabla Master, como el propio Trigger de la Base de Datos. Esto provoca entre otras cosas que cada vez que añades un registro a Master, el generador ID aumente su valor en 2.

Te darás cuenta que es mucho más simple que lo que tu imaginaste en un principio.

Seguramente (lo he puesto como comentario dentro del propio código) no eras consciente tampoco que cada vez que cambias de registro en un DBGrid, se ejecuta automáticamente un POST por parte de Delphi, y eso provocaba que sobre LINEAS se realizaba un POST sin pulsar el botón de grabar, y por lo tanto si no existía el correspondiente registro en MASTER con el ID correcto daba error.

Espero haberte ayudado.

Si tienes cualquier otra duda, aquí estamos para ayudarte en lo que podamos.

Mientras estoy subiendo el archivo ZIP creo recordar que no he cambiado la ruta de la base de datos. Está para la configuración de mi ordenador. Acuérdate de cambiarla correctamente en tu DataModule2 antes de compilar y ejecutar.

[morta71]

Mil gracias gluglu, funciona perfectamente. Lo mejor es lo más simple ... tengo que perder ciertos vicios.

Ciertamente al estar dentro de una transacción, el tema de CachedUpdates sobra.

Gracias

[niñotaliban]

Hola, me veo en una situación muy parecida a la de morta71 y he despejado algunas dudas con este hilo pero en el código corregido por gluglu veo esto al hacer click en añadir:


Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
DataModule2.Master.Append;
// El Generador es el que te incrementa automáticamente
// el valor de ID.
// Tienes que asegurarte que antes de insertar en LINEAS
// se haga el POST con el ID correspondiente.
DataModule2.Master.Post;
// Por ello hago el Post aquí.
end;





Pero de esta manera no estamos insertando un registro vacío (bueno con su id) y luego mediante el autoedit de los dbedit editandolo? y luego vale, añadimos lineas de detalle sin problemas porque nos aseguramos que exista el registro maestro.

Y si no puedo insertar un registro vacío (solo con su id) porque tengo campos obligados?? no puedo hacer un post justo después del append.

He optado por hacer el post del master en el onnewrecord de lineas pero si el usuario no rellena los campos obligados antes de ponerse a insertar lineas en la factura CATACRAC, y eso no puede ser.

No se... no lo veo claro.

[[gluglu]]

Evidentemente la cosa se puede complicar todo lo que uno quiera.

Una cosa es el código simple que añadí a este hilo, como corrección del que puso morta71, y otra cosa muy diferente es cualquier otro código que se quiera programar.

Lo único que hay que tener claro es que antes de hacer el Post del detalle, tiene que existir el correspondiente registro en el Maestro (que se habrá confirmado con su correspondiente Post en el Maestro).

Las operaciones y comprobaciones que puedas o tengas que hacer previamente en el maestro, es asunto particular tuyo.

En el código que adjunté, como precisamente no había que hacer ninguna comprobación ni nada parecido, y a fines de comprensión y aclaración, opté por poner el Post justo después del Append, que la verdad es que no se debería hacer nunca en condiciones normales.

A lo mejor te puedo ayudar en algunas cosas más concretas. Si es así, te rogaría exponer un poco más del código que pretendes ejecutar.

Saludos

[niñotaliban]

Grácias gluglu por tu interés.

Pues mi código es muy similar al de morta71:

tengo una tabla maestra:

create table FACTURA (
FAC_ID IDENTIFICADOR not null,
CLI_ID IDENTIFICADOR not null,
FAC_FECHA FECHA,
etc,
etc,
constraint PK_FACTURA primary key (FAC_ID)
);

alter table FACTURA
add constraint FK_FACTURA_RELATIONS_RECIBO foreign key (REC_ID)
references RECIBO (REC_ID);
alter table FACTURA
add constraint FK_FACTURA_RELATIONS_FORMAPAG foreign key (FPA_ID)
references FORMAPAGO (FPA_ID);
alter table FACTURA
add constraint FK_FACTURA_TIENE_CLIENTE foreign key (CLI_ID)
references CLIENTE (CLI_ID);

y otra tabla detalle:

create table DETALLEFACTURA (
DTF_ID IDENTIFICADOR not null,
FAC_ID IDENTIFICADOR not null,
DTF_DESCRIPCION CHAR(40),
etc,
etc,
constraint PK_DETALLEFACTURA primary key (DTF_ID)
);

alter table DETALLEFACTURA
add constraint FK_DETALLEF_DETALLE_FACTURA foreign key (FAC_ID)
references FACTURA (FAC_ID);

Ambas con identificador autoincremental.

En el formulario muestro en dbedits los campos de FACTURA y en un dbgrid los datos de DETALLEFACTURA. En el formulario están los botones Insertar, Buscar, Modificar, Aceptar, Cancelar y Eliminar que en principio actuan sobre la tabla FACTURA amenos que añada algo para la tabla DETALLEFACTURA, y esta última se gestiona automáticamente mediante el dbgrid con su propiedad dgEditing a true.

Código Delphi [-]
//al clickar en Insert:
IbDataPrincipal.Insert;     //en IbDataPrincipal está cargada la tabla FACTURA
 
//al clickar en Aceptar:
if IbDataPrincipal.State in dsEditModes then IbDataPrincipal.Post;
if IBDataDetalleFactura.State in [dsEdit, dsInsert] then IBDataDetalleFactura.Post;
IBTrans.CommitRetaining;
 
//al clicar en Cancelar:
IbDataPrincipal.Cancel;
IBTrans.RollbackRetaining;
 
//en onnewrecord del dataset de DETALLEFACTURA:
if IbDataPrincipal.State = dsinsert then IbDataPrincipal.Post;
IBDataDetalleFactura.Edit;
IBDataDetalleFacturaFAC_ID.Value:= IbDataPrincipalFAC_ID.Value;

(tengo bastante más código pero no tiene porque afectar a este asunto, en principio)

De esta manera cuando hago clic en insertar e inmediatamente intento insertar una linea en el dbgrid del detalle ma da el error "Field 'CLI_ID' must have a value"

Por qué me da el erro lo tengo claro, que lo podria controlar y mostrarle un mensaje que le digera al usuario que tiene que rellenar el campo CLI_ID antes de añadir lineas en el detalle, también lo tengo claro. Pero, no sería más bonito si el formulario en sí se comportara como el que muestra una simple tabla donde el mensaje de control de datos no se muestraria (si fuera preciso) hasta clicar el botón de Aceptar??

Hay alguna posibilidad para lo que quiero? o soy muy pijotero? jejeje me salió un pareado!

Un saludo.