Salve a todos,
vejam o codigo:
procedure TfrmCadPagto.btnExcluirClick(Sender: TObject);
begin
if dtsCadPagto.DataSet.IsEmpty then
Exit;
if MessageDlg('Confirma a exclusão do '+' Registro
atual?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
begin
with dmPgto.cdsCadPagto do
begin
with dmPgto.cdsDebitoCliente do
begin
Close;
FetchParams;
Params.ParamByName('CLICODIGO').AsInteger:=dmPgto.cdsCadPagtoCLICODIGO.AsInteger;
Open;
Edit;
FieldByName('DEBITO').AsFloat:=FieldByName('DEBITO').AsFloat +
dmPgto.cdsCadPagtoVALOR.AsFloat;
Post;
if ApplyUpdates(0) <> 0 then
CancelUpdates;
end;
end;
dtsCadPagto.DataSet.Delete;
dtsCadPagto.DataSet.Close;
dtsCadPagto.DataSet.Open;
end;
end;
A parte do DEBITO esta sendo feita...unica coisa q nao esta acontecendo é o
dtsCadPagto.DataSet.Delete; por que nao esta deletando...tem alguma coisa
errada no codigo?
[]'s
[As partes desta mensagem que não continham texto foram removidas]
