diff --git a/Inventarios/RepMaximoMinimo.aspx b/Inventarios/RepMaximoMinimo.aspx
index 902ef3ed4..3be94d878 100644
--- a/Inventarios/RepMaximoMinimo.aspx
+++ b/Inventarios/RepMaximoMinimo.aspx
@@ -277,9 +277,12 @@
                         </div>
 
                         <div class="form-group form-md-line-input input-iconright">
-                            <asp:DropDownList ID="DdlPSModal" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="PSCodigo" DataValueField="CvePS" Width="240px" CausesValidation="true"></asp:DropDownList>
-                            <asp:RequiredFieldValidator ID="RFVPS" runat="server" ControlToValidate="DdlPSModal"  CssClass="help-block errorimput"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto / Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpDefinir"></asp:RequiredFieldValidator>
-                            <label for="<%= DdlPSModal.ClientID.ToString()%>">Producto/Servicios:</label>
+                            <label for="<%= DdlPSModal.ClientID.ToString()%>"><span style="color:#F3565D;">* </span>Producto/Servicios:</label>
+                             <ADS:Dropdownlost runat="server" ID="DdlPSModal" CssStyle="width: 100%;" CssClass="DdlPS " CssClassDdl="select2me " UsaWebService="true" 
+                                 IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS"  />
+
+                            <%--<asp:DropDownList ID="DdlPSModal" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="PSCodigo" DataValueField="CvePS" Width="240px" CausesValidation="true"></asp:DropDownList>--%>
+                            <%--<asp:RequiredFieldValidator ID="RFVPS" runat="server" ControlToValidate="DdlPSModal"  CssClass="help-block errorimput"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto / Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpDefinir"></asp:RequiredFieldValidator>--%>
                         </div>
 
                         <div class="form-group form-md-line-input input-iconright">
diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb
index bbc8d82a5..4b08f2b3a 100644
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -64,9 +64,9 @@ Partial Class Inventarios_RepMaximoMinimo
         DdlAlmacenModal.DataBind()
         DdlAlmacenModal.Items.Insert(0, New ListItem("Seleccione Almacén", "-1"))
 
-        DdlPSModal.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
-        DdlPSModal.DataBind()
-        DdlPSModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlPSModal.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+        'DdlPSModal.DataBind()
+        'DdlPSModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
         UpModalMaximoMinimo.Update()
 
 
@@ -86,9 +86,9 @@ Partial Class Inventarios_RepMaximoMinimo
         DdlAlmacen.Items.Clear()
         'If DtSubptoyecto.Rows.Count > 0 Then
         'Dim CveSucursal As Integer = DtSubptoyecto(0)("CveSucursal").ToString.ToEntero
-        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto={0}", DdlSubProyecto.SelectedValue.ToEntero))
-            DdlAlmacen.DataBind()
-            DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(String.Format("CveSubProyecto={0}", DdlSubProyecto.SelectedValue.ToEntero))
+        DdlAlmacen.DataBind()
+        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
         'Else
         '    DdlAlmacen.DataSource = Nothing
         '    DdlAlmacen.DataBind()
@@ -195,7 +195,8 @@ Partial Class Inventarios_RepMaximoMinimo
     Private Sub LnkDefinir_Click(sender As Object, e As EventArgs) Handles LnkDefinir.Click
         HFDefinir.Value = "I"
         DdlAlmacenModal.SelectedIndex = 0
-        DdlPSModal.SelectedIndex = 0
+        DdlPSModal.SelectedValue = "-1"
+        DdlPSModal.SelectedText = "Seleccione"
         TxtMaximo.Text = ""
         TxtMinimo.Text = ""
         DdlAlmacenModal.Enabled = True
@@ -206,20 +207,26 @@ Partial Class Inventarios_RepMaximoMinimo
     End Sub
 
     Private Sub LbAgregarMaximoMinimo_Click(sender As Object, e As EventArgs) Handles LbAgregarMaximoMinimo.Click
-        Dim ObjInventario As New ClsInventarios
-        If HFDefinir.Value = "I" Then
-            If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
-                Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        ElseIf HFDefinir.Value = "U" Then
-            If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
-                Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        End If
+        If DdlPSModal.SelectedValue.ToEntero > 0 Then
 
