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

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SCT/LicenciasDetalle.aspx.vb
View File

@@ -67,7 +67,7 @@ Partial Class SCT_LicenciasDetalle
'LtlAgregar.Text = "<a class=""Texto thickbox"" href=""/Planeacion/PopUpEventos.aspx?TipoReferencia=AF&Referencia=" & CveUsuario & "&TB_iframe=true&height=300&width=350"" />Agregar Evento</a>"
Else
'Configuración de Modalidad Insert
'LblFechaCaptura.Text = Now.ToShortDateString()
'LblFechaCaptura.Text = NowADS().ToShortDateString()
'LblUsuarioCapturo.Text = UsuarioActual.Usuario
ViewState("CveLicencia") = -1

6
SCT/RepGISSucesos.aspx.vb.exclude
View File

@@ -280,7 +280,7 @@ Partial Class SCT_RepGISSucesos
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
Dim OI As New ClsOIEventos
Dim i As Integer = OI.AddEvento(DdlAddTipoEvento.SelectedValue.ToEntero, TxtAsunto.Text, TxtDescripcion.Text, 1, UsuarioActual.CveUsuario, 0, Now, Now, -1, UsuarioActual.CveEmpresa, String.Format("POINT({0} {1})", HdnPosX.Value.ToDouble, HdnPosY.Value.ToDouble))
Dim i As Integer = OI.AddEvento(DdlAddTipoEvento.SelectedValue.ToEntero, TxtAsunto.Text, TxtDescripcion.Text, 1, UsuarioActual.CveUsuario, 0, NowADS(), NowADS(), -1, UsuarioActual.CveEmpresa, String.Format("POINT({0} {1})", HdnPosX.Value.ToDouble, HdnPosY.Value.ToDouble))
ClsTecnoMovil.SendMsg("Se ha registrado un evento tipo " & DdlAddTipoEvento.SelectedItem.Text & ": " & TxtAsunto.Text, "6621190043")
Dim ObjMail As New ClsSisMail()
ObjMail.Mandacorreo(UsuarioActual.Empresa, "julian@adsistemas.mx", DdlAddTipoEvento.SelectedItem.Text, "Se ha registrado un evento tipo " & DdlAddTipoEvento.SelectedItem.Text & ": " & TxtAsunto.Text.Trim & "<br />" & "Descripción: " & TxtDescripcion.Text.Trim)
@@ -310,9 +310,9 @@ Partial Class SCT_RepGISSucesos
dbLayer.Name = LayerNombre
dbLayer.CoordinateSystem = AspMap.CoordSystem.WGS1984
Dim Tmp As DateTime = Now
Dim Tmp As DateTime = NowADS()
While (IsFileLocked(PathSHP)) 'hago un ciclo para esperar para liberar los archivos
If Tmp.AddSeconds(15) < Now Then Exit While
If Tmp.AddSeconds(15) < NowADS() Then Exit While
End While