--merge SIGWEB

Bancos/PopIEVentas.aspx.vb

@@ -785,11 +785,25 @@ Partial Class Bancos_PopIEVentas
                 End If
 
                 If RFCCliente.ToUpper <> "XAXX010101000" Then
-                    Dim ObjCompras As New ClsCompras
-                    If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
-                        RBLContado.Items(4).Enabled = True
+                    Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
+
+                    If CveProveedor > 0 Then
+                        Dim Mov As New ClsMovimientos
+                        If Mov.GetCxPProveedor(CveProveedor, MinFecha.ToShortDateString, MaxFecha.ToShortDateString, -1, -1, -1, -1, -1, 1, -1, -1, "-1", "-1", "-1") Then
+                            If Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio").Rows.Count > 0 Then
+                                RBLContado.Items(4).Enabled = True
+                            End If
+                        End If
+
+                        Mov.Dispose()
                     End If
-                    ObjCompras.Dispose()
+
+
+                    'Dim ObjCompras As New ClsCompras
+                    'If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
+                    '    RBLContado.Items(4).Enabled = True
+                    'End If
+                    'ObjCompras.Dispose()
                 End If
 
                 If Not Validada Then
@@ -926,6 +940,9 @@ Partial Class Bancos_PopIEVentas
     End Sub
 
     Protected Sub CargaCompras(Optional CveMoneda As Integer = 1)
+
+        If RFCCliente = "XAXX010101000" Then Exit Sub
+
         Dim ObjCompras As New ClsCompras
         Dim ObjProveedor As New ClsCompProveedores
         Dim CveProveedor As Integer = -1