manejar cambios en un formulario usando teclas funcion

[future89]

holas,
mi problema es el siguiente, como estoy recien en esto de programar en visual
nose como implementar mi ventana de ventas, nose como continuar la venta ya sea ingresando el monto, y siquiero volver hacias atras para agregar mas productos, sumar el total de los precio en el textbox de total, en fin muchas cosas de esta pantalla



luego apreto F9 y oculto el textbox y el label de abajo y pongo visible el texbox paara el monto.
sera lo correcto????? y como podria volver atrás???



me quedan pocos días :$


aqui el codigo de todo el form

Código vb:

Imports System.Data.SqlClient
Public Class VentaLibros
    Private myConn As New SqlConnection
    Private myCmd As New SqlCommand
    Dim myReader2 As SqlDataReader
    Private results As String
    Dim adaptor As New SqlClient.SqlDataAdapter
    Dim dataset As New DataSet
 
    Private Sub VentaLibros_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyValue = Keys.F1 Or Keys.F2 Or Keys.F3 Or Keys.F4 Or Keys.F5 Or Keys.F6 Or Keys.F7 Or Keys.F8 Or Keys.F9 Or Keys.F10 Or Keys.F11 Or Keys.F12 Or Keys.Escape Then
            FuncKeysModule(e.KeyValue)
            e.Handled = True
        End If
    End Sub
    Private Sub VentaLibros_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TbMonto.Visible = False
        ingreseMonto.Visible = False
    End Sub
 
    Private Sub TbProducto_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TbProducto.KeyDown
        If e.KeyValue = Keys.F1 Or Keys.F2 Or Keys.F3 Or Keys.F4 Or Keys.F5 Or Keys.F6 Or Keys.F7 Or Keys.F8 Or Keys.F9 Or Keys.F10 Or Keys.F11 Or Keys.F12 Or Keys.Escape Then
            FuncKeysModule(e.KeyValue)
            e.Handled = True
        End If
    End Sub
 
    Private Sub TbProducto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TbProducto.KeyPress
        'Valido que se ingrese solo numeros
 
        If Char.IsNumber(e.KeyChar) Then
            e.Handled = False
            'Valido que se presione Backspace,Enter
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
            'Las demas teclas quedan bloqueadas
        Else
            e.Handled = True
        End If
 
        'Si mando un ENTER entonces que busque
        If e.KeyChar = Convert.ToChar(Keys.Enter) Then
 
            
            myConn = New SqlConnection("Initial Catalog=libroteka;Data Source=localhost;Integrated Security=SSPI;")
       
            myCmd = myConn.CreateCommand
            myCmd.CommandText = "SELECT * FROM libros WHERE cod_libro ='" & TbProducto.Text & "' "
 
 
            adaptor.SelectCommand = myCmd
            adaptor.Fill(dataset, "0")
 
            Dim count = dataset.Tables(0).Rows.Count
            If count > 0 Then
 
                myConn.Open()
                With Ltver.Items.Add(TbProducto.Text, "cod_libro")
                    .SubItems.Add(dataset.Tables(0).Rows(0).Item("nombre_libro"))
                    .SubItems.Add(dataset.Tables(0).Rows(0).Item("precio"))
 
               
                End With
 
 
            End If
        End If
 
 
        TbProducto.Clear()
        dataset.Clear()
        myConn.Close()
 
 
        myConn.Close()
 
      
    End Sub
 
    Private Sub TbProducto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbProducto.TextChanged
 
      
    End Sub
 
    Private Sub Ltver_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Ltver.KeyDown
        If e.KeyValue = Keys.F1 Or Keys.F2 Or Keys.F3 Or Keys.F4 Or Keys.F5 Or Keys.F6 Or Keys.F7 Or Keys.F8 Or Keys.F9 Or Keys.F10 Or Keys.F11 Or Keys.F12 Or Keys.Escape Then
            FuncKeysModule(e.KeyValue)
            e.Handled = True
        End If
    End Sub
 
    
    Public Sub FuncKeysModule(ByVal value As Keys)
        'Check what function key is in a pressed state, and then perform the corresponding action.
        Select Case value
            Case Keys.F1
                'Add the code for the function key F1 here.
                MessageBox.Show("F1 pressed")
            Case Keys.F2
                'Add the code for the function key F2 here.
                MessageBox.Show("F2 pressed")
            Case Keys.F3
                'Add the code for the function key F3 here.
                MessageBox.Show("F3 pressed")
            Case Keys.F4
                'Add the code for the function key F4 here.
                MessageBox.Show("F4 pressed")
            Case Keys.F5
                'Add the code for the function key F5 here.
                MessageBox.Show("F5 pressed")
            Case Keys.F6
                'Add the code for the function key F6 here.
                MessageBox.Show("F6 pressed")
            Case Keys.F7
                'Add the code for the function key F7 here.
                MessageBox.Show("F7 pressed")
            Case Keys.F8
                'Add the code for the function key F8 here.
                MessageBox.Show("F8 pressed")
            Case Keys.F9
                TbProducto.Visible = False
                Label4.Visible = False
 
                TbMonto.Visible = True
                ingreseMonto.Visible = True
                
            Case Keys.F10
                'Add the code for the function key F10 here.
                MessageBox.Show("F10 pressed")
            Case Keys.F11
                'Add the code for the function key F11 here.
                MessageBox.Show("F11 pressed")
            Case Keys.F12
                'Add the code for the key F12 here
                MessageBox.Show("F12 pressed")
            Case Keys.Escape
                MessageBox.Show("Escapate")
        End Select
    End Sub
 
    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyValue = Keys.F1 Or Keys.F2 Or Keys.F3 Or Keys.F4 Or Keys.F5 Or Keys.F6 Or Keys.F7 Or Keys.F8 Or Keys.F9 Or Keys.F10 Or Keys.F11 Or Keys.F12 Then
            FuncKeysModule(e.KeyValue)
            e.Handled = True
        End If
    End Sub
 
