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

Nominas

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-09-10 04:22:04 -07:00
parent c2768117ed
commit 2c478bfa1d
13 changed files with 876 additions and 264 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Nomina/Nomina.aspx.vb
View File

@@ -236,9 +236,12 @@ Partial Class Nomina_Nomina
CargaFolios()
LnkCorreos.Visible = False
TxtFechaPago.Text = Now.ToShortDateString
DdlEjercicios.Items.Add(New ListItem(UsuarioActual.Empresa.EjercicioActual.ToString, UsuarioActual.Empresa.EjercicioActual.ToString))
DdlEjercicios.Items.Add(New ListItem((UsuarioActual.Empresa.EjercicioActual - 1).ToString, (UsuarioActual.Empresa.EjercicioActual - 1).ToString))
Dim EjercicioActual As Integer = UsuarioActual.Empresa.EjercicioActual
If EjercicioActual = 0 Then
EjercicioActual = DateTime.Now.Year
End If
DdlEjercicios.Items.Add(New ListItem(EjercicioActual.ToString(), EjercicioActual.ToString()))
DdlEjercicios.Items.Add(New ListItem((EjercicioActual - 1).ToString(), (EjercicioActual - 1).ToString()))
'Verifica Permisos de Autorizar
If UsuarioActual.TienePermisoProceso(82) Then PermisoAutorizar = True Else PermisoAutorizar = False