From b0ff94bf73b597f361bb7ad277a6e201e57ffe7d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 16 Nov 2023 17:09:18 -0700 Subject: [PATCH] -- --- RH/Personal.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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()