diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 4b1283c3a..3a0aabf9f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -7981,7 +7981,11 @@ Partial Class Clientes
         Dim Row2 As DataRow = Nothing
         Row2 = Dt2.NewRow()
         LtlLimiteCreditoModal.Text = LimiteCredito.FormatoNumero()
-        Row2("limite") = LimiteCredito - Saldo
+        If LimiteCredito > 0 Then
+            Row2("limite") = LimiteCredito - Saldo
+        Else
+            Row2("limite") = 0
+        End If
         Row2("saldo") = Saldo
         Dt2.Rows.Add(Row2)
         Dim query2 = From s In Dt2.AsEnumerable() Select New With {.year = "", .limite = s("limite").ToString(), .saldo = s("saldo").ToString()}