Visual Basic - Numeros de factura

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 73
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Edward
Val: 152
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 73
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar