Punto de Venta Visual Basic (Parte 4)

Ejercicio Anterior|Ejercicio Siguiente
Pantalla de Ventas (frmVenta)
Diseñamos el formulario (frmVenta) de la siguiente manera:

Declaramos la variable que almacenará el total de la venta:

Dim varTotal As Double = 0

Proceso para agregar articulos a la lista de ventas:

    Protected Function Agregar() As Boolean
        Dim cnn As New OleDbConnection(CnnStr)
        Dim RowCount As Integer = 0
        Try
            cnn.Open()
            Dim cmd As New OleDbCommand
            cmd.Connection = cnn
            ''validamos si existe el producto
            cmd.CommandText = "SELECT COUNT(*) FROM PRODUCTOS " & _
                "WHERE ID_PRODUCTO=@ID_PRODUCTO"
            cmd.Parameters.Add("@ID_PRODUCTO", _
                OleDbType.VarChar, 50).Value = txtIdProducto.Text
            RowCount = CInt(cmd.ExecuteScalar)
            cmd.Parameters.Clear() ''Limpiamos parametros
            If (RowCount = 0) Then
                Throw (New Exception("El producto no existe"))
            End If
            ''insertamos el producto a la tabla temporal
            cmd.CommandText = "SELECT COUNT(*) " & _
                " FROM VENTA_DETALLE_TMP " & _
                " WHERE ID_PRODUCTO=@ID_PRODUCTO" & _
                " AND USER_LOGIN=@USER_LOGIN"
            cmd.Parameters.Add("@ID_PRODUCTO", _
                OleDbType.VarChar, 50).Value = txtIdProducto.Text
            cmd.Parameters.Add("@USER_LOGIN", _
                OleDbType.VarChar, 50).Value = frmLogin.UserLogin
            RowCount = CInt(cmd.ExecuteScalar)
            cmd.Parameters.Clear() ''Limpiamos parametros
            If (RowCount = 0) Then
                ''Nuevo
                cmd.CommandText = "INSERT INTO VENTA_DETALLE_TMP " & _
                    " (USER_LOGIN, ID_PRODUCTO,CANTIDAD," & _
                    "PRECIO_VENTA,PRECIO_COMPRA,IMPUESTO) " & _
                    " SELECT @USER_LOGIN, ID_PRODUCTO, @CANTIDAD, " & _
                    " PRECIO_VENTA, PRECIO_COMPRA, IMPUESTO " & _
                    " FROM PRODUCTOS WHERE ID_PRODUCTO=@ID_PRODUCTO"
                cmd.Parameters.Add("@USER_LOGIN", _
                   OleDbType.VarChar, 50).Value = frmLogin.UserLogin
                cmd.Parameters.Add("@CANTIDAD", _
                    OleDbType.Double).Value = txtCantidad.Text
                cmd.Parameters.Add("@ID_PRODUCTO", _
                    OleDbType.VarChar, 50).Value = txtIdProducto.Text
            Else
                ''Editar
                cmd.CommandText = "UPDATE VENTA_DETALLE_TMP " & _
                    " SET CANTIDAD = CANTIDAD + @CANTIDAD " & _
                    " WHERE ID_PRODUCTO=@ID_PRODUCTO " & _
                    " AND USER_LOGIN=@USER_LOGIN "
                cmd.Parameters.Add("@CANTIDAD",
                    OleDbType.Double).Value = txtCantidad.Text
                cmd.Parameters.Add("@ID_PRODUCTO",
                    OleDbType.VarChar, 50).Value = txtIdProducto.Text
                cmd.Parameters.Add("@USER_LOGIN",
                    OleDbType.VarChar, 50).Value = frmLogin.UserLogin
            End If
            cmd.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Throw (ex)
        Finally
            cnn.Close()
        End Try
    End Function

Lógica del proceso:

Se indica el producto y la cantidad
Se valida si existe el producto.

Si no existe el producto se genera un error (Throw)


Se valida si el producto ya existe en la lista de ventas

Si no existe se agrega nuevo
Si existe, se actualiza la cantidad

Código para cancelar la venta:

    Protected Function CancelarVenta() As Boolean
        Dim cnn As New OleDbConnection(CnnStr)
        Try
            cnn.Open()
            Dim cmd As New OleDbCommand
            cmd.Connection = cnn
            cmd.CommandText = "DELETE FROM VENTA_DETALLE_TMP " & _
                "WHERE USER_LOGIN=@USER_LOGIN"
            cmd.Parameters.Add("@USER_LOGIN",
               OleDbType.VarChar, 50).Value = frmLogin.UserLogin
            cmd.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Throw (ex)
        Finally
            cnn.Close()
        End Try
    End Function