-        CargaGrid()
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalMaximoMinimo"))
-        ObjInventario.Dispose()
+            Using ObjInventario As New ClsInventarios
+
+                If HFDefinir.Value = "I" Then
+                    If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
+                        Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
+                    End If
+                ElseIf HFDefinir.Value = "U" Then
+                    If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
+                        Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
+                    End If
+                End If
+            End Using
+
+            CargaGrid()
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalMaximoMinimo"))
+        Else
+            Alert("Seleccione un producto o servicio", TipoMensaje.MsgAdvertencia)
+        End If
     End Sub
 
     Protected Sub UpdateMaximoMinimo(sender As Object, e As EventArgs)
@@ -227,13 +234,15 @@ Partial Class Inventarios_RepMaximoMinimo
         HFDefinir.Value = "U"
         Dim CveAlmacen As Integer = GvRow.DataKey("CveAlmacen").ToString.ToEntero
         Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
+        Dim strPS As String = GvRow.DataKey("PS").ToString()
         Dim Maximo As String = GvRow.DataKey("Maximo").ToString
         Dim Minimo As String = GvRow.DataKey("Minimo").ToString
 
         DdlAlmacenModal.Enabled = False
         DdlPSModal.Enabled = False
 
-        DdlAlmacenModal.SelectedValue = CveAlmacen.ToString
+        DdlAlmacenModal.SelectedValue = CveAlmacen.ToString()
+        DdlPSModal.SelectedText = strPS
         DdlPSModal.SelectedValue = CvePS.ToString
         TxtMaximo.Text = Maximo
         TxtMinimo.Text = Minimo
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 4b33c301e..4d16cf36d 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -1284,11 +1284,15 @@
                                                         <i></i>
                                                     </div>
 
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox ID="TxtMailrecibonomina" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                        <asp:Label runat="server" AssociatedControlID="TxtMailrecibonomina" Text="Mail recibo nómina:"></asp:Label>
+                                                    </div>
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:DropDownList ID="DdlRegimenContratacion" runat="server" AppendDataBoundItems="true" DataTextField="RegimenContratacion" CssClass="form-control input-sm select2me" DataValueField="CveSATRegimenContratacion" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
-                                                        <asp:Label runat="server" AssociatedControlID="DdlRegimenContratacion" Text="Mail recibo nómina:"></asp:Label>
+                                                        <asp:Label runat="server" AssociatedControlID="DdlRegimenContratacion" Text="Régimen Contratación:"></asp:Label>
                                                         <asp:RequiredFieldValidator ID="RFVRegimenContratacion" runat="server" ControlToValidate="DdlRegimenContratacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Régimen Contratación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
                                                     </div>
@@ -1311,6 +1315,7 @@
                                                         <br />
                                                         <asp:CheckBox ID="ChkSeInscribioSS" CssClass="make-switchsd" data-size="small" runat="server" Text="" />
                                                     </div>
+                                                    <asp:Panel runat="server" ID="PnlSalarios" Visible="false">
 
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario"  Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
@@ -1340,6 +1345,7 @@
 
                                                         <i></i>
                                                     </asp:Panel>
+                                                    </asp:Panel>
 
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtBono" runat="server" MaxLength="10" Text="0"></asp:TextBox>
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 91d9e28d8..59bbbebb0 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -12,8 +12,8 @@ Imports System.Xml
 Imports System.Web.Script.Services
 
 Partial Class RH_Personal
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "P R O P I E D A D E S"
     Private Property DTCuentasBancos As DataTable
         Get
@@ -331,14 +331,14 @@ Partial Class RH_Personal
         Set(value As Integer)
             ViewState("CveMovimientoDetalleUniforme") = value
         End Set
-    End Property
-
-
-
+    End Property
+
+
+
 #End Region
-
+
 #Region "V A C A C I O N E S - P E R M I S O S"
-
+
     Private Property VacInicioPeriodo As Date
         Get
             If ViewState("VacInicioPeriodo") Is Nothing Then
@@ -538,13 +538,13 @@ Partial Class RH_Personal
         Set(value As Integer)
             ViewState("CvePermiso") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
-
+
+
 #Region "PROPIEDADES FAMILIARES"
-
+
     Private Property ActualizarFamiliar As Boolean
         Get
             If ViewState("ActualizarFamiliar") Is Nothing Then
@@ -782,7 +782,7 @@ Partial Class RH_Personal
                 pnlSalarioIMSS.Visible = False
             End If
             ' 
-
+            PnlSalarios.Visible = UsuarioActual.Empresa.Funcionalidad(701) = "1"
 
             ViewState("Orden") = ""
             ViewState("Orden1") = ""
