Bloquear registro

[Casimiro Noteví]

Es muy simple, por ejemplo, cuando se pulse en el botón "Facturar", haces antes una sencilla comprobación.

Código Delphi [-]
btFacturar.Click;
begin
  qry.sql.text := 'select facturado from tbAlbaranes where serienumero="A1"';
  qry.execute;
  if qry.fields[0]='1' then 
    showmessage('El albarán ya está facturado')
  else
    Facturar( 'A1' );
end;

procedure Facturar( cAlbaran:string);
begin
  ...
  ...
  // poner el campo facturado a 1/S/True...
  albaran.facturado := 1;
end;