El siguiente código genera los encabezados del LisView:

    Protected Sub Encabezados()
        With lvVenta
            .View = View.Details
            .FullRowSelect = True
            .GridLines = True
            .HideSelection = False
            .Columns.Add("Id", 50)
            .Columns.Add("Producto", 250)
            .Columns.Add("Cant", 50, HorizontalAlignment.Right)
            .Columns.Add("Prec", 50, HorizontalAlignment.Right)
            .Columns.Add("Total", 80, HorizontalAlignment.Right)
        End With
    End Sub

El siguiente código Muestra los productos en el ListView:

    Protected Sub MostrarVenta()
        Dim cnn As New OleDbConnection(CnnStr)
        varTotal = 0
        Try
            cnn.Open()
            Dim cmd As New OleDbCommand
            cmd.Connection = cnn
            cmd.CommandText = "SELECT P.ID_PRODUCTO, " & _
                "P.PRODUCTO, T.CANTIDAD, T.PRECIO_VENTA," & _
                "(T.CANTIDAD * T.PRECIO_VENTA) AS TOTAL " & _
                " FROM VENTA_DETALLE_TMP T, PRODUCTOS P " & _
                " WHERE T.ID_PRODUCTO=P.ID_PRODUCTO " & _
                " AND T.USER_LOGIN=@USER_LOGIN"
            cmd.Parameters.Add("@USER_LOGIN",
               OleDbType.VarChar, 50).Value = frmLogin.UserLogin
            Dim dr As OleDbDataReader = cmd.ExecuteReader
            Dim i As Integer = 0
            lvVenta.Items.Clear()
            While (dr.Read())
                With lvVenta
                    .Items.Add(dr("ID_PRODUCTO").ToString())
                    .Items(i).SubItems.Add(dr("PRODUCTO").ToString())
                    .Items(i).SubItems.Add(String.Format("{0:N}",
                               dr("CANTIDAD")))
                    .Items(i).SubItems.Add(String.Format("{0:C}",
                              dr("PRECIO_VENTA")))
                    .Items(i).SubItems.Add(String.Format("{0:C}",
                              dr("TOTAL")))
                End With
                varTotal += CDbl(dr("TOTAL"))
                i += 1
            End While
            dr.Close()
            lblTotal.Text = String.Format("{0:C}", varTotal)
        Catch ex As Exception
            Throw (ex)
        Finally
            cnn.Close()
        End Try
    End Sub

Botón "Agregar":

    Private Sub btnAgregar_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnAgregar.Click
        Try
            If (Agregar()) Then
                MostrarVenta()
                txtCantidad.Text = "1"
                txtIdProducto.Text = ""
                txtIdProducto.Focus()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Información del Sistema",
               MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Botón "Cancelar":

    Private Sub btnCancelar_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles btnCancelar.Click
        Try
            If (CancelarVenta()) Then
                lvVenta.Items.Clear()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Información del Sistema",
                MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Botón "Cobrar":

    Private Sub btnCobrar_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles btnCobrar.Click
        If (lvVenta.Items.Count > 0) Then
            Dim frm As New frmCobrar
            frm.TotalVenta = varTotal
            frm.StartPosition = FormStartPosition.CenterScreen
            frm.ShowInTaskbar = False
            frm.ShowDialog()
            If (frm.Success) Then
                lvVenta.Items.Clear()
            End If
        Else
            MessageBox.Show("No hay elementos", "Información del Sistema",
               MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

Form_Load:

    Private Sub frmVenta_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Encabezados()
            MostrarVenta()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Información del Sistema", _
               MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Ahora vamos al furmulario mdiMain y creamos el siguiente proceso:

    Protected Sub Ventas()
        Dim frm As New frmVenta
        frm.StartPosition =
            FormStartPosition.CenterScreen
        frm.ShowInTaskbar = False
        frm.ShowDialog()
    End Sub

De esta manera podremos mandar llamar al formulario frmVenta. Por ejemplo, si deseamos llamarlo desde el botón btnVentas:

    Private Sub btnVentas_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles btnVentas.Click
        Ventas()
    End Sub

Si todo está bien hasta este punto, hemos terminado el proceso de ventas. Mas adelante veremos como crear el Ticket de Venta utlizando el generador de reportes de Visual Studio.