Insertar datos de una tabla a otra por combobox
Publicado por Matias (4 intervenciones) el 10/12/2018 19:55:12
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 Productos: 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):
Y también hice la conexión a la DB en una clase de esta forma:
¿Cómo hago para incorporar esa función a mi formulario Movimientos?
¡DESDE YA MUCHAS GRACIAS!
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 Productos: 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):
1
2
3
4
@codproducto as integer,
@cantidad as decimal (18,2)
as
update producto set stock=stock+@cantidad where codproducto=@codproducto
Y también hice la conexión a la DB en una clase de esta forma:
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
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


0