diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 7b6ff7988..3c9d224d2 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -5732,7 +5732,7 @@
- + Fecha: @@ -5751,19 +5751,16 @@
- + Salario diario(IMSS):
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 82e464beb..a339f499b 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1142,11 +1142,11 @@ Partial Class RH_Personal tdCliente2.Visible = True GVAsistencia.Columns(1).Visible = True End If - - If UsuarioActual.TienePermisoProceso(372) Then - TxtSalarioDiarioImSS.Enabled = True - TxtSalarioDiarioIntegrado.Enabled = True - End If + 'no sedeben habilitar ya que solo son informativos + 'If UsuarioActual.TienePermisoProceso(372) Then + ' TxtSalarioDiarioImSS.Enabled = True + ' TxtSalarioDiarioIntegrado.Enabled = True + 'End If End Sub Private Sub SetPermisos() @@ -6961,7 +6961,7 @@ Partial Class RH_Personal Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal() Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal() Dim FI As Decimal = (365D + diasaguinaldo + (DiasVacaciones * (primav / 100D))) / 365D - Dim SDI As Decimal = (SD * FI) + Dim SDI As Decimal = Math.Round((SD * FI), 2) TxtFactordeIntegracion.Text = FI.ToString() TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI) UpFactordeintegracion.Update() @@ -7044,15 +7044,17 @@ Partial Class RH_Personal Using ObjPersonal As ClsRH = New ClsRH() ObjPersonal.IniciaTransacSQL() - If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodIMSS.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodIMSSSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiario.Text.ToDecimal(), TxtSDI.Text.ToDecimal(), TxtMImssSalarioDiarioImSS.Text.ToDecimal(), - TxtSalarioDiario.Text.ToDecimal()) Then + -1) Then ObjPersonal.Commit() TxtSalarioCotizado.Text = TxtMImssSalarioDiarioImSS.Text - + Dim sdi As Decimal = TxtSDI.Text.ToDecimal() + Dim sbc As Decimal = TxtMImssSalarioDiarioImSS.Text.ToDecimal() + salarioVariable = If(sbc > sdi, sbc - sdi, 0) UpModSalario.Update() UpDatos.Update() Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion) @@ -7063,7 +7065,7 @@ Partial Class RH_Personal End Sub Protected Sub LnkModsalarioIMSS_Click(sender As Object, e As EventArgs) - + TxtFechamodIMSSSalario.Text = NowADS().ToString("dd/MM/yyyy") TxtMImssSalarioDiarioImSS.Text = TxtSalarioCotizado.Text RegistraScript("$('#DmodamodificarsalarioIMSS').modal()") UpModSalarioIMSS.Update()