Numeracion de factura repetido
 

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;

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.

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.

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

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...

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.

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



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.


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.

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

Revisa los ISOLATIONLEVEL de las transacciones definidos en MySQL.

donde se revisa eso

En la docuentación/ayuda de MySQL; Si es que deseas utilizar transacciones.

La pregunta es hay alguna manera de bloquear la tabla para que nadie escriba si no que espere y si la encuentra bloqueada que vuelva a ejecutar la consulta para incrementar el numer

La tabla no, el registro. Y eso es lo que intento decir que se suele hacer utilizando transacciones.

Estoy viendo que aunque le coloque el campo como clave principal permite repetir ragistros por ejemplo el 135 dos veces y deberia darme un error

Pues no debes estar haciendolo bien. :(
Si has puesto el campo como clave principal única y tiene un índice único (cosa automática si es Clave Primaria) no te dejará introducir repetidos.

Estoy usando la conculta de olbeub solo le agregue algo a lado de los parentesis (max (idorden) as idorden)

Código Delphi [-]
 SQL.Add('MAX(IDORDEN) as idorden');

y ademas ya logue que no me repita registros desde la bases de datos pero cuando lo consigue repetido me da un error y listo me gustaria es que si consigue ese registro repetido linpie la consulta y velva a ejecutarla y luego que no este repetido continue el procedimiento aca coloco un trozo de 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;
       Data.orden.FieldByname('presupuesto').AsString := presupuesto.LookupValue;
       Data.ejecucion.FieldByname('presupuesto').AsString := presupuesto.LookupValue;

Hacer un Bucle en Delphi
 

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

¿Y el error es... ?

Amigo, no olvides nuestra guía de estilo, gracias.

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

Hacer un Bucle en Delphi
 

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;

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