RH/CatCursos.aspx.vb

@@ -329,7 +329,7 @@ Partial Class RH_CatCursos
 
             Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/CursosInvitados.rdlc"
 
-            If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+            If Not File.Exists($"{Extensiones.DirectorioBaseEmpresas}/{Archivo}") Then
                 Archivo = "Empresas/Grales/Formatos/CursosInvitados.rdlc"
             End If
 
@@ -613,7 +613,7 @@ Partial Class RH_CatCursos
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim objConstancias As New ClsConstancias
         Dim DocumenBitArray As Byte() = Nothing
-        Dim RutaBase As String = Server.MapPath("~")
+        Dim RutaBase As String = Extensiones.DirectorioBaseEmpresas
 
         Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
 
@@ -650,7 +650,7 @@ Partial Class RH_CatCursos
         Dim Contenido As String = "Buen día. Estimado(a)  " & _Nombres & vbLf & vbLf & vbLf & vbLf & "   Por medio de la presente, el departamento de Capital Humano de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & ", el día " & dia & " de " & mesArray(mes - 1) & " de " & año & " en lugar " & _Ubicacion & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
 
         If Not File.Exists(RutaArchivo) Then
-            RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx"
+            RutaArchivo = $"{ Extensiones.DirectorioBaseEmpresas }\Empresas\Grales\Formatos\CursoInvitacion.docx"
         End If
 
         Dim params As New List(Of ReportParameter)
@@ -658,24 +658,22 @@ Partial Class RH_CatCursos
         params.Add(New ReportParameter("Contenido", Contenido))
         params.Add(New ReportParameter("Fecha", Today.ToString))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        Dim DtDatos As New DataTable
-        Return StreamPDF("Empresas/72/Formatos/CursoInvitacion.rdlc", DtDatos, params, "Invitación a curso", "PDF")
-
-        'Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
-        'Dim Tags As New List(Of TagsDocumentos)
+        Dim DtDatos As New DataTable
+
+
+        Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
+        Dim Tags As New List(Of TagsDocumentos)
 
 
+        Tags.Add(New TagsDocumentos("{Curso}", _Curso))
+        Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
+
+
+        objGemBoxDocument.SustituirTags(Tags)
+        objGemBoxDocument.GuardarStreamPDF()
 
 
-        'Tags.Add(New TagsDocumentos("{Curso}", _Curso))
-        'Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
-
-        ''objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
-        'objGemBoxDocument.SustituirTags(Tags)
-        'objGemBoxDocument.GuardarStream()
-
-
-        'Return objGemBoxDocument.GetBytesDocumento
+        Return objGemBoxDocument.GetBytesDocumento
 
     End Function
 
@@ -795,12 +793,9 @@ Partial Class RH_CatCursos
                     ContenidoSB.AppendLine("")
                     ContenidoSB.AppendLine("</table>")
 
-
-
-
-                    Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
-                    MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
-
+                    Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
+                    MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
+
                     Contador = Contador + 1
                     Dim valor As Boolean = False
 

RH/CatPersonal.aspx

@@ -57,14 +57,10 @@
     </li>
 
     <li>
-        <asp:LinkButton ID="LinkPDF" runat="server" Style="color: #686868;"> <i class="fa fa-ad-pdf" style="margin-right:5px;"></i>Imprimir</asp:LinkButton>
-    </li>
-
-    <li>
-        <asp:LinkButton ID="LinkButton1" runat="server" Style="color: #686868;"> <i class="fa fa-ad-pdf" style="margin-right:5px;"></i>Imprimir</asp:LinkButton>
+        <asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-file-pdf-o" style="margin-right:5px;font-weight:bold"></i>Descargar PDF</asp:LinkButton>
     </li>
     <li>
-        <asp:LinkButton ID="LnkExportar" runat="server" Style="color: #686868;"><i class="fa fa-ad-excel" style="margin-right:5px"></i>Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="margin-right:5px;font-weight:bold"></i>Descargar Excel</asp:LinkButton>
     </li>
     <li>
         <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="HyperLink1" runat="server" Style="color: #686868;"><i class="fa fa-pencil" style="color:#686868;margin-left:3px;margin-right:2px"></i>Personalizar</asp:HyperLink>
