En esta lección terminamos con el formulario de Kardex del curso Curso de Software de Ventas, ya con esto podemos ver un historial del producto
En este vídeo construimos la ventana del Kardex donde se visualizara el historial de producto seleccionado del inventario.
Primero se llenan los Datos del producto en la ventana del Kardex
Dim IdProductoSeleccionado
Sub DatosProducto()
If frmInventario.msGrid.Row > 0 Then
IdProductoSeleccionado = frmInventario.msGrid.TextMatrix(frmInventario.msGrid.Row, 1)
txtCodigoPro = frmInventario.msGrid.TextMatrix(frmInventario.msGrid.Row, 2)
txtNombrePro = frmInventario.msGrid.TextMatrix(frmInventario.msGrid.Row, 3)
End If
End Sub Luego cargamos la información llenando el grid, podemos filtrar por mes y año o por un rango de Fechas
Sub Llenar_Grid()
Dim Filtro
Dim Sql As String
Dim Columnas As Integer
Filtro = ""
'Buscar por mes
If chkPorFecha.Value = 0 Then
Mes = cmdMeses.ListIndex + 1
Anio = txtAnio.Text
Filtro = " Month(Fecha) = " & Mes & " and Year(Fecha) = " & Anio
Else
'buscar por rango de fecha
Fecha1 = Format(DTFecha1.Value, "mm/dd/yyyy")
Fecha2 = Format(DTFecha2.Value, "mm/dd/yyyy")
Filtro = " Format(Fecha,'dd/mm/yyyy') Between #" & Fecha1 & "# and #" & Fecha2 & "#"
End If
Sql = "Select Format(Fecha,'dd/mm/yyyy H:mm:ss'), Detalle, D_C, Cantidad, Costo, Cant_Saldo From tblKardex Where " & Filtro & " and IdProducto = " & IdProductoSeleccionado & " Order by IdKardex ASC "
Columnas = 6
Call LlenarGrid(msGrid, Sql, Columnas)
msGrid.ColWidth(0) = 0
msGrid.ColWidth(1) = 2200
msGrid.ColWidth(2) = 5200
msGrid.ColWidth(3) = 700
msGrid.ColWidth(4) = 800
msGrid.ColWidth(5) = 1600
msGrid.ColWidth(6) = 900
msGrid.TextMatrix(0, 1) = "Fecha"
msGrid.TextMatrix(0, 2) = "Descripción"
msGrid.TextMatrix(0, 3) = "D_C"
msGrid.TextMatrix(0, 4) = "Cant"
msGrid.TextMatrix(0, 5) = "Costo"
msGrid.TextMatrix(0, 6) = "Saldo"
msGrid.Redraw = False
For I = 1 To msGrid.Rows - 1
msGrid.Row = I
msGrid.Col = 4
msGrid.CellAlignment = flexAlignCenterCenter
msGrid.Col = 6
msGrid.CellAlignment = flexAlignCenterCenter
msGrid.TextMatrix(I, 5) = Format(msGrid.TextMatrix(I, 5), "currency")
Next I
msGrid.Redraw = True
End Sub
Hay un control check para poder escoger entre filtrar por mes y año o por rango de fechas
Private Sub chkPorFecha_Click()
If chkPorFecha.Value = 1 Then
DTFecha1.Enabled = True
DTFecha2.Enabled = True
Else
DTFecha1.Enabled = False
DTFecha2.Enabled = False
End If
End Sub El resto de los eventos
Private Sub cmdBuscar_Click()
Call Llenar_Grid
End Sub
Private Sub cmdCerrar_Click()
Unload Me
End Sub
Private Sub Form_Load()
cmdMeses.ListIndex = Format(Date, "mm") - 1
txtAnio.Text = Format(Date, "yyyy")
DTFecha1.Enabled = False
DTFecha2.Enabled = False
Call DatosProducto
Call Llenar_Grid
End Sub
Private Sub txtAnio_KeyPress(KeyAscii As Integer)
If SoloNumeros(KeyAscii) = False Then
KeyAscii = 0
End If
End Sub Saludos, en este tutorial aprenderás a integrar tu aplicación de Visual Basic 6 con un…
Recientemente, muchos usuarios de Hotmail (ahora Outlook.com) han reportado un error al intentar iniciar sesión…
En este proyecto, vamos a desarrollar una calculadora sencilla usando Visual Basic 6, que permite…
6 de septiembre de 2024 - La demanda de desarrolladores de software sigue en aumento,…
En un movimiento histórico, la Unión Europea ha aprobado la primera ley de inteligencia artificial…
¿Sigues trabajando con Visual Basic 6 y necesitas una forma eficiente de acceder a tus…
Este sitio utiliza cookies desea activarlas
Ver Comentarios
HOLA, LA PREGUNTA ES EN QUE PARTE DEL FORMULARIO FrmProducto CREAR NUEVO PRODUCTO Y MODIFICAR PRODUCTO SE LLAMA al procedimiento FKardex para que guarde la modificación del detalle, cantidad existencia, costo, y saldo , por que en el vídeo no aparece, Y ME GUSTARÍA SABER COMO LLAMO ESE PROCEDIMIENTO PARA CARGAR KARDEX, MUCHAS GRACIAS POR LA CONCATENAN PRESTADA