Ahora los botones Modificar y borrar de detalle
Código Delphi
[-]
procedure TFXPAF.SBDetalleModificarClick(Sender: TObject);
begin
if DsDetalle.DataSet.IsEmpty<>true then
begin
DsDetalle.DataSet.Edit;
FExtPPAF.Show;
FExtPPAF.DBEdit1.SetFocus;
end else ShowMessage('No existen datos para poder editar');
end;
procedure TFXPAF.SBDetalleBorrarClick(Sender: TObject);
begin if not DsDetalle.DataSet.IsEmpty then
begin
if (MessageBox(0, '¿Esta seguro de eliminar el registro detalle?', 'Eliminar Registro', MB_ICONSTOP or MB_YESNO or MB_DEFBUTTON2) = ID_No) then
Abort
else
begin
DsDetalle.DataSet.Delete;
ShowMessage('El registro ha sido eliminado');
end;
end
else ShowMessage('No existen datos para eliminar');
end;