From c2e861e170259b2c63679440ddc8109189171eb7 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Jul 2022 18:41:49 -0700 Subject: [PATCH] redondeo --- Contabilidad/RegPrePolizaS.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index e8c7c3c55..eafc5dd0b 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1633,7 +1633,7 @@ Partial Class ContabilidadC_RegPrePolizaS If AplicaComplementaria Then Dim Importe As Decimal = IIf(TxtCargoE.Text.ToDecimal <> 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal) 'valida Mon Extranjera por el TC - Mon Extranjera - Dim dif As Decimal = ((TxtME.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal) - TxtME.Text.ToDecimal).RoundSQL - Importe + Dim dif As Decimal = ((TxtME.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal).RoundSQL - TxtME.Text.ToDecimal).RoundSQL - Importe If dif <> 0 Then Alert("El importe moneda extranjera no coinciden con el TC ")