Visual Basic.NET - Validar correlativo por Serie

   
Vista:

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

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 Then
                Dim 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder