Curso Software de Ventas Parte 23, Kardex Parte 1

Siguiente con el Curso Software de Ventas Parte en esta lección 23 seguimos con la ventana de Kardex

En esta lección veremos como se crea un consulta de inserción de datos desde MS Access para probar la consulta que usaremos en Visual Basic para registrar los movimientos del Producto en el Kardex.

La conslta es la siguiente con la se probo en MS Access recuerde que el ID del producto debe existir en la tabla tblProductos

INSERT INTO tblKardex ( IdProducto, Detalle, D_C, Cantidad, Costo, Cant_Saldo )
SELECT 1, 'Modificación del Producto', 1, 12 - tblProductos.ExistPro, 590, (tblProductos.ExistPro + (12- tblProductos.ExistPro))
FROM tblProductos
WHERE IdProducto = 1;

El Procedimiento con el que se va a guardar los registros en el kardex se creo que el Modulo mod_Consultas de nuestro proyecto

Sub fKardex(IdProducto, Detalle, D_C, Cantidad, Costo)
    Dim Sql As String
    
    On Error GoTo error
    
    
    Sql = "Insert Into tblKardex (IdProducto, Detalle, D_C, Cantidad, Costo, Cant_Saldo) " _
        & " Select " & IdProducto & ", '" & Detalle & "', " & D_C & ", " & Cantidad & " - tblProductos.ExistPro, " & Costo & ", tblProductos.ExistPro + (" & Cantidad & " - tblProductos.ExistPro) " _
        & " From tblProductos Where tblProductos.IdProducto = " & IdProducto
    
    ConexionADO.Execute Sql
    
    Exit Sub
error:
    MsgBox Err.Description, vbCritical, "Error en Kardex"
    
End Sub

El Código de GuardarProducto quedo de la siguiente manera:

If CodigoProducto = 0 Then 
        
        IdProducto = UltimoIdTabla("tblProductos", "IdProducto")
        Sql = "Insert Into tblProductos (IdProducto, CodigoPro, NombrePro, NombreCortoPro,EstantePro, ExistPro, ExistMinPro, PCostoPro,PVenta1Pro, PVenta2Pro, PVenta3Pro, PMinimoPro, IdCategoria, IdProveedor) Values (" & IdProducto & ",'" & txtCodigoPro & "','" & txtNombrePro & "','" & txtNombreCort & "','" & txtEstante & "','" & txtExistencia & "','" & txtExistMinima & "','" & txtPrecioCosto & "','" & txtPrecioV1 & "','" & txtPrecioV2 & "','" & txtPrecioV3 & "', '" & txtPrecioVMinim & "', " & CodCategoria & ", " & CodProv & ") "
                
    Else
        Sql = "Update tblProductos SET CodigoPro = '" & txtCodigoPro & "', NombrePro = '" & txtNombrePro & "',NombreCortoPro = '" & txtNombreCort & "',EstantePro = '" & txtEstante & "',ExistPro = '" & txtExistencia & "',ExistMinPro = '" & txtExistMinima & "', PCostoPro = '" & txtPrecioCosto & "', PVenta1Pro = '" & txtPrecioV1 & "', PVenta2Pro = '" & txtPrecioV2 & "', PVenta3Pro = '" & txtPrecioV3 & "', PMinimoPro = '" & txtPrecioVMinim & "', IdCategoria = '" & CodCategoria & "', IdProveedor = '" & CodProv & "' Where IdProducto = " & CodigoProducto
        
        Call fKardex(CodigoProducto, "Modificación de Producto", 0, txtExistencia, txtPrecioCosto)
    End If
    
    ConexionADO.Execute Sql
    
    If CodigoProducto = 0 Then
       Call fKardex(IdProducto, "Inventario Inicial", 0, txtExistencia, txtPrecioCosto)
    End If
    
    MsgBox "Producto Guardado", vbInformation, "Guardar"