-- cambio en globaldttipoperiodo

Nomina/CatPeriodos.aspx.vb

@@ -40,8 +40,7 @@ Partial Class Nomina_CatPeriodos
     Public Sub CargaDatos()
         Dim ObjNom_Periodos As New ClsNominas
         If ObjNom_Periodos.GetPeriodos(DdlTipoPeriodo.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlEjercicio.SelectedValue.ToEntero(), -1, -1, DdlEstatus.SelectedValue.ToEntero()) Then
-            ViewState("DTNom_Periodos") = ObjNom_Periodos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-
+            ViewState("DTNom_Periodos") = ObjNom_Periodos.DtResultados
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -58,15 +57,13 @@ Partial Class Nomina_CatPeriodos
 
 #Region " C O M B O S"
     Private Sub CargaTipoPeriodo()
-        DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
-        DdlTipoPeriodoAdd.DataSource = GlobalDTTipoPeriodo
-        DdlTipoPeriodoCM.DataSource = GlobalDTTipoPeriodo
+        DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo(-1)
+        DdlTipoPeriodoAdd.DataSource = GlobalDTTipoPeriodo(-1)
+        DdlTipoPeriodoCM.DataSource = GlobalDTTipoPeriodo(-1)
 
         DdlTipoPeriodo.DataBind()
         DdlTipoPeriodoAdd.DataBind()
         DdlTipoPeriodoCM.DataBind()
-
-
     End Sub
 
     Private Sub cargaEjercicios()