Empresas Zona Horaria
This commit is contained in:
rakcsle
@@ -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>")
|
||||
|
||||
Reference in New Issue
Block a user