From 3cdeef04671cf004912dcca9e3ae442326924a48 Mon Sep 17 00:00:00 2001
From: caudillochon <caudillo_90@hotmail.com>
Date: Fri, 14 Feb 2025 09:13:18 -0700
Subject: [PATCH] personal

---
 Nomina/Nomina.aspx.cs |  6 ++-
 RH/Personal.aspx      | 18 ++++-----
 RH/Personal.aspx.vb   | 93 +++++++++++++++++++++----------------------
 3 files changed, 60 insertions(+), 57 deletions(-)

diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 867093f94..ccedabda1 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -7629,6 +7629,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         //DdlTipo.Items.Insert(2, new ListItem("Obligaciones", "O"));
         //DdlTipo.SelectedValueExist("-1");
         CargaConcepto();
+
     }
 
     protected void CargaConcepto()
@@ -7637,11 +7638,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DdlConcepto.Items.Clear();
         if (DdlTipo.SelectedValue.Contiene("P", "D", "O"))
         {
-            DdlConcepto.DataSource = dt.FiltraParametros(string.Format("Tipo ='{0}'", DdlTipo.SelectedValue));
+            dt = dt.FiltraParametros(string.Format("Tipo ='{0}'", DdlTipo.SelectedValue));
         }
         DataRow drow = dt.NewRow();
         drow["CveConcepto"] = "-1";
         drow["Concepto"] = "Seleccione";
+        drow["CodigoConcepto"] = "Seleccione";
         dt.Rows.InsertAt(drow, 0);
         DdlConcepto.DataSource = dt;
         DdlConcepto.SelectedValueExist("-1");
