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