From 0630e09f64fef6d50324c4fcb072929893290830 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 31 Jul 2023 10:59:43 -0700
Subject: [PATCH] - REDONDEO

---
 Bancos/PopIECompras.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index f866d48c7..7887db559 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1428,7 +1428,7 @@ Partial Class Bancos_PopIECompras
 
         Select Case RBLContado.SelectedValue
             Case "1" ' Bancos
-                Dim ImporteBancos As Decimal = TxtImporte.Text.ToDecimal
+                Dim ImporteBancos As Decimal = TxtImporte.Text.ToDecimal.RoundSQL
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImporteBancos, CveMoneda, 11, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"))
                 If Not CveIE > 0 Then
                     MsgError = "Ocurrio un Error al registrarse el movimiento bancario."