2019-12-16 19:52:52 -07:00
parent add3d127a7
commit 98d5139425
15 changed files with 1580 additions and 1067 deletions
--- a/RH/MiPerfil.aspx
+++ b/RH/MiPerfil.aspx
@@ -531,7 +531,7 @@
                                                            <asp:UpdatePanel ID="UpGvVacaciones" runat="server" UpdateMode="Conditional">
                                                                <ContentTemplate>
                                                                    <asp:GridView ID="GvVacaciones" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
-                                                                        DataKeyNames="CvePersonalVacaciones,Periodo,FechaIng,Estatus,CveAutoriza,Autoriza,Dias,Usuario,SEstatus,Folio,FechaInicio,FechaFin,Documento"
+                                                                        DataKeyNames="CvePersonalVacaciones,Periodo,FechaIng,Estatus,CveAutoriza,Autoriza,Dias,Usuario,SEstatus,Folio,FechaInicio,FechaFin,Documento,Motivo"
                                                                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD GvVacaciones" data-sort="true" data-height="300" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                                                        AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                                                        <Columns>
@@ -590,7 +590,7 @@
                                                            </div>
                                                            <asp:UpdatePanel ID="UpGvPermisos" runat="server" UpdateMode="Conditional">
                                                                <ContentTemplate>
-                                                                    <asp:GridView ID="GvPermisos" Width="100%" runat="server" GridLines="None" DataKeyNames="CvePermiso,CvePersonal,Descripcion,FechaInicio,FechaFin,HoraEntrada,HoraSalida, GoceSueldo, Estatus" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
+                                                                    <asp:GridView ID="GvPermisos" Width="100%" runat="server" GridLines="None" DataKeyNames="CvePermiso,CvePersonal,Descripcion,Motivo,FechaInicio,FechaFin,HoraEntrada,HoraSalida,GoceSueldo,Estatus" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
                                                                        CssClass=" table table-striped table-advance table-hover Widthall" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                                                        AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                                                        <Columns>
--- a/RH/MiPerfil.aspx.vb
+++ b/RH/MiPerfil.aspx.vb
@@ -450,13 +450,22 @@ Partial Class RH_MiPerfil

                Dim jefeCve As Integer = If(ObjPersonal.CvePersonalPadre = ObjPersonal.CvePersonal, "0", If(ObjPersonal.CvePersonalPadre.ToString = "0", "-1", ObjPersonal.CvePersonalPadre.ToString))
                Dim expressionJefe As String = String.Format("CvePersonal = {0}", jefeCve)
-                Dim resultad As DataRow() = DTOrganigrama.Select(expressionJefe)
-                JefeInmediato = resultad(0).Item("NombreCompleto")
+                Dim resultad As DataRow = DTOrganigrama.FiltroPrimero(expressionJefe)
+                If (Not IsNothing(resultad)) Then
+                    JefeInmediato = resultad.Item("NombreCompleto").ToString()
+                Else
+                    JefeInmediato = ""
+                End If

                Dim puestosAux As DataTable = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
                Dim expressionPuesto As String = String.Format("CvePuesto = {0}", ObjPersonal.CvePuesto.ToString)
-                Dim resultadoPuesto As DataRow() = puestosAux.Select(expressionPuesto)
-                puestoProp = resultad(0).Item("Puesto")
+                Dim resultadoPuesto As DataRow = puestosAux.FiltroPrimero(expressionPuesto)
+
+                If (Not IsNothing(resultad)) Then
+                    puestoProp = resultadoPuesto.Item("Puesto")
+                Else
+                    puestoProp = ""
+                End If

                If File.Exists(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
                    ImgPersonal.ImageUrl = $"/Empresas/{UsuarioActual.CveEmpresa}/RH/Personal/{ObjPersonal.URL}"
@@ -975,7 +984,7 @@ Partial Class RH_MiPerfil
        '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 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
@@ -983,8 +992,9 @@ Partial Class RH_MiPerfil
        Dim JefeInmediatoAux As String = JefeInmediato
        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")
+        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)
@@ -999,6 +1009,7 @@ Partial Class RH_MiPerfil
            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)
@@ -1014,7 +1025,8 @@ Partial Class RH_MiPerfil
            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
            Response.BinaryWrite(bytesInStream)
            Response.End()
-
+        Else
+            Alert("No se encontro el formato de Permisos", TipoMensaje.ToastAdventencia)
        End If
    End Sub

--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -2330,7 +2330,7 @@
                                                            </div>
                                                            <asp:UpdatePanel ID="UpGvPermisos" runat="server" UpdateMode="Conditional">
                                                                <ContentTemplate>
-                                                                    <asp:GridView ID="GvPermisos" Width="100%" runat="server" GridLines="None" DataKeyNames="CvePermiso,CvePersonal,Descripcion,FechaInicio,FechaFin,HoraEntrada,HoraSalida, GoceSueldo, Estatus" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
+                                                                    <asp:GridView ID="GvPermisos" Width="100%" runat="server" GridLines="None" DataKeyNames="CvePermiso,CvePersonal,Descripcion,Motivo,FechaInicio,FechaFin,HoraEntrada,HoraSalida,GoceSueldo,Estatus" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
                                                                        CssClass=" table table-striped table-advance table-hover Widthall" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                                                        AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                                                        <Columns>
--- a/RH/Personal.aspx.vb
+++ b/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

--- a/RH/RepUniformesResguardo.aspx
+++ b/RH/RepUniformesResguardo.aspx
@@ -124,7 +124,8 @@
                        <asp:BoundField runat="server" DataField="Cantidad" HeaderText="Cantidad" DataFormatString="{0:###,###}" ItemStyle-HorizontalAlign="Right" />
                        <asp:BoundField runat="server" DataField="Departamento" HeaderText="Departamento"   />
                        <asp:BoundField runat="server" DataField="SubProyecto" HeaderText="Sucursal"   />
-
+                        <asp:BoundField runat="server" DataField="Precio" DataFormatString="${0:N2}" HeaderText="Total"   />
+                        

                    </Columns>
                </asp:GridView>