Error de Primary Key

[Casimiro Noteví]

Originally Posted by marcoszorrilla

Sino puedes generar automáticamente el código con un generador, puedes lanzar un SQL que verifique si ese registro ya existe, todo esto antes de intentar grabarlo.
Un Saludo.

Realmente no es muy seguro hacer eso, porque en un entorno multiusuario puedes comprobar que no exista un código, y antes de grabarlo ya desde otro equipo lo ha usado, así que te daría error porque ya existe.

En firebird también exista una sentencia "update or insert", pero en este caso no valdría porque si el código es creado por otro usuario entonces estaríamos actualizando el mismo en lugar de crear uno nuevo nosotros.

Del blog de jhonny:
http://jhonny.clubdelphi.com/2010/08...-1-recuperado/

[marcoszorrilla]

Yo en estos casos tengo una tabla que almacena un contador, primero lo incremento en 1 y luego ese número se lo doy al documento/factura.

Me gustaría ver que otras opciones utilizais, para generar una numeración consecutiva sin saltos.

Me funciona pero quisiera ver otras opciones.

Un Saludo.

[Casimiro Noteví]

Si quieres números consecuentivos entonces descartamos un generador.
No mantengo contadores porque me parecen innecesarios y una fuente potencial de problemas.
Para esos casos yo compruebo el ultimo número dado de alta y le sumo uno.
Si alguien ha dado de alta ese número mientras tanto, pues vuelvo a pedir de nuevo el último y le sumo 1, y así varias veces.
Si transcurridos varios intentos están siempre ocupados los números que voy pidiendo es que algo anormal ha ocurrido y ya saco el mensaje de error.
He modificado un trozo de código, simplificándolo, a ver si no me he equivocado, pero al menos sirve para que se entienda lo que hago.

Uutiles.pas (datos de configuración del programa)

Código Delphi [-]
const
  _INTENTOS_GRABAR_ = 5;

Cualquier otra Unit.pas
-------------------------------------------------

Código Delphi [-]
procedure TForm1.btGrabarClick(Sender: TObject);
var  
  iIntentos : Integer;  
begin
  iIntentos := 0;
  //
  DS.DataSet.FieldByName('codigo').AsInteger := getNuevoCodigo( tabla, campo );  // esto sólo hace un select max(campo)+1 from tabla
  try
    DS.DataSet.Post;
  except
    try
      while iIntentos < _INTENTOS_GRABAR_ do
      begin
        try
          DS.DataSet.Post;
          Break;
        except
          DS.DataSet.FieldByName('codigo').AsInteger := getNuevoCodigo( tabla, campo );
        end;
        inc(iIntentos);
      end;
    except
      on E:exception do
        Error(-100, Format('(%s) Error: %s', [E.ClassName, E.Message]));
    end;
  end;
end;

[marcoszorrilla]

También he utilizado algo similar, pero tengo un problema.

Año:2011 --->Factura=11+0000
110001
110002
115200

El 11 lo extraigo de un Campo que llamo ejercicio, no lo cojo directamente de la fecha, porque puede que el cliente quiera hacer todavía a principios de Enero algunas facturas con fecha del año anterior que tiene pendientes.

Año:2012--->Factura=125201

Yo quiero que al cambiar el año, esto lo hago con la tabla contadores.
1.-Llegado el momento, cambio el ejercicio.
2.-Cambio los contadores de Facturas - Albaranes - Pedidos etc.

Año:2012--->Factura=120001
Un Saludo.

[[newtron]]

Hola.

Esto quiero recordar que lo hemos comentado alguna vez.

Yo particularmente creo que lo más sano es mantener una tabla de contadores con el número completo porque, aunque no es frecuente, es posible que el cliente quiera dejar un rango de facturas vacias para hacerlas posteriormente. El único problema es que si anulas la última factura y quieres reutilizar ese número tienes que retroceder el contador manualmente.

En mi aplicación en particular a cada factura se le asigna una serie 'A-' 'B-', etc... y cada serie tiene sus contadores de albaranes, facturas, tickets, etc. y documentos de impresión independientes. De esta manera dependiendo de la serie de factura saldrá con un formato u otro y tendrá una numeración u otra. El número de factura se compone de la serie+el número que corresponda según el contador, p.e.: A-110001,B-110032, etc.

Saludos