diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index d2e4de5ff..ada990be1 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -3948,6 +3948,10 @@ Partial Class Clientes
         If DtCxCFact2 IsNot Nothing AndAlso DtCxCFact2.Rows.Count > 0 Then
             Dim dr As DataRow = DtCxCFact2.Rows(0)
             Dim lista = New List(Of CrystalParametro)
+            Dim SaldoDisponible As String = "0.00"
+            If TxtLimiteCredito.Text.ToDouble > 0 Then
+                SaldoDisponible = (TxtLimiteCredito.Text.ToDouble - DtCxCFact2.SUM("Saldo", "Tipo  = 'Act'").ToString.ToDouble).FormatoNumero
+            End If
             lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
             lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text))
             lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text))
@@ -3961,7 +3965,7 @@ Partial Class Clientes
             lista.Add(New CrystalParametro("ClienteTelefono", TxtTelefono.Text))
             lista.Add(New CrystalParametro("DiasCredito", TxtPlazoCobranza.Text))
             lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text))
-            lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - DtCxCFact2(0)("Saldo").ToString.ToDouble).FormatoNumero))
+            lista.Add(New CrystalParametro("SaldoDisponible", SaldoDisponible))
 
             lista.Add(New CrystalParametro("SaldoIngDolares", SaldoIngDolares.FormatoNumero))
             lista.Add(New CrystalParametro("SaldoIngPesos", SaldoIngPesos.FormatoNumero))
@@ -3971,9 +3975,7 @@ Partial Class Clientes
             lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero))
             lista.Add(New CrystalParametro("ContaIng", ContaIng))
             lista.Add(New CrystalParametro("ContaAnt", ContaAnt))
-
-
-
+             
             If Imagen.Exists Then
                 lista.Add(New CrystalParametro("LogoPath", logouri))
             Else