Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Sistema de gestion de stock

Estas en el tema de Sistema de gestion de stock en el foro de Visual Basic clásico en Foros del Web. Hola a todos, empece hace unos dias con un sistema de gestion de stock, es un trabajo para la facultad. Logre crear la base de ...
  #1 (permalink)  
Antiguo 28/04/2014, 10:48
 
Fecha de Ingreso: enero-2010
Mensajes: 400
Antigüedad: 14 años, 11 meses
Puntos: 6
Sistema de gestion de stock

Hola a todos, empece hace unos dias con un sistema de gestion de stock, es un trabajo para la facultad. Logre crear la base de datos en acces, cree la tabla con Codigo del producto, Articulo, Precio de costo, Precio de venta, Cantidad (Stock).
Le agregue la funcion Buscar, osea cuando yo pongo el codigo del producto me saltan todos estos datos y esta perfecto me dice que es, cuanto vale, cuanto stock disponible. Les dejo una imagen.



Ahora necesito crear un sistema de ventas, que me de la opcion de vender, que se descuente automaticamente el stock y que se guarde con la fecha y el precio de lo vendido y luego se sume el total dia por dia.

Pero no encontre ni un solo tutorial de como hacer esto con visual basic 6... Alguien conoce alguno?
O pueden ayudarme? gracias !!

EL CODIGO ES:
Código vb:
Ver original
  1. Dim CN As New ADODB.Connection
  2.  
  3.  
  4. Private Sub Text1_Change()
  5.  
  6. End Sub
  7.  
  8. Private Sub Text2_Change()
  9.  
  10. End Sub
  11.  
  12. Private Sub Text3_Change()
  13.  
  14. End Sub
  15.  
  16. Private Sub Command1_Click()
  17.  
  18. Dim tbl As New ADODB.Recordset
  19. tbl.Open "select * from Productos where Codigo=" & Val(txtcodigo.Text), CN, adOpenDynamic, adLockOptimistic
  20.  
  21. If tbl.EOF = True And tbl.EOF = True Then
  22. tbl.AddNew
  23. tbl("Codigo") = Val(txtcodigo.Text)
  24. tbl("Articulo") = txtarticulo.Text
  25. tbl("Precio de costo") = txtcosto.Text
  26. tbl("Precio de venta") = txtventa.Text
  27. tbl("Cantidad") = txtstock.Text
  28. tbl.Update
  29.  
  30.  
  31. Else
  32. MsgBox "Este artículo ya existe", vbCritical, "Error"
  33. End If
  34.  
  35. Call consulta
  36.  
  37. End Sub
  38.  
  39. Private Sub Command2_Click()
  40. Dim tbl As New ADODB.Recordset
  41. tbl.Open "select * from Productos where Codigo=" & Val(txtcodigo.Text), CN, adOpenDynamic, adLockOptimistic
  42.  
  43. If tbl.EOF = False And tbl.BOF = False Then
  44.  
  45. txtcodigo.Text = tbl("Codigo")
  46. txtarticulo.Text = tbl("Articulo")
  47. txtcosto.Text = tbl("Precio de costo")
  48. txtventa.Text = tbl("Precio de venta")
  49. txtstock.Text = tbl("Cantidad")
  50.  
  51. Else
  52. MsgBox "Este artículo no existe", vbCritical, "Error"
  53. End If
  54. End Sub
  55.  
  56. Private Sub Command3_Click()
  57. Dim tbl As New ADODB.Recordset
  58. tbl.Open "select * from Productos where Codigo=" & Val(txtcodigo.Text), CN, adOpenDynamic, adLockOptimistic
  59.  
  60. If tbl.EOF = False And tbl.BOF = False Then
  61.  
  62. tbl("Articulo") = txtarticulo.Text
  63. tbl("Precio de costo") = txtcosto.Text
  64. tbl("Precio de venta") = txtventa.Text
  65. tbl.Update
  66.  
  67.  
  68. Else
  69. MsgBox "Este artículo no existe", vbCritical, "Error"
  70. End If
  71.  
  72. Call consulta
  73. End Sub
  74.  
  75. Private Sub Command4_Click()
  76. Dim tbl As New ADODB.Recordset
  77. tbl.Open "select * from Productos where Codigo=" & Val(txtcodigo.Text), CN, adOpenDynamic, adLockOptimistic
  78.  
  79. If tbl.EOF = False And tbl.EOF = False Then
  80. tbl.Delete
  81. tbl.Update
  82.  
  83.  
  84. Else
  85. MsgBox "Este artículo no existe", vbCritical, "Error"
  86. End If
  87.  
  88. Call consulta
  89. End Sub
  90.  
  91. Private Sub Form_Load()
  92. CN.Open "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & App.Path & "\RootsModas.accdb" & ";Persist security info=false"
  93.  
  94. Call consulta
  95.  
  96. End Sub
  97.  
  98. Private Sub consulta()
  99.  
  100. Dim tbl As New ADODB.Recordset
  101.  
  102. tbl.CursorLocation = adUseClient
  103. tbl.CursorType = adOpenDynamic
  104. tbl.LockType = adLockBatchOptimistic
  105.  
  106. tbl.Open "select * from Productos where Codigo", CN, adOpenDynamic, adLockBatchOptimistic
  107.  
  108. Set dg.DataSource = tbl
  109.  
  110.  
  111.  
  112. End Sub

Última edición por bbrian; 28/04/2014 a las 11:21
  #2 (permalink)  
Antiguo 26/11/2015, 00:57
 
Fecha de Ingreso: noviembre-2015
Mensajes: 1
Antigüedad: 9 años
Puntos: 0
Respuesta: Sistema de gestion de stock

Hola se que esto tiene en internet desde hace mucho pero tengo un problema muuuuy parecido el mio es un sistema de ventas de una zapateria, y me estoy basando en este sin embargo en el boton buscar me sale un error en al momento de ingresar la secuencia sql, el error dice, no ha dado parametros requeridos algo asi y no se como solucionarlo, quisisera saber si me podrias ayudar :C

Etiquetas: basic, gestion, sistema, stock, tabla, todo, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 11:42.