Generar automaticamente número de factura

[[Lepe]]

Autoincrementos no creo que pueda servir, ya que pueden quedar huecos y en números de factura, no se permite.

No creo que sea nada complejo.

Código Delphi [-]
function Incrementa(nFactura:string):string;
begin
  if Length(nFactura) > 3 then
    Result := copy(nfactura, 1, 3) + intToStr(strToint(copy(nfactura, 3, 255))+1);
end;

El problema más grave es recuperar el número de factura más alto de un grupo, ya que al ser texto, la ordenación de un String no tiene nada que ver con integer.

La forma de salvar este obstaculo, es añadir ceros por la izquierda, así se puede pedir un listado de nFactura ordenado descendente. El primer nFactura será el que se incrementa.

st-00000001
st-00010000

Aquí 10.000 es el último al pedir una ordenación AScendente.

Sin embargo, manteniendo el orden ASCendente, aquí no se obtienen los mismos resultados:

st-13
st-10000
st-1

Saludos

[lgarcia]

Hola:

Otra variante puede ser porque imagino que pueden estar facturando varias personas a la vez, es que cuando el facturador entre en el formulario insertar un registro con los datos minimos tales como fecha, consecutivo, etc y cuando se guarde realizar un update con el resto de los datos del formulario con el id que debes haber obtenido cuando se hizo el insertar inicial. De esta forma garantizas reservar un consecutivo unico. Lo otro que tienes que hacer es para los casos en que no se termine de llenar el formulario por cualquier motivo es eliminar el registro y asi garantizas recuperar el consecutivo.

Este codigo en SQL lo resolvi de esta forma

CREATE PROCEDURE [insert_Bolsos]
 (@recepcionista_  [int],
  @fecha_   [datetime],
  @servicio_   [int],
  @ruta_   [int],
  @tipo_   [int],
  @id_   int Output,
  @consecutivo_  int Output)
AS 
SELECT @consecutivo_ = MAX(consecutivo) FROM dbo.Bolsos WHERE (fecha = CONVERT(DATETIME, @fecha_, 102))
IF @consecutivo_ is Null SET @consecutivo_ = 1
ELSE SET @consecutivo_ = @consecutivo_ + 1
  
INSERT INTO [Sala].[dbo].[Bolsos] 
  ([recepcionista],
  [fecha],
  [servicio],
  [ruta],
  [tipo],
  [consecutivo])
 
VALUES 
  (@recepcionista_,
  @fecha_,
  @servicio_,
  @ruta_,
  @tipo_,
  @consecutivo_)
SELECT @id_ = @@IDENTITY
GO

Saludos
Luis Garcia