personal

2025-02-14 09:13:18 -07:00
parent 94c30f5a81
commit 3cdeef0467
3 changed files with 60 additions and 57 deletions
--- 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;
--- 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>
--- 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