Cat Periodos Turno no cargaba, Rep Cancelaciones re acomodo controles

Nomina/CatPeriodos.aspx.vb

@@ -24,6 +24,8 @@ Partial Class Nomina_CatPeriodos
             ViewState("Orden") = ""
             CargaTipoPeriodo()
             cargaEjercicios()
+            CargaTurnos()
+
             CargaDatos()
 
             ''Permiso Registro
@@ -62,6 +64,8 @@ Partial Class Nomina_CatPeriodos
 
         DdlTipoPeriodo.DataBind()
         DdlTipoPeriodoAdd.DataBind()
+
+
     End Sub
 
     Private Sub cargaEjercicios()
@@ -76,6 +80,15 @@ Partial Class Nomina_CatPeriodos
         DdlEjercicio.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
+
+    Private Sub CargaTurnos()
+        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+        DdlTurno.DataBind()
+        DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+    End Sub
+
+
+
 #End Region
 
 #Region "G V  D A T O S"
@@ -329,6 +342,7 @@ Partial Class Nomina_CatPeriodos
         TxtFechaInicioAdd.Text = ""
         TxtFechaFinAdd.Text = ""
         DdlEstatusAdd.SelectedValueExist(-1)
+        DdlTurno.SelectedValueExist(-1)
         For Each item As ListItem In CBLchk.Items
             Select Case item.Value.ToEntero()
                 Case 1