diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 01e316e08..b9c5da30d 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4493,7 +4493,7 @@ Public Class ClsInventarios #Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO" - Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1) As Boolean + Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ResguardoUniformesRep") @@ -4502,8 +4502,8 @@ Public Class ClsInventarios .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento - - + .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin End With Try SqlAdapter.Fill(Data) diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 679f76b00..8bdc089db 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -1200,8 +1200,8 @@ public partial class Nomina_Nomina2 : ClsPaginas //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", "")); //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", "")); //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", "")); - - ImprimirPDF("D:/ADSistemas/Proyectos/SIG/WEB/Empresas/Grales/Formatos/SobreRecibo.rdlc", lrds, parametros, "SobreRecibo.pdf", "PDF", null); + ; + ImprimirPDF(System.IO.Path.Combine(Server.MapPath("/"), "Empresas/Grales/Formatos/SobreRecibo.rdlc"), lrds, parametros, "SobreRecibo", "PDF", null); } protected void BtnGuardarInfornavit_Click(object sender, EventArgs e) { diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 031648ed0..acfc103cb 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -4533,7 +4533,7 @@ Partial Class RH_Personal Response.BinaryWrite(bytesInStream) Response.End() Else - Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.") + Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia) End If End Sub @@ -4582,8 +4582,9 @@ Partial Class RH_Personal Response.ContentType = "application/force-download" Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf") Response.BinaryWrite(bytesInStream) - Response.End() - + Response.End() + Else + Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia) End If End Sub diff --git a/RH/RepUniformesResguardo.aspx b/RH/RepUniformesResguardo.aspx index d9240e9f2..3d84a60b2 100644 --- a/RH/RepUniformesResguardo.aspx +++ b/RH/RepUniformesResguardo.aspx @@ -25,9 +25,9 @@
-
+
- + <%-- --%>
@@ -59,8 +59,33 @@
- diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb index 60ff1b216..d121d3035 100644 --- a/RH/RepUniformesResguardo.aspx.vb +++ b/RH/RepUniformesResguardo.aspx.vb @@ -51,7 +51,19 @@ Partial Class RH_RepUniformesResguardo Dim ObjInv As New ClsInventarios - If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero) Then + Dim strFechaInicio As String = "-1" + Dim strFechaFin As String = "-1" + + Dim dfecha As Date = TxtFechaInicio.Text.ToDate() + If dfecha.Year > 1900 Then + strFechaInicio = dfecha.ToString("yyyy/MM/dd") + End If + + dfecha = TxtFechaFin.Text.ToDate() + If dfecha.Year > 1900 Then + strFechaFin = dfecha.ToString("yyyy/MM/dd") + End If + If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero, FechaInicio:=strFechaInicio, FechaFin:=strFechaFin) Then GvUniformes.DataSource = ObjInv.DtResultados DTDatos = ObjInv.DtResultados Else