Número de Factura Automatico

[tranquilo_8925]

Estoy trabajando un proyecto en Visual Basic 2010 y SQL Server 2008. Dentro del proyecto tengo un formulario para generar una Factura. El número de Factura que se genera en forma automática es el siguiente:

001-000001
001-000002
001-000003
Y así sucesivamente. Los tres primeros números (001) son la Serie y después del guión los 6 números que siguen (000001) es de la factura que se genera consecutivamente. En este caso no tengo problema porque sí se genera el número de factura con su respectiva serie.

El problema es como hacer para que cuando llegue a la factura 001-999999 el número que siga sea 002-000001. Es decir debe cambiar el Número de Serie de 001 a 002 y el Número de Factura se empiece a generar nuevamente desde el 000001.

[Malenko]

Una opción sencilla sería no tratarlo como dos números/campos sino como uno mismo y luego a la hora de escribirlo, separarlo.

Si lo piensas bien, el siguiente número del 1999999 es el 2000000. Si partimos de que es un entero donde mantienes ese contador (personalmente usaría un campo identidad de SqlServer) y que recuperas desde código, simplemente jugando un poco con el ToString lo tendrías.

Te pongo el código en C# de como se haría. El pasarlo a Visual Basic no te tendría que costar mucho:

Código C#:

int numeroFactura;
 
            // Obtenemos el valor del numero de la BBDD, en este ejemplo lo ponemos de forma manual
            numeroFactura = 1999999;
 
            string idFactura = numeroFactura.ToString("[000-000000]");
 

[diegocres]

Hola, yo cojeria el ultimo de la base de datos en este caso el 3 y sumarle uno el 001 me supongo que es el numero de autorizacion del punto de venta tons lo puedes quemar(no se si este bien) el 0004 como te digi sumale uno al ultimo de la base y agregale los ceros pero debes tmar en cuenta que si llega a 10 debes quitarle un cero

[tranquilo_8925]

Muchas gracias Malenko y también gracias diegocres. Cuando los genero, los tengo separado, pero cuando los guardo, se graban en un sólo campo. Es decir, al grabar lo hace como 001-000001.

El 001- que es la serie la capturo en un Label que lo tengo oculto. Luego genero automáticamente el número 000001, 000002, 000003 y así sucesivamente. Hasta allí no tengo problemas. Lo que pasa es que no se como hacer para cuando llegue el último número de factura de la primera SERIE que sería 001-999999, como le hago para que el 002-000001 salga automáticamente sin tener que modificar nada. Todo debe hacerse dinámicamente.

Muchas gracias por contestarme. Espero sus respuestas y que Dios los bendiga.

[diegocres]

Hola, en los 99999 cuenta cinco nueves y sacas el 1 o el ultimo digito de la serie 001 para que le sumes

[tranquilo_8925]

Hola diegocres sería posible que pongas un ejemplo por favor. Con el siguiente código genero el número de factura automático

Código:

Dim comm As New SqlCommand("Select count(idFact) from Factura", CON)
Dim nFact As Integer
nFact = comm.ExecuteScalar
nFact = nFact + 1
LblFact.Text = LblSer.Text & Format(nFact, "000000")

' CON ES LA CONEXION

******
ESTA CODIFICACIÓN GENERA EL CÓDIGO 001-000001, 001-000002 ...

[diegocres]

Tienes que hacer un for osea
b=0
for i = 1 hasta 5
a = Convert.ToChar(this.txtTexto.Text.Substring(i, 1));
si (a == 9)
b=b+1
else
sale del si
si b== 5
sume al 002 +1
end for


pruebale porfa y nos avisas

[tranquilo_8925]

Hola diegocres Muchas gracias, me parece o estas usando PHP. Me gustaría ver el código en Visual Basic.
De todas maneras muchas gracias.

[freegirl]

si cuando llegas a 001-999999 tienes que cambiar a 002. Pues metes un IF.

No obstante ¿de dónde sacas la serie? Supongo que la tienes guardad en la BD...Si el label de la serie no es visible, y no tiene ninguna otra utilidad que la de almacenar un valor ¿no sería mejor tenerlo en una variable?

Código vb:

Dim comm As New SqlCommand("Select count(idFact) from Factura", CON)
Dim nFact As Integer
nFact = comm.ExecuteScalar
 
IF nFact=999999 Then
varSerie= varSerie +1
nFact =1
Else
nFact = nFact + 1
End If
 
LblFact.Text =   Format(varSerie, "000") & Format(nFact, "000000")
 

[slayer_ramsi]

Alguno de Ustedes ya Logro Resolver como Hacer para Poder Genrear ese Numero Por Favor Podrian Echare una Mano y por Cierto Buen Tema

[slayer_ramsi]

Alguno de Ustedes ya Logro Resolver como Hacer para Poder Genrear ese Numero Por Favor Podrian Echare una Mano y por Cierto Buen Tema