Problema al realizar una operacion.

[slaxsna]

Hola que tal amigos, disculpen pero tengo un problema que llevo ya 1 dia tratando de conseguirlo y no sale les explico.

Estoy realizando un punto de venta en el cual tengo mi FormVentas donde añado todos los productos que tengo en mi base de datos MySQL a un listview, al presionar F3 sale un nuevo Form donde realizare el cobro de la venta.

En mi FormCobrar tengo 1 label que me imprime el Subtotal esto lo consigo poniendo en mi FormVentas esta linea de codigo

Cobrar.lblSubTotal.Text = lbLSubTotal.Text

Para que cuando se abra el FormCobrar aparezca el subtotal, en mi FormCobrar tambien tengo un textbox donde pondre la cantidad con que el cliente ha pagado y un label mas para que me de la feria o el cambio.

Este es mi código en el FormCobrar

Código PHP:

  If e.KeyCode = Keys.Enter Then 
            Try 
                Dim cambio As Double 
                If txtRecibido.Text >= lblSubTotal.Text Then 
                    cambio = CDbl(txtRecibido.Text) - CDbl(lblSubTotal.Text) 
                    lblCambios.Text = "$" & Format(cambio, "0.00") 
                    lblNota.ResetText() 
                Else 
                    lblNota.Text = "El efectivo ingresado es menor al monto a pagar." 
                    lblCambios.Text = "0.00" 
                    txtRecibido.Focus() 
                End If 
            Catch 
                MsgBox("Existe un error en el monto recibido. Verifique") 
            End Try 
        End If 
        txtRecibido.Focus()  
   

El problema es que cuando introduzca una cifra menor al subtotal me da el cambio en negativo aun asi aplicandole la condición. Pero solamante si introduzco del numero 2 al 9 y del 100 al 120 :s.


Si introduzco el 1,10,11,12,13 me sale asi como debe de ser


No entiendo que estoy haciendo mal, y si pongo en el textbox la cifra sin el signo de pesos si me da los resultados deseados las restas de cualquier numero que ponga, pero igual si es menor al subtotal me sigue poniendo negativo.



No se si me entiendan ahí pueden ver las imagenes, me gustaria que si me puedan asesorar, muchas gracias por leerme.

[devilinside]

If e.KeyCode = Keys.Enter Then
Try
Dim cambio As Double
If CDbl(txtRecibido.Text) >= CDbl(lblSubTotal.Text) Then
cambio = CDbl(txtRecibido.Text) - CDbl(lblSubTotal.Text)
lblCambios.Text = "$" & Format(cambio, "0.00")
lblNota.ResetText()
Else
lblNota.Text = "El efectivo ingresado es menor al monto a pagar."
lblCambios.Text = "0.00"
txtRecibido.Focus()
End If
Catch
MsgBox("Existe un error en el monto recibido. Verifique")
End Try
End If
txtRecibido.Focus()

No deberías permitir ingresar el símbolo "$" en tu caja de texto. Recuerda que estás trabajando con datos numéricos y antes de compararlos como números debes realizar la conversión, de otra forma estarás comparando cadenas.

Saludos.

[Aquaventus]

totalmente deacuerdo con devilinside, debes tener cuidado con el manejo de datos, verificar que lo numerico sea numerico en tus procesos y la cadena cadena, tu problema ahi es que no lo conviertes a numerico el texto.

[slaxsna]

Muchisimas gracias por responder

devilinside
Aquaventus

Tan facil que era haha pero bueno tengo poco con vb.net que igual manera es pura logica pero se me fue...

Aqui dejo como solucione el problema

Código PHP:

  If e.KeyCode = Keys.Enter Then
            Try
                Dim cambio As Double
                Dim recibido As Double = CDbl(txtRecibido.Text) // Convertirlo a double
                Dim total As Double = CDbl(lblSubTotal.Text) // Convertirlo a double

                If recibido >= total Then
                    cambio = CDbl(recibido) - CDbl(total)
                    lblCambios.Text = "$" & Format(cambio, "0.00")
                    lblNota.ResetText()
                Else
                    lblNota.Text = "El efectivo ingresado es menor al monto a pagar. Verifique"
                    lblCambios.Text = "$0.00"
                    txtRecibido.Focus()
                End If
            Catch
                MsgBox("Existe un error en el monto recibido. Verifique")
            End Try
        End If