@@ -970,10 +970,10 @@ Partial Class RH_Personal
     Private Sub SetPermisos()
         'Permisos
 
-    End Sub
-
+    End Sub
+
 #Region "Carga Combos"
-
+
     Private Sub CargaEscolaridad()
         DdlEscolaridad.DataSource = GlobalDTEscolaridad
         DdlEscolaridad.DataBind()
@@ -1204,16 +1204,16 @@ Partial Class RH_Personal
         Nom.Dispose()
         GvNominas.DataBind()
 
-    End Sub
-
-
-
-
+    End Sub
+
+
+
+
 #End Region
-
+
 #Region "Asistencias"
-
-
+
+
     Protected Sub LnkEliminarAsistencia_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         Dim ObjRH As New ClsRH
@@ -1321,7 +1321,7 @@ Partial Class RH_Personal
         ObjPersonal.Dispose()
 
         BtnConsultarAsistencia_Click(sender, e)
-    End Sub
+    End Sub
 #End Region
     Private Sub CargaConsignacion()
 
@@ -1340,8 +1340,8 @@ Partial Class RH_Personal
 
                 ChkEstemporal.Checked = ObjPersonal.DtResultados.Rows(0)("esTemporal").ToString() = "1"
                 CHKRFCValidado.Checked = ObjPersonal.DtResultados.Rows(0)("RFCValidado").ToString() = "1"
-
-                'Carga Datos Personales
+                TxtMailrecibonomina.Text = ObjPersonal.DtResultados.Rows(0)("MaiReciboNomina").ToString()
+                'Carga Datos Personales
                 LtlPersonal.Text = ObjPersonal.NombreCompleto
                 NombreCompleto = ObjPersonal.NombreCompleto
                 'TxtNombre.Text = ObjPersonal.Nombre
@@ -1942,11 +1942,11 @@ Partial Class RH_Personal
         DdlClienteAsignado.Attributes.Remove("onclick")
         DdlClienteAsistenciaC.Attributes.Remove("onclick")
         DdlClienteAsistenciaA.Attributes.Remove("onclick")
-    End Sub
-
+    End Sub
+
 #Region "Buzón de Calidad"
-
-
+
+
     Private Sub CargaBuzonCalidad()
 
         Dim ObjPersonal As New ClsRH
@@ -2282,12 +2282,12 @@ Partial Class RH_Personal
         End If
         GvBuzonCalidad.DataBind()
         UpDatos.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "Resguardos"
-
+
     Protected Sub GvResguardos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvResguardos.RowDataBound
 
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -2310,13 +2310,13 @@ Partial Class RH_Personal
             e.Row.FCLiteral("LtlAF").Text = Liga & e.Row.FCLiteral("LtlAF").Text & "</a>"
 
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "Nómina"
-
-
+
+
     Private Sub CarcaConceptosNomina()
         Dim ObjPersonal As New ClsRH
         If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
@@ -2505,9 +2505,9 @@ Partial Class RH_Personal
 
             ObjPersonal.Dispose()
         End If
-    End Sub
+    End Sub
 #End Region
-
+
     Protected Sub DdlTipoAplicacion_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim Ddl As DropDownList = DirectCast(sender, DropDownList)
 
@@ -2589,10 +2589,10 @@ Partial Class RH_Personal
             End If
 
         End If
-    End Sub
-
+    End Sub
+
 #Region "G A S T O S    X    C O M P R O B A R"
-
+
     Protected Sub RBLTipoGastos_SelectedIndexChanged(sender As Object, e As EventArgs)
 
         If RBLTipoGastos.SelectedValue = "1" Then
@@ -2681,10 +2681,10 @@ Partial Class RH_Personal
 
         End If
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "E V E N T O  -  B I T A C O R A"
     Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -2760,9 +2760,9 @@ Partial Class RH_Personal
         HttpContext.Current.Response.End()
 
         Archivo = Nothing
-    End Sub
+    End Sub
 #End Region
-
+
     Protected Sub GvGxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGxC.RowDataBound, GvGxCHistorial.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.RowIndex = 1 Then
@@ -2815,7 +2815,7 @@ Partial Class RH_Personal
 
 
 
-    End Sub
+    End Sub
 #Region "TAB BANCOS"
     Private Sub CargaMonedas()
         DdlMoneda.DataSource = GlobalDTMonedas
