From 56420ed22f8312739bc6ad7e813ce38f5b294d3f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 20 Apr 2024 12:21:23 -0700
Subject: [PATCH] =?UTF-8?q?--=20no=20validar=20al=20iniciar=20si=20tiene?=
 =?UTF-8?q?=20ventas=20registradas=20en=20el=20rfc,=20est=C3=A1=20alentand?=
 =?UTF-8?q?o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/PopIECompras.aspx    |  2 +-
 Bancos/PopIECompras.aspx.vb | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx
index 94086dd01..48e01ca67 100644
--- a/Bancos/PopIECompras.aspx
+++ b/Bancos/PopIECompras.aspx
@@ -47,7 +47,7 @@
                                     <asp:ListItem Value="2">Viaticos - Personal</asp:ListItem>
                                     <asp:ListItem Value="4">Deudores</asp:ListItem>
                                     <asp:ListItem Value="5">Acreedores</asp:ListItem>
-                                    <asp:ListItem Value="6" Enabled ="False">Ventas</asp:ListItem>
+                                    <asp:ListItem Value="6">Ventas</asp:ListItem>
                                 </asp:RadioButtonList>
                             </div>
                         </div> 
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 0ecfd9ef6..4249afa1d 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -337,11 +337,11 @@ Partial Class Bancos_PopIECompras
             CargaTipoTransaccion(TipoTransaccion)
             CargaCuentas()
 
-            Dim ObjVentas As New ClsVentas
-            If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
-                RBLContado.Items(4).Enabled = True
-            End If
-            ObjVentas.Dispose()
+            'Dim ObjVentas As New ClsVentas
+            'If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+            '    RBLContado.Items(4).Enabled = True
+            'End If
+            'ObjVentas.Dispose()
 
             If CveMoneda = 2 Then
                 ChkPagarPesos.Visible = True