RETO 4 – Modulo de ventas

Public Class frm_modulo_de_ventas

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        lblfecha.Text = Date.Today

        lblhora.Text = Date.Now().ToLongTimeString

    End Sub

    Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click

        txtsubtotal.Text = Val(txtprecio.Text) * Val(txtcantidad.Text)

        txtigv.Text = Val(txtsubtotal.Text) * 0.18

        txtneto.Text = Val(txtsubtotal.Text) - Val(txtigv.Text)

        If txtnombre.Text = "" Then

            MessageBox.Show("Ingrese el Nombre del Producto")

            txtnombre.Focus()

            txtigv.Text = ""

            txtsubtotal.Text = ""

            txtneto.Text = ""

        End If

    End Sub

    Private Sub txtnombre_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtnombre.Validating

        If IsNumeric(txtnombre.Text) Then

            Me.epcod.SetError(Me.txtnombre, "Error ingresa dato tipo Texto")

            Me.txtnombre.Focus()

        Else

            Me.epcod.SetError(Me.txtnombre, "")

        End If

    End Sub

    Private Sub txtprecio_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtprecio.Validating

        If Not IsNumeric(txtprecio.Text) Then

            Me.epcod.SetError(Me.txtprecio, "Error ingresa dato tipo Numerico")

            Me.txtprecio.Focus()

        Else

            Me.epcod.SetError(Me.txtprecio, "")

        End If

    End Sub

    Private Sub txtcantidad_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtcantidad.Validating

        If Not IsNumeric(txtcantidad.Text) Then

            Me.epcod.SetError(Me.txtcantidad, "Error ingresa dato tipo Numerico")

            Me.txtcantidad.Focus()

        Else

            Me.epcod.SetError(Me.txtcantidad, "")

        End If

    End Sub

    Private Sub btnnuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnuevo.Click

        txtcantidad.Clear()

        txtigv.Clear()

        txtneto.Clear()

        txtnombre.Clear()

        txtprecio.Clear()

        txtigv.Clear()

    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click

        Dim salida As Integer = MsgBox("Desdea salir de verdad??  deveritas deveritas?",

        MsgBoxStyle.YesNo + 32, "Mensaje al usuario")

        If salida = 6 Then

            End

        End If

    End Sub

End Class