Hacer un Bucle en Delphi

[webmasterplc]

Buenas estoy generando un numero de orden lo hago consultando el ultimo registro de una tabla y le sumo uno, pero el problema es que a veces me repite el numero mas que todo cuando se hace una orden desde otra estación el sistema funciona en 10 maquinas. aca el codigo que uso para calcular el numero.

Código Delphi [-]
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;

[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

[webmasterplc]

Buenas como hago para que mi aplicación ejecute un procedimiento siempre y cuadno se cumpal una condicion y si no se cuemple vuelva a verificar hasta que esta se cumpla.

Por ejemplo que consulte si un numero existe un una tabla, si existe vuelva a hacer una consulta y le incrmente un numero (numero+1) hasta que la consicion se cumpla y guarde los datos

[rgstuamigo]

Puedes hacerlo dentro de un ciclo While o Repeat o mucho mejor usar un Hilo(Thread)
Saludos...

[webmasterplc]

Como hago para hacer un bucle donde asignas un número, intentas grabarlo y si da error (porque ya existe) entonces le sumas 1, hasta que no dé error.
el numero lo asigno consultando una base de datos y le sumo uno pero si por error esta repetido que haga el bucle aca coloco un poco del codigo.

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) as idorden');
      SQL.Add(' FROM cartaavaleulalia');
    Open;
    proximonumero := FieldByName('IDORDEN').AsInteger +1;
    numero := 0;
  end;

   begin

       Data.orden.Append;
       Data.mtiva.Append;
       Data.ttrans.Append;
       Data.orden.FieldByname('programa').AsString := programa.LookupValue;
       Data.ejecucion.FieldByname('programa').AsString := programa.LookupValue;

[rgstuamigo]

Me parece que éstas creando muchos hilos para tu misma pregunta...
lee por favor nuestra Guía de estilo...para conocer ciertas reglas del foro.
Saludos...

[Casimiro Noteví]

He unido todos los hilos creados sobre el mismo tema.

[Casimiro Noteví]

Si tienes una tabla con un campo CODIGO que quieras tenerlo numerado y no repetido entonces crea ese campo como índice y único, y si es posible también como clave principal de la tabla

Código SQL [-]
create table tutabla (
  codigo integer not null,
  nombre varchar(64),
  telefono varchar(9),
  primary key (codigo) )

Si no te importa tener números "en blanco" entonces puedes usar un generador, en caso contrario tendrás que controlar tú mismo el número cada vez que se va a crear un registro.

Código Delphi [-]
while true do
begin
  q1.close;
  q1.selectsql.text := 'select max(codigo)+1 from tutabla';
  q1.open;
  iNumero := q1.fields[0].asinteger;
  tudataset.fieldbyname('CODIGO').asinteger = iNumero;
  try
    tudataset.post;
    break;
  except
    //
  end;
end;

Más o menos es así, lo he escrito de memoria y depende de tus componentes, dataset, etc.

[[newtron]]

Y digo yo....

Ya que pareces empeñado en hacerlo calculando el último registro mas uno no sería mejor hacerlo en un "before insert" trigger?