@@ -2963,8 +2963,8 @@ Partial Class RH_Personal
 
         ObjCuentasBancos.Dispose()
         CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
-    End Sub
-
+    End Sub
+
 #Region "GRIDVIEW - CUENTAS BANCARIAS"
     Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -3117,11 +3117,11 @@ Partial Class RH_Personal
         CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
         ObjCuentasBancos.Dispose()
         CargaGvBitacora()
-    End Sub
+    End Sub
 #End Region
 #End Region
-
-
+
+
 #Region "O R D E N A M I E N T O"
     Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
         Dim Orden As String = ""
@@ -3157,10 +3157,10 @@ Partial Class RH_Personal
             ViewState("Orden1") = Orden
             CargaGvAsistencias()
         End If
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "I M P R I M I R     N O M I N A"
     Protected Sub LbPDF_Click(sender As Object, e As EventArgs)
 
@@ -3168,11 +3168,11 @@ Partial Class RH_Personal
 
         ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "Recibo")
 
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  ORGANIGRAMA  "
     Private Sub CargaSuperioresOrganigrama()
         Dim ObjRH As New ClsRH
@@ -3193,10 +3193,10 @@ Partial Class RH_Personal
 
 
 
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "I M P R I M I R "
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
 
@@ -3498,12 +3498,12 @@ Partial Class RH_Personal
     End Sub
     Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
         GenerarPDFGastosXComp("Excel")
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "D O C U M E N T A C I O N   C O N T R A T O S"
-
+
     Private Sub CargaDocumentacionFirmaDecontratos()
 
         If CvePersonal > 0 Then
@@ -4220,10 +4220,10 @@ Partial Class RH_Personal
 
         RegistraScript("Download('" & baseUrl & "')")
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
     Protected Sub LBCancelar_Click(sender As Object, e As EventArgs)
 
         Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString()
@@ -4244,10 +4244,10 @@ Partial Class RH_Personal
         Obj = Nothing
 
 
-    End Sub
-
+    End Sub
+
 #Region "VACACIONES"
-
+
     Private Sub CargaVacaciones()
 
         Dim objRH As New ClsRH
@@ -4941,12 +4941,12 @@ Partial Class RH_Personal
 
         objRH.Dispose()
         Return ListaTags
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region "CURSOS"
-
+
     Private Sub CargaCursos()
 
         Dim objRH As New ClsRH
@@ -5044,11 +5044,11 @@ Partial Class RH_Personal
 
 
 
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "UNIFORMES"
     Private Sub CargaComboUniformes()
 
@@ -5184,12 +5184,12 @@ Partial Class RH_Personal
             ObjInventario.RollBack()
         End If
         ObjInventario.Dispose()
-    End Sub
-
-
-
+    End Sub
+
+
+
 #End Region
-
+
 #Region "CARGAR IMAGEN"
     Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
         RegistraScript(String.Format("$('#{0}').modal();", "ModalArchivo"))
@@ -5231,10 +5231,10 @@ Partial Class RH_Personal
         TxtCargaImg.Text = "[]"
         UpAddArchivo.Update()
         RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
-    End Sub
-
+    End Sub
+
 #Region "PERMISOS"
-
+
     Public Sub CargaPermisos()
 
         Dim ObjRH As New ClsRH
@@ -5360,57 +5360,57 @@ Partial Class RH_Personal
         ObjRH.Dispose()
 
         CargaPermisos()
-    End Sub
-
-
-
+    End Sub
+
+
+
 #End Region
-
-
-
+
+
+
 #End Region
