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

4
PortalProveedor/PortalProveedor.aspx.vb
View File

@@ -233,7 +233,7 @@ Partial Class Portal_PortalProveedor
Private Property FechaLimite As Date
Get
If ViewState("FechaLimite") Is Nothing Then
Return Date.Now.AddDays(15)
Return NowADS().AddDays(15)
Else
Return ViewState("FechaLimite").ToString.ToDate
End If
@@ -836,7 +836,7 @@ Partial Class Portal_PortalProveedor
' If Not TieneError Then
' Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL)
' Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx"
' Dim LigaActivar = Liga & "?p=" & Encripta("CveU=" & cveUsuarioPortal & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
' Dim LigaActivar = Liga & "?p=" & Encripta("CveU=" & cveUsuarioPortal & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & NowADS().Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
' Dim ObjMail As New ClsSisMail()