Cerrar o cancelar después de sumar
Carlos.. Otra pregunta lo que me enviaste da lo que quiero, pero ahora hay otro problema con eso mismo, cuando yo guardo o limpio las cajas de textbox, la suma no se quita, cuando vuelvo a ingresar otra vez al formulario de ventas y vuelvo a agregar otros productos me suma lo anterior más lo que estoy agregando ... ¿por qué sera? ¿Cuál es el problema? Te envío de nuevo los códigos para que se t haga más fácil de ver.
Public FACT As New ADODB.Connection
Public REG As New ADODB.Recordset
Public consul As New ADODB.Recordset
Dim precant As Double
If KeyAscii = 13 Then
If IsNumeric(Text16) Then
Dim precio As Double
Dim iva As Double
Dim descuento As Double
Dim preiva As Double
Dim predesc As Double
descuento = Val(Text12) * (Val(Text13) / 100)
iva = Val(Text12) * (Val(Text14) / 100)
predesc = Val(Text12) - descuento
preiva = predesc + iva
precant = (precant) + preiva * Val(Text16)
Text19 = precant
Text9 = "": Text10 = "": Text11 = "": Text12 = "": Text13 = "": Text14 = ""
Text15 = "": Text16 = ""
Text9.SetFocus
Else
MsgBox "Error..Ingrese sólo Números", vbCritical + vbOKOnly, "Mensaje del Sistema"
Text16 = ""
Text16.SetFocus
End If
End If
Public FACT As New ADODB.Connection
Public REG As New ADODB.Recordset
Public consul As New ADODB.Recordset
Dim precant As Double
If KeyAscii = 13 Then
If IsNumeric(Text16) Then
Dim precio As Double
Dim iva As Double
Dim descuento As Double
Dim preiva As Double
Dim predesc As Double
descuento = Val(Text12) * (Val(Text13) / 100)
iva = Val(Text12) * (Val(Text14) / 100)
predesc = Val(Text12) - descuento
preiva = predesc + iva
precant = (precant) + preiva * Val(Text16)
Text19 = precant
Text9 = "": Text10 = "": Text11 = "": Text12 = "": Text13 = "": Text14 = ""
Text15 = "": Text16 = ""
Text9.SetFocus
Else
MsgBox "Error..Ingrese sólo Números", vbCritical + vbOKOnly, "Mensaje del Sistema"
Text16 = ""
Text16.SetFocus
End If
End If
1 Respuesta
Respuesta de carloscharly
1
Claro lo que debes hacer es que al guardar o limpiar como dices SETEES las variables acumuladoras a CERO.
Es decir esto:
precant = 0
Y todas tus variables acumuladoras dale = 0 eso después de guardar y en el evento LOAD de tu ventana para que cuando cargue la ventana también inicen con 0.
Es decir esto:
precant = 0
Y todas tus variables acumuladoras dale = 0 eso después de guardar y en el evento LOAD de tu ventana para que cuando cargue la ventana también inicen con 0.
A olvide hacerte la recomendación que quise hacértela antes de esta pregunta.
Anda acostumbrándote a darles nombres a tus controles eso te facilita la programación, en este caso como que no tiene mucho sentido pensaras porque es algo pequeño pero cuando programes y tengas miles de lineas de código eso te confundirá y si te acostumbras a trabajar así tarde o temprano tendrás que desacostumbrarte y eso es fastidioso. Por eso desde ya hay que ir haciendo el habito de programar un poco más ordenado.
Anda acostumbrándote a darles nombres a tus controles eso te facilita la programación, en este caso como que no tiene mucho sentido pensaras porque es algo pequeño pero cuando programes y tengas miles de lineas de código eso te confundirá y si te acostumbras a trabajar así tarde o temprano tendrás que desacostumbrarte y eso es fastidioso. Por eso desde ya hay que ir haciendo el habito de programar un poco más ordenado.
