diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 582cf8afb..5ddc8dd9e 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -309,7 +309,7 @@ Partial Class Inicio Dim ObjP As New ClsContabilidad If ObjP.GetInconsistencias() Then If ObjP.DtResultados.Rows.Count > 0 Then - LblInconsistenciasNum.Text = ObjP.DtResultados.Rows.Count + LblInconsistenciasNum.Text = ObjP.DtResultados.Rows.Count.ToString GvIncons.DataSource = ObjP.DtResultados End If End If @@ -324,7 +324,7 @@ Partial Class Inicio Dim ObjSub As New ClsSubProyectos If ObjSub.GetNoTimbradasCentroCosto(UsuarioActual.CveEmpresa) Then If ObjSub.DtResultados.Rows.Count > 0 Then - LblNoTimbradas.Text = ObjSub.DtResultados.Rows.Count + LblNoTimbradas.Text = ObjSub.DtResultados.Rows.Count.ToString GvNoTimbradasCentroCosto.DataSource = ObjSub.DtResultados RegistraScript("$('#ModalNoTimbradasCentroCosto').modal('show');", "showmodal2Incons") @@ -338,7 +338,7 @@ Partial Class Inicio Dim ObjVentas As New ClsVentas If ObjVentas.GetVentasNoEnviadas(UsuarioActual.CveEmpresa) Then If ObjVentas.DtResultados.Rows.Count > 0 Then - lblVentasSinEnviar.Text = ObjVentas.DtResultados.Rows.Count + lblVentasSinEnviar.Text = ObjVentas.DtResultados.Rows.Count.ToString GvVentasEmail.DataSource = ObjVentas.DtResultados RegistraScript("$('#DvCorreoSinEnviar').modal('show');", "showmodal2Incons") @@ -373,7 +373,7 @@ Partial Class Inicio Dim ObjInventarios As New ClsInventarios - If ObjInventarios.RepCompuestosVigencia(-1, -1, MinFecha, Now.AddMonths(1), 1, UsuarioActual.CveEmpresa, -1, UsuarioActual.CveUsuario, True) Then + If ObjInventarios.RepCompuestosVigencia(-1, -1, MinFecha, Now.AddMonths(1), True, UsuarioActual.CveEmpresa, -1, UsuarioActual.CveUsuario, True) Then If ObjInventarios.DtResultados.Rows.Count > 0 Then GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados @@ -886,32 +886,30 @@ Partial Class Inicio Dim Asunto As String = "" Select Case RBLAgendaOpcion.SelectedValue - Case 1 + Case "1" CveCliente = DdlClientesWS.SelectedValue.ToEntero validacionesAgendaOpcionesOK = If(CveCliente > 0, True, False) Asunto = $"Cliente: {DdlClientesWS.SelectedText} {TxtAsuntoAgenda.Text}" Exit Select - Case 2 + Case "2" CveProveedor = DdlProveedor.SelectedValue.ToEntero validacionesAgendaOpcionesOK = If(CveProveedor > 0, True, False) Asunto = $"Proveedor: {DdlProveedor.SelectedText} {TxtAsuntoAgenda.Text}" Exit Select - Case 3 + Case "3" CvePersonal = DdlPersonal.SelectedValue.ToEntero validacionesAgendaOpcionesOK = If(CvePersonal > 0, True, False) Asunto = $"Personal: {DdlPersonal.SelectedItem.Text} {TxtAsuntoAgenda.Text}" Exit Select - Case 4 + Case "4" CveEmpresaCRM = DdlEmpresaCRM.SelectedValue.ToEntero CveContactoCRM = DdlContactoCRM.SelectedValue.ToEntero CveAcercamientoCRM = DdlAcercamientoCRM.SelectedValue.ToEntero validacionesAgendaOpcionesOK = If(CveEmpresaCRM > 0, True, False) - - If CveContactoCRM > 0 Then Asunto = $"Contacto CRM: {DdlContactoCRM.SelectedItem.Text} {TxtAsuntoAgenda.Text}" End If @@ -944,16 +942,16 @@ Partial Class Inicio Dim MensajeAdvertencia As String = "" Select Case RBLAgendaOpcion.SelectedValue - Case 1 + Case "1" MensajeAdvertencia = "Debe de seleccionar un cliente." Exit Select - Case 2 + Case "2" MensajeAdvertencia = "Debe de seleccionar un proveedor." Exit Select - Case 3 + Case "3" MensajeAdvertencia = "Debe de seleccionar un miembro de personal." Exit Select - Case 4 + Case "4" MensajeAdvertencia = "Debe de seleccionar al menos una de las opciones de CRM." Exit Select @@ -1370,7 +1368,7 @@ Partial Class Inicio DivComunicado.Visible = True Dim Comunicado As String = ObjEmpresa.DtResultados(0)("Comunicado").ToString() - Dim ListaComunicados As String() = Comunicado.Split("|") + Dim ListaComunicados As String() = Comunicado.Split("|"c) Dim Turno As Integer = 1 For Each s As String In ListaComunicados If (Turno Mod 2) = 0 Then @@ -1476,8 +1474,9 @@ Partial Class Inicio drr("Liga") = String.Format("/Compras/PopUpVerFactura.aspx?p={0}", Encripta(String.Format("op=File&File={0}\Formatos\{1}_{2}", UsuarioActual.Empresa.Ruta, dr("CveDocumentacion"), dr("DocumentacionFormato")).Replace("\", "/").Replace("//", "/"))) TmpDT.Rows.Add(drr) Else - TmpDT.Rows((dr("Consec").ToString.ToEntero / 2) - 1)("Nombre2") = dr("Documentacion").ToString - TmpDT.Rows((dr("Consec").ToString.ToEntero / 2) - 1)("Liga2") = String.Format("/Compras/PopUpVerFactura.aspx?p={0}", Encripta(String.Format("op=File&File={0}\Formatos\{1}_{2}", UsuarioActual.Empresa.Ruta, dr("CveDocumentacion"), dr("DocumentacionFormato")).Replace("\", "/").Replace("//", "/"))) + Dim irow As Integer = CType((dr("Consec").ToString.ToEntero / 2) - 1, Integer) + TmpDT.Rows(irow)("Nombre2") = dr("Documentacion").ToString + TmpDT.Rows(irow)("Liga2") = String.Format("/Compras/PopUpVerFactura.aspx?p={0}", Encripta(String.Format("op=File&File={0}\Formatos\{1}_{2}", UsuarioActual.Empresa.Ruta, dr("CveDocumentacion"), dr("DocumentacionFormato")).Replace("\", "/").Replace("//", "/"))) End If Next diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index f3fbc92b5..11a72c2b8 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -242,7 +242,7 @@ Partial Class LogIn Dim x As New ADSSessionObj(Usuario.CveUsuario, Usuario.CveEmpresa) Dim _sessionid = Encripta(String.Format("{0}|{1}", Usuario.CveUsuario, x.SessionID)) - x = ADSSessionConfig.SessionManager(OpcionSession.agregarSession, x) + ADSSessionConfig.SessionManager(OpcionSession.agregarSession, x) If Usuario.CvePlataforma = 6 And Usuario.CveRol = 10 Then 'PLATAFORMA PORTAL CLIENTE @@ -281,7 +281,7 @@ Partial Class LogIn End Using End If - Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario, False) + Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario.ToString, False) Response.Cookies.Add(cookie) Dim routeangular As String Dim puerto As String = "" diff --git a/SiteGPS.master.vb b/SiteGPS.master.vb index 81010cdad..fdd733f01 100644 --- a/SiteGPS.master.vb +++ b/SiteGPS.master.vb @@ -62,28 +62,8 @@ Partial Class SiteGPS 'lblFecha.Text = DateTime.Now.ToString("dd.MMMyyyy HH:mm tt") If Request("Masterimpoup") IsNot Nothing AndAlso Request("Masterimpoup").ToString = "true" Then EsPopup = True If UsuarioActual IsNot Nothing Then - HdnCveE.Value = UsuarioActual.CveEmpresa - - 'Select Case UsuarioActual.CveEmpresa - ' Case 4 : LitTit.Text = "VSH Protección " - ' Case 5 : LitTit.Text = "5H Cinco H Ingeniería y Terracerías " - ' Case 7 : LitTit.Text = "VSH Vigilancia y Protección " - ' Case 8 : LitTit.Text = "SOGO Manufactura y Servicio SOGO Hermosillo " - ' Case 11 : LitTit.Text = "100%  cien por ciento Inmobiliaria " - ' Case 12 : LitTit.Text = "RFR  Seguridad Privada Integral " - ' Case 13 : LitTit.Text = "EMD  Exploraciones Mineras del Desierto " - ' Case 14 : LitTit.Text = "AS  Acuicola Sayri " - ' Case 24 : LitTit.Text = "PC  Puro Camarón " - ' Case 72 : LitTit.Text = "CompuProveedores " - ' Case 66 : LitTit.Text = "SIIG  Sistema Integral de Información Gluyas " - ' Case 70 : LitTit.Text = "AD  Sistemas " - ' Case 74 : LitTit.Text = "GES  Subsecretaría de Recursos Humanos " - ' Case 80 : LitTit.Text = "DN  Difusa " - ' Case 83 : LitTit.Text = "PRI SAY" - ' Case 81 : LitTit.Text = "ALATEL  Israel Laborín Estrella" - ' Case 109 : LitTit.Text = "ALATEL  José Ignacio Laborin Escarcega" - 'End Select - + HdnCveE.Value = UsuarioActual.CveEmpresa.ToString + Dim thisURL As String = Request.Url.Segments(Request.Url.Segments.Count - 1) If thisURL.Equals("WizardRegistro.aspx") OrElse thisURL.Equals("Registro.aspx") Then LitTit.Text = "AD  Soluciones en TI " @@ -147,7 +127,7 @@ Partial Class SiteGPS Else 'VALIDACION DE SEGURIDAD, EN LA QUE SE VALIDA QUE LA EMPRESA EN LA QUE SE GENERO LA PAGINA SEA LA MISMA A LA DE LA SESION, 'DE NO SER ASI, SE REDIRECCIONA A INICIO. - If UsuarioActual IsNot Nothing AndAlso HdnCveE.Value <> UsuarioActual.CveEmpresa Then + If UsuarioActual IsNot Nothing AndAlso HdnCveE.Value <> UsuarioActual.CveEmpresa.ToString Then Response.Redirect(FormsAuthentication.DefaultUrl) End If End If @@ -318,9 +298,9 @@ Partial Class SiteGPS For Each row As DataRow In ObjNoti.DtResultados.Rows countNotificaciones += row("NumNotificaciones").ToString.ToEntero - Dim TipoMensaje = If(row("TipoMensaje") = "EMG", $"Hay {row("NumNotificaciones")} notificaciones de Emergencia", $"Hay {row("NumNotificaciones")} notificaciones de Alerta") - Dim Icono = If(row("TipoMensaje") = "EMG", "fa fa-exclamation-triangle", "fa fa-bullhorn") - Dim Tipo = If(row("TipoMensaje") = "EMG", "danger", "warning") + Dim TipoMensaje = If(row("TipoMensaje").ToString = "EMG", $"Hay {row("NumNotificaciones")} notificaciones de Emergencia", $"Hay {row("NumNotificaciones")} notificaciones de Alerta") + Dim Icono = If(row("TipoMensaje").ToString = "EMG", "fa fa-exclamation-triangle", "fa fa-bullhorn") + Dim Tipo = If(row("TipoMensaje").ToString = "EMG", "danger", "warning") Notificaciones.Append(ItemNotificaciones(TipoMensaje, "Hoy", Icono, Tipo, $"/GPS/Notificaciones.aspx?Tipo={row("TipoMensaje")}")) Next diff --git a/Sitelite.master.vb b/Sitelite.master.vb index 94f50c9a5..046d18da8 100644 --- a/Sitelite.master.vb +++ b/Sitelite.master.vb @@ -43,13 +43,13 @@ Partial Class SiteLite If UsuarioActual IsNot Nothing Then userx = New Usuario userx.Empresa = New Empresa - userx.Referencia = Encripta(UsuarioActual.CveUsuario) + userx.Referencia = Encripta(UsuarioActual.CveUsuario.ToString) userx.Usuario = Encripta(UsuarioActual.Usuario) If UsuarioActual.CveRol = 1 Then userx.Empresa.Direccion = Encripta("-999") userx.Empresa.Empresa = Encripta("ADSistemas") Else - userx.Empresa.Direccion = Encripta(UsuarioActual.Empresa.CveEmpresa) + userx.Empresa.Direccion = Encripta(UsuarioActual.Empresa.CveEmpresa.ToString) userx.Empresa.Empresa = Encripta(UsuarioActual.Empresa.Empresa) End If