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

14
Nomina/EventoDetalle.aspx.vb
View File

@@ -369,11 +369,11 @@ Partial Class OI_EventoDetalle
CveEvento = -1
CveEventoPadre = -1
ArchivoReenvio = "-1"
TxtFechaInicio.Text = DateTime.Now.ToShortDateString
TxtFechaFin.Text = DateTime.Now.ToShortDateString
TxtFechaInicio.Text = NowADS().ToShortDateString
TxtFechaFin.Text = NowADS().ToShortDateString
Dim am_pm As MKB.TimePicker.TimeSelector.AmPmSpec
Dim hora As DateTime = Now.AddMinutes(15)
Dim hora As DateTime = NowADS().AddMinutes(15)
If hora.ToString("tt") = "AM" Then am_pm = MKB.TimePicker.TimeSelector.AmPmSpec.AM Else am_pm = MKB.TimePicker.TimeSelector.AmPmSpec.PM
TxtHoraFin.SetTime(hora.Hour, hora.Minute, am_pm)
Nuevo = True
@@ -841,7 +841,7 @@ Partial Class OI_EventoDetalle
lbCambiaEstatus.Visible = True
End If
lblFechaObs.Text = Now.ToString("dd/MM/yyyy")
lblFechaObs.Text = NowADS().ToString("dd/MM/yyyy")
lblUsuarioObs.Text = UsuarioActual.Nombre
If .GetEventosComentarios(CveEvento) Then
DTComentarios = ObjEventos.DtResultados
@@ -1121,7 +1121,7 @@ Partial Class OI_EventoDetalle
UsuarioDe = UsuarioActual.Nombre
Prioridad = DdlPrioridad.SelectedValue.ToEntero
CveRevision = DdlRevision.SelectedValue.ToEntero
Fecha = Now.ToLongDateString
Fecha = NowADS().ToLongDateString
'CveUsuarioPara = DdlUsuarioPara.SelectedValue.ToEntero
'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
@@ -1533,7 +1533,7 @@ Partial Class OI_EventoDetalle
' End If
'End If
Fecha = Now.ToLongDateString
Fecha = NowADS().ToLongDateString
Alert("La observación se guardó correctamente.", TipoMensaje.MsgInformacion)
TxtOBs.Text = ""
'registrascript la imagen
@@ -1648,7 +1648,7 @@ Partial Class OI_EventoDetalle
If CorreosCCP IsNot Nothing AndAlso CorreosCCP.Count > 1 Then
Dim ArrCCP As String() = CorreosCCP.ToArray
If ArrCCP.Length > 0 Then
'Dim SB As StringBuilder = GeneraContenido(CveEvento, Titulo, UsuarioActual.Nombre, UsuarioPara, UsuariosCCP, Now.ToString(), StrPrioridad, Descripcion, "", 1)
'Dim SB As StringBuilder = GeneraContenido(CveEvento, Titulo, UsuarioActual.Nombre, UsuarioPara, UsuariosCCP, NowADS().ToString(), StrPrioridad, Descripcion, "", 1)
For i As Integer = 0 To ArrCCP.Length - 1
If ArrCCP(i) <> "" Then
'Mail.Mandacorreo(UsuarioActual.Empresa, , ArrCCP(i), " " & UsuarioActual.Nombre & " le asignó una tarea a " & UsuarioPara & " en SIG.", SB.ToString)