RH/Personal.aspx.vb

@@ -6116,12 +6116,15 @@ Partial Class RH_Personal
         End If
     End Sub
     Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs)
-        If TxtFIAguinaldo.Text = "0" Or TxtFIAguinaldo.Text = "" Then
+        If TxtFIAguinaldo.Text = "0" Or TxtFIAguinaldo.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
             TxtFIAguinaldo.Text = "15"
         End If
-        If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Then
+        If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
             TxtFIPrimaVacacional.Text = "25"
         End If
+        TxtFISalariodiarioImss.Text = TxtSalarioCotizado.Text
+        TxtFactordeIntegracion.Text = ""
+        TxtFISalarioDiarioIntegrado.Text = ""
         RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
         UpFactordeintegracion.Update()
     End Sub
@@ -6130,7 +6133,7 @@ Partial Class RH_Personal
         Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal()
         Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal()
         Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal()
-        Dim FI As Decimal = (365 + diasaguinaldo + DiasVacaciones + (DiasVacaciones * (primav / 100))) / 365
+        Dim FI As Decimal = (365 + diasaguinaldo + (DiasVacaciones * (primav / 100))) / 365
         Dim SDI As Decimal = (SD * FI)
         TxtFactordeIntegracion.Text = FI.ToString()
         TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI)
@@ -6142,6 +6145,9 @@ Partial Class RH_Personal
 
         Using ObjPersonal As ClsRH = New ClsRH()
             If ObjPersonal.UpdateSalarioImss(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiarioImss.Text.ToDouble) Then
+                TxtSalarioCotizado.Text = TxtFISalariodiarioImss.Text
+                TxtSDI.Text = TxtFISalarioDiarioIntegrado.Text
+                UpDatos.Update()
                 Alert("Se ha actualizado el salario diario integreado")
             End If
         End Using
@@ -6150,8 +6156,30 @@ Partial Class RH_Personal
 
         Using ObjPersonal As ClsRH = New ClsRH()
             If ObjPersonal.Updateestemporal(CvePersonal, UsuarioActual.CveEmpresa, ChkEstemporal.Checked) Then
-                Alert("Se ha actualizado el usuario", TipoMensaje.ToastInformacion)
+                Alert("Se ha actualizado el empleado", TipoMensaje.ToastInformacion)
             End If
         End Using
     End Sub
+    Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs)
+
+        Using ObjPersonal As ClsRH = New ClsRH()
+            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtSalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(), TxtSalarioDiarioPago.Text.ToDecimal()) Then
+                TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
+                TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
+                TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
+                UpDatos.Update()
+                Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
+            End If
+        End Using
+
+    End Sub
+    Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
+
+        TxtFechamodSalario.Text = DateTime.Now.ToString("dd/MM/yyyy")
+        TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
+        TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
+        TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
+        RegistraScript("$('#Dmodamodificarsalario').modal()")
+        UpModSalario.Update()
+    End Sub
 End Class