@@ -7663,10 +7665,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
     protected void DdlTipo_SelectedIndexChanged(object sender, EventArgs e)
     {
         CargaConcepto();
+        UpMovtosPermanentesModal.Update();
     }
 
     protected void LnkAddMovtoPermanente_Click(object sender, EventArgs e)
     {
+        DdlTipo.SelectedValue = "D";
         CargaConcepto();
         DdlTipoDescto_SelectedIndexChanged(null, null);
         pnlAddupMovto.Visible = true;
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 32e1ab0a1..ba14b0eaf 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -135,7 +135,7 @@
         <ContentTemplate>
              <li>
                  <asp:LinkButton ID="LnkConvertirDeudor" OnClick="LnkConvertirDeudor_Click" runat="server" Visible="false">
-                     <i class="fa fa-share-square-o" aria-hidden="true"></i> Convertir en Deudor 
+                     <i class="fa fa-share-square-o" ></i> Convertir en Deudor 
                  </asp:LinkButton>
              </li>
         </ContentTemplate>
@@ -403,9 +403,9 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtCorreo" runat="server" MaxLength="50"></asp:TextBox>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtCorreo" runat="server" MaxLength="150"></asp:TextBox>
                                                         <label for="<%= TxtCorreo.ClientID.ToString()%>">Correo personal: </label>
-                                                        <asp:RegularExpressionValidator ID="REVCorreo" runat="server" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" CssClass="help-block errorimput" ControlToValidate="TxtCorreo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo - Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
+                                                        <asp:RegularExpressionValidator ID="REVCorreo" runat="server" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" CssClass="help-block errorimput" ControlToValidate="TxtCorreo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo - Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright" style="display:none;">
@@ -1007,7 +1007,7 @@
                                                         <div class="btn-group">
                                                             <asp:UpdatePanel ID="UpBtnUniformes" runat="server" UpdateMode="Conditional">
                                                                 <ContentTemplate>
-                                                                    <asp:LinkButton ID="LnkSurtir" runat="server" CssClass="btn btn-circle btn-sm blue"><i class="fa fa-th" aria-hidden="true"></i> Resguardar </asp:LinkButton>
+                                                                    <asp:LinkButton ID="LnkSurtir" runat="server" CssClass="btn btn-circle btn-sm blue"><i class="fa fa-th" ></i> Resguardar </asp:LinkButton>
                                                                 </ContentTemplate>
                                                             </asp:UpdatePanel>
                                                         </div>
@@ -5505,7 +5505,7 @@
                 <ContentTemplate>
                     <div class="modal-header">
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                            <span aria-hidden="true">&times;</span>
+                            <span  >&times;</span>
                         </button>
                         <h4 class="modal-title" id="LabelLicencia" runat="server">Agregar Licencia</h4>
                     </div>
@@ -5655,7 +5655,7 @@
                 <div class="modal-content rowpadding">
                     <div class="modal-header">
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                            <span aria-hidden="true">&times;</span>
+                            <span  >&times;</span>
                         </button>
                         <h4 class="modal-title" runat="server" style="text-align: left">Calcular factor de integración</h4>
                     </div>
@@ -5712,7 +5712,7 @@
                 <div class="modal-content rowpadding">
                     <div class="modal-header">
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                            <span aria-hidden="true">&times;</span>
+                            <span >&times;</span>
                         </button>
                         <h4 class="modal-title" runat="server" style="text-align: left">Modificar salario</h4>
                     </div>
@@ -5776,7 +5776,7 @@
                 <div class="modal-content rowpadding">
                     <div class="modal-header">
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                            <span aria-hidden="true">&times;</span>
+                            <span >&times;</span>
                         </button>
                         <h4 class="modal-title" runat="server" style="text-align: left">Modificar salario</h4>
                     </div>
@@ -5830,7 +5830,7 @@
                 <div class="modal-content rowpadding">
                     <div class="modal-header">
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                            <span aria-hidden="true">&times;</span>
+                            <span >&times;</span>
                         </button>
                         <h4 class="modal-title" runat="server" style="text-align: left">Parametros</h4>
                     </div>
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 0135cf003..f0351a9a0 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -634,6 +634,7 @@ Partial Class RH_Personal
 
 #End Region
 
+#Region "Desorden Antres del load"
 
 #Region "PROPIEDADES FAMILIARES"
 
@@ -900,6 +901,7 @@ Partial Class RH_Personal
             Return UsuarioActual.Empresa.Funcionalidad(701) = "1"
         End Get
     End Property
+#End Region
     'Configuración
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -994,7 +996,6 @@ Partial Class RH_Personal
 
                     divBitacora.Visible = True
                     CargaGvBitacora()
-                    CargaCuentasBancarias()
                     CarcaConceptosNomina()
                     CargaFonacot()
                 End If
@@ -1017,6 +1018,7 @@ Partial Class RH_Personal
 
             End If
 
+            CargaCuentasBancarias()
             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
 
                 CrearEstructuraFamiliares()
@@ -2039,7 +2041,7 @@ Partial Class RH_Personal
 
                         If ObjPersonal.AddPersonal(TxtCodigo.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, TxtCorreo.Text.Trim, TxtFechaIngreso.Text.ToDate,
                            DdlTipoPeriodo.SelectedValue.ToEntero(), TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, TxtSalarioDiarioPago.Text.Trim.ToDouble,
-                           TxtSalarioDiario.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero(),
+                           TxtSalarioDiarioM.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero(),
                            TxtPorPrimaVacacional.Text.Trim.ToDouble, DdlFormaPago.SelectedValue.ToEntero(), TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
                            DdlTipoContrato.SelectedValue.ToEntero(), TxtUbicacion.Text.Trim,
                            DdlTurno.SelectedValue.ToEntero(), DdlPuesto.SelectedValue.ToEntero(),
@@ -3434,15 +3436,16 @@ Partial Class RH_Personal
         Dim Row As DataRow
 
         If CvePersonal > 0 Then
-            Dim ObjCuentasBancos As New ClsGenerales
-            If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then
-                DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
+            Using ObjCuentasBancos As New ClsGenerales()
 
-                Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
+                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then
+                    DTCuentasBancos.Clear()
+                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
 
-            End If
-            ObjCuentasBancos.Dispose()
+                    Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
+                End If
+            End Using
+            CargaGvBitacora()
 
         Else
             Row = TempDTCuentasBancos.NewRow
@@ -3457,6 +3460,8 @@ Partial Class RH_Personal
             Row("Referencia") = Referencia
             Row("CveMoneda") = CveMoneda
             Row("Moneda") = Moneda
+            Row("BBVAAlias") = BBVAAlias
+            Row("CveSATBanco") = CveSATBanco
             Row("EstatusPagoElectronico") = EstatusPagoElectronico
             TempDTCuentasBancos.Rows.Add(Row)
         End If
@@ -3464,9 +3469,6 @@ Partial Class RH_Personal
         LimpiaCuentasBancarias()
         CargaGridCuentasBancos("")
 
-        If CvePersonal > 0 Then
-            CargaGvBitacora()
-        End If
 
     End Sub
     Private Sub LimpiaCuentasBancarias()
@@ -7079,43 +7081,40 @@ Partial Class RH_Personal
         End Using
     End Sub
     Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs)
-
-        getdatosFI()
-
-        TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
-        calcularSDI()
-        TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString()
-        TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
-        Using ObjPersonal As ClsRH = New ClsRH()
-            ObjPersonal.IniciaTransacSQL()
-            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                          TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(),
-                                          TxtSalarioDiarioM.Text.ToDecimal(), False, False, "A") Then
-
-
-                ObjPersonal.Commit()
-
-                TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
-                TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
-                TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
-                TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
-                TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
-
-                UpModSalario.Update()
-                UpDatos.Update()
-                Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
-            Else
-                ObjPersonal.RollBack()
-            End If
-        End Using
-
+        If CvePersonal > 0 Then
+            getdatosFI()
+            TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
+            calcularSDI()
+            TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString()
+            TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
+            Using ObjPersonal As ClsRH = New ClsRH()
+                ObjPersonal.IniciaTransacSQL()
+                If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                              TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(),
+                                              TxtSalarioDiarioM.Text.ToDecimal(), False, False, "A") Then
+                    ObjPersonal.Commit()
+                    TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
+                    TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
+                    TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
+                    TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
+                    TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
+                    UpModSalario.Update()
+                    UpDatos.Update()
+                    Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
+                Else
+                    ObjPersonal.RollBack()
+                End If
+            End Using
+        End If
+        RegistraScript("$('#Dmodamodificarsalario').modal('hide')")
     End Sub
     Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
-
-        TxtFechamodSalario.Text = NowADS().ToString("dd/MM/yyyy")
-        TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
-        TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
-        TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
+        If CvePersonal > 0 Then
+            TxtFechamodSalario.Text = NowADS().ToString("dd/MM/yyyy")
+            TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
+            TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
+            TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
+        End If
         RegistraScript("$('#Dmodamodificarsalario').modal()")
         UpModSalario.Update()
     End Sub