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
Proveedores/LogInProveedores.aspx.vb
View File

@@ -22,7 +22,7 @@ Partial Class Portal_LogInProveedores
' If UrlParametros("CVEU") IsNot Nothing AndAlso UrlParametros("CVEU").ToString.ToEntero > 0 Then
' Dim CveUsr As Integer = UrlParametros("CVEU").ToString.ToEntero
' 'Activo el usuario y redirecciono para que pida la nueva contraseña
' Dim currentDate As Date = Date.Now
' Dim currentDate As Date = NowADS()
' Dim elapsedTicks As Long = currentDate.Ticks - UrlParametros("HORA").ToString.ToLong
' Dim elapsedSpan As New TimeSpan(elapsedTicks)
' PnlLogin.Visible = False

2
Proveedores/PortalProveedor.aspx.vb
View File

@@ -652,7 +652,7 @@ Partial Class Portal_PortalProveedor
' If Not TieneError Then
' Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL)
' Dim Liga As String = ObjParametro.Cadena1 & "Proveedores/LogInProveedores.aspx"
' Dim LigaActivar = String.Format("{0}?p={1}", Liga, Encripta(String.Format("CveU={0}&Clave={1}&Opcion=Activar&Hora={2}", cveUsuarioPortal, CveProveedor, DateTime.Now.Ticks)))
' Dim LigaActivar = String.Format("{0}?p={1}", Liga, Encripta(String.Format("CveU={0}&Clave={1}&Opcion=Activar&Hora={2}", cveUsuarioPortal, CveProveedor, NowADS().Ticks)))
' Dim ObjMail As New ClsSisMail()