diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index f8231edc6..029a45413 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -6958,7 +6958,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 * (primav / 100))) / 365
+        Dim FI As Decimal = (365D + diasaguinaldo + (DiasVacaciones * (primav / 100D))) / 365D
         Dim SDI As Decimal = (SD * FI)
         TxtFactordeIntegracion.Text = FI.ToString()
         TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI)
@@ -6966,7 +6966,7 @@ Partial Class RH_Personal
     End Sub
     Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs)
         calcularSDI()
-        Alert(String.Format(" salario diario integreado {0}", TxtFISalarioDiarioIntegrado.Text))
+        Alert(String.Format(" salario diario integrado {0}", TxtFISalarioDiarioIntegrado.Text))
     End Sub
     Protected Sub LnkCalcularFactordeintegracionyguardar_Click(sender As Object, e As EventArgs)
         calcularSDI()