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

nomijasfiniquitos

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-01-20 10:47:23 -07:00
parent 668514c565
commit 0108154821
5 changed files with 56 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
RH/Personal.aspx.vb
View File

@@ -6834,7 +6834,7 @@ Partial Class RH_Personal
TxtFactordeIntegracion.Text = ""
TxtFISalarioDiarioIntegrado.Text = ""
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
TxtFIDiasVacaciones.Text = "6"
TxtFIDiasVacaciones.Text = "12"
Else
Using objRH As New ClsRH
If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
@@ -6844,7 +6844,7 @@ Partial Class RH_Personal
Dim diasvaca As Integer = objRH.DtResultados(0)("Dias").ToString().ToEntero()
TxtFIDiasVacaciones.Text = If(diasvaca > 5, diasvaca, 6).ToString()
Else
TxtFIDiasVacaciones.Text = "6"
TxtFIDiasVacaciones.Text = "12"
End If
Else