AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

personal

Browse Source
This commit is contained in:
caudillochon
2025-02-14 09:13:18 -07:00
parent 94c30f5a81
commit 3cdeef0467
3 changed files with 60 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Nomina/Nomina.aspx.cs
View File

@@ -7629,6 +7629,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
//DdlTipo.Items.Insert(2, new ListItem("Obligaciones", "O")); //DdlTipo.Items.Insert(2, new ListItem("Obligaciones", "O"));
//DdlTipo.SelectedValueExist("-1"); //DdlTipo.SelectedValueExist("-1");
CargaConcepto(); CargaConcepto();
} }
protected void CargaConcepto() protected void CargaConcepto()
@@ -7637,11 +7638,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
DdlConcepto.Items.Clear(); DdlConcepto.Items.Clear();
if (DdlTipo.SelectedValue.Contiene("P", "D", "O")) 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(); DataRow drow = dt.NewRow();
drow["CveConcepto"] = "-1"; drow["CveConcepto"] = "-1";
drow["Concepto"] = "Seleccione"; drow["Concepto"] = "Seleccione";
drow["CodigoConcepto"] = "Seleccione";
dt.Rows.InsertAt(drow, 0); dt.Rows.InsertAt(drow, 0);
DdlConcepto.DataSource = dt; DdlConcepto.DataSource = dt;
DdlConcepto.SelectedValueExist("-1"); DdlConcepto.SelectedValueExist("-1");
@@ -7663,10 +7665,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
protected void DdlTipo_SelectedIndexChanged(object sender, EventArgs e) protected void DdlTipo_SelectedIndexChanged(object sender, EventArgs e)
{ {
CargaConcepto(); CargaConcepto();
UpMovtosPermanentesModal.Update();
} }
protected void LnkAddMovtoPermanente_Click(object sender, EventArgs e) protected void LnkAddMovtoPermanente_Click(object sender, EventArgs e)
{ {
DdlTipo.SelectedValue = "D";
CargaConcepto(); CargaConcepto();
DdlTipoDescto_SelectedIndexChanged(null, null); DdlTipoDescto_SelectedIndexChanged(null, null);
pnlAddupMovto.Visible = true; pnlAddupMovto.Visible = true;

18
RH/Personal.aspx
View File

@@ -135,7 +135,7 @@
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkConvertirDeudor" OnClick="LnkConvertirDeudor_Click" runat="server" Visible="false"> <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> </asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
@@ -403,9 +403,9 @@
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <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> <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> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright" style="display:none;"> <div class="form-group form-md-line-input input-iconright" style="display:none;">
@@ -1007,7 +1007,7 @@
<div class="btn-group"> <div class="btn-group">
<asp:UpdatePanel ID="UpBtnUniformes" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpBtnUniformes" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
@@ -5505,7 +5505,7 @@
<ContentTemplate> <ContentTemplate>
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span> <span >&times;</span>
</button> </button>
<h4 class="modal-title" id="LabelLicencia" runat="server">Agregar Licencia</h4> <h4 class="modal-title" id="LabelLicencia" runat="server">Agregar Licencia</h4>
</div> </div>
@@ -5655,7 +5655,7 @@
<div class="modal-content rowpadding"> <div class="modal-content rowpadding">
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span> <span >&times;</span>
</button> </button>
<h4 class="modal-title" runat="server" style="text-align: left">Calcular factor de integración</h4> <h4 class="modal-title" runat="server" style="text-align: left">Calcular factor de integración</h4>
</div> </div>
@@ -5712,7 +5712,7 @@
<div class="modal-content rowpadding"> <div class="modal-content rowpadding">
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span> <span >&times;</span>
</button> </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>
@@ -5776,7 +5776,7 @@
<div class="modal-content rowpadding"> <div class="modal-content rowpadding">
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span> <span >&times;</span>
</button> </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>
@@ -5830,7 +5830,7 @@
<div class="modal-content rowpadding"> <div class="modal-content rowpadding">
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span> <span >&times;</span>
</button> </button>
<h4 class="modal-title" runat="server" style="text-align: left">Parametros</h4> <h4 class="modal-title" runat="server" style="text-align: left">Parametros</h4>
</div> </div>

93
RH/Personal.aspx.vb
View File

@@ -634,6 +634,7 @@ Partial Class RH_Personal
#End Region #End Region
#Region "Desorden Antres del load"
#Region "PROPIEDADES FAMILIARES" #Region "PROPIEDADES FAMILIARES"
@@ -900,6 +901,7 @@ Partial Class RH_Personal
Return UsuarioActual.Empresa.Funcionalidad(701) = "1" Return UsuarioActual.Empresa.Funcionalidad(701) = "1"
End Get End Get
End Property End Property
#End Region
'Configuración 'Configuración
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
@@ -994,7 +996,6 @@ Partial Class RH_Personal
divBitacora.Visible = True divBitacora.Visible = True
CargaGvBitacora() CargaGvBitacora()
CargaCuentasBancarias()
CarcaConceptosNomina() CarcaConceptosNomina()
CargaFonacot() CargaFonacot()
End If End If
@@ -1017,6 +1018,7 @@ Partial Class RH_Personal
End If End If
CargaCuentasBancarias()
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
CrearEstructuraFamiliares() 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, 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, 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"), 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, DdlTipoContrato.SelectedValue.ToEntero(), TxtUbicacion.Text.Trim,
DdlTurno.SelectedValue.ToEntero(), DdlPuesto.SelectedValue.ToEntero(), DdlTurno.SelectedValue.ToEntero(), DdlPuesto.SelectedValue.ToEntero(),
@@ -3434,15 +3436,16 @@ Partial Class RH_Personal
Dim Row As DataRow Dim Row As DataRow
If CvePersonal > 0 Then If CvePersonal > 0 Then
Dim ObjCuentasBancos As New ClsGenerales Using 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)))
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 Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
ObjCuentasBancos.Dispose() End If
End Using
CargaGvBitacora()
Else Else
Row = TempDTCuentasBancos.NewRow Row = TempDTCuentasBancos.NewRow
@@ -3457,6 +3460,8 @@ Partial Class RH_Personal
Row("Referencia") = Referencia Row("Referencia") = Referencia
Row("CveMoneda") = CveMoneda Row("CveMoneda") = CveMoneda
Row("Moneda") = Moneda Row("Moneda") = Moneda
Row("BBVAAlias") = BBVAAlias
Row("CveSATBanco") = CveSATBanco
Row("EstatusPagoElectronico") = EstatusPagoElectronico Row("EstatusPagoElectronico") = EstatusPagoElectronico
TempDTCuentasBancos.Rows.Add(Row) TempDTCuentasBancos.Rows.Add(Row)
End If End If
@@ -3464,9 +3469,6 @@ Partial Class RH_Personal
LimpiaCuentasBancarias() LimpiaCuentasBancarias()
CargaGridCuentasBancos("") CargaGridCuentasBancos("")
If CvePersonal > 0 Then
CargaGvBitacora()
End If
End Sub End Sub
Private Sub LimpiaCuentasBancarias() Private Sub LimpiaCuentasBancarias()
@@ -7079,43 +7081,40 @@ Partial Class RH_Personal
End Using End Using
End Sub End Sub
Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs) Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs)
If CvePersonal > 0 Then
getdatosFI() getdatosFI()
TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
TxtFISalariodiario.Text = TxtSalarioDiarioM.Text calcularSDI()
calcularSDI() TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString()
TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString() TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text Using ObjPersonal As ClsRH = New ClsRH()
Using ObjPersonal As ClsRH = New ClsRH() ObjPersonal.IniciaTransacSQL()
ObjPersonal.IniciaTransacSQL() If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
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(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal(), False, False, "A") Then
TxtSalarioDiarioM.Text.ToDecimal(), False, False, "A") Then ObjPersonal.Commit()
TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
ObjPersonal.Commit() TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
TxtSalarioDiario.Text = TxtSalarioDiarioM.Text TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
TxtFISalariodiario.Text = TxtSalarioDiarioM.Text UpModSalario.Update()
TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text UpDatos.Update()
TxtSDI.Text = TxtSalarioDiarioIntegrado.Text Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text Else
ObjPersonal.RollBack()
UpModSalario.Update() End If
UpDatos.Update() End Using
Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion) End If
Else RegistraScript("$('#Dmodamodificarsalario').modal('hide')")
ObjPersonal.RollBack()
End If
End Using
End Sub End Sub
Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs) Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
If CvePersonal > 0 Then
TxtFechamodSalario.Text = NowADS().ToString("dd/MM/yyyy") TxtFechamodSalario.Text = NowADS().ToString("dd/MM/yyyy")
TxtSalarioDiarioM.Text = TxtSalarioDiario.Text TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
TxtSalarioDiarioIntegrado.Text = TxtSDI.Text TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
End If
RegistraScript("$('#Dmodamodificarsalario').modal()") RegistraScript("$('#Dmodamodificarsalario').modal()")
UpModSalario.Update() UpModSalario.Update()
End Sub End Sub