[Mathom]

Hola Marcos, que tal?? canté victoria demasiado pronto. Te explico (o mejor dicho os explico). Estoy hablando de la tabla pedido.db - detalle.db (maestro - detalle). SI que respeta la relación. Es decir, yo pincho en un registro en la tabla pedido.db y me aparecen los artículos en la detale.db.

El PROBLEMA: si quiero eliminar un registro me devuelve el mensaje "Master has detail records, cannot delete or modify". Del mismo modo cuando quiero editar o crear algún resistro tampoco me deja. Cuando lo quiero editar me cambia el valor del campo al pulsar "aceptar" pero acto seguido vuelve al valor original. Cuando quiero crear un pedido nuevo, me deja meter el pedido en pedido.db y el primer registro en detalle.db. A continuación cuando quiero meter el siguiente me devuelve "Mater record missing".

El código del botón eliminar pedido:

procedure TForm1.Button23Click(Sender: TObject);
 Var
   Boton : Integer;
 begin
    Boton := Application.MessageBox ('¿Está seguro que desea borrar este registro?',
    'Borrar registro',MB_YESNO+MB_ICONINFORMATION);
    If Boton = ID_YES Then
 	DataModule25.Table1.Delete
    else
 	DataModule25.Table1.Cancel;
 end;

SOLUCION: yo creo que el problema viene en la integridad referencial. Creo recordar que hablamos que la casilla (estoy en el database desktop) "Strict Referential Integrity" no debe estar marcada, no?? pues a mi me aparece marcada. EL terma es que si la quito me quita la referencia, entonces la vuelvo a crear y pulso "OK". Posteriormetne pulso Save (incluso he probado Save as) para guardar los cambios y me devuelve un mensaje que dice "table is busy". No me deja guardarlo. entonces vuelvo a entrar en "Referential Integrity" y me ha vuelto a marcar la casilla. O sea que creo que este es el problema que no me deja reparar.

Me estoy extendiendo mucho, lo siento. Ya acabo...

Porsi os fuese necesario os doy el código del botón "aceptar" en el formulario "Nuevo - pedido"....

procedure TForm18.BitBtn2Click(Sender: TObject);
 begin
   Try
    DataModule16.Table1.Post;   
    close;
   Except
    DataModule16.Table1.Cancel;
   End; //De la excepción.
 end;

Incluso he llegado a probar:

procedure TForm18.BitBtn2Click(Sender: TObject);
 begin
   Try
    DataModule16.Table1.Post;
    DataModule16.Table2.Post;
    close;
   Except
    DataModule16.Table1.Cancel;
    DataModule16.Table2.Cancel;
   End; //De la excepción.
 
 end;

Aunque esto supongo que no es necesario, supongo que se encargará la Integridad referencial.

Bien, siento el tamaño del post, si lo leeis entero ya os mereceis una medalla o algo. Gracias y a ver si me podeis decir que es lo que pasa.

aleee