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

12
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -420,8 +420,8 @@ Partial Class Sistemas_UsuarioDetalle
Exit Sub
End If
TxtFechaIBitacora.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
TxtFechaFBitacora.Text = Now.ToString("dd/MM/yyyy")
TxtFechaIBitacora.Text = NowADS().AddMonths(-1).ToString("dd/MM/yyyy")
TxtFechaFBitacora.Text = NowADS().ToString("dd/MM/yyyy")
ViewState("CveUsuario") = PreviousPage.CurrentUsuario
ViewState("CveRol") = -1
@@ -439,7 +439,7 @@ Partial Class Sistemas_UsuarioDetalle
LnkRenviaCorreo.Visible = True
Else
'Configuración de Modalidad Insert
LblFechaCaptura.Text = Now.ToShortDateString()
LblFechaCaptura.Text = NowADS().ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
TrContraseña.Visible = False
LnkRestablecer.Visible = False
@@ -4892,7 +4892,7 @@ Partial Class Sistemas_UsuarioDetalle
Protected Sub LnkAutorizarEquipo_Click(sender As Object, e As EventArgs)
'CveUsuario
Dim AdsCodex As String = Encripta(String.Format("{0}_{1}_{2}", CveUsuario, DateTime.Now.Ticks, UsuarioActual.CveUsuario))
Dim AdsCodex As String = Encripta(String.Format("{0}_{1}_{2}", CveUsuario, NowADS().Ticks, UsuarioActual.CveUsuario))
Using objuser As New ClsSisUsuarios()
If objuser.UsuariosGetTokenXEquipo(CveUsuario, UsuarioActual.CveUsuario, AdsCodex) Then
RegistraScript(String.Format("localStorage.setItem('AdsCodex', '{0}');", AdsCodex), "adstokenx")
@@ -4992,10 +4992,10 @@ Partial Class Sistemas_UsuarioDetalle
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/BitacoraLogin.rdlc", DtDatos, params, String.Format("BitacoraRegistro-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/BitacoraLogin.rdlc", DtDatos, params, String.Format("BitacoraRegistro-{0}", NowADS().ToDateTime.ToShortDateString))
End Sub
End Class