Dá error "Master has detail records" cuando no debería darlo!

[JuanBCT]

Hola! Después de agotar todas las posibilidades (creo) les vengo a pedir ayuda sobre un tema puntual. Estoy haciendo un programa que "depura" registros que tienen varias tablas dependientes, y una de estas tiene a su vez otras cuatro tablas dependientes.

La estructura de las tablas es así:
- ORDENES.DB (maestro)

de esta dependen
- VALE.DB
- ITEMREP.DB
- ITEMTER.DB
- ITEMTEX.DB
- ITEMOBS.DB
- ITEMMOB.DB
- ITEMCOMB.DB
- NDBNCR.DB

y de esta última dependen
- NITEMMOB.DB
- NITEMREP.DB
- NITEMTER.DB
- NITEMTEX.DB

Primero, de un determinado rango de fechas paso los registros a otro juego de tablas iguales, cuyo nombre tiene una D adelante (ej: DORDENES.DB, DITEMREP.DB, etc.) Esto funciona bien.
Lo que entonces tengo que hacer a continuación es borrar estos registros que acabo de pasar, por lo que borro primero en los NITEM, luego en los que dependen de ORDENES y luego el registro en ORDENES.
Lo corro pero de vez en cuando me tira algún error "Master has detail records", más precisamente cuando intento borrar el NDBNCR (se borran CIENTOS de registros antes de q dé esto, por eso no sé cual es el error, mirándo el registro no descubro nada diferente).
La subrutina de borrado que uso es la siguiente:

Código Delphi [-]
      Base_serv.ordenes.first;
      DatamoduleD.Dordenes.first;
      while not DatamoduleD.Dordenes.EOF do
      begin
       Base_serv.Ordenes.SetKey;
       Base_serv.Ordenes['Nro_Orden']:=DatamoduleD.Dordenes['Nro_Orden'];
       If Base_serv.Ordenes.GotoKey then
         begin
         //Borro Orden
                 //Borra Item NItemRep
                 Base_serv1.NitemRep.first;
                 while not Base_serv1.NitemRep.eof do Base_serv1.NitemRep.Delete;
                 //Borra Item NItemMob
                 Base_serv1.NitemMob.first;
                 while not Base_serv1.NitemMob.eof do Base_serv1.NitemMob.Delete;
                 //Borra Item NItemTer
                 Base_serv1.NitemTer.first;
                 while not Base_serv1.NitemTer.eof do Base_serv1.NitemTer.Delete;
                 //Borra Item NItemTex
                 Base_serv1.NitemTex.first;
                 while not Base_serv1.NitemTex.eof do Base_serv1.NitemTex.Delete;
                 //Borra Item Ndbncr
                 Base_serv1.Ndbncr.first;
                 while not Base_serv1.Ndbncr.eof do Base_serv1.Ndbncr.Delete;
                 //Borra Item Comb
                 Base_serv.ItemComb.first;
                 while not Base_serv.ItemComb.eof do Base_serv.ItemComb.Delete;
                 //Borra Item mano de obra
                 Base_serv.ItemMob.first;
                 while not Base_serv.ItemMob.eof do Base_serv.ItemMob.Delete;
                 //Borra Item observaciones
                 Base_serv.Itemobs.first;
                 while not Base_serv.Itemobs.eof do Base_serv.Itemobs.Delete;
                 //Borra Item tex
                 Base_serv.Itemtex.first;
                 while not Base_serv.Itemtex.eof do Base_serv.Itemtex.Delete;
                 //Borra Item ter
                 Base_serv.Itemter.first;
                 while not Base_serv.Itemter.eof do Base_serv.Itemter.Delete;
                 //Borra Item rep
                 Base_serv.Itemrep.first;
                 while not Base_serv.Itemrep.eof do Base_serv.Itemrep.Delete;
                 //Borra Item Vale
                 Base_serv1.Vale.first;
                 while not Base_serv1.Vale.eof do Base_serv1.Vale.Delete;
                 //Borra Orden
                 Base_serv.ordenes.Delete;
         end;
      DatamoduleD.Dordenes.Next;
      coolgauge4.Progress:=(DatamoduleD.Dordenes.RecNo*100) div DatamoduleD.Dordenes.RecordCount;
      end;

Todas las tablas dependientes tienen el campo ['Nro_Orden'] que es el que las relaciona, a mi me parece que el proceso de borrado está bien (aunque evidentemente no lo está) ¿Se les ocurre algo? Cualquier ayuda u opinión que me puedan brindar será muy apreciada.
Gracias!

Juan

Pd: Disculpen la longitud del mensaje! Traté de explicarme bien.

[[Lepe]]

Al ver la extensión DB parecen archivos paradox, en este caso, cuando se borra con delete, no se adelanta el puntero al registro activo, sino que decrece, por tanto, no debes usar while not tabla.eof sino más bien
while not tabla.bof o incluso while tabla.RecordCount>0

Otra forma más rapida sería con una consulta de borrado:

Código Delphi [-]
const sqlBorrado = ' delete from %s where %s';
var Nombres :array[0..2] of string = ('NITEMTEX.DB','NITEMTER.DB','NITEMREP.DB');

var q:Tquery;
    i:integer;
begin
 q := Tquery.Create;
 try
 for i:= low(nombres) to high(nombres) do
 begin
  if q.Active then q.Close;
  q.sql.Text := format(sqlBorrado,[Nombres[i], 'Nro_Orden= 32']);
  showmessage(IntToStr(q.ExecSql) + ' Registros borrados de la tabla '+Nombres[i]);
 end;
 finally 
    FreeAndNil(q);
 end;

Por supuesto, en el array de Nombres, las tablas irían puesta en orden inverso al que tú has redactado, precisamente para evitar el error de Master-Detail.

Sólo un detalle más, la variable Nombres no puede estar declarada en un procedimiento, ya que Delphi no deja inicializar variables en dicho lugar, debes ponerla como variable "global" del módulo.

Edito: Lo he escrito de memoria, si tienes algun problema comentalo.

Un saludo, y espero que todavía te sirva.

[JuanBCT]

Hola Lepe! Gracias por tu respuesta, lo resolví mediante consultas como me sugeriste pero de otra manera:

Código Delphi [-]
       //========================================================================
      // * Hacer exactamente el mismo filtro para c/ tabla y borrar mediante una
      // sentencia SQL * =======================================================
      //========================================================================
         with query15 do
         begin
          close;
          sql.clear;
          sql.add ('SELECT * From Ordenes');
          sql.add ('Where Estado=:W_Estado and');
          sql.add ('f_factura <=:w_hasta');
          sql.add ('Order by F_Factura');
          Params[0].asstring;
          Params[1].asdate;
          Params.ParambyName('w_estado').asstring:='Facturada';
          Params.ParambyName('w_hasta').asdate:=Datetimepicker2.date;
          query15.Active:=true;
          open;
          first;
         end;
      //========================================================================
      // * Bien, acá tengo separado el grupo de ordenes que necesito. Entonces
      //   ahora la voy a recorrer e ir borrando sus "dependientes" * 
      //========================================================================
         while not Query15.EOF do
         begin
         //Borro NITEMREP
           with query3 do
           begin
            close;
            Databasename:='servicio';
            sql.clear;
            sql.add ('DELETE From NItemRep');
            sql.add ('Where Nro_Orden=:W_NumeOr');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro NITEMTER
           with query4 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE from NItemTer');
            sql.add ('Where Nro_Orden=:W_NumeOr1');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr1').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro NITEMMOB
           with query5 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From NItemMob');
            sql.add ('Where Nro_Orden=:W_NumeOr2');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr2').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro NITEMTEX
           with query6 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From NItemTex');
            sql.add ('Where Nro_Orden=:W_NumeOr3');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr3').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro NDB/NCR
           with query7 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From NdbNcr');
            sql.add ('Where Orden=:W_NumeOr4');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr4').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro vale
           with query8 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From Vale');
            sql.add ('Where Nro_Orden=:W_NumeOr5');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr5').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro ItemComb
           with query9 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From ItemComb');
            sql.add ('Where NroOrden_Combo=:W_NumeOr6');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr6').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro ItemObs
           with query10 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From ItemObs');
            sql.add ('Where Nro_Orden=:W_NumeOr7');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr7').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro ItemTex
           with query11 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From ItemTex');
            sql.add ('Where Nro_Orden=:W_NumeOr8');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr8').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro ItemTer
           with query12 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From ItemTer');
            sql.add ('Where Nro_Orden=:W_NumeOr9');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr9').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro ItemRep
           with query13 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From ItemRep');
            sql.add ('Where Nro_Orden=:W_NumeOr10');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr10').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro ItemMob
           with query14 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From ItemMob');
            sql.add ('Where Nro_Orden=:W_NumeOr11');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr11').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
         //Borro Ordenes
           with query16 do
           begin
            close;
            sql.clear;
            sql.add ('DELETE From Ordenes');
            sql.add ('Where Nro_Orden=:W_NumeOr12');
            Params[0].asinteger;
            Params.ParambyName('W_NumeOr12').asinteger:=query15['Nro_Orden'];
            ExecSql;
           end;
          //--------------------------------------------------
          query15.next;
          coolgauge4.Progress:=(Query15.RecNo*100) div Query15.RecordCount;
         end;
        //---------------------------------------------------
        query1.Active:=false;
        with query1 do
         begin
          close;
          sql.clear;
          sql.add ('SELECT * From Ordenes');
          sql.add ('Where Estado=:W_Estado and');
          sql.add ('f_factura <=:w_hasta');
          sql.add ('Order by F_Factura');
          Params[0].asstring;
          Params[1].asdate;
          Params.ParambyName('w_estado').asstring:='Facturada';
          Params.ParambyName('w_hasta').asdate:=Datetimepicker2.date;
          query1.Active:=true;
          open;
          first;
         end;

Un poco engorroso... pero funciona! De nuevo, gracias...

Juan

[[Lepe]]

Creo que deberías eliminar las lineas:

Params[0].asstring;
Params[1].asdate;
Y
Params[0].asinteger;

Que sobran en el código.

Un saludo