personal

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