modificar salario imss

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