Saltos en secuencia de numero de factura....

[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?

[marcoszorrilla]

Sería conveniente que en vez de por correo se ponga el código aquí en el Foro, así si la solución resulta interesante alguién más pueda beneficiarse.

Un Saludo.

[ronimaxh]

De momento un usuario, luego se me conectaran más.
Inserto lo factura cuando ha eligido un producto y le da click al boton guardar,
inicio la transacción y luego genero el numero de factura y el del comprobante.
componentes que utilizo ibx. los Tedit, Tdblookupcombobox y dbgrid para presentar el detalle.


Nota: Lo que estoy probando es: Le puse indice al numero de factura y numero de comprobante en la tabla cabecera de factura. Para que cuando genere un numero la busqueda del maximo responda más rápido a ver si con esto mejora.

[Cañones]

Empezado por marcoszorrilla

Sería conveniente que en vez de por correo se ponga el código aquí en el Foro, así si la solución resulta interesante alguién más pueda beneficiarse.

Un Saludo.

Eso seguro. En unas horas pongo un post con la solución.

[cloayza]

Este codigo te entrega codigos intercalados debido al

IF (Cod_Tpo_Ncf='0')

Dependiendo de esta condicion obtendra un MAX(Numero) Diferente...

Me tome la libertad reescribir el codigo...y eliminar algunas lineas que estan demas.

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 From tb_cd_fact_t Where cod_tipo_ncf='+QuotedStr(Cod_Tpo_Ncf);
             st_ctr:=True;
             //Como Resultado puede dar ejm: 10
         End
         Else
             Sql.Text:='Select Max(Numero) As Numero From tb_cd_fact_t Where cod_tipo_ncf >0';
           //Como Resultado puede dar ejm: 5

         //Deberias usar un solo MAX(Numero) sin condiciones para que te obtenga el maximo de la tabla...

         Open;

         Cont:=1;

         If (Not FieldByName('numero').IsNull) And (Periodo=FieldByName('Periodo').Value) Then
            Cont:=FieldByName('Numero').Value+1;

         Numero:=IntToStr(Cont);
         Numero:=StringOfChar('0',7-Length(Numero))+Numero;

         frmfactura.Num_Fact_Edit.Text:=Numero;

     end;
end;

Espero haber ayudado...Un abrazo

[marcoszorrilla]

Yo añado que siempre he utilizado una tabla en donde guardo el último número de factura.

Las nuevas facturas les asigno un número provisional y si se consolidan, es decir no se cancelan a la mitad, entonces, bloqueo el registro le sumo uno al último número lo almaceno y de paso lo tomo para la nueva factura, de esta manera no es posible que estando en red dos usuarios repitan número de factura.

El acceso a la obtención del número lo hago en tres intentos con retardo de un par de segundos entre ellos por si diera la casualidad dificil más no imposible de que accedieran dos usuarios a la vez a la obtención del número.

Un Saludo.

[ronimaxh]

Gracias amigos por sus buenos comentarios y tambien por la arreglo del codigo.

Código Delphi [-]
    Este codigo te entrega codigos intercalados debido al

IF (Cod_Tpo_Ncf='0')

Dependiendo de esta condicion obtendra un MAX(Numero) Diferente...

En esta condición tal y como dices depende de otros tipos de numero de facturas.

Nota: Yo he reforozado el codigo y presenta el numero generado cuando guarda la factura, ademas tambien el campo numero de factura esta indexado, realmente mejoro. ya en marcha probare en produccion a ver si todo sale mejor ahi. De todas forma les dejare saber.

[Cañones]

Empezado por marcoszorrilla

Yo añado que siempre he utilizado una tabla en donde guardo el último número de factura.

Las nuevas facturas les asigno un número provisional y si se consolidan, es decir no se cancelan a la mitad, entonces, bloqueo el registro le sumo uno al último número lo almaceno y de paso lo tomo para la nueva factura, de esta manera no es posible que estando en red dos usuarios repitan número de factura.

El acceso a la obtención del número lo hago en tres intentos con retardo de un par de segundos entre ellos por si diera la casualidad dificil más no imposible de que accedieran dos usuarios a la vez a la obtención del número.

Un Saludo.

Ni más ni menos como lo que dices.
Se podría refinar el tema de cuando y como se hace.

Saludos.