End Class
 

[slaxsna]

Iniciado por future89

holas,
mi problema es el siguiente, como estoy recien en esto de programar en visual
nose como implementar mi ventana de ventas, nose como continuar la venta ya sea ingresando el monto, y siquiero volver hacias atras para agregar mas productos, sumar el total de los precio en el textbox de total, en fin muchas cosas de esta pantalla

luego apreto F9 y oculto el textbox y el label de abajo y pongo visible el texbox paara el monto.
sera lo correcto????? y como podria volver atrás???

Bueno amigo si lo que quieres es regresar podrias poner otro evento en el cual te vuelva a cerrar el textbox de cobrar por ejemplo el ESC puede ser buena opcion para cancelar el cobro y seguir con tu lista de productos añadidos.

Otra opción y que yo uso es que el cobro sea en otro Form y por ejemplo si voy a realizar el cobro presiono la tecla F12 y si requiero añadir mas productos solo cierro ese form y listo.

Tambien dices que no sabes como cobrar la venta no? y sumar el total de los productos okey te explicare:

Ya teniendo tu listview con productos y listo para realizar el cobro puedes hacer un for así:

Código vb:

For s = 0 To listview1.Items.Count - 1
                Subtotal = CDbl(Subtotal) +CDbl(listview1.Items(s).SubItems(2).Text)
            Next
            Me.TextBox1.Text = "$" & Format(Subtotal, "0.00")
 

Donde TextBox1 sera el nombre del textbox del Total..

Si estas poniendo el textbox de monto, entonces te vendria bien poner ya sea un Label u otro textbox para visualizar la feria que le regresaras al cliente, entonces lo puedes hacer así:

Te voi a pasar como yo lo tengo en un sistema

Código vb:

Private Sub RealizarOperacion()
        Try
            txtRecibido.Text = Format(CDbl(txtRecibido.Text), "#,###,###,##0.00####")
 
            Dim cambio As Double
            Dim recibido As Double = CDbl(txtRecibido.Text)
            Dim total As Double = CDbl(Subtotal)
 
            If recibido >= total Then
                cambio = CDbl(recibido) - CDbl(total)
                txtCambio.Text = Format(CDbl(cambio), "#,###,###,##0.00####")
                lblNota.ResetText()
            Else
                lblNota.Text = "El efectivo ingresado es menor al monto a pagar. Verifique"
                txtCambio.Text = "0.00"
                txtRecibido.Focus()
            End If
        Catch
            txtRecibido.Focus()
            txtRecibido.Clear()
        End Try
    End Sub
 

Bueno cualquier otra duda ps ahí avisas, espero poder haberte ayudado si no pues me dices..

Saludos

[future89]

ok vale gracias probare!

[future89]

me funciono exelenta gracias !

lo ultimo alguien sabe como eliminar un producto del listview y

en la columna cantidad del listview necesito que si al ingresar un libro me aparesca 1 y si ingreso el mismo libro otra vez me aumente en 2

una orientación por favor....

[slaxsna]

Iniciado por future89

me funciono exelenta gracias !

lo ultimo alguien sabe como eliminar un producto del listview y

en la columna cantidad del listview necesito que si al ingresar un libro me aparesca 1 y si ingreso el mismo libro otra vez me aumente en 2

una orientación por favor....

Bueno para eliminar un producto basta con solo tener seleccionada la fila del producto que deseas eliminar ...

Código vb:

listview1.SelectedItems(0).Remove()
 

Pero influyen otros factores como si vas a realizar la eliminacion del producto añadido entonces tendrias que volver a realizar la operacion para que en el textbox total te quite el monto de ese producto.

Puedes volver hacer esto:

Código vb:

For s = 0 To listview1.Items.Count - 1
            Subtotal = CDbl(Subtotal) + CDbl(listview.Items(s).SubItems(2).Text)
        Next
 
        TxtTotal.Text = "$" & Format(Subtotal, "0.00")
 

Lo de aumento de la columna cantidad pudiera ser ...

Te lo voy a poner con el codigo que tu tienes y también yo diría que tendrías que poner otra columna por ejemplo que sea

código - nombre - precio - cantidad - importe << donde en importe se va ir haciendo la sumatoria dependiendo de la cantidad de productos por ejemplo al momento que traigas el primer producto entonces la cantidad de precio e importe serán igual si vuelves añadir el mismo producto entonces la columna cantidad cambiaría a 2 y la columna importe cambiaría al total de esos 2. Entonces te pondre el código mas o menos como yo lo haría ...

Código vb:

Dim j As Integer ' Esta va ir al principio de la clase
 
Private Sub TbProducto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TbProducto.KeyPress
        'Valido que se ingrese solo numeros
 
        If Char.IsNumber(e.KeyChar) Then
            e.Handled = False
            'Valido que se presione Backspace,Enter
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
            'Las demas teclas quedan bloqueadas
        Else
            e.Handled = True
        End If
 
        'Si mando un ENTER entonces que busque
        If e.KeyChar = Convert.ToChar(Keys.Enter) Then
        Try
            For Me.j = 0 To Me.listview1.Items.Count - 1
                If Me.listview1.Items(j).SubItems(0).Text = TbProducto.Text Then
                    Call MismaFila()
                    Exit Sub
                End If
            Next
            Call listview()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End If         
    End Sub
 
   Private Sub MismaFila()
        Dim cantidad As Integer
        Dim importe, subtotal As Double
 
        cantidad = CInt(Me.listview1.Items(j).SubItems(3).Text) + 1
        Me.listview1.Items(j).SubItems(3).Text = cantidad
 
        importe = CInt(cantidad) * CDbl(Me.listview1.Items(j).SubItems(2).Text)
        Me.listview1.Items(j).SubItems(4).Text = Format(importe, "0.00")
 
        For s = 0 To listview1.Items.Count - 1
            subtotal = CDbl(subtotal) + CDbl(listview1.Items(s).SubItems(2).Text)
        Next
        txtTotal.Text = "$" & Format(subtotal, "0.00")
    End Sub
 
  Private Sub listview()
        Dim s As Integer
        Dim Subtotal As Double
 
        Try 
            myConn = New SqlConnection("Initial Catalog=libroteka;Data Source=localhost;Integrated Security=SSPI;")
       
            myCmd = myConn.CreateCommand
            myCmd.CommandText = "SELECT * FROM libros WHERE cod_libro ='" & TbProducto.Text & "' "
 
 
            adaptor.SelectCommand = myCmd
            adaptor.Fill(dataset, "0")
 
            Dim count = dataset.Tables(0).Rows.Count
            If count > 0 Then
 
                myConn.Open()
                With Ltver.Items.Add(TbProducto.Text, "cod_libro")
                    .SubItems.Add(dataset.Tables(0).Rows(0).Item("nombre_libro"))
                    .SubItems.Add(dataset.Tables(0).Rows(0).Item("precio"))     
                    .SubItems.Add(dataset.Tables(0).Rows(0).Item("precio"))     
               End With
            End If
 
        TbProducto.Clear()
        dataset.Clear()
        myConn.Close()
 
            For s = 0 To listview1.Items.Count - 1
                Subtotal = CDbl(Subtotal) + CDbl(listview1.Items(s).SubItems(2).Text)
            Next
            Me.txtTotal.Text = "$" & Format(Subtotal, "0.00")
 
        Catch ex As Exception
           MsgBox(ex.Message)
        End Try
    End Sub
 

Es una idea muy muy vaga y no testeada entonces no te puedo asegurar si correría bien, pero la idea ahí esta solo es cuestión de que tu modifiques y hayes el resultado deseado.

Bueno creo que ya te ayude bien con tu tarea jejej saludos!

Edit:
Recuerda que el codigo anterior que te pase hacias la sumatoria de la columna precio para que lo imprimiera en el txtTotal.text entonces por logica ya no sumaras ese si no la de la columna importe...

Saludos

[future89]

gracias slaxsna por todo ahora que lo veo asi es muy logico jeje, me has ayudado bastante, lo probare y modificare vale.

[slaxsna]

Iniciado por future89

gracias slaxsna por todo ahora que lo veo asi es muy logico jeje, me has ayudado bastante, lo probare y modificare vale.

Por nada hombre y si se te presenta otra duda no dudes en postearla y aquí trataremos de resolverla.

[Aquaventus]

Concuerdo con Slaxsna Nunca dudes en preguntar si tienes problemas, que aqui hay gente desinteresada en poder ayudar a los demás!. Saludos!..