AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:04:37 -07:00
parent e5c000432f
commit afd8f176c4
4 changed files with 26 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Inicio.aspx.vb
View File

@@ -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

4
LogIn.aspx.vb
View File

@@ -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 = ""

32
SiteGPS.master.vb
View File

@@ -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 = "<span style='color:white; font-size:x-large'>VSH</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'>Protección</span> "
' Case 5 : LitTit.Text = "<span style='color:white; font-size:x-large'>5H</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'>Cinco H Ingeniería y Terracerías</span> "
' Case 7 : LitTit.Text = "<span style='color:white; font-size:x-large'>VSH</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'>Vigilancia y Protección</span> "
' Case 8 : LitTit.Text = "<span style='color:white; font-size:x-large'>SOGO</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'>Manufactura y Servicio SOGO Hermosillo</span> "
' Case 11 : LitTit.Text = "<span style='color:white; font-size:x-large'>100% </span>&nbsp;<span style='color: #1BA39C; font-size:x-large'>cien por ciento Inmobiliaria</span> "
' Case 12 : LitTit.Text = "<span style='color:white; font-size:x-large'>RFR</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> Seguridad Privada Integral</span> "
' Case 13 : LitTit.Text = "<span style='color:white; font-size:x-large'>EMD</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> Exploraciones Mineras del Desierto</span> "
' Case 14 : LitTit.Text = "<span style='color:white; font-size:x-large'>AS</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> Acuicola Sayri</span> "
' Case 24 : LitTit.Text = "<span style='color:white; font-size:x-large'>PC</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> Puro Camarón</span> "
' Case 72 : LitTit.Text = "<span style='color:white; font-size:x-large'>CompuProveedores</span> "
' Case 66 : LitTit.Text = "<span style='color:white; font-size:x-large'>SIIG</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> Sistema Integral de Información Gluyas</span> "
' Case 70 : LitTit.Text = "<span style='color:white; font-size:x-large'>AD</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> Sistemas</span> "
' Case 74 : LitTit.Text = "<span style='color:white; font-size:x-large'>GES</span>&nbsp;<span style='color: #D91E18; font-size:x-large'> Subsecretaría de Recursos Humanos</span> "
' Case 80 : LitTit.Text = "<span style='color:white; font-size:x-large'>DN</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> Difusa</span> "
' Case 83 : LitTit.Text = "<span style='color:white; font-size:x-large'>PRI</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'>SAY</span>"
' Case 81 : LitTit.Text = "<span style='color:white; font-size:x-large'>ALATEL</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> Israel Laborín Estrella</span>"
' Case 109 : LitTit.Text = "<span style='color:white; font-size:x-large'>ALATEL</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> José Ignacio Laborin Escarcega</span>"
'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 = "<span style='color:white; font-size:x-large'>AD</span>&nbsp;<span style='color: #32A1CF; font-size:x-large'> Soluciones en TI</span> "
@@ -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

4
Sitelite.master.vb
View File

@@ -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