Saltos en secuencia de numero de factura....

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

[[movorack]]

Aunque se que no es postgres, de este tema estuvimos conversando en este hilo http://www.clubdelphi.com/foros/showthread.php?t=49912

Echale un ojo... depronto te pueda ayudar.

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

[marcoszorrilla]

1.-Adjudico un número provisional a la factura, suelo utilizar el número de usuario multiplicado por 10 y lo sumo a la última que como digo se encuentra en un contador guardado en una tabla.

2.-Cuando el usuario decide grabar la factura, bloqueo el registro contador, le sumo uno y hago una actualización del número de la factura, tanto para la cabecera como para sus lineas detalle.

Un Saludo.

[Cañones]

Empezado por marcoszorrilla

1.-Adjudico un número provisional a la factura, suelo utilizar el número de usuario multiplicado por 10 y lo sumo a la última que como digo se encuentra en un contador guardado en una tabla.

2.-Cuando el usuario decide grabar la factura, bloqueo el registro contador, le sumo uno y hago una actualización del número de la factura, tanto para la cabecera como para sus lineas detalle.

Un Saludo.

Creo que sería mejor que trabajes con los datos en memoria y cuando se confirma la venta, asignas el número correspondiente y haces el comit.
Creo que es menos complicado que tener que eliminar el comprobante de la DD.BB en caso de que no se realice la venta.
Trabajando en memoria le asignas el -1 por ejemplo y ya no tendrías problemas.

Saludos.