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 Dim ObjP As New ClsContabilidad
If ObjP.GetInconsistencias() Then If ObjP.GetInconsistencias() Then
If ObjP.DtResultados.Rows.Count > 0 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 GvIncons.DataSource = ObjP.DtResultados
End If End If
End If End If
@@ -324,7 +324,7 @@ Partial Class Inicio
Dim ObjSub As New ClsSubProyectos Dim ObjSub As New ClsSubProyectos
If ObjSub.GetNoTimbradasCentroCosto(UsuarioActual.CveEmpresa) Then If ObjSub.GetNoTimbradasCentroCosto(UsuarioActual.CveEmpresa) Then
If ObjSub.DtResultados.Rows.Count > 0 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 GvNoTimbradasCentroCosto.DataSource = ObjSub.DtResultados
RegistraScript("$('#ModalNoTimbradasCentroCosto').modal('show');", "showmodal2Incons") RegistraScript("$('#ModalNoTimbradasCentroCosto').modal('show');", "showmodal2Incons")
@@ -338,7 +338,7 @@ Partial Class Inicio
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetVentasNoEnviadas(UsuarioActual.CveEmpresa) Then If ObjVentas.GetVentasNoEnviadas(UsuarioActual.CveEmpresa) Then
If ObjVentas.DtResultados.Rows.Count > 0 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 GvVentasEmail.DataSource = ObjVentas.DtResultados
RegistraScript("$('#DvCorreoSinEnviar').modal('show');", "showmodal2Incons") RegistraScript("$('#DvCorreoSinEnviar').modal('show');", "showmodal2Incons")
@@ -373,7 +373,7 @@ Partial Class Inicio
Dim ObjInventarios As New ClsInventarios 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 If ObjInventarios.DtResultados.Rows.Count > 0 Then
GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados GvModalRSCOPorCaducar.DataSource = ObjInventarios.DtResultados
@@ -886,32 +886,30 @@ Partial Class Inicio
Dim Asunto As String = "" Dim Asunto As String = ""
Select Case RBLAgendaOpcion.SelectedValue Select Case RBLAgendaOpcion.SelectedValue
Case 1 Case "1"
CveCliente = DdlClientesWS.SelectedValue.ToEntero CveCliente = DdlClientesWS.SelectedValue.ToEntero
validacionesAgendaOpcionesOK = If(CveCliente > 0, True, False) validacionesAgendaOpcionesOK = If(CveCliente > 0, True, False)
Asunto = $"Cliente: {DdlClientesWS.SelectedText} {TxtAsuntoAgenda.Text}" Asunto = $"Cliente: {DdlClientesWS.SelectedText} {TxtAsuntoAgenda.Text}"
Exit Select Exit Select
Case 2 Case "2"
CveProveedor = DdlProveedor.SelectedValue.ToEntero CveProveedor = DdlProveedor.SelectedValue.ToEntero
validacionesAgendaOpcionesOK = If(CveProveedor > 0, True, False) validacionesAgendaOpcionesOK = If(CveProveedor > 0, True, False)
Asunto = $"Proveedor: {DdlProveedor.SelectedText} {TxtAsuntoAgenda.Text}" Asunto = $"Proveedor: {DdlProveedor.SelectedText} {TxtAsuntoAgenda.Text}"
Exit Select Exit Select
Case 3 Case "3"
CvePersonal = DdlPersonal.SelectedValue.ToEntero CvePersonal = DdlPersonal.SelectedValue.ToEntero
validacionesAgendaOpcionesOK = If(CvePersonal > 0, True, False) validacionesAgendaOpcionesOK = If(CvePersonal > 0, True, False)
Asunto = $"Personal: {DdlPersonal.SelectedItem.Text} {TxtAsuntoAgenda.Text}" Asunto = $"Personal: {DdlPersonal.SelectedItem.Text} {TxtAsuntoAgenda.Text}"
Exit Select Exit Select
Case 4 Case "4"
CveEmpresaCRM = DdlEmpresaCRM.SelectedValue.ToEntero CveEmpresaCRM = DdlEmpresaCRM.SelectedValue.ToEntero
CveContactoCRM = DdlContactoCRM.SelectedValue.ToEntero CveContactoCRM = DdlContactoCRM.SelectedValue.ToEntero
CveAcercamientoCRM = DdlAcercamientoCRM.SelectedValue.ToEntero CveAcercamientoCRM = DdlAcercamientoCRM.SelectedValue.ToEntero
validacionesAgendaOpcionesOK = If(CveEmpresaCRM > 0, True, False) validacionesAgendaOpcionesOK = If(CveEmpresaCRM > 0, True, False)
If CveContactoCRM > 0 Then If CveContactoCRM > 0 Then
Asunto = $"Contacto CRM: {DdlContactoCRM.SelectedItem.Text} {TxtAsuntoAgenda.Text}" Asunto = $"Contacto CRM: {DdlContactoCRM.SelectedItem.Text} {TxtAsuntoAgenda.Text}"
End If End If
@@ -944,16 +942,16 @@ Partial Class Inicio
Dim MensajeAdvertencia As String = "" Dim MensajeAdvertencia As String = ""
Select Case RBLAgendaOpcion.SelectedValue Select Case RBLAgendaOpcion.SelectedValue
Case 1 Case "1"
MensajeAdvertencia = "Debe de seleccionar un cliente." MensajeAdvertencia = "Debe de seleccionar un cliente."
Exit Select Exit Select
Case 2 Case "2"
MensajeAdvertencia = "Debe de seleccionar un proveedor." MensajeAdvertencia = "Debe de seleccionar un proveedor."
Exit Select Exit Select
Case 3 Case "3"
MensajeAdvertencia = "Debe de seleccionar un miembro de personal." MensajeAdvertencia = "Debe de seleccionar un miembro de personal."
Exit Select Exit Select
Case 4 Case "4"
MensajeAdvertencia = "Debe de seleccionar al menos una de las opciones de CRM." MensajeAdvertencia = "Debe de seleccionar al menos una de las opciones de CRM."
Exit Select Exit Select
@@ -1370,7 +1368,7 @@ Partial Class Inicio
DivComunicado.Visible = True DivComunicado.Visible = True
Dim Comunicado As String = ObjEmpresa.DtResultados(0)("Comunicado").ToString() 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 Dim Turno As Integer = 1
For Each s As String In ListaComunicados For Each s As String In ListaComunicados
If (Turno Mod 2) = 0 Then 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("//", "/"))) 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) TmpDT.Rows.Add(drr)
Else Else
TmpDT.Rows((dr("Consec").ToString.ToEntero / 2) - 1)("Nombre2") = dr("Documentacion").ToString Dim irow As Integer = CType((dr("Consec").ToString.ToEntero / 2) - 1, Integer)
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("//", "/"))) 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 End If
Next Next

