RH/Personal.aspx.vb

@@ -4542,53 +4542,52 @@ Partial Class RH_Personal
     End Sub
 
     Public Sub DownLoad_ClickSolicitudPermiso(sender As Object, e As EventArgs)
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        'Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero
-
-        'DescarSolicitudVacaciones(Folio)
-        Dim RutaFormato As String = String.Format("{0}Formatos\RH_FormatoVacaciones.docx", UsuarioActual.Empresa.Ruta)
-
-        Dim NombreEmpleado As String = String.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text)
-        Dim Codigo As String = TxtCodigo.Text
-        Dim Departamento As String = DdlDepartamento.SelectedItem.Text
-        Dim JefeInmediato As String = DdlSupervisorOrganigrama.SelectedItem.Text
-        Dim FechaInicio As String = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy")
-        Dim FechaFin As String = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy")
-        Dim diasPermiso As String = $"{(GvRow.DataKey("FechaInicio").ToDate() - GvRow.DataKey("FechaInicio").ToDate()).Days}"
-        Dim MotivoPermiso As String = GvRow.DataKey("Descripcion")
-        If File.Exists(RutaFormato) Then
-
-            Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
-            Dim ListaTags As New List(Of TagsDocumentos)
-
-            ListaTags = GetDatosTagsDocumentos()
-
-            ListaTags.Add(New TagsDocumentos("{NombreEmpleado}", NombreEmpleado))
-            ListaTags.Add(New TagsDocumentos("{Codigo}", Codigo))
-            ListaTags.Add(New TagsDocumentos("{Departamento}", Departamento))
-            ListaTags.Add(New TagsDocumentos("{JefeInmediato}", JefeInmediato))
-            ListaTags.Add(New TagsDocumentos("{FechaInicio}", FechaInicio))
-            ListaTags.Add(New TagsDocumentos("{FechaFin}", FechaFin))
-            ListaTags.Add(New TagsDocumentos("{diasPermiso}", diasPermiso))
-            ListaTags.Add(New TagsDocumentos("{MotivoPermiso}", MotivoPermiso))
-
-            objGemDocument.SustituirTags(ListaTags)
-
-            'objGemDocument.GuardarStream()
-            objGemDocument.GuardarStreamPDF()
-            Dim bytesInStream As Byte() = objGemDocument.GetBytesDocumento()
-            'Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
-            objGemDocument.Dispose()
-
-            Response.Clear()
-            Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
-            Response.BinaryWrite(bytesInStream)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        'Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero
+        'DescarSolicitudVacaciones(Folio)
+        Dim RutaFormato As String = String.Format("{0}Formatos\PermisoSolicitud.docx", UsuarioActual.Empresa.Ruta)
+
+        Dim NombreEmpleado As String = String.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text)
+        Dim Codigo As String = TxtCodigo.Text
+        Dim Departamento As String = DdlDepartamento.SelectedItem.Text
+        Dim JefeInmediato As String = DdlSupervisorOrganigrama.SelectedItem.Text
+        Dim FechaInicio As String = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy")
+        Dim FechaFin As String = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy")
+        Dim diasPermiso As String = $"{(GvRow.DataKey("FechaFin").ToDate() - GvRow.DataKey("FechaInicio").ToDate()).Days}"
+        Dim HorasPermiso As String = "" 'String.Format("{0}", ((GvRow.DataKey("FechaInicio").ToDateTime() - GvRow.DataKey("FechaFin").ToDateTime()).Hours))
+        Dim MotivoPermiso As String = String.Format("{0},{1}", GvRow.DataKey("Descripcion"), GvRow.DataKey("Motivo"))
+        If File.Exists(RutaFormato) Then
+
+            Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
+            Dim ListaTags As New List(Of TagsDocumentos)
+
+            ListaTags = GetDatosTagsDocumentos()
+
+            ListaTags.Add(New TagsDocumentos("{NombreEmpleado}", NombreEmpleado))
+            ListaTags.Add(New TagsDocumentos("{Codigo}", Codigo))
+            ListaTags.Add(New TagsDocumentos("{Departamento}", Departamento))
+            ListaTags.Add(New TagsDocumentos("{JefeInmediato}", JefeInmediato))
+            ListaTags.Add(New TagsDocumentos("{FechaInicio}", FechaInicio))
+            ListaTags.Add(New TagsDocumentos("{FechaFin}", FechaFin))
+            ListaTags.Add(New TagsDocumentos("{diasPermiso}", diasPermiso))
+            ListaTags.Add(New TagsDocumentos("{HorasPermiso}", HorasPermiso))
+            ListaTags.Add(New TagsDocumentos("{MotivoPermiso}", MotivoPermiso))
+
+            objGemDocument.SustituirTags(ListaTags)
+
+            'objGemDocument.GuardarStream()
+            objGemDocument.GuardarStreamPDF()
+            Dim bytesInStream As Byte() = objGemDocument.GetBytesDocumento()
+            'Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
+            objGemDocument.Dispose()
+
+            Response.Clear()
+            Response.ContentType = "application/force-download"
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
+            Response.BinaryWrite(bytesInStream)
             Response.End()
         Else
-            Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia)
+            Alert("No se encontro el formato de Permisos", TipoMensaje.ToastAdventencia)
         End If
     End Sub