Saltos en secuencia de numero de factura....

[ronimaxh]

Un saludos colegas del club, tengo una aplicacion hecha en delphi 2009 y firebird 2.1 con ibx.

Me esta pasando algo muy raro ultimamente, para generar mi numero de factura lo hago de la siguiente manera:

Código Delphi [-]
procedure Tfrmprincipal.genera_numero_fact;
begin
  with frmdata.st do
       begin
        DecodeDate(date,periodo,mes,dia);
         st_ctr:=false;
         if cod_tpo_ncf='0' then
            begin
              sql.Text:='select max(numero)as numero,max(periodo)as periodo from tb_cd_fact_t where periodo='+floattostr(periodo)+'and cod_tipo_ncf='+QuotedStr(cod_tpo_ncf);
              st_ctr:=true;
            end
         else
         sql.Text:='select max(numero)as numero,max(periodo)as periodo from tb_cd_fact_t where periodo='+floattostr(periodo)+'and cod_tipo_ncf >0 ';
         open;
         cont:=0;
         if not FieldByName('numero').IsNull then
            begin
              cont:=FieldByName('numero').Value;
              if periodo=FieldByName('periodo').Value then
                 begin
                   cont:=cont+1;
                   numero:=inttostr(cont);
                   numero:=StringOfChar('0',7-length (numero))+numero;
                   frmfactura.num_fact_edit.Text:=numero;
                 end
                 else
                 begin
                   numero:='1';
                   numero:=StringOfChar('0',7-length (numero))+numero;
                   frmfactura.num_fact_edit.Text:=numero;
                 end;
            end
            else
            begin
              numero:='1';
              numero:=StringOfChar('0',7-length (numero))+numero;
              frmfactura.num_fact_edit.Text:=numero;
            end;
       end;
end;

Nota: Derrepente me da saltos y me deja hueco en numero.
Realmente no se aque se deba, solo busco al maximo en la consulta,
no se si seran los componentes ibx esto esta muy raro. Cuando hago ciertas prueba generando numero de factura no ocurre y en produccion si.

Nota2: se que lo generadores me dejan muchos huecos y tambien he notado que cuando esto pasa produce esos saltos no se como controlarlos, alguna ayuda les agradesco.

[Casimiro Notevi]

¿El programa permite eliminar una factura?, ¿puede que sea el problema?

[Cañones]

Hola.
No soy muy bueno leyendo código ajeno, pero creo que buscas el número máximo y le sumas uno.
Yo utilizo una tabla en la DD.BB con nombre (nombre del comprobante) y valor, que es el último valor.
Cuando se confirma la venta, genero el número de comprobante. Accediendo al valor por medio de un dataset y asignado el nuevo valor. Es útil para el caso de concurrencias.
Con éste método es muy poco probable que haya huecos en los números de comprobantes.

Si querés te mando un mail con un apunte que lo explica muy bién. Es de un profesor de mi facultad.

Saludos a todos.

[ronimaxh]

Gracias por contestar, la facturas no se eliminan solo se anulan.
Cañones favor de enviar el correo que ayuda reforzar.

Cualquier colega que pueda ayudar agradezco.

[mamcx]

El primer problema que tienes es que generas el codigo en el cliente y no en la BD.

Deberias usar un generador. Definitivamente.

La razon del porque pueden haber "huecos" si hay acceso multiusuario es que varios clientes pueden solicitar una nueva numeracion al tiempo.

Dos clientes solicitan el siguiente maximo y a ambos se les da la misma respuesta. Luego, el usuario se cansa, anula, abandona o cancela.

Para hacer de un cuento largo uno corto, estos códigos deben ser generados en el instante preciso del INSERT. No se deben generar antes que le de al usuario tiempo de llenar datos y luego cancelar la acción. Eso da huecos.

El uso de la tabla no necesariamente te resuelve el asunto. Es el *momento* elegido para hacer el avance del consecutivo y si *bloqueas* la generación del consecutivo teniendo presente las implicaciones del acceso recurrente.

En términos de programación OO lo que estas buscando es un Singleton (http://es.wikipedia.org/wiki/Singleton), un único punto de acceso y alteración de datos. Seria algo asi, traducido de OO a como es un manejo de datos:

*TODO DENTRO DE LA BD, EN UNA TRANSACCION*

BLOQUEAR FILA/TABLA/GENERADOR DE NUMERACION

OBTENER SIGUIENTE

AUMENTAR

DESBLOQUEAR

RETORNAR

[ronimaxh]

Gracias amigo por responder, ese codigo que puse es llamado en el instante del inicio del insert frmprincipal.genera_numero_fact(esta es una rutina).

Tambien los generadores dejan huecos.

[Casimiro Notevi]

Empezado por ronimaxh

la facturas no se eliminan solo se anulan.

¿Y en qué consiste esa anulación?

[ronimaxh]

las facturas cuando se anulan solo cambia a status I (inactiva).

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

¿Cuantos usuarios trabajan de forma concurrente?
¿En qué momento insertas la factura?
¿Utilizas transacciones?
¿La insertas utilizando SQL o componentes DataAware?