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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-10-30 02:03:44 -07:00
parent 757f5b63a9 c00470671e
commit 9c29659a0f
686 changed files with 20999 additions and 20970 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
OI/Circular.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class OI_Circular
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Filtros", String.Format("Fecha Inicial: {0} Fecha Final: {1}", TxtFechaI.Text, TxtFechaF.Text)))
ImprimirPDF("Empresas/Grales/Formatos/Circulares.rdlc", DtDatos, params, "Circulares", "PDF", RDSName:="DataSet1")

2
OI/ConvocatoriaDetalle.aspx.cs
View File

@@ -782,7 +782,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
strICS.AppendLine(string.Format("DTEND:{0}", DTEND));
strICS.AppendLine(string.Format("LOCATION:{0}", Ubicacion));
strICS.AppendLine(string.Format("UID:{0}", uuid));
strICS.AppendLine(string.Format("DTSTAMP:{0}", DateTime.Now.ToUniversalTime().ToString("yyyyMMddTHHmmssZ")));
strICS.AppendLine(string.Format("DTSTAMP:{0}", NowADS().ToUniversalTime().ToString("yyyyMMddTHHmmssZ")));
strICS.AppendLine(string.Format("SUMMARY:{0}", Asunto));
strICS.AppendLine(string.Format("DESCRIPTION:{0}", descripcion));
strICS.AppendLine("PRIORITY:5");

2
OI/Desarrollo.aspx.vb
View File

@@ -392,7 +392,7 @@ Partial Class OI_Desarrollo
Else
Dim _CveEstadoTemp As Integer = -1
If DdlUsuarioDes.SelectedValue.ToEntero <> CveUsuarioAsignado Then
FechaAsiganacion = Now
FechaAsiganacion = NowADS()
_CveEstadoTemp = 2
End If

6
OI/DocumentoDetalle.aspx.cs
View File

@@ -779,7 +779,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
ClsOIEventos ObjOI = new ClsOIEventos();
if (Autorizar)
{
if (ObjOI.UpdateDocumentoAutorizacion(CveAutorizacion, -1, "-1", "-1", DateTime.Now))
if (ObjOI.UpdateDocumentoAutorizacion(CveAutorizacion, -1, "-1", "-1", NowADS()))
{
Alert("Haz aprobado la versión actual del Documento");
}
@@ -817,7 +817,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
{
ClsOIEventos ObjOI = new ClsOIEventos();
if (ObjOI.UpdateDocumento(this.CveDocumento, DdlSubCategoria.SelectedValue.ToEntero(), TxtDescripcion.Text, TxtObs.InnerText, TxtVersion.Text, 2, "-1", TxtResponsable.Text,
DateTime.Now, -1, -1, UsuarioActual.CveEmpresa))
NowADS(), -1, -1, UsuarioActual.CveEmpresa))
{
Alert("Documento publicado");
}
@@ -852,7 +852,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
{
ClsOIEventos ObjOI = new ClsOIEventos();
if (ObjOI.UpdateDocumento(this.CveDocumento, DdlSubCategoria.SelectedValue.ToEntero(), TxtDescripcion.Text, TxtObs.InnerText, TxtVersion.Text, 3, "-1", TxtResponsable.Text,
DateTime.Now, -1, -1, UsuarioActual.CveEmpresa))
NowADS(), -1, -1, UsuarioActual.CveEmpresa))
{
Alert("Documento cancelado");
}

14
OI/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)

10
OI/EventoDetalle1.aspx.vb.exclude
View File

@@ -260,8 +260,8 @@ Partial Class OI_EventoDetalle1
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
If Not IsPostBack Then
CveEvento = -1
TxtFechaInicio.Text = DateTime.Now.ToShortDateString
TxtFechaFin.Text = DateTime.Now.ToShortDateString
TxtFechaInicio.Text = NowADS().ToShortDateString
TxtFechaFin.Text = NowADS().ToShortDateString
Nuevo = True
CveUsuarioDe = -1
CveUsuarioPara = -1
@@ -653,7 +653,7 @@ Partial Class OI_EventoDetalle1
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
@@ -848,7 +848,7 @@ Partial Class OI_EventoDetalle1
End If
Fecha = Now.ToLongDateString
Fecha = NowADS().ToLongDateString
Alert("La observación se guardó correctamente.", TipoMensaje.MsgInformacion)
TxtOBs.Text = ""
'registrascript la imagen
@@ -914,7 +914,7 @@ Partial Class OI_EventoDetalle1
If CorreosCCP.Length > 1 Then
Dim ArrCCP As String() = CorreosCCP.Split(";"c)
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)

