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
RH/ActualizacionMasiva.aspx.vb
View File

@@ -254,7 +254,7 @@ Partial Class RH_ActualizacionMasiva
ObjPersonal.RollBack()
Exit For
End If
If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), NowADS().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
Row.FCCheckBox("ChkCalcularSDI").Checked) Then
@@ -410,7 +410,7 @@ Partial Class RH_ActualizacionMasiva
If Not IsNothing(drow) Then
Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
If ObjPersonal.UpdateSalarios(CvePersonal, NowADS().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal(), ChkCalcularSDIXLS.Checked) Then
contador = contador + 1
Else

2
RH/AsistenciaDetalle.aspx.vb
View File

@@ -210,7 +210,7 @@ Partial Class RH_AsistenciaDetalle
Dim ObjAsistencias As New ClsRH
Dim ObjAsistenciasDetalle As New ClsRH
If ObjAsistencias.AddAsistencia(CvePersonal, -1, DdlSubProyectoAsignado.SelectedValue.ToEntero, Now, 6, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjAsistencias.AddAsistencia(CvePersonal, -1, DdlSubProyectoAsignado.SelectedValue.ToEntero, NowADS(), 6, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjAsistencias.CveAsistencia > 0 AndAlso
ObjAsistenciasDetalle.AddAsistenciasDetalle(ObjAsistencias.CveAsistencia, DdlSubProyectoAsignado.SelectedValue.ToEntero, TxtHoraInicio.Text.Trim.ToDateTime, TxtHoraFin.Text.Trim.ToDateTime, DdlTipoHora.SelectedValue.ToEntero) Then
TxtHoraInicio.Text = ""

6
RH/Asistencias.aspx.vb
View File

@@ -19,7 +19,7 @@ Partial Class RH_Asistencias
GV.Columns(2).Visible = False
GV.Columns(3).Visible = True
End If
txtFechaAsistencia.Text = Now.ToShortDateString
txtFechaAsistencia.Text = NowADS().ToShortDateString
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then
PnlMasivo.Visible = True
End If
@@ -84,7 +84,7 @@ Partial Class RH_Asistencias
txtFechaAsistencia.Enabled = False
Calendario.Enabled = False
btnconsultarnew.Visible = True
If txtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
If txtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(NowADS().Year - 1, NowADS().Year, NowADS().Year + 1) Then
Dim objpersonal As New ClsRH
If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, DdlTipoPeriodo.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate, txtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa, DdlPuesto.SelectedValue.ToEntero) Then
Dim dt As DataTable = objpersonal.DtResultados
@@ -144,7 +144,7 @@ Partial Class RH_Asistencias
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy HH:mm")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy HH:mm")))
params.Add(New ReportParameter("Filtros", Filtros))
Dim lrds As New List(Of ReportDataSource)

2
RH/BuzonCalidad.aspx.vb
View File

@@ -41,7 +41,7 @@ Partial Class RH_BuzonCalidad
' Else
' 'Configuración de Modalidad Insert
' LblFechaCaptura.Text = Now.ToShortDateString()
' LblFechaCaptura.Text = NowADS().ToShortDateString()
' LblUsuarioCapturo.Text = UsuarioActual.Usuario
' ViewState("CvePersonal") = -1
' BtnEliminar.Visible = False

2
RH/BuzonCalidad.aspx.vb.exclude
View File

@@ -41,7 +41,7 @@ Partial Class RH_BuzonCalidad
Else
'Configuración de Modalidad Insert
LblFechaCaptura.Text = Now.ToShortDateString()
LblFechaCaptura.Text = NowADS().ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
ViewState("CvePersonal") = -1
BtnEliminar.Visible = False

6
RH/CalculoSBC.aspx.cs
View File

@@ -40,7 +40,7 @@ public partial class RH_CalculoSBC : ClsPaginas
{
if (!IsPostBack)
{
TxtFechaPago.Text = String.Format("{0:01/MM/yyyy}", DateTime.Now);
TxtFechaPago.Text = String.Format("{0:01/MM/yyyy}", NowADS());
ClsRH ObjRH = new ClsRH();
@@ -806,8 +806,8 @@ public partial class RH_CalculoSBC : ClsPaginas
libro.Range(2, 2, 2, 6).Style.Font.SetFontSize(14);
libro.Range(1, 2, 2, 6).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
//libro.Range(3, 2, 3, 6).Merge().Value = $"del {fechai:dd/MM/yyyy} al {fechaf:dd/MM/yyyy}";
libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now:dd/MM/yyyy}";
libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now:HH:mm}";
libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{NowADS():dd/MM/yyyy}";
libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{NowADS():HH:mm}";
libro.Range(5, 8, 5, 12).Merge().Value = "Actual";
libro.Range(5, 13, 5, 15).Merge().Value = "Nuevo";

2
RH/CatChecadorTipo.aspx.vb
View File

@@ -31,7 +31,7 @@ Partial Class RH_ChecadorTipo
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
End If
ElseIf HdnModalidad.Value = "U" Then
If ObjRH.ChecadorTipoUpdate(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, TxtChecadorTipo.Text, TxtDescripcion.Text, Estatus, Date.Now) Then
If ObjRH.ChecadorTipoUpdate(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, TxtChecadorTipo.Text, TxtDescripcion.Text, Estatus, NowADS()) Then
CargaDatos()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
End If

2
RH/CatConceptosViaticos.aspx.cs
View File

@@ -123,7 +123,7 @@ public partial class RH_CatConceptosViaticos : ClsPaginas
Boolean Estatus = ChkEstatus.Checked;
int CveUsuarioIng = UsuarioActual.CveUsuario;
DateTime FechaIng = DateTime.Now;
DateTime FechaIng = NowADS();
if (EsEditar == 0)
{

6
RH/CatCursos.aspx.vb
View File

@@ -302,7 +302,7 @@ Partial Class RH_CatCursos
Dim RpNombreCurso As String = TxtCurso.Text
Dim RpFechas As String = Now.ToString("dd/MM/yyyy")
Dim RpFechas As String = NowADS().ToString("dd/MM/yyyy")
Dim RpTema As String = DDlTema.SelectedItem.Text
Dim RpSubTema As String = DDLSubtema.SelectedItem.Text
Dim RpCapacitador As String = DDLCapacitador.SelectedItem.Text
@@ -418,7 +418,7 @@ Partial Class RH_CatCursos
ChkEstatus.Checked = True
ChkConstancias.Checked = False
txtInicio.Text = Now.ToString("dd/MM/yyyy")
txtInicio.Text = NowADS().ToString("dd/MM/yyyy")
TxtHoraEntrada.Text = ""
TxtUbicacion.Text = ""
@@ -625,7 +625,7 @@ Partial Class RH_CatCursos
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".docx")
Response.BinaryWrite(DocumenBitArray)
Response.End()
End If

10
RH/CatPersonal.aspx.vb
View File

@@ -42,7 +42,7 @@ Partial Class RH_CatPersonal
HplAddVenta.Visible = False
End If
LnkAddPersonalSimplificado.Visible = Not HplAddVenta.Visible
TxtFechaIngreso.Text = String.Format("{0:dd/MM/yyyy}", DateTime.Now)
TxtFechaIngreso.Text = String.Format("{0:dd/MM/yyyy}", NowADS())
ViewState("Orden") = ""
CargaEscolaridad()
CargaEstadoCivil()
@@ -688,7 +688,7 @@ Partial Class RH_CatPersonal
'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}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepPersonal.rdlc", DTDatos, params, "ReporteTareas", Formato:=Formato)
@@ -733,7 +733,7 @@ Partial Class RH_CatPersonal
Response.Clear()
Response.AddHeader("content-disposition", $"attachment;filename=personalizado_{Now.ToString("yyyyMMddhhmmss")}.xls")
Response.AddHeader("content-disposition", $"attachment;filename=personalizado_{NowADS().ToString("yyyyMMddhhmmss")}.xls")
Response.AddHeader("Content-Length", memoryStream.Length.ToString())
Response.ContentType = "application/octet-stream"
memoryStream.WriteTo(Response.OutputStream)
@@ -1162,8 +1162,8 @@ Partial Class RH_CatPersonal
' libro.Range(1, 2, 2, 6).Style.Font.SetFontSize(16)
' libro.Range(2, 2, 2, 6).Style.Font.SetFontSize(14)
' libro.Range(1, 2, 2, 6).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center
' libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now}"
' libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now}"
' libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{NowADS()}"
' libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{NowADS()}"
' End If
'End Using
End Sub

4
RH/DocumentacionVencida.aspx.vb
View File

@@ -10,8 +10,8 @@ Partial Class RH_DocumentacionVencida
Private Sub RH_DocumentacionVencida_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
TxtFechaI.Text = Now.AddDays(-15).ToString("dd/MM/yyyy")
TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().AddDays(-15).ToString("dd/MM/yyyy")
TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
End If
End Sub

2
RH/ListaAsistenciaRH.aspx.vb
View File

@@ -23,7 +23,7 @@ Partial Class RH_ListaAsistenciaRH
Private Sub RH_ListaAsistencia_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFecha.Text = Now.ToShortDateString
txtFecha.Text = NowADS().ToShortDateString
CveSupervisor = UsuarioActual.CvePersonal
CargaCombos()
CargaDatos()

26
RH/MiPerfil.aspx.vb
View File

@@ -104,7 +104,7 @@ Partial Class RH_MiPerfil
Private Property VacInicioPeriodo As Date
Get
If ViewState("VacInicioPeriodo") Is Nothing Then
Return Now
Return NowADS()
Else
Return DirectCast(ViewState("VacInicioPeriodo"), Date)
End If
@@ -116,7 +116,7 @@ Partial Class RH_MiPerfil
Private Property VacFinPeriodo As Date
Get
If ViewState("VacFinPeriodo") Is Nothing Then
Return Now
Return NowADS()
Else
Return DirectCast(ViewState("VacFinPeriodo"), Date)
End If
@@ -559,7 +559,7 @@ Partial Class RH_MiPerfil
Dim ObjRH As New ClsRH
If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, Now.AddMonths(-3), Now.AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, NowADS().AddMonths(-3), NowADS().AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
GvPermisos.DataSource = ObjRH.DtResultados
Else
GvPermisos.DataSource = Nothing
@@ -797,8 +797,8 @@ Partial Class RH_MiPerfil
VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString.ToEntero
Else
VacInicioPeriodo = Now
VacFinPeriodo = Now
VacInicioPeriodo = NowADS()
VacFinPeriodo = NowADS()
VacAnios = 0
VacDias = 0
VacDiasUsados = 0
@@ -851,7 +851,7 @@ Partial Class RH_MiPerfil
Dim diasPermiso As String = GvRow.DataKey("Dias")
Dim MotivoPermiso As String = GvRow.DataKey("Motivo")
Dim Puesto As String = puestoProp
Dim Fecha As String = DateTime.Now.ToString("dd/MM/yyyy")
Dim Fecha As String = NowADS().ToString("dd/MM/yyyy")
Dim Solicitante As String = UsuarioActual.Nombre
Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year
If Periodoingreso > PeriodoInicio Then
@@ -893,7 +893,7 @@ Partial Class RH_MiPerfil
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
Response.BinaryWrite(bytesInStream)
Response.End()
@@ -949,8 +949,8 @@ Partial Class RH_MiPerfil
ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", ""))
ListaTagsDocumentost.Add(New TagsDocumentos("{Denominacion}", ""))
ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("dd/MM/yyyy")))
Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
Dim fechaActual As String = " " & NowADS().Day & " del mes " & NowADS().Month & " del año " & NowADS().Year
Dim FechaActualDF As String = NowADS().ToString("dd/MM/yyyy")
ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
End If
@@ -1007,7 +1007,7 @@ Partial Class RH_MiPerfil
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
Response.BinaryWrite(bytesInStream)
Response.End()
Else
@@ -1545,7 +1545,7 @@ end_of_for:
Else
'GUARDA SOLICITUDES NUEVAS
CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro:=TxtTipoCarro.Text, KM:=TxtKM.Text)
CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro:=TxtTipoCarro.Text, KM:=TxtKM.Text)
If (CveSolicitudViatico > 0) Then
For Each RowConcepto As DataRow In DTConceptosDetalles.Rows
@@ -1734,7 +1734,7 @@ end_of_for:
params.Add(New ReportParameter("TelefonoSolicitante", ObjBancos.DtResultados.FiltroPrimeroValor("TelefonoPersonal")))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString()))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("TotalADepositar", If(ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar").ToDouble() > 0, ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar"), "0").ToString()))
@@ -1797,7 +1797,7 @@ end_of_for:
Else
'GUARDA SOLICITUDES NUEVAS
CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro:=TxtTipoCarro.Text, KM:=TxtKM.Text)
CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro:=TxtTipoCarro.Text, KM:=TxtKM.Text)
If (CveSolicitudViatico > 0) Then
For Each RowConcepto As DataRow In DTConceptosDetalles.Rows

92
RH/Personal.aspx.vb
View File

@@ -189,7 +189,7 @@ Partial Class RH_Personal
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
@@ -416,7 +416,7 @@ Partial Class RH_Personal
Private Property VacInicioPeriodo As Date
Get
If ViewState("VacInicioPeriodo") Is Nothing Then
Return Now
Return NowADS()
Else
Return DirectCast(ViewState("VacInicioPeriodo"), Date)
End If
@@ -428,7 +428,7 @@ Partial Class RH_Personal
Private Property VacFinPeriodo As Date
Get
If ViewState("VacFinPeriodo") Is Nothing Then
Return Now
Return NowADS()
Else
Return DirectCast(ViewState("VacFinPeriodo"), Date)
End If
@@ -984,7 +984,7 @@ Partial Class RH_Personal
LoadDefaultValues()
ImgAddObs.Visible = False
LblFechaCaptura.Text = Now.ToShortDateString()
LblFechaCaptura.Text = NowADS().ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
ViewState("CvePersonal") = -1
BtnEliminar.Visible = False
@@ -1080,13 +1080,13 @@ Partial Class RH_Personal
CargaClientes()
Dim fechainicioasistencia As String
Dim fechaFinasistencia As String
If Now.Day >= 15 Then
fechainicioasistencia = String.Format("{0:16/MM/yyyy}", Now)
Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", Now).ToDateTime().AddMonths(1).AddDays(-1)
If NowADS().Day >= 15 Then
fechainicioasistencia = String.Format("{0:16/MM/yyyy}", NowADS())
Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", NowADS()).ToDateTime().AddMonths(1).AddDays(-1)
fechaFinasistencia = String.Format("{0:dd/MM/yyyy}", dateendasis)
Else
fechainicioasistencia = String.Format("{0:01/MM/yyyy}", Now)
fechaFinasistencia = String.Format("{0:15/MM/yyyy}", Now)
fechainicioasistencia = String.Format("{0:01/MM/yyyy}", NowADS())
fechaFinasistencia = String.Format("{0:15/MM/yyyy}", NowADS())
End If
If Request("FechaI") IsNot Nothing AndAlso IsDate(Request("FechaI")) Then
txtFechaI.Text = Request("FechaI")
@@ -1112,8 +1112,8 @@ Partial Class RH_Personal
End If
End If
TxtFechaICredito.Text = $"01/01/{Now.Year}"
TxtFechaFCredito.Text = Now.ToShortDateString
TxtFechaICredito.Text = $"01/01/{NowADS().Year}"
TxtFechaFCredito.Text = NowADS().ToShortDateString
If UsuarioActual.Empresa.Funcionalidad(509) = "1" Then
divCliente.Visible = True
@@ -1919,11 +1919,11 @@ Partial Class RH_Personal
End If
If VacDiasDisponibles > 0 Then
TxtFechaInicioVac.Text = Now.AddDays(1).ToString("dd/MM/yyyy")
TxtFechaInicioVac.Text = NowADS().AddDays(1).ToString("dd/MM/yyyy")
Else
TxtFechaInicioVac.Text = Now.ToString("dd/MM/yyyy")
TxtFechaInicioVac.Text = NowADS().ToString("dd/MM/yyyy")
End If
TxtFechaFinVac.Text = Now.AddDays(VacDiasDisponibles).ToString("dd/MM/yyyy")
TxtFechaFinVac.Text = NowADS().AddDays(VacDiasDisponibles).ToString("dd/MM/yyyy")
'PERSONAL ALTAS
If ObjPersonal.GetPersonalAltas(CvePersonal) Then
@@ -2227,7 +2227,7 @@ Partial Class RH_Personal
' objRH.Dispose()
' Cuerpo.AppendLine("<table border='0' style='width:100%'>")
' Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ EmpresaDestino }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ Now.ToShortDateString } { Now.ToShortTimeString } <br/></td> </tr>")
' Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ EmpresaDestino }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ NowADS().ToShortDateString } { NowADS().ToShortTimeString } <br/></td> </tr>")
' Cuerpo.AppendLine($"<tr><td style=' font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
' Cuerpo.AppendLine("</table>")
@@ -3732,7 +3732,7 @@ Partial Class RH_Personal
params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
params.Add(New ReportParameter("CP", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("CP", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
@@ -3740,7 +3740,7 @@ Partial Class RH_Personal
params.Add(New ReportParameter("Beneficiario", ObjPersonal.Beneficiario))
params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
params.Add(New ReportParameter("LugarNacimiento", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("LugarNacimiento", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("CredencialElector", ObjPersonal.CredencialElector))
params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
@@ -3825,13 +3825,13 @@ Partial Class RH_Personal
params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
params.Add(New ReportParameter("CP", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("CP", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
params.Add(New ReportParameter("LugarNacimiento", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("LugarNacimiento", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -3870,10 +3870,10 @@ Partial Class RH_Personal
params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text)))
params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta))
params.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))
params.Add(New ReportParameter("Fecha", DateTime.Now.ToShortDateString))
params.Add(New ReportParameter("Fecha", NowADS().ToShortDateString))
Dim edad As Integer
edad = Now.Year - ObjPersonal.FechaNacimiento.Year
If Now.Month < ObjPersonal.FechaNacimiento.Month OrElse (Now.Month = ObjPersonal.FechaNacimiento.Month AndAlso Now.Day < ObjPersonal.FechaNacimiento.Day) Then
edad = NowADS().Year - ObjPersonal.FechaNacimiento.Year
If NowADS().Month < ObjPersonal.FechaNacimiento.Month OrElse (NowADS().Month = ObjPersonal.FechaNacimiento.Month AndAlso NowADS().Day < ObjPersonal.FechaNacimiento.Day) Then
edad = edad - 1
End If
@@ -3921,7 +3921,7 @@ Partial Class RH_Personal
' Dim objDoc As New clsGemBoxDocument(pathDesti)
' Dim objRH As New ClsRH
' Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
' Dim FechaActual As String = NowADS().Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()
' objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
@@ -4419,7 +4419,7 @@ Partial Class RH_Personal
Dim objDoc As New clsGemBoxDocument(pathDesti)
Dim objRH As New ClsRH
Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
Dim FechaActual As String = NowADS().Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()
objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
@@ -4577,8 +4577,8 @@ Partial Class RH_Personal
ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy")))
Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
Dim fechaActual As String = " " & NowADS().Day & " del mes " & NowADS().Month & " del año " & NowADS().Year
Dim FechaActualDF As String = NowADS().ToString("dd/MM/yyyy")
ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
End If
@@ -4721,8 +4721,8 @@ Partial Class RH_Personal
' End If
' Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
' Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
' Dim fechaActual As String = " " & NowADS().Day & " del mes " & NowADS().Month & " del año " & NowADS().Year
' Dim FechaActualDF As String = NowADS().ToString("dd/MM/yyyy")
' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
@@ -4753,7 +4753,7 @@ Partial Class RH_Personal
'If Obj.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
' Dim ObjNomina As New ClsNominas()
' ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", Now, CveNomina)
' ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", NowADS(), CveNomina)
' ObjNomina.Dispose()
' Alert("La nómina se canceló correctamente.", TipoMensaje.MsgInformacion)
'End If
@@ -4903,8 +4903,8 @@ Partial Class RH_Personal
VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString().ToEntero()
Else
VacInicioPeriodo = Now
VacFinPeriodo = Now
VacInicioPeriodo = NowADS()
VacFinPeriodo = NowADS()
VacAnios = 0
VacDias = 0
VacDiasUsados = 0
@@ -5072,7 +5072,7 @@ Partial Class RH_Personal
' Dim objDoc As New clsGemBoxDocument(pathDesti)
' Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
' Dim FechaActual As String = NowADS().Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()
@@ -5109,7 +5109,7 @@ Partial Class RH_Personal
' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaI}", TxtFechaInicioVac.Text))
' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaF}", TxtFechaFinVac.Text))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Fecha}", Now.ToString("dd/MM/yyyy")))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Fecha}", NowADS().ToString("dd/MM/yyyy")))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Reemplazo}", DdlPermisosReemplazo.SelectedItem.Text))
@@ -5262,7 +5262,7 @@ Partial Class RH_Personal
Dim diasPermiso As String = GvRow.DataKey("Dias")
Dim MotivoPermiso As String = GvRow.DataKey("Motivo")
Dim Puesto As String = DdlPuesto.SelectedItem.Value
Dim Fecha As String = DateTime.Now.ToString("dd/MM/yyyy")
Dim Fecha As String = NowADS().ToString("dd/MM/yyyy")
Dim Solicitante As String = UsuarioActual.Nombre
Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year
Dim FechaPeriodo As String = GvRow.DataKey("Periodo")
@@ -5309,7 +5309,7 @@ Partial Class RH_Personal
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
Response.BinaryWrite(bytesInStream)
Response.End()
Else
@@ -5359,7 +5359,7 @@ Partial Class RH_Personal
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
Response.BinaryWrite(bytesInStream)
Response.End()
Else
@@ -5436,7 +5436,7 @@ Partial Class RH_Personal
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & _Folio & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & _Folio & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".docx")
Response.BinaryWrite(bytesInStream)
Response.End()
@@ -5612,7 +5612,7 @@ Partial Class RH_Personal
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".docx")
Response.BinaryWrite(DocumenBitArray)
Response.End()
@@ -5762,14 +5762,14 @@ Partial Class RH_Personal
Dim Serie As String = TxtLiberarSerie.Text.Trim
Dim Errores As String = ""
Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
If CveResultadoSalida > 0 Then
Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=-3, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
Dim ResultadoDetalleEntrada As Boolean = False
If ResultadoDetalleSalida Then
Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero()
Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), 2, 1, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
If CveResultadoEntrada > 0 Then
ResultadoDetalleEntrada = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie)
If Not ResultadoDetalleEntrada Then
@@ -5845,7 +5845,7 @@ Partial Class RH_Personal
Next
If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & "." & FileExtension) Then
Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.{2}", UsuarioActual.CveEmpresa, CvePersonal, FileExtension)
Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), Now)
Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), NowADS())
ImgPersonal.ImageUrl = logouri
End If
UpImage.Update()
@@ -5860,7 +5860,7 @@ Partial Class RH_Personal
Dim ObjRH As New ClsRH
Dim CvePersonal As Integer = If(IsNumeric(Request("CvePersonal")), Request("CvePersonal").ToString().ToEntero(), -1)
If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, Now.AddMonths(-3), Now.AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, NowADS().AddMonths(-3), NowADS().AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
GvPermisos.DataSource = ObjRH.DtResultados
Else
GvPermisos.DataSource = Nothing
@@ -6098,7 +6098,7 @@ Partial Class RH_Personal
ObjPersonal.Dispose()
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString()))
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF(RutaPDF, DTConsumos, params, $"RepConsumoPersonal - {CodigoP} {NombreCompletoP}", Formato)
@@ -6990,7 +6990,7 @@ Partial Class RH_Personal
End Sub
Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
TxtFechamodSalario.Text = DateTime.Now.ToString("dd/MM/yyyy")
TxtFechamodSalario.Text = NowADS().ToString("dd/MM/yyyy")
TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
@@ -7641,7 +7641,7 @@ Partial Class RH_Personal
End If
Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto))
Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString()))
Tags.Add(New TagsDocumentos("{años}", (NowADS().Year - ObjRH.FechaNacimiento.Year).ToString()))
Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text.ToUpper()))
Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text))
@@ -7777,7 +7777,7 @@ Partial Class RH_Personal
objRH.Dispose()
Cuerpo.AppendLine("<table border='0' style='width:100%'>")
Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, DdlEmpresaAsignada.SelectedItem.Text, UsuarioActual.Empresa.Empresa) }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ Now.ToShortDateString } { Now.ToShortTimeString } <br/></td> </tr>")
Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, DdlEmpresaAsignada.SelectedItem.Text, UsuarioActual.Empresa.Empresa) }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ NowADS().ToShortDateString } { NowADS().ToShortTimeString } <br/></td> </tr>")
Cuerpo.AppendLine($"<tr><td style=' font-size:large; text-align: left;' colspan='3'>Notificación por { TimpoMovimiento } de Nómina</td></tr>")
Cuerpo.AppendLine("</table>")

14
RH/Reclutamiento.aspx.vb
View File

@@ -458,7 +458,7 @@ Partial Class RH_Reclutamiento
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
@@ -1115,7 +1115,7 @@ Partial Class RH_Reclutamiento
If Not IsDBNull(objRH.DtResultados(0)("FechaInicioContrato")) Then
If objRH.DtResultados(0)("FechaInicioContrato").ToString.ToDate().ToString("dd/MM/yyyy") = "01/01/0001" Then
TxtFechaInicio.Text = Now.ToShortDateString
TxtFechaInicio.Text = NowADS().ToShortDateString
Else
TxtFechaInicio.Text = objRH.DtResultados(0)("FechaInicioContrato").ToString.ToDate().ToString("dd/MM/yyyy")
End If
@@ -1586,7 +1586,7 @@ Partial Class RH_Reclutamiento
Dim _ParientesEmpresaDetalle As String
Dim _InfonavitNoCredito As String
Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero)
Edad = Now.Year - TxtFechaN4.Text.ToDate.Year
Edad = NowADS().Year - TxtFechaN4.Text.ToDate.Year
If TxtParientesEmpresaDetalle.Text.Trim.Length > 0 Then
_ParientesEmpresaDetalle = TxtParientesEmpresaDetalle.Text.Trim
@@ -3001,7 +3001,7 @@ Partial Class RH_Reclutamiento
Dim objDoc As New clsGemBoxDocument(pathDesti)
Dim objRH As New ClsRH
Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & Now.Year.ToString()
Dim FechaActual As String = NowADS().Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & NowADS().Year.ToString()
objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
@@ -3725,7 +3725,7 @@ Partial Class RH_Reclutamiento
Dim CveCaracteristicaOpcion As Integer = -1
Dim CaracteristicaValor As String = ""
Dim CaracteristicaValorDate As Date = Now
Dim CaracteristicaValorDate As Date = NowADS()
Dim CaracteristicaValorInt As Integer = -1
@@ -5363,7 +5363,7 @@ Partial Class RH_Reclutamiento
End If
Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero)
Edad = Now.Year - TxtFechaN4.Text.ToDate.Year
Edad = NowADS().Year - TxtFechaN4.Text.ToDate.Year
If ValidaGuardaFirmaContratoEvento() Then
If objRh.PersonalReclutamientoUpdate(CvePersonal, TxtNombres4.Text, TxtAPaterno4.Text, TxtAmaterno4.Text, TxtEstatura4.Text.ToDecimal, TxtPeso4.Text.ToDecimal,
@@ -5696,7 +5696,7 @@ Partial Class RH_Reclutamiento
objRH.Dispose()
Cuerpo.AppendLine("<table border='0' style='width:100%'>")
Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ UsuarioActual.Empresa.Empresa }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ Now.ToShortDateString } { Now.ToShortTimeString } <br/></td> </tr>")
Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ UsuarioActual.Empresa.Empresa }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ NowADS().ToShortDateString } { NowADS().ToShortTimeString } <br/></td> </tr>")
Cuerpo.AppendLine("<tr><td style=' font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
Cuerpo.AppendLine("</table>")

6
RH/RepAsistencias.aspx.vb
View File

@@ -16,8 +16,8 @@ Partial Class RH_RepAsistencias
CargaTurnos()
CargaTiposPeriodo()
TxtFechaAsistenciaFin.Text = Now.ToShortDateString
TxtFechaAsistencia.Text = $"01/{Now.ToString("MM")}/{Now.Year}"
TxtFechaAsistenciaFin.Text = NowADS().ToShortDateString
TxtFechaAsistencia.Text = $"01/{NowADS().ToString("MM")}/{NowADS().Year}"
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola
divCliente.Visible = False
LblCliente.Visible = False
@@ -106,7 +106,7 @@ Partial Class RH_RepAsistencias
LnkExportar.Visible = False
GvOcultarColumnas()
If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(NowADS().Year - 1, NowADS().Year, NowADS().Year + 1) Then
Dim objpersonal As New ClsRH
Dim dtTemp As New DataTable

8
RH/RepAusentismoLaboral.aspx.vb
View File

@@ -9,8 +9,8 @@ Partial Class RH_RepAusentismoLaboral
Private Sub Ventas_RepIndiceRotacionPersonal_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
txtInicio.Text = Date.Now.AddDays(-30).ToString("dd/MM/yyyy")
txtFin.Text = Date.Now.ToString("dd/MM/yyyy")
txtInicio.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
txtFin.Text = NowADS().ToString("dd/MM/yyyy")
CargaProyecto()
CargaTurnos()
@@ -61,8 +61,8 @@ Partial Class RH_RepAusentismoLaboral
Dim CveSubproyecto As Integer = -1
Dim CveTurno As Integer = -1
Dim FechaInicio As Date = Date.Now.AddDays(-30)
Dim FechaFin As Date = Date.Now
Dim FechaInicio As Date = NowADS().AddDays(-30)
Dim FechaFin As Date = NowADS()
FechaInicio = Date.Parse(txtInicio.Text)

2
RH/RepBuzonCalidad.aspx.vb
View File

@@ -77,6 +77,6 @@ Partial Class RH_RepBuzonCalidad
End Sub
Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
End Sub
End Class

10
RH/RepChecadorPreAsistencia.aspx.vb
View File

@@ -523,7 +523,7 @@ Partial Class RH_RepChecadorPreAsistencia
End If
If Fecha >= Now Then
If Fecha >= NowADS() Then
ReRow("Asistio") = "True"
ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
ReRow("PorcentajePago") = "100"
@@ -643,7 +643,7 @@ Partial Class RH_RepChecadorPreAsistencia
DTHorarioPersonal = DTHorarios.FiltraParametros(" CveChecadorHorario = " & dRow("CveChecadorHorario").ToString().ToEntero & "")
If Fecha >= Now Then
If Fecha >= NowADS() Then
ReRow("Asistio") = "True"
ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
Else
@@ -859,7 +859,7 @@ Partial Class RH_RepChecadorPreAsistencia
ColumN = ColumN + 1
Next
Dim medida As DateTime = Now
Dim medida As DateTime = NowADS()
For Each pRow As DataRow In DtPersonal.Rows
@@ -941,7 +941,7 @@ Partial Class RH_RepChecadorPreAsistencia
Next
Dim SalidaTiempo As Integer = (Now - medida).TotalSeconds.ToString().ToEntero
Dim SalidaTiempo As Integer = (NowADS() - medida).TotalSeconds.ToString().ToEntero
SalidaTiempo = SalidaTiempo
DtDatosTabla = dt
@@ -1326,7 +1326,7 @@ Partial Class RH_RepChecadorPreAsistencia
FechaLoop = FechaInicialPeriodos
While FechaLoop <= Now
While FechaLoop <= NowADS()
Dim Drow As DataRow = DTRespuesta.NewRow
Drow("Orden") = ContadorOrden.ToString()
ContadorOrden += 1

4
RH/RepCursos.aspx.vb
View File

@@ -8,8 +8,8 @@ Partial Class RH_RepCursos
If Not Page.IsPostBack Then
Dim fActual As New Date
TxtFechaI.Text = Now.AddDays(-60).ToString("dd/MM/yyyy")
TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().AddDays(-60).ToString("dd/MM/yyyy")
TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
CargaCombos()

8
RH/RepDocumentacionVencida.aspx.vb
View File

@@ -45,8 +45,8 @@ Partial Class RH_RepDocumentacionVencida
Private Sub RH_DocumentacionVencida_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
TxtFechaI.Text = Now.AddMonths(-3).ToString("dd/MM/yyyy")
TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().AddMonths(-3).ToString("dd/MM/yyyy")
TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
LnkDescargarExcel.Visible = False
End If
'ExportaExcel()
@@ -194,7 +194,7 @@ Partial Class RH_RepDocumentacionVencida
Dim documento As ExcelFile
Dim ws As ExcelWorksheet
Dim NombreReporte As String = "REPORTE DE DOCUMENTACIÓN"
Dim TextoFecha As String = "Fecha: " & Now.ToString(" dd/MM/yyyy hh:mm:ss tt")
Dim TextoFecha As String = "Fecha: " & NowADS().ToString(" dd/MM/yyyy hh:mm:ss tt")
documento = New ExcelFile
ws = documento.Worksheets.Add("ReporteDocumentacion")
@@ -253,7 +253,7 @@ Partial Class RH_RepDocumentacionVencida
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & NombreReporte & "_" & Now.ToString("yyyyMMddhhmmss") & ".xlsx")
Response.AddHeader("content-disposition", "attachment; filename=" & NombreReporte & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".xlsx")
Response.BinaryWrite(bytesInStream)
Response.End()
memoryStream.Dispose()

10
RH/RepIndiceRotacionPersonal.aspx.vb
View File

@@ -23,8 +23,8 @@ Partial Class Ventas_RepIndiceRotacionPersonal
Private Sub Ventas_RepIndiceRotacionPersonal_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
txtInicio.Text = Date.Now.AddDays(-30).ToString("dd/MM/yyyy")
txtFin.Text = Date.Now.ToString("dd/MM/yyyy")
txtInicio.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
txtFin.Text = NowADS().ToString("dd/MM/yyyy")
CargaProyecto()
CargaTurnos()
@@ -75,8 +75,8 @@ Partial Class Ventas_RepIndiceRotacionPersonal
Dim CveSubproyecto As Integer = -1
Dim CveTurno As Integer = -1
Dim FechaInicio As Date = Date.Now.AddDays(-30)
Dim FechaFin As Date = Date.Now
Dim FechaInicio As Date = NowADS().AddDays(-30)
Dim FechaFin As Date = NowADS()
FechaInicio = Date.Parse(txtInicio.Text)
@@ -160,7 +160,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("FechaInicial", txtInicio.Text))
params.Add(New ReportParameter("FechaFinal", txtFin.Text))
params.Add(New ReportParameter("FechaRealizado", Date.Now().ToString()))
params.Add(New ReportParameter("FechaRealizado", NowADS().ToString()))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

18
RH/RepPersonalInconsistencias.aspx.vb
View File

@@ -205,15 +205,15 @@ Partial Class RH_RepPersonalInconsistencias
GenerarPDF(2)
End Sub
Protected Sub ImgExcel0_Click(sender As Object, e As EventArgs) Handles ImgExcel0.Click
'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
GenerarPDF(0, "Excel")
End Sub
Protected Sub ImgExcel1_Click(sender As Object, e As EventArgs) Handles ImgExcel1.Click
'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
GenerarPDF(1, "Excel")
End Sub
Protected Sub ImgExcel2_Click(sender As Object, e As EventArgs) Handles ImgExcel2.Click
'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
GenerarPDF(2, "Excel")
End Sub
@@ -254,11 +254,11 @@ Partial Class RH_RepPersonalInconsistencias
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
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/{rdlc}", DT, params, String.Format("{0}-{1}", NombreReporte, Now.ToDateTime.ToShortDateString), Formato:=Formato)
ImprimirPDF($"Empresas/Grales/Formatos/{rdlc}", DT, params, String.Format("{0}-{1}", NombreReporte, NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -299,15 +299,15 @@ Partial Class RH_RepPersonalInconsistencias
Protected Sub BtnConsultarCumpleanios_Click(sender As Object, e As EventArgs)
Dim FechaInicio As Date = Now
Dim FechaFin As Date = Now
Dim FechaInicio As Date = NowADS()
Dim FechaFin As Date = NowADS()
Dim MesajeError As String = ""
Try
If txtFechaI.Text.Length = 5 Then
FechaInicio = Date.Parse($"{txtFechaI.Text}/{Now.Year}")
FechaInicio = Date.Parse($"{txtFechaI.Text}/{NowADS().Year}")
Else
MesajeError = "Fecha inicio formato incorrecto. "
End If
@@ -318,7 +318,7 @@ Partial Class RH_RepPersonalInconsistencias
Try
If txtFechaF.Text.Length = 5 Then
FechaFin = Date.Parse($"{txtFechaF.Text}/{Now.Year}")
FechaFin = Date.Parse($"{txtFechaF.Text}/{NowADS().Year}")
Else
MesajeError = $"{MesajeError }Fecha fin formato incorrecto"
End If

6
RH/RepUniformes.aspx.vb
View File

@@ -33,8 +33,8 @@ Partial Class RH_RepUniformes
DdlDepartamento.DataBind()
DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
TxtFechaInicio.Text = Now.ToString("dd/MM/yyyy")
TxtFechaFin.Text = Now.AddMonths(1).ToString("dd/MM/yyyy")
TxtFechaInicio.Text = NowADS().ToString("dd/MM/yyyy")
TxtFechaFin.Text = NowADS().AddMonths(1).ToString("dd/MM/yyyy")
CargaDatos()
End If
@@ -101,7 +101,7 @@ Partial Class RH_RepUniformes
'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}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepUniformes.rdlc", DTDatos, params, "ReporteUniformes", Formato:=Formato)

6
RH/RepUniformesResguardo.aspx.vb
View File

@@ -37,8 +37,8 @@ Partial Class RH_RepUniformesResguardo
DdlPersonal.DataBind()
DdlPersonal.Items.Insert(0, New ListItem("Seleccione", "-1"))
'TxtFechaInicio.Text = Now.ToString("dd/MM/yyyy")
'TxtFechaFin.Text = Now.AddMonths(1).ToString("dd/MM/yyyy")
'TxtFechaInicio.Text = NowADS().ToString("dd/MM/yyyy")
'TxtFechaFin.Text = NowADS().AddMonths(1).ToString("dd/MM/yyyy")
CargaDatos()
End If
@@ -133,7 +133,7 @@ Partial Class RH_RepUniformesResguardo
'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}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepUniformesResguardo.rdlc", DTDatos, params, "ReporteUniformes", Formato:=Formato)

6
RH/RepVacaciones.aspx.vb
View File

@@ -9,8 +9,8 @@ Partial Class RH_RepVacaciones
Private Sub RH_RepVacaciones_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
TxtFechaI.Text = Now.ToString("dd/MM/yyyy")
TxtFechaF.Text = Now.AddDays(30).ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().ToString("dd/MM/yyyy")
TxtFechaF.Text = NowADS().AddDays(30).ToString("dd/MM/yyyy")
CargaCombos()
CargaDatos()
End If
@@ -83,7 +83,7 @@ Partial Class RH_RepVacaciones
CargaDatos()
End Sub
Protected Sub LnkDescargarExcel_Click(sender As Object, e As EventArgs) Handles LnkDescargarExcel.Click
GvVacacionesRep.ExportToExcel("RepVavaciones_" & Now.ToString("yyyyMMddhhmmss"))
GvVacacionesRep.ExportToExcel("RepVavaciones_" & NowADS().ToString("yyyyMMddhhmmss"))
End Sub
Protected Sub GvVacacionesRep_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvVacacionesRep.RowDataBound

4
RH/SolicitudViaticos.aspx.cs
View File

@@ -556,7 +556,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas
else
{
//GUARDA SOLICITUDES NUEVAS
CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro: TxtTipoCarro.Text, KM: TxtKM.Text);
CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro: TxtTipoCarro.Text, KM: TxtKM.Text);
if (CveSolicitudViatico > 0)
{
foreach (DataRow RowConcepto in DTConceptosDetalles.Rows)
@@ -759,7 +759,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas
@params.Add(new ReportParameter("TelefonoSolicitante", ObjBancos.DtResultados.FiltroPrimeroValor("TelefonoPersonal")));
@params.Add(new ReportParameter("Empresa", UsuarioActual.Empresa.Empresa));
@params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
@params.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
@params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
@params.Add(new ReportParameter("TotalADepositar", (ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar").ToDouble() > 0 ? ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar") : "0").ToString()));