From fe4183491a544f496f3fb8a51b3863ea68d5d0c5 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Sat, 13 Jun 2020 10:36:03 -0700
Subject: [PATCH] -- que no cargue cuentas, sino tiene cliente especificado

---
 Ventas/Clientes.aspx.vb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index fa4738baa..a08c794e6 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -487,10 +487,10 @@ Partial Class Clientes
         Set(value As String)
             ViewState("linkDescargaPagare") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
+
 #Region "Documentacion"
     Private Property DTDocumentacion As DataTable
         Get
@@ -5984,6 +5984,9 @@ Partial Class Clientes
 #Region "C U E N T A S - B A N C A R I A S"
 
     Private Sub CargaCuentasBancarias()
+
+        If CveCliente <= 0 Then Exit Sub
+
         Dim ObjCuentasBancos As New ClsGenerales
         ViewState("OrdenCuentasBancos") = ""
         DTCuentasBancos = New DataTable