Visual Basic - Numeros de factura

Val: 73

Numeros de factura

Publicado por pablo (52 intervenciones) el 16/03/2017 00:04:54

Buenas noches

Les hago una consulta, necesito que al abrir un form un textbox o label tomen de una base de datos en acces el valor del campo numero_factura y lo muestre automaticamente y que al mandar a imprimir el informe me sume en 1 el valor para que al volver a abrir el form este textbox o label cambie de numero.

Para hacerlo mas facil seria como una factura, que al abrir el form factura el campo numero factura vaya cambiando automaticamente.

Saludos

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 11

Val: 152

Numeros de factura

Publicado por Edward (57 intervenciones) el 16/03/2017 15:20:42

Buen día para todos,

Pablo, puedes usar un campo autonumerico que se a incrementando a medida que se ingresan datos, también puedes ir a la ultima fila de la tabla en el campo indicado y sumarle 1.

Espero haber sido de ayuda.

Que tengan buen día,

El conocimiento siempre debe ser compartido, para que entre todos aprendamos un poco mas...

Mas ejemplos acá...

https://aprendamosdeprogramacion.wordpress.com/

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 21

Val: 73

Numeros de factura

Publicado por pablo (52 intervenciones) el 16/03/2017 17:14:32

Buenos dias gente , solucione el tema junto con un amigo con el que estudio y la ayuda de google .
Les dejo el codigo por si les sirve

tiene que pegarlo asi tal cual en un modulo

Public Sub correlativo(ByVal tablax As String, ByVal camponumerodefactura As String, ByVal cajatexto As TextBox)

Try

		Dim serie As String

		Dim numero As String

		Dim sql As String = "SELECT max( " & camponumerodefactura & " ) AS [max] FROM " & tablax & ""

		Dim consulta As New OleDb.OleDbDataAdapter(sql, Cn)

		Dim maxcodigo As New DataTable()

		consulta.Fill(maxcodigo)

		Dim valor As String = String.Empty

		valor = Convert.ToString(maxcodigo.Rows(0)("max"))

		serie = Mid(valor, 1, 3)

		numero = Mid(valor, 5, 7)

		If valor <> "" Then

			If numero = "9999999" Then

				serie = serie + 1

				If Len(serie) = 1 Then serie = "00" & serie

				If Len(serie) = 2 Then serie = "0" & serie

				numero = "0000001"

				If Len(CStr(numero)) = 1 Then numero = "000000" & numero

				If Len(CStr(numero)) = 2 Then numero = "00000" & numero

				If Len(CStr(numero)) = 3 Then numero = "0000" & numero

				If Len(CStr(numero)) = 4 Then numero = "000" & numero

				If Len(CStr(numero)) = 5 Then numero = "00" & numero

				If Len(CStr(numero)) = 6 Then numero = "0" & numero

				cajatexto.Text = serie & "-" & numero

			Else

				numero = numero + 1

				If Len(numero) = 1 Then numero = "000000" & numero

				If Len(numero) = 2 Then numero = "00000" & numero

				If Len(numero) = 3 Then numero = "0000" & numero

				If Len(numero) = 4 Then numero = "000" & numero

				If Len(numero) = 5 Then numero = "00" & numero

				If Len(numero) = 6 Then numero = "0" & numero

				cajatexto.Text = serie & "-" & numero

			End If

		Else

			cajatexto.Text = "001-0000001"

		End If

	Catch ex As Exception

		If Cn.State = ConnectionState.Open Then Cn.Close()

		MsgBox(ex.Message)

	End Try

End Sub

Luego van al form donde quieren que aparezca el numero y llaman a este codigo asi

correlativo("TUTABLA", "CAMPONUMERODEFACTURA",txtnumfactura) donde texnumfactura es el textbox donde quieran que se vea el numero y luego
hacen el insert a la tabla para que lo guarde y al abrir otra vez el form aparezca el siguiente numero.

Saludos

Valora esta respuesta

-1

Comentar