diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index c6a62f7bd..a78a05d7c 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2031,12 +2031,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpdateSalariointegrado(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean + Public Function UpdateSalariointegrado(CvePersonal As Integer, CveUsuario As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado") With SqlAdapter.SelectCommand.Parameters .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@SDI", SqlDbType.Money).Value = SDI .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario End With @@ -2048,13 +2049,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno End Function - Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean + Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveUsuario As Integer, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalUpdateSalarios") With SqlAdapter.SelectCommand.Parameters .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario .Add("@SDI", SqlDbType.Money).Value = SDI diff --git a/General/ExcelToBD.aspx.cs b/General/ExcelToBD.aspx.cs index 4f00078ce..1c3d4a6d7 100644 --- a/General/ExcelToBD.aspx.cs +++ b/General/ExcelToBD.aspx.cs @@ -83,9 +83,10 @@ public partial class General_ExcelToBD : System.Web.UI.Page DdlWorkBooks.DataBind(); if (workBooks.Count > 0) { - DdlWorkBooks.SelectedIndex = 0; + DdlWorkBooks.SelectedIndex = 1; DdlWorkBooks_SelectedIndexChanged(null, null); } + LnkContinuar_Click(null, null); } protected void DdlWorkBooks_SelectedIndexChanged(object sender, EventArgs e) @@ -100,7 +101,7 @@ public partial class General_ExcelToBD : System.Web.UI.Page columnas = workSheet.LastRowUsed().CellCount(); TxtFilas.Text = Filas.ToString(); TxtInicia.Text = "2"; - TxtColumnas.Text = "62";// columnas.ToString(); + TxtColumnas.Text = "48";//"62";// columnas.ToString(); } } diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index e338baec3..bb99c4e7a 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -186,10 +186,10 @@ Autorizar
  • - Registrar provisión + Timbrar todos
  • - Layout banco + Registrar provisión
  • Ver provisión @@ -198,7 +198,10 @@ Ver provisión Asimilados
  • - Timbrar todos + Prorrateo +
  • +
  • + Layout banco
  • Incidencias asistencia @@ -248,9 +251,6 @@
  • CancelarTimbre
  • -
  • - Prorrateo -
  • diff --git a/RH/ActualizacionMasiva.aspx.vb b/RH/ActualizacionMasiva.aspx.vb index 4251563ed..13a660fb1 100644 --- a/RH/ActualizacionMasiva.aspx.vb +++ b/RH/ActualizacionMasiva.aspx.vb @@ -205,7 +205,7 @@ Partial Class RH_ActualizacionMasiva ' ObjPersonal.RollBack() ' Exit For 'End If - If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), + If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(),, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), Row.FCCheckBox("ChkCalcularSDI").Checked) Then @@ -361,7 +361,7 @@ Partial Class RH_ActualizacionMasiva If Not IsNothing(drow) Then Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero() - If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(), + If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(), Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal(), ChkCalcularSDIXLS.Checked) Then contador = contador + 1 Else diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs index 3ebdb377b..2fa4c1a8f 100644 --- a/RH/CalculoSBC.aspx.cs +++ b/RH/CalculoSBC.aspx.cs @@ -126,7 +126,7 @@ public partial class RH_CalculoSBC : ClsPaginas double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2); double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble(); double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2); - if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario))) + if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario))) { } @@ -144,7 +144,7 @@ public partial class RH_CalculoSBC : ClsPaginas /* Using ObjPersonal As ClsRH = New ClsRH() - If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then + If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"),UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then * */ } diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 3ebf1c23e..d3ea5c767 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -6466,7 +6466,7 @@ Partial Class RH_Personal calcularSDI() Using ObjPersonal As ClsRH = New ClsRH() - If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then + If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then TxtSalarioDiario.Text = TxtFISalariodiario.Text TxtSalarioDiarioM.Text = TxtFISalariodiario.Text 'TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text @@ -6496,7 +6496,7 @@ Partial Class RH_Personal TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text Using ObjPersonal As ClsRH = New ClsRH() - If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then + If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then TxtSalarioDiario.Text = TxtSalarioDiarioM.Text diff --git a/vwd.webinfo b/vwd.webinfo index a75a48afa..0c5769abd 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -328,6 +328,10 @@ + + + +