AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--

Browse Source
This commit is contained in:
rrene
2023-11-16 17:09:18 -07:00
parent 68c436d4c7
commit b0ff94bf73
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
RH/Personal.aspx.vb
View File

@@ -6958,7 +6958,7 @@ Partial Class RH_Personal
Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal() Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal()
Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal() Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal()
Dim diasaguinaldo As Decimal = TxtFIAguinaldo.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) Dim SDI As Decimal = (SD * FI)
TxtFactordeIntegracion.Text = FI.ToString() TxtFactordeIntegracion.Text = FI.ToString()
TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI) TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI)
@@ -6966,7 +6966,7 @@ Partial Class RH_Personal
End Sub End Sub
Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs) Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs)
calcularSDI() calcularSDI()
Alert(String.Format(" salario diario integreado {0}", TxtFISalarioDiarioIntegrado.Text)) Alert(String.Format(" salario diario integrado {0}", TxtFISalarioDiarioIntegrado.Text))
End Sub End Sub
Protected Sub LnkCalcularFactordeintegracionyguardar_Click(sender As Object, e As EventArgs) Protected Sub LnkCalcularFactordeintegracionyguardar_Click(sender As Object, e As EventArgs)
calcularSDI() calcularSDI()