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 @@
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()