From 834fd9cb2878e483bb1208490a31a58da66bf01a Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Thu, 18 Mar 2021 08:52:49 -0700
Subject: [PATCH] ERROR DE ANALISIS DE CREDITO

---
 Ventas/Clientes.aspx.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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()}