@@ -389,7 +385,6 @@
                                     &nbsp;<asp:Literal ID="LtlTurno" runat="server" Text='<%# Eval("Turno", "{0}") %>'></asp:Literal>
                                 </ItemTemplate>
                             </asp:TemplateField>
-
                             <asp:TemplateField>
                                 <HeaderTemplate>Puesto</HeaderTemplate>
                                 <ItemTemplate>
@@ -434,7 +429,7 @@
                             </asp:TemplateField>
 
                             <asp:TemplateField Visible="false">
-                                <HeaderTemplate>SubProyecto</HeaderTemplate>
+                                <%--<HeaderTemplate>SubProyecto</HeaderTemplate>--%>
                                 <ItemTemplate>
                                     &nbsp;<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Literal>
                                 </ItemTemplate>

RH/CatPersonal.aspx.vb

@@ -190,12 +190,12 @@ Partial Class RH_CatPersonal
         DdlEstatusPersonal.DataBind()
     End Sub
     Private Sub CargaProyecto()
-        DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyectoAsignado.DataBind()
+        'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
+        'DdlProyectoAsignado.DataBind()
         CargaTipoCentroCosto()
-        If DivProyecto.Visible Then
-            CargaSubProyectos()
-        End If
+        'If DivProyecto.Visible Then
+        '    CargaSubProyectos()
+        'End If
     End Sub
 
     Private Sub CargaSubProyectos()
@@ -214,34 +214,10 @@ Partial Class RH_CatPersonal
     End Sub
 
     Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyectoAsignado.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoAsignado.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyectoAsignado.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoAsignado.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal:"
-            LblSubProyecto.Text = "Proyecto:"
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto:"
-            LblSubProyecto.Text = "Sucursal:"
-        End If
+        CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto)
+        DivProyecto.Visible = LblProyecto.Visible
+        ChkSubProyecto.Text = LblSubProyecto.Text
+        GvDatos.Columns(12).HeaderText = LblSubProyecto.Text
     End Sub
 
     Private Sub CargaSupervisores()

RH/Personal.aspx

@@ -568,20 +568,20 @@
                                                         <label for="<%= DdlClienteAsignado.ClientID.ToString()%>">Cliente:  </label>
                                                         <i></i>
                                                     </div>
-                                                    <div class="form-group form-md-line-input input-iconright">
+                                                    <div class="form-group form-md-line-input input-iconright" runat="server" id="DivProyectosAsignado">
+                                                        <asp:Label runat="server" ID="LblProyectoAsignado" CssClass="form-line" for="<%= DdlProyectoAsignado.ClientID.ToString()%>" style="margin-bottom:unset;color:#888888">Proyecto:  </asp:Label>
                                                         <asp:DropDownList ID="DdlProyectoAsignado" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <%-- <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>--%>
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RfvDdlProyectoAsignado" runat="server" InitialValue="-1" ControlToValidate="DdlProyectoAsignado" ValidationGroup="GrpGuardar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
-                                                        <label for="<%= DdlProyectoAsignado.ClientID.ToString()%>">Proyecto:  </label>
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" style="margin-bottom:unset;color:#888888">SubProyecto:  </asp:Label>
                                                         <asp:DropDownList ID="DdlSubProyectoAsignado" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RfvDdlSubProyectoAsignado" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoAsignado" ValidationGroup="GrpGuardar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
-                                                        <label for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>">SubProyecto:  </label>
                                                         <i></i>
                                                     </div>
                                                     <%--  <div class="form-group form-md-line-input input-iconright">
@@ -1523,10 +1523,10 @@
 
                                                                 <asp:DropDownList ID="DdlInfoTipoAplicacion" AutoPostBack="true" runat="server" Class="form-control select2me" Width="100%">
                                                                     <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                                                    <asp:ListItem Text="Infonavit(Movto Permanente)" Value="5000"></asp:ListItem>
-                                                                    <asp:ListItem Text="Infonavit(Porcentaje)" Value="5001"></asp:ListItem>
-                                                                    <asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
-                                                                    <asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
+                                                                    <asp:ListItem Text="Infonavit (Movto Permanente)" Value="5000"></asp:ListItem>
+                                                                    <asp:ListItem Text="Infonavit (Porcentaje)" Value="5001"></asp:ListItem>
+                                                                    <asp:ListItem Text="Infonavit (Factor Descuento)" Value="5002"></asp:ListItem>
+                                                                    <asp:ListItem Text="Infonavit (Cuota Fija)" Value="5003"></asp:ListItem>
                                                                 </asp:DropDownList>
                                                             </div>
                                                         </div>
@@ -1602,8 +1602,8 @@
 
                                                                 <asp:DropDownList ID="DdlFonTipoAplicacion" runat="server" Class="form-control select2me" Width="100%">
                                                                     <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                                                    <asp:ListItem Text="Fonacot(Importe fijo)" Value="3001"></asp:ListItem>
-                                                                    <asp:ListItem Text="Fonacot(Por días Labarados)" Value="3002"></asp:ListItem>
+                                                                    <asp:ListItem Text="Fonacot (Importe fijo)" Value="3001"></asp:ListItem>
+                                                                    <asp:ListItem Text="Fonacot (Por días Laborados)" Value="3002"></asp:ListItem>
                                                                 </asp:DropDownList>
                                                             </div>
                                                         </div>
@@ -3538,7 +3538,7 @@
 
 
                                                     <asp:GridView ID="GvLicencias" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
-                                                        DataKeyNames="CveLicencia,Licencia,FechaExpedicion,FechaVencimiento"
+                                                        DataKeyNames="CveLicencia,Licencia,FechaExpedicion,FechaVencimiento,Estatus"
                                                         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>
@@ -4614,7 +4614,7 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" runat="server" style="text-align: left">modificar Salario</h4>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Modificar Salario</h4>
                     </div>
                     <div class="modal-body">
                         <div>

RH/Personal.aspx.vb

@@ -1041,11 +1041,13 @@ Partial Class RH_Personal
 
     Private Sub CargaProyecto()
 
-        DdlProyectoAsignado.Items.Clear()
-        DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 1)
-        DdlProyectoAsignado.DataBind()
+        CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyectoAsignado, LblSubProyectoAsignado)
+        DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
+        'DdlProyectoAsignado.Items.Clear()
+        'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 1)
+        'DdlProyectoAsignado.DataBind()
 
-        DdlProyectoAsignado.Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
+        'DdlProyectoAsignado.Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
 
         DdlProyectoAsistenciaC.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
         DdlProyectoAsistenciaC.DataBind()
@@ -4671,12 +4673,17 @@ Partial Class RH_Personal
         Dim Fecha As String = DateTime.Now.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")
+
+
+
+
         If Periodoingreso > PeriodoInicio Then
             anio = anio - 1
-        End If
-
-
-        Dim FechaPeriodo As String = String.Format("{0:dd/MM}/{1}", fechaIngreso, anio)
+        End If
+
+
+
         If File.Exists(RutaFormato) Then
 
             Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
@@ -6123,10 +6130,36 @@ Partial Class RH_Personal
         End If
         If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
             TxtFIPrimaVacacional.Text = "25"
-        End If
+        End If
+
+
+
         TxtFISalariodiarioImss.Text = TxtSalarioCotizado.Text
         TxtFactordeIntegracion.Text = ""
-        TxtFISalarioDiarioIntegrado.Text = ""
+        TxtFISalarioDiarioIntegrado.Text = ""
+
+
+
+        Dim objRH As New ClsRH
+
+        If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+            If objRH.DtResultados.Rows.Count > 0 Then
+
+                If objRH.DtResultados.Rows.Count > 0 Then
+                    TxtFIDiasVacaciones.Text = objRH.DtResultados(0)("Dias").ToString
+                Else
+                    TxtFIDiasVacaciones.Text = "6"
+                End If
+            Else
+
+            End If
+        End If
+
+        objRH.Dispose()
+
+
+
+
         RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
         UpFactordeintegracion.Update()
     End Sub

RH/RepPersonalInconsistencias.aspx.vb

@@ -181,7 +181,7 @@ Partial Class RH_RepPersonalInconsistencias
 
         Dim ObjAF As New ClsAF()
         If ObjAF.GetLicenciasVencidas(-1, -1, UsuarioActual.CveEmpresa, Estatus:=1) Then
-            GvLicencias.DataSource = ObjAF.DtResultados
+            GvLicencias.DataSource = ObjAF.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
 
         Else
             GvLicencias.DataSource = Nothing