Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -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>")
|
||||
|
||||
Reference in New Issue
Block a user