-
-
-    'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
-    '    Preguntar si existe en temporales
-    '    If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString()) Then
-    '        Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString())
-    '        If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
-    '        If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
-    '            File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
-    '            File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
-    '        Else
-    '            File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
-    '        End If
-
-    '    Else
-    '        Imagen Default
-    '        If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
-    '            ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
-    '        End If
-    '    End If
-
-
-    '    Si existe mover de temporales a .../Empresas/RH/Personal, SINO Session("FileUpload") = ""
-    '    Si existe en: .../Empresas/RH/Personal Guardar, SINO Session("FileUpload") = ""
-
-
-
-
-    '    If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\" & Session("FileUpload").ToString()) Then
-    '        Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal" & Session("FileUpload").ToString())
-    '        If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
-    '        Session("FileUpload") = ""
-
-    '        If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
-    '            ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & CvePersonal & Extension
-
-    '        End If
-    '    End If
-    'End Sub
-
+
+
+    'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
+    '    Preguntar si existe en temporales
+    '    If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString()) Then
+    '        Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString())
+    '        If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
+    '        If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
+    '            File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
+    '            File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
+    '        Else
+    '            File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
+    '        End If
+
+    '    Else
+    '        Imagen Default
+    '        If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
+    '            ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
+    '        End If
+    '    End If
+
+
+    '    Si existe mover de temporales a .../Empresas/RH/Personal, SINO Session("FileUpload") = ""
+    '    Si existe en: .../Empresas/RH/Personal Guardar, SINO Session("FileUpload") = ""
+
+
+
+
+    '    If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\" & Session("FileUpload").ToString()) Then
+    '        Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal" & Session("FileUpload").ToString())
+    '        If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
+    '        Session("FileUpload") = ""
+
+    '        If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
+    '            ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & CvePersonal & Extension
+
+    '        End If
+    '    End If
+    'End Sub
+
 #Region "Consumos"
-
+
     Private Sub Consumos()
 
         Dim ObjCompras As New ClsCompras
@@ -5489,10 +5489,10 @@ Partial Class RH_Personal
     End Sub
     Protected Sub LnkImprimirPDFConsumo_Click(sender As Object, e As EventArgs)
         GenerarPDFConsumo()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region ""
     Protected Sub LbMail_Click(sender As Object, e As EventArgs)
 
@@ -5576,9 +5576,9 @@ Partial Class RH_Personal
 
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "VIATICOS"
     Protected Sub CargaViaticosPersonal()
         Dim ObjBancos As ClsBancos = New ClsBancos
@@ -5613,11 +5613,11 @@ Partial Class RH_Personal
         If (e.Row.RowType = DataControlRowType.Footer) Then
             e.Row.FCLiteral("LtTotalImporte").Text = DTViaticosDetalle.SUM("Importe").FormatoNumero()
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "BITACORA"
-
+
     Private Sub CargaGvBitacora()
 
         If CvePersonal > 0 Then
@@ -5630,12 +5630,12 @@ Partial Class RH_Personal
             UpHistorialModificacion.Update()
         End If
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "PAGO DE FACTURAS"
-
+
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         CargaPagoFactura()
         UpnHistorial.Update()
@@ -5648,10 +5648,10 @@ Partial Class RH_Personal
         End If
         ObjRH.Dispose()
         GVPagoFactura.DataBind()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
     Protected Sub BtnSaldoInicial_Click(sender As Object, e As EventArgs)
         Dim SaldoInicial As Double = TxtSaldoInicial.Text.ToDouble()
         Dim Fecha As DateTime = TxtFechaSaldo.Text.ToDateTime()
@@ -5667,8 +5667,8 @@ Partial Class RH_Personal
     End Sub
     Private Function AgregarSaldoInicial(SaldoInicial As Double, Fecha As DateTime, CveMoneda As Integer, ObjMov As ClsContabilidad) As Integer
         Return ObjMov.AddPrePolizas("RH/Personal", 13, SaldoInicial, SaldoInicial, CveMoneda, Fecha, "Saldo Inicial", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-    End Function
-
+    End Function
+
 #Region "L I C E N C I A S"
     Public Sub CargaLicencias()
         If CvePersonal > 0 Then
@@ -5815,7 +5815,7 @@ Partial Class RH_Personal
         End If
         RegistraScript("$('#DivAddLicencias').modal('hide');")
 
-    End Sub
+    End Sub
 #End Region
     Protected Sub BtnPDFResguardo_Click(sender As Object, e As EventArgs)
         GenerarPDFResguardosAF()
@@ -5892,12 +5892,12 @@ Partial Class RH_Personal
             Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia)
         End If
 
-    End Sub
-
-
+    End Sub
+
+
 #Region "FAMILIARES"
-
-
+
+
     Private Sub CargaFamiliares()
 
         If CvePersonal <> -1 Then
@@ -6148,11 +6148,11 @@ Partial Class RH_Personal
 
         'objRH.Dispose()
 
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
     Protected Sub DdlTipoAsistencias_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim ddl As DropDownList = DirectCast(sender, DropDownList)
         Dim gvrow As GridViewRow = DirectCast(ddl.NamingContainer, GridViewRow)
diff --git a/vwd.webinfo b/vwd.webinfo
index 71cfc47e0..2fd2ac3b0 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -88,6 +88,8 @@
     
   
     
+  
+