Validar correlativo por Serie
Publicado por Juan (1 intervención) el 16/09/2014 00:48:12
Buenas tardes, voy iniciando en la programación y lógicamente saltan muchas dudas, estoy realizando un sistema de facturación, claro muchos ejemplos hay en internet, y de ahí voy recopilando información, mi proyecto maneja series y cada seria debe generar un correlativo diferente, la serie lo tengo en una base de datos y cuando creo un nuevo ya logre que me muestre todos los datos de la tabla serie, pero ahora necesito que por casa serie tenga su propio correlativo (que valide eso), lo tengo en tres capas lo de la serie lo tengo asi
Procedimiento en SQL
Este mi codigo en la clase datos (esta en tres capas)
Y este es mi método en Visual Basic (capa presentacion, con esto me muestra las serie que están en mi tabla serie)
AHORA LO QUE NECESITO QUE CUANDO SELECCIONE UNA SERIE, ESTOY PASANDO EL PARÁMETRO SERIE PUEDA VISUALIZAR EN LE TXTNUMERO EL CORRELATIVO CORRESPONDIENTE, ES PROCEDIMIENTO QUE TENGO ES:
Al ejecutarlo desde Sql, me pide el parámetro y funciona bien, aclaro que este código lo encontré por internet, ahora como hago para que lo puede visualizar en VB cuando seleccione una serie. de Antemano gracias por una ayuda
Procedimiento en SQL
1
2
3
4
CREATE PROCEDURE proyectomaestro_filtrarserie
as
select * from serie where MovimientoTipo='1' and Estatus='1'
go
Este mi codigo en la clase datos (esta en tres capas)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function filtrarserie() As DataTable
Try
conectado()
cmd = New SqlCommand("proyectomaestro_filtrarserie")
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnn
If cmd.ExecuteNonQuery ThenDim dt As New DataTable
Dim da As New SqlDataAdapter(cmd)
da.Fill(dt)
Return dt
Else
Return Nothing
End If
Catch ex As Exception
MsgBox(ex.Message)
Return Nothing
Finally
desconectado()
End Try
End Function
Y este es mi método en Visual Basic (capa presentacion, con esto me muestra las serie que están en mi tabla serie)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Try
Dim func As New fproyectomaestro
dt = func.filtrarserie
If dt.Rows.Count <> 0 Then
For i = 0 To dt.Rows.Count - 1
cbserie.Items.Add(dt.Rows(i).Item("Serie"))
Next
Else
MsgBox("No existe Serie", MsgBoxStyle.Critical)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
AHORA LO QUE NECESITO QUE CUANDO SELECCIONE UNA SERIE, ESTOY PASANDO EL PARÁMETRO SERIE PUEDA VISUALIZAR EN LE TXTNUMERO EL CORRELATIVO CORRESPONDIENTE, ES PROCEDIMIENTO QUE TENGO ES:
1
2
3
4
5
6
7
8
9
CREATE PROCEDURE proyectomaestro_generanumero
@Serie varchar(50)
as begin
declare @Numero int
set @Numero= (select MAX(numero)from PROYECTO_MAESTRO where MovimientoTipo='1' and SERIE=@serie)
Set @Numero='0'+RIGHT('000'+LTRIM(right(isnull(@Numero,'000'),4)+1),4)
select @Numero as codem
end
go
Al ejecutarlo desde Sql, me pide el parámetro y funciona bien, aclaro que este código lo encontré por internet, ahora como hago para que lo puede visualizar en VB cuando seleccione una serie. de Antemano gracias por una ayuda
Valora esta pregunta
0