diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx b/Sistemas/PopUpSeleccionarEmpresa.aspx
index 38fdabe9d..efd3192d7 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx
@@ -29,7 +29,7 @@
-
diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
index d0f150423..32de18d83 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -21,11 +21,20 @@ Partial Class PopUpSeleccionarEmpresa
If Dt IsNot Nothing Then
If Dt.Rows.Count > 0 Then
- LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0)
- GvEmpresas.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa")
+ Dim NumRegistros As Integer = 0
+ GvEmpresas.DataSource = Dt.FiltraParametros("(CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)) AND CvePlataformaUsuario NOT IN (6,7)", "Empresa")
+ NumRegistros += DirectCast(GvEmpresas.DataSource, System.Data.DataTable).Rows.Count
+
GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
+ NumRegistros += DirectCast(GvPortalRastreo.DataSource, System.Data.DataTable).Rows.Count
+
GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa")
- GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa")
+ NumRegistros += DirectCast(GvPortalCliente.DataSource, System.Data.DataTable).Rows.Count
+
+ GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa")
+ NumRegistros += DirectCast(GvPortalProveedor.DataSource, System.Data.DataTable).Rows.Count
+
+ LtlTotalRegistros.Text = NumRegistros.ToString().FormatoNumero(0)
Else
LtlTotalRegistros.Text = "0"
GvEmpresas.DataSource = Nothing