Visual Basic - Agregar datos de una tabla a otra por combobox

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Matias
Val: 5
Ha aumentado su posición en 17 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Agregar datos de una tabla a otra por combobox

Publicado por Matias (4 intervenciones) el 14/12/2018 18:16:32
Buenas tardes a todos, me surgió un problema:

Quiero saber todos los datos de mis movimientos, por eso es que cree una tabla Movimientos cuyos campos son numero_mov, codproducto, nombre, cantidad, concepto(varchar50), precio, decimal, fecha_mov. Y en mi formulario Movimientos quiero que si el combobox cboconcepto es "Entrada", la cantidad se sume el stock en la tabla Producto y si es "Salida extraordinaria" se reste también en esa tabla. Campos de tabla Producto: codproducto, codsubcategoria, stock, precio_compra, precio_venta, fecha_venc.

Hice 2 proc almacenado aumentar y disminuir stock que son algo así(signo menos si es disminuir):

@codproducto as integer,
@cantidad as decimal (18,2)
as
update producto set stock=stock+@cantidad where codproducto=@codproducto



Tengo una clase con métodos get y set por ejemplo



Public Class vmovimientos
Dim numero_mov, codproducto As Integer
Dim nombre, concepto As String
Dim cantidad, precio As Double
Dim fecha_movimiento As Date

Public Property gnumero_mov
Get
Return numero_mov
End Get
Set(ByVal value)
numero_mov = value
End Set
End Property

Public Property gcodproducto
Get
Return codproducto
End Get
Set(ByVal value)
codproducto = value
End Set
End Property


End Property

Public Property gconcepto
Get
Return concepto
End Get
Set(ByVal value)
concepto = value
End Set
End Property

Public Property gcantidad
Get
Return cantidad
End Get
Set(ByVal value)
cantidad = value
End Set
End Property

Public Property gprecio
Get
Return precio
End Get
Set(ByVal value)
precio = value
End Set
End Property

Public Sub New()

End Sub

Public Sub New(ByVal numero_mov As Integer, ByVal codproducto As Integer, ByVal concepto As String, ByVal cantidad As Double, ByVal precio As Double)
gnumero_mov = numero_mov
gcodproducto = codproducto
gcantidad = cantidad
gprecio = precio
gconcepto = concepto






Y también hice la conexión a la DB en una clase de esta forma:

Public Function aumentar_stock(ByVal dts As vmovimientos) As Boolean
Try
conectado()
cmd = New SqlCommand("aumentar_stock")
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnn


cmd.Parameters.AddWithValue("@codproducto", dts.gcodproducto)
cmd.Parameters.AddWithValue("@cantidad", dts.gcantidad)


If cmd.ExecuteNonQuery Then
Return True

Else
Return False
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
Finally
desconectado()
End Try
End Function



¿Cómo hago para incorporar esa función a mi formulario Movimientos?

¡DESDE YA MUCHAS GRACIAS!
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