This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-10-30 02:03:44 -07:00
686 changed files with 20999 additions and 20970 deletions

View File

@@ -203,7 +203,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
@@ -438,7 +438,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
@@ -450,7 +450,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
@@ -1009,7 +1009,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
@@ -1106,13 +1106,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")
@@ -1138,8 +1138,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
@@ -1947,11 +1947,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
@@ -2256,7 +2256,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>")
@@ -3761,7 +3761,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))
@@ -3769,7 +3769,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))
@@ -3854,13 +3854,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))
@@ -3899,10 +3899,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
@@ -3950,7 +3950,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))
@@ -4448,7 +4448,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))
@@ -4606,8 +4606,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
@@ -4750,8 +4750,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))
@@ -4782,7 +4782,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
@@ -4932,8 +4932,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
@@ -5101,7 +5101,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()
@@ -5138,7 +5138,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))
@@ -5291,7 +5291,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")
@@ -5338,7 +5338,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
@@ -5388,7 +5388,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
@@ -5465,7 +5465,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()
@@ -5641,7 +5641,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()
@@ -5791,14 +5791,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
@@ -5874,7 +5874,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()
@@ -5889,7 +5889,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
@@ -6127,7 +6127,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)
@@ -7019,7 +7019,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
@@ -7670,7 +7670,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))
@@ -7806,7 +7806,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>")