Punto de Venta en Access 2010 | Pantallas de Inventarios | Entrega 4

Esta entrega hasta ahorita "Las Pantallas de Inventarios", quizás vaya a ser una de las que mas contenido haya que explicar. Por lo que tendré la necesidad de dividirlo en 2 partes La Funcional y la Lógica, para cada una de estas he preparado un vídeo por separado, para así comprender con mas claridad como funciona este Modulo de Inventarios.

La Parte FUNCIONAL: Pantalla de Inventarios

Empezare por explicar que hay 2 pantallas y 2 Tablas de Inventarios:

1. INVENTARIOS               "Esta sera la lista Principal de Inventarios"
2. ENTRADAS_INV            "Las Entradas Individuales de Inventario"

TABLA DE INVENTARIOS

>>> Prueba YA todo el Sistema Punto de Venta en Access Completo <<<

En esta Tabla, ademas de los particular tendremos 2 campos calculados, (que ha sido una de las novedades incluidas en la versión 2010 de Access). Uno Bajo el nombre de CANT_DISPONIBLE que almacenara todas cantidades existentes (Cantidad de Exhibición + Cantidad de Localización 1 + Cantidad de Localización + Cantidad de Localización 3), El segundo campo Calculado sera BAJO_INVENTARIO este campo tiene una condición que evalúa si la Cantidad Disponible Total es Menor a la Cantidad Mínima estipulada para el producto, se colocara  un "SI" para indicarnos que el inventario es bajo para este producto y sera necesario adquirir mas, y un "NO" cuando nuestra cantidad disponible sea mayor a la cantidad mínima estipulada para el Producto.


PANTALLA DE INVENTARIOS

En esta Pantalla (de formato Dividido) mostrar la lista principal de Inventario y podremos ahí notar todos lo cambios realizados en las cantidades, así como también poder capturar nuevos productos a la lista.

TABLA DE ENTRADAS DE INVENTARIO

En esta Tabla  "Entradas de Producto", va a ser la tabla donde quedaran registradas cada una de las entradas de cada producto en particular, sera como una especie de Log de Entradas (o lo que es lo mismo Detalles de Registros de Entradas), Aquí quedaran registradas las nuevas cantidades que se ingresaran a la lista principal de inventarios (por ende actualizándolo)

PANTALLA DE ENTRADAS DE INVENTARIO

Esta Pantalla de Entradas de Inventarios, sera la interfaz donde el usuario podrá capturar todos los productos , sus cantidades y localizaciones de asignación para cada producto en particular.




La Parte LÓGICA: Pantallas de Inventarios

• Todos los Campos de Cantidades para las Tablas INVENTARIO e INVENTARIO_ENT seran de Tipo "Doble" eso para permitir cantidades y fracciones
• La expresion del Campo Calculado : CANTIDAD_DISPONIBLE es la siguiente:

[CANT_LOC1]+[CANT_LOC2]+[CANT_LOC3]+[CANTIDAD_EN_EXHIBICION]

• La expresión del Campo Calculado: BAJO_INVENTARIO es la siguiente:

SiInm([CANT_DISPONIBLE]<[CANTIDAD_MINIMA],"SI","NO")

• EL CODIGO DEL BOTON [Guadar y Continuar] Nombre del Boton :CmdGuardarInv

Insertar este Código en en evento Clic

Descargar esta Entrega Aqui

(importa estos objetos a tu base de datos como se explica en este Video )

    
Private Sub CmdGuardarInv_Click()
On Error GoTo err:

'Variables de ejecucion
Dim idprod As Integer
Dim CantEnt As Double
Dim Loc As String
Dim CantActualInv As Double
Dim CantExhibicion As Double
Dim NvaCantExhibicion As Double
Dim CantLoc1 As Double
Dim NvaCantLoc1 As Double
Dim CantLoc2 As Double
Dim NvaCantLoc2 As Double
Dim Cantloc3 As Double
Dim NvaCantLoc3 As Double

'Anular valores nulos en la asignacion de valores
idprod = Nz(Me.FID_PRODUCTO.Value, 0)
CantEnt = Nz(Me.CANTIDAD_ENTRADA.Value, 0)
Loc = Nz(Me.ASIGNAR_LOCALIZACION.Value, "")

'Buscar datos en Lista de Inventarios
Dim Rst As DAO.Recordset
Dim sql As String

sql = "SELECT * FROM [INVENTARIOS] US WHERE US.[FID_PRODUCTO]=" & idprod
Set Rst = CurrentDb.OpenRecordset(sql)

If Rst.BOF And Rst.EOF Then
        MsgBox "Producto No Encontrado en la Lista de Inventario"
    Else
        'Accion al Encontrar el producto en lista de inventario
        'Actualizar Cantidad de Inventario segun la localizacion Seleccoionada
        Select Case Loc
        Case "EXHIBICION"
            CantExhibicion = Rst![CANTIDAD_EN_EXHIBICION]
            NvaCantExhibicion = CantExhibicion + CantEnt
            Rst.Edit
            Rst![CANTIDAD_EN_EXHIBICION] = NvaCantExhibicion
            Rst.Update
        Case "LOCALIZACION_1"
            CantLoc1 = Rst![CANT_LOC1]
            NvaCantLoc1 = CantLoc1 + CantEnt
            Rst.Edit
            Rst![CANT_LOC1] = NvaCantLoc1
            Rst.Update
        Case "LOCALIZACION_2"
            CantLoc2 = Rst![CANT_LOC2]
            NvaCantLoc2 = CantLoc2 + CantEnt
            Rst.Edit
            Rst![CANT_LOC2] = NvaCantLoc2
            Rst.Update
        Case "LOCALIZACION_3"
            Cantloc3 = Rst![CANT_LOC3]
            NvaCantLoc3 = Cantloc3 + CantEnt
            Rst.Edit
            Rst![CANT_LOC3] = NvaCantLoc3
            Rst.Update
        End Select
        
Rst.Close
Set Rst = Nothing
End If

DoCmd.GoToRecord , , acNext

Exit Sub
err:
MsgBox err.Description
End Sub

  PANTALLA DE INVENTARIOS

  ENTRADAS DE INVENTARIOS

INDICE      ANTERIOR     SIGUIENTE