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

cambio en ejercicios

Browse Source
This commit is contained in:
Hector
2021-07-30 16:37:31 -07:00
parent e886ace4e3
commit 5772bdf068
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Nomina/CatPeriodos.aspx.vb
View File

@@ -61,13 +61,13 @@ Partial Class Nomina_CatPeriodos
End Sub End Sub
Private Sub cargaEjercicios() Private Sub cargaEjercicios()
Dim objconta As New ClsContabilidad Dim ObjNom_Periodos As New ClsNominas
If objconta.GetEjercicios(UsuarioActual.CveEmpresa) Then If ObjNom_Periodos.GetEjercicios(UsuarioActual.CveEmpresa) Then
DdlEjercicio.DataSource = objconta.DtResultados DdlEjercicio.DataSource = ObjNom_Periodos.DtResultados
Else Else
DdlEjercicio.DataSource = Nothing DdlEjercicio.DataSource = Nothing
End If End If
objconta.Dispose() ObjNom_Periodos.Dispose()
DdlEjercicio.DataBind() DdlEjercicio.DataBind()
DdlEjercicio.Items.Insert(0, New ListItem("Todos", "-1")) DdlEjercicio.Items.Insert(0, New ListItem("Todos", "-1"))