PROCEDIMENTO DELETE ESTA COM ERRO DELPHI XE2

Delphi

14/04/2015

Boa tarde!
sou novo em programação delphi preciso de ajuda.

[img:descricao=tela de protocolo]http://arquivo.devmedia.com.br/forum/imagem/424586-20150414-140042.png[/img]

estou com uma tela de protocolo e nesse procedimento preciso excluir os itens do protocolo juntamente na hora que exclui o protocolo, com o trecho abaixo só exclui os itens.
lembrando que e master details os itens com o protocolo.

agradeço por quem puder ajudar. 

procedure TfrmProtocolo.ac_DeletarExecute(Sender: TObject);
begin
  dmPrincipal.dsItemProtocolo.DataSet.Delete;
  dmPrincipal.dsProtocolo.DataSet.Delete;
  try
  if dmPrincipal.dsProtocolo.DataSet is TClientDataSet then
    TClientDataSet(dmPrincipal.dsProtocolo.DataSet).ApplyUpdates(0);
    TClientDataSet(dmPrincipal.dsItemProtocolo.DataSet).ApplyUpdates(0);
  except
    on E: Exception do
      MessageDlg('Ocorreu um erro na tentativa de excluir os dados' + #13#10 +
        E.Message, mtError,[mbOk], 0);
  end;
end;
Vinicius Silva

Vinicius Silva

Curtidas 0

Respostas

Vinicius Silva

Vinicius Silva

14/04/2015

up up
GOSTEI 0
Henrique Gouveia

Henrique Gouveia

14/04/2015

Reposta: colocar o código correspondente ao delete do itemProtocolo no evento onbeforedelete do data module do protocolo.
GOSTEI 0
POSTAR