4
OI/MinutaDetalle.aspx.cs
View File

@@ -369,7 +369,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
using (ClsOIEventos oieve = new ClsOIEventos())
{
oieve.IniciaTransacSQL();
Continuar = oieve.AddEventoMinuta2(asunto, descripcion, acuerdos, cveusuarioDe, cveusuarioPara, DateTime.Now, archivoname, lMiembros, chkList, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCorreoExterno.Text);
Continuar = oieve.AddEventoMinuta2(asunto, descripcion, acuerdos, cveusuarioDe, cveusuarioPara, NowADS(), archivoname, lMiembros, chkList, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCorreoExterno.Text);
CveEvento = oieve.CveEvento;
Folio = oieve.Folio;
@@ -1397,7 +1397,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
strICS.AppendFormat("DTEND:{0}", DTEND);
strICS.AppendFormat("LOCATION:{0}", Ubicacion);
strICS.AppendFormat("UID:{0}", uuid);
strICS.AppendFormat("DTSTAMP:{0}", DateTime.Now.ToUniversalTime().ToString("yyyyMMddTHHmmssZ"));
strICS.AppendFormat("DTSTAMP:{0}", NowADS().ToUniversalTime().ToString("yyyyMMddTHHmmssZ"));
strICS.AppendFormat("SUMMARY:{0}", Asunto);
strICS.AppendFormat("DESCRIPTION:{0}", descripcion);
strICS.Append("PRIORITY:5");

2
OI/Minutas.aspx.vb
View File

@@ -325,7 +325,7 @@ Partial Class OI_Minutas
Dim RutaArchivo As String = String.Format("{0}\OI\Temp\{1}", UsuarioActual.Empresa.Ruta, Session("Eventos"))
If CveEvento = -1 Then
If ObjEventos.AddEventoMinuta(Asunto, Descripcion, Acuerdos, -1, -1, Now, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjEventos.AddEventoMinuta(Asunto, Descripcion, Acuerdos, -1, -1, NowADS(), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ViewState("CveEvento") = ObjEventos.CveEvento
For Each RowCCP As GridViewRow In GVUsuarios.Rows

10
OI/PopUpAgenda.aspx.vb
View File

@@ -266,8 +266,8 @@ Partial Class OI_PopUpAgenda
CType(Me.Master, BaseMasterPage).PopupWidth = 915
CveEvento = -1
TxtFechaInicio.Text = DateTime.Now.ToShortDateString
TxtFechaFin.Text = DateTime.Now.ToShortDateString
TxtFechaInicio.Text = NowADS().ToShortDateString
TxtFechaFin.Text = NowADS().ToShortDateString
Nuevo = True
CveUsuarioDe = -1
CveUsuarioPara = -1
@@ -730,7 +730,7 @@ Partial Class OI_PopUpAgenda
UsuarioDe = UsuarioActual.Nombre
Prioridad = DdlPrioridad.SelectedValue.ToEntero
CveRevision = DdlRevision.SelectedValue.ToEntero
Fecha = Now.ToLongDateString
Fecha = NowADS().ToLongDateString
Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
@@ -920,7 +920,7 @@ Partial Class OI_PopUpAgenda
End If
Fecha = Now.ToLongDateString
Fecha = NowADS().ToLongDateString
Alert("La observación se guardó correctamente.", TipoMensaje.MsgInformacion)
TxtOBs.Text = ""
'registrascript la imagen
@@ -982,7 +982,7 @@ Partial Class OI_PopUpAgenda
'If CorreosCCP.Length > 1 Then
' Dim ArrCCP As String() = CorreosCCP.Split(";"c)
' 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)

4
OI/RepDesarrollo.aspx.vb
View File

@@ -7,8 +7,8 @@ Partial Class OI_RepDesarrollo
Private Sub OI_RepDesarrollo_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
TxtFechaFin.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
TxtFechaFin.Text = NowADS().ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
CargaCombos()
CargaDatos()

4
OI/RepMinutas.aspx.vb
View File

@@ -18,8 +18,8 @@ Partial Class OI_RepMinutas
End Sub
Private Sub CargaFiltros()
txtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = New Date(NowADS().Year, NowADS().Month, 1).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
End Sub
Public Sub CargaDatosOIMinutas()
Dim ObjProspectos As New ClsOIEventos

4
OI/RepReuniones.aspx.cs
View File

@@ -29,8 +29,8 @@ public partial class OI_RepReuniones : ClsPaginas
private void CargaFiltros()
{
TxtFechaI.Text = new DateTime(DateTime.Now.Year, DateTime.Now.Month, 1).ToShortDateString();
TxtFechaF.Text = DateTime.Now.ToShortDateString();
TxtFechaI.Text = new DateTime(NowADS().Year, NowADS().Month, 1).ToShortDateString();
TxtFechaF.Text = NowADS().ToShortDateString();
TxtCFechaInicio.Text = TxtFechaI.Text;
TxtCFechaFin.Text = TxtFechaF.Text;
}

12
OI/RepSoporteADS.aspx.vb
View File

@@ -67,8 +67,8 @@ Partial Class OI_RepSoporteADS
End Sub
Private Sub CargaFiltros()
txtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = New Date(NowADS().Year, NowADS().Month, 1).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargarEventoEstatus()
CargaRevisiones()
CargaUsuarios()
@@ -179,21 +179,21 @@ Partial Class OI_RepSoporteADS
TipoReporte = 1
CargaDatos()
TipoReporte = -1
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm:ss - dd MMMM"))
UPFiltros.Update()
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
TipoReporte = -1
CargaDatos()
TipoReporte = -1
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm:ss - dd MMMM"))
UPFiltros.Update()
End Sub
Protected Sub BtnEscritorio_Click(sender As Object, e As EventArgs) Handles BtnEscritorio.Click
TipoReporte = 1
CargaDatos()
TipoReporte = -1
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm:ss - dd MMMM"))
UPFiltros.Update()
End Sub
Private Sub CargaDatos()
@@ -232,7 +232,7 @@ Partial Class OI_RepSoporteADS
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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

16
OI/RepTareas.aspx.vb
View File

@@ -70,8 +70,8 @@ Partial Class OI_RepTareas
End Sub
Private Sub CargaFiltros()
txtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = New Date(NowADS().Year, NowADS().Month, 1).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargarEventoEstatus()
CargaRevisiones()
End Sub
@@ -303,21 +303,21 @@ Partial Class OI_RepTareas
TipoReporte = 1
CargaDatos()
TipoReporte = -1
'LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
'LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm:ss - dd MMMM"))
UPFiltros.Update()
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
TipoReporte = -1
CargaDatos()
TipoReporte = -1
'LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
'LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm:ss - dd MMMM"))
UPFiltros.Update()
End Sub
Protected Sub BtnEscritorio_Click(sender As Object, e As EventArgs) Handles BtnEscritorio.Click
TipoReporte = 1
CargaDatos()
TipoReporte = -1
'LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("H:mm:ss - dd MMMM"))
'LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm:ss - dd MMMM"))
UPFiltros.Update()
End Sub
Private Sub CargaDatos()
@@ -409,13 +409,13 @@ Partial Class OI_RepTareas
SbFiltros.Append($" Tema: {DdlRevision.SelectedItem.Text}")
If Tab.ActiveTabIndex = 0 Then 'TabPanelAsignaron
GvDatosOIEventosTareasAsignaron.ExportToExcelGembox($"ReporteTareasMeAsignaron{Now.ToString("yyyyMMddhhss")}", UsuarioActual, "Reporte Tareas Me Asignaron", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvDatosOIEventosTareasAsignaron.ExportToExcelGembox($"ReporteTareasMeAsignaron{NowADS().ToString("yyyyMMddhhss")}", UsuarioActual, "Reporte Tareas Me Asignaron", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
ElseIf Tab.ActiveTabIndex = 1 Then 'TabPanelCCP
GvDatosOIEventosTareasCCP.ExportToExcelGembox($"ReporteTareasCPP{Now.ToString("yyyyMMddhhss")}", UsuarioActual, "Reporte Tareas CPP", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvDatosOIEventosTareasCCP.ExportToExcelGembox($"ReporteTareasCPP{NowADS().ToString("yyyyMMddhhss")}", UsuarioActual, "Reporte Tareas CPP", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
ElseIf Tab.ActiveTabIndex = 2 Then 'TabPanelAsigne
GvDatosOIEventosTareasAsigne.ExportToExcelGembox($"ReporteTareasQueAsigne{Now.ToString("yyyyMMddhhss")}", UsuarioActual, "Reporte Tareas Asigne", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvDatosOIEventosTareasAsigne.ExportToExcelGembox($"ReporteTareasQueAsigne{NowADS().ToString("yyyyMMddhhss")}", UsuarioActual, "Reporte Tareas Asigne", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
End If
End Sub

14
OI/SoporteADS.aspx.vb
View File

@@ -567,12 +567,12 @@ Partial Class OI_SoporteADS
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
@@ -1019,7 +1019,7 @@ Partial Class OI_SoporteADS
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
@@ -1326,7 +1326,7 @@ Partial Class OI_SoporteADS
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
@@ -1610,7 +1610,7 @@ Partial Class OI_SoporteADS
' End If
'End If
Fecha = Now.ToLongDateString
Fecha = NowADS().ToLongDateString
Alert("La observación se guardó correctamente.", TipoMensaje.MsgInformacion)
TxtOBs.Text = ""
'registrascript la imagen
@@ -1725,7 +1725,7 @@ Partial Class OI_SoporteADS
' 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)

4
OI/SubidasADS.aspx
View File

@@ -243,7 +243,7 @@
} else {
CopiaExitosa = true;
//console.log("The text is now on the clipboard");
//console.log("The text is NowADS() on the clipboard");
correctoCopiado();
}
} catch (err) {
@@ -259,7 +259,7 @@
errorCopiado();
} else {
CopiaExitosa = true;
console.log("The text is now on the clipboard");
console.log("The text is NowADS() on the clipboard");
correctoCopiado();
}
} catch (err) {

4
OI/SubidasADS.aspx.vb
View File

@@ -28,8 +28,8 @@ Partial Class OI_SubidasADS
If Not Page.IsPostBack Then
TxtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
TxtFechaFin.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
TxtFechaFin.Text = NowADS().ToString("dd/MM/yyyy")
If UsuarioActual.CveRol = 1 Then
CargaDatosSubidasPendientes()

2
OI/TareaDetalle.aspx.cs
View File

@@ -2057,7 +2057,7 @@ public partial class OI_TareaDetalle : ClsPaginas
//using ( ClsAF ObjAF = new ClsAF())
//{
// if (ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", DateTime.Now.Year, -1, -1,-1,-1, "-1",-1))
// if (ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", NowADS().Year, -1, -1,-1,-1, "-1",-1))
// {
// GvActividades.DataSource = ObjAF.DtResultados;
// GvActividades.DataBind();

4
OI/UnoaUno.aspx.cs
View File

@@ -33,7 +33,7 @@ public partial class OI_UnoaUno : ClsPaginas
{
if (!IsPostBack)
{
TxtCFecha.Text = DateTime.Now.ToString("dd/MM/yyyy");
TxtCFecha.Text = NowADS().ToString("dd/MM/yyyy");
LtlusuarioTitulo.Text = UsuarioActual.Nombre;
@@ -74,7 +74,7 @@ public partial class OI_UnoaUno : ClsPaginas
ObjPA_O.Dispose();
}
GVPA_OI_UnoAUnoTableroGet.DataBind();
if (GVPA_OI_UnoAUnoTableroGet.Rows.Count > 0 && TxtCFecha.Text.ToDate().ToString("yyyy/MM/dd") == DateTime.Now.ToString("yyyy/MM/dd"))
if (GVPA_OI_UnoAUnoTableroGet.Rows.Count > 0 && TxtCFecha.Text.ToDate().ToString("yyyy/MM/dd") == NowADS().ToString("yyyy/MM/dd"))
{
LnkGuardar.Visible = true;
}