Hola este es un pedacito de codigo que te dira mas.
Código Delphi
[-]
procedure TFOrdProd.BitBtn10Click(Sender: TObject);
begin
If MessageDlg('¿Está seguro que desea eliminar la pieza # '+QOrdenProdItemNumSerie.AsString+' de la orden '+QOrdProdCodOrden.AsString+'?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
begin
DataModule1.AC1.BeginTrans;
try
QTemp.SQL.Text := 'Delete * from OrdenProdItem where NumSerie = '+QOrdenProdItemNumSerie.AsString;
QTemp.ExecSQL;
QTemp.SQL.Text := 'Update Series set Estado = ''Eliminado'' where NumSerie = '+QOrdenProdItemNumSerie.AsString;
QTemp.ExecSQL;
DataModule1.AC1.CommitTrans;
except
on E:Exception do
begin
DataModule1.AC1.RollbackTrans;
MessageDlg('Se ha producido un error, por favor contacte al administrador.',mtError,[mbok],9);
end; end; QOrdenProdItem.Close;
QOrdenProdItem.Open;
end;
end;
Por supuesto los nombres de las tablas y otros son los mios.
Saludos