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