4
LogIn.aspx.vb
View File

@@ -242,7 +242,7 @@ Partial Class LogIn
Dim x As New ADSSessionObj(Usuario.CveUsuario, Usuario.CveEmpresa) Dim x As New ADSSessionObj(Usuario.CveUsuario, Usuario.CveEmpresa)
Dim _sessionid = Encripta(String.Format("{0}|{1}", Usuario.CveUsuario, x.SessionID)) 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 If Usuario.CvePlataforma = 6 And Usuario.CveRol = 10 Then
'PLATAFORMA PORTAL CLIENTE 'PLATAFORMA PORTAL CLIENTE
@@ -281,7 +281,7 @@ Partial Class LogIn
End Using End Using
End If End If
Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario, False) Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario.ToString, False)
Response.Cookies.Add(cookie) Response.Cookies.Add(cookie)
Dim routeangular As String Dim routeangular As String
Dim puerto As String = "" Dim puerto As String = ""

30
SiteGPS.master.vb
View File

@@ -62,27 +62,7 @@ Partial Class SiteGPS
'lblFecha.Text = DateTime.Now.ToString("dd.MMMyyyy HH:mm tt") 'lblFecha.Text = DateTime.Now.ToString("dd.MMMyyyy HH:mm tt")
If Request("Masterimpoup") IsNot Nothing AndAlso Request("Masterimpoup").ToString = "true" Then EsPopup = True If Request("Masterimpoup") IsNot Nothing AndAlso Request("Masterimpoup").ToString = "true" Then EsPopup = True
If UsuarioActual IsNot Nothing Then If UsuarioActual IsNot Nothing Then
HdnCveE.Value = UsuarioActual.CveEmpresa HdnCveE.Value = UsuarioActual.CveEmpresa.ToString
'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
Dim thisURL As String = Request.Url.Segments(Request.Url.Segments.Count - 1) Dim thisURL As String = Request.Url.Segments(Request.Url.Segments.Count - 1)
If thisURL.Equals("WizardRegistro.aspx") OrElse thisURL.Equals("Registro.aspx") Then If thisURL.Equals("WizardRegistro.aspx") OrElse thisURL.Equals("Registro.aspx") Then
@@ -147,7 +127,7 @@ Partial Class SiteGPS
Else 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, '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. '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) Response.Redirect(FormsAuthentication.DefaultUrl)
End If End If
End If End If
@@ -318,9 +298,9 @@ Partial Class SiteGPS
For Each row As DataRow In ObjNoti.DtResultados.Rows For Each row As DataRow In ObjNoti.DtResultados.Rows
countNotificaciones += row("NumNotificaciones").ToString.ToEntero countNotificaciones += row("NumNotificaciones").ToString.ToEntero
Dim TipoMensaje = If(row("TipoMensaje") = "EMG", $"Hay {row("NumNotificaciones")} notificaciones de Emergencia", $"Hay {row("NumNotificaciones")} notificaciones de Alerta") Dim TipoMensaje = If(row("TipoMensaje").ToString = "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 Icono = If(row("TipoMensaje").ToString = "EMG", "fa fa-exclamation-triangle", "fa fa-bullhorn")
Dim Tipo = If(row("TipoMensaje") = "EMG", "danger", "warning") Dim Tipo = If(row("TipoMensaje").ToString = "EMG", "danger", "warning")
Notificaciones.Append(ItemNotificaciones(TipoMensaje, "Hoy", Icono, Tipo, $"/GPS/Notificaciones.aspx?Tipo={row("TipoMensaje")}")) Notificaciones.Append(ItemNotificaciones(TipoMensaje, "Hoy", Icono, Tipo, $"/GPS/Notificaciones.aspx?Tipo={row("TipoMensaje")}"))
Next Next

4
Sitelite.master.vb
View File

@@ -43,13 +43,13 @@ Partial Class SiteLite
If UsuarioActual IsNot Nothing Then If UsuarioActual IsNot Nothing Then
userx = New Usuario userx = New Usuario
userx.Empresa = New Empresa userx.Empresa = New Empresa
userx.Referencia = Encripta(UsuarioActual.CveUsuario) userx.Referencia = Encripta(UsuarioActual.CveUsuario.ToString)
userx.Usuario = Encripta(UsuarioActual.Usuario) userx.Usuario = Encripta(UsuarioActual.Usuario)
If UsuarioActual.CveRol = 1 Then If UsuarioActual.CveRol = 1 Then
userx.Empresa.Direccion = Encripta("-999") userx.Empresa.Direccion = Encripta("-999")
userx.Empresa.Empresa = Encripta("ADSistemas") userx.Empresa.Empresa = Encripta("ADSistemas")
Else Else
userx.Empresa.Direccion = Encripta(UsuarioActual.Empresa.CveEmpresa) userx.Empresa.Direccion = Encripta(UsuarioActual.Empresa.CveEmpresa.ToString)
userx.Empresa.Empresa = Encripta(UsuarioActual.Empresa.Empresa) userx.Empresa.Empresa = Encripta(UsuarioActual.Empresa.Empresa)
End If End If