Hacer un Bucle en Delphi

[Casimiro Noteví]

Tienes varias alternativas, por ejemplo, cuando vayas a grabar y ya exista el número entonces le asignas uno más. Si existe, le asignas uno más... y así hasta que por fin ya no exista. O sea, sería un simple bucle.
La otra alternativa es usar un generador, el inconveniente es que puedes tener "saltos" entre los números si, por ejemplo, alguien cancela el alta de un registro y ya se le había asignado el número que tocaba.

[olbeup]

procedure Todespacho.BitBtn1Click(Sender: TObject);
var
AccExclusivo:Boolean;
proximonumero:Integer;
numero:Integer;
tord:Real;
tpart:Real;
begin

Data.sqcaval.Close;
Data.sqcaval.SQL.Clear;
Data.sqcaval.SQL.Add('SELECT idorden ');
Data.sqcaval.SQL.Add('from cartaavaleulalia');
Data.sqcaval.SQL.Add('ORDER BY idorden ASC');
Data.sqcaval.Open;
Data.sqcaval.Last;
proximonumero:= Data.sqcaval.FieldByname('idorden').Value + 1;
numero:=0;

Que tal éste,

Código Delphi [-]
procedure Todespacho.BitBtn1Click(Sender: TObject);
var
  AccExclusivo: Boolean;
  proximonumero: Integer;
  numero: Integer;
  tord: Real;
  tpart: Real;
begin
  with Data.sqcaval do
  begin
    Close;
    SQL.Clear;
      SQL.Add('SELECT');
      SQL.Add('   MAX(IDORDEN)');
      SQL.Add(' FROM cartaavaleulalia');
    Open;
    proximonumero := FieldByName('IDORDEN').AsInteger +1;
    numero := 0;
  end;
end;

Espero que te sirva.

Un saludo.

[[newtron]]

Yo no soy partidario de hacerlo de forma automática en función de los registros de la tabla. Lo que hago es manejar un registro de contadores y cuando se va a asignar el número bloquea ese registro, toma el número, le asigna uno más y lo desbloquea. Así nos aseguramos que los números no se repiten y tienes la posibilidad de poner el contador en el número que quieras en un momento determinado, bien para recuperar un número de factura perdido o para empezar en una numeración determinada porque al cliente le interese. Si es cierto que de esta forma tendrías que controlar que cuando intentas asignar el número no haya un registro con el mismo porque si se ha puesto manualmente en el contador un número que ya exista puede pasar.

Saludos

[mcs]

Y porqué simplemente no asignas el número de factura cuando vas a grabar? La operación de grabar debe ser algo rápido, y por lo tanto el número no va a estar bloqueado mucho tiempo...

[Neftali [Germán.Estévez]]

Personalmente creo que la solución más segura es utilizar transacciones para conseguir que la operación sea "unitaria"; No comentas qué SGBD estás utilizando, pero si además esa operación puedes hacerla en el servidor, mejor aun.

Empezado por webmasterplc

...lo hago consultando el ultimo registro de una tabla y le sumo uno...

De todas formas, el código que estás utilizando para esa operación no es el óptimo.
(1º) Supongo que debes tener índice definido por el campo IDOrden; Si no es así defínelo.
(2º) No hace falta hacer el SELECT de toda la tabla, cuando en realidad sólo necesitas un registro. Porque luego debes hacer el recorrido hasta el final (Last) cosa que es muy costosa. Puedes utilizar alguna de estas variantes para obtener un único registro.

SELECT Max(IDOrden)....

SELECT TOP(1) .... ORDER BY DESC

Empezado por Casimiro Notevi

Tienes varias alternativas, por ejemplo, cuando vayas a grabar y ya exista el número entonces le asignas uno más. Si existe, le asignas uno más... y así hasta que por fin ya no exista. O sea, sería un simple bucle.

El problema es que tal y como tiene la tabla ahora, podría leer (y le daría que no existe) y al escribir podría ser que alguien ya hubiera escrito (en ese espacio de tiempo). Creo que Casimiro asume que no se permiten duplicados (y saltaría un error); Cosa que por el problema que tienes no debe ser así.
Deberías definir un índice único (en la Base de Datos) por el campo IDOrden, cosa que no debes tener ahora si estás obteniendo duplicados.

Empezado por mcs

Y porqué simplemente no asignas el número de factura cuando vas a grabar? La operación de grabar debe ser algo rápido, y por lo tanto el número no va a estar bloqueado mucho tiempo...

Creo que eso es lo que está haciendo ahora, pero para grabar el número debe consultar primero cual es el último; Y entre la consulta y la grabación es cuando se le cuela otra máquina y se producen los repetidos.

[webmasterplc]

Uso mysql y el procedimiento lo uso justo cuando voy a grabar

[Neftali [Germán.Estévez]]

Revisa los ISOLATIONLEVEL de las transacciones definidos en MySQL.

[webmasterplc]

donde se revisa eso