Hola amigos del foro, tengo un pequeño problema que en la caja del IVA no me aproxima los valores de los decimales ,5, he aqui el código que utilizo, favor de probar con los siguientes valores:
TXTNETO1 = 916000
TXTDEDUCIBLE2 = 225050
A= 695750
Protected Sub TXTNETO1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTNETO1.TextChanged
Dim A, B As Integer
A = Val(TXTNETO1.Text) - Val(TXTDEDUCIBLE2.Text)
TXTSUBTOTAL1.Text = CInt(A)
B = Val(TXTSUBTOTAL1.Text) * 19
Dim Dt_Valor As Double = CInt(B) / 100
TXTIVA1.Text = FormatNumber(Dt_Valor, 2)
TXTIVA1.Text = CInt(TXTIVA1.Text)
TXTTOTAL1.Text = Val(TXTSUBTOTAL1.Text) + Val(TXTIVA1.Text)
TXTTOTAL1.Text = CInt(TXTTOTAL1.Text)
TXTNETO1.Enabled = False
Dim script As String = "alert('Ud. esta en condiciones de Grabar o Modificar');"
ScriptManager.RegisterStartupScript(Me, GetType(Page), "Ud. esta en condiciones de Grabar o Modificar", script, True)
End Sub
favor de ayudarme please no creo que sea difícil para gente inteligente como Uds., desde ya muchas gracias.