diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 315aade63..93b3b113b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -17736,20 +17736,20 @@ Partial Class Ventas
     End Sub
     Private Function ValidaPagosContado() As Boolean
         Dim Retorno = False
-        Dim Total As Decimal = TxtTotal.Text.ToDecimal()
+
         'SI LA VENTA ES NUEVA VALIDAR TAMBIEN LOS PAGOS DE CONTADO
         If UsuarioActual.CveEmpresa = 141 AndAlso CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
 
-            If Not PermiteCredito AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) AndAlso Total > 0 Then
+            If Not PermiteCredito AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) AndAlso TxtTotal.Text.ToDecimal > 0 Then
                 Alert("Es necesario especificar un pago.", TipoMensaje.MsgAdvertencia)
                 Retorno = True
                 Return Retorno
             End If
 
-            If Not PermiteCredito AndAlso (DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0) AndAlso Total > 0 Then
+            If Not PermiteCredito AndAlso (DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0) AndAlso TxtTotal.Text.ToDecimal > 0 Then
                 Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal()
 
-                If TotalPago < Total Then
+                If TotalPago < TxtTotal.Text.ToDecimal Then
                     Alert("La suma de los pagos debe ser igual al total de la venta.", TipoMensaje.MsgAdvertencia)
                     Retorno = True
                     Return Retorno
@@ -17767,11 +17767,10 @@ Partial Class Ventas
 
             If UsuarioActual.CveEmpresa = 141 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
 
-                If Not PermiteCredito AndAlso DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 AndAlso Total > 0 Then
-
+                If Not PermiteCredito AndAlso DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 AndAlso TxtTotal.Text.ToDecimal > 0 Then
                     Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal()
 
-                    If TotalPago < Total Then
+                    If TotalPago < TxtTotal.Text.ToDecimal Then
                         Alert("La suma de los pagos debe ser igual al total de la venta.", TipoMensaje.MsgAdvertencia)
                         Retorno = True
                         Return Retorno