Excluir registros Mestre-Detalhe

18/12/2020

Tenho uma liga��o mestre-detalhe com 2 tabelas tempor�rias de ClientDataSet''s.

O mestre � o Lote e o detalhe s�o as notas fiscais.

Quero excluir um lote e todas notas fiscais vinculadas mas est� ocorrendo o erro abaixo e n�o est�o sendo exclu�das as notas fiscais (detalhe):

cdsNotasFiscais: Missing data provider or data packet.

C�digo que estou usando no bot�o Excluir:

var
  i: Integer;
begin
  if Application.MessageBox(''Confirma a exclus�o do(s) registro(s) selecionado(s)?'', ''Confirma��o'',
    MB_YESNO + MB_ICONEXCLAMATION) = mrYes then
  begin
    for i := 0 to DBGrid1.SelectedRows.Count - 1 do
    begin
      DM.cdsNotasFiscais.First;

      while not DM.cdsNotasFiscais.Eof do
        DM.cdsNotasFiscais.Delete;

      DBGrid1.SelectedRows.Delete;
    end;

    DM.cdsNotasFiscais.ApplyUpdates(-1);
    DM.cdsLote.ApplyUpdates(-1);
  end;
end;

O erro ocorre no comando ApplyUpdates.

Relembrando que os Clientdataset''s s�o tempor�rios e n�o estou usando DataSetProvider.

Natanael Ferreira

Curtir t�pico + 0

Responder

Posts

18/12/2020

Natanael Ferreira

Descobri que o c�digo estava excluindo registros incorretos.

Consegui resolver usando Bookmark.

var
  i: Integer;
begin
  if Application.MessageBox('Confirma a exclus�o do(s) registro(s) selecionado(s)?', 'Confirma��o',
    MB_YESNO + MB_ICONEXCLAMATION) = mrYes then
  begin
    for i := 0 to DBGrid1.SelectedRows.Count - 1 do
    begin
      DM.cdsLote.GotoBookmark(DBGrid1.SelectedRows.Items[i]);

      DM.cdsNotasFiscais.First;

      while not DM.cdsNotasFiscais.Eof do
        DM.cdsNotasFiscais.Delete;

      DM.cdsLote.Delete;
    end;
  end;
end;

Responder

Gostei + 0