diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 0b0bbf56c..7b6ff7988 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -118,6 +118,9 @@
Modificar salario
+
+ Modificar salario IMSS
+
Contrato
@@ -5713,6 +5716,59 @@
+
+
+
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 9fe19e63a..82e464beb 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -7040,6 +7040,35 @@ Partial Class RH_Personal
UpModSalario.Update()
End Sub
+ Protected Sub LnkModificarSalarioIMSSGuardar_Click(sender As Object, e As EventArgs)
+
+ Using ObjPersonal As ClsRH = New ClsRH()
+ ObjPersonal.IniciaTransacSQL()
+ If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodIMSS.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+ TxtSalarioDiario.Text.ToDecimal(), TxtSDI.Text.ToDecimal(), TxtMImssSalarioDiarioImSS.Text.ToDecimal(),
+ TxtSalarioDiario.Text.ToDecimal()) Then
+
+
+ ObjPersonal.Commit()
+
+ TxtSalarioCotizado.Text = TxtMImssSalarioDiarioImSS.Text
+
+ UpModSalario.Update()
+ UpDatos.Update()
+ Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
+ Else
+ ObjPersonal.RollBack()
+ End If
+ End Using
+
+ End Sub
+ Protected Sub LnkModsalarioIMSS_Click(sender As Object, e As EventArgs)
+
+ TxtMImssSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
+ RegistraScript("$('#DmodamodificarsalarioIMSS').modal()")
+ UpModSalarioIMSS.Update()
+ End Sub
+
Protected Sub UpdatePersonalAlta_Click(sender As Object, e As EventArgs)
End Sub
@@ -8067,5 +8096,6 @@ Partial Class RH_Personal
ddlSubTipoPeriodo.SelectedValueExist(CveSubTipoPeriodo.ToString())
UpDatos.Update()
End Sub
+
End Class