Nomina/CatPeriodos.aspx.vb

@@ -4,9 +4,10 @@ Option Strict On
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Nomina_CatPeriodos
-	Inherits ClsPaginas
+    Inherits ClsPaginas
     Private Property Comando As String
         Get
             Return ViewState("Comando").ToString
@@ -16,8 +17,11 @@ Partial Class Nomina_CatPeriodos
         End Set
     End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-		If Not Page.IsPostBack Then
-			ViewState("Orden") = ""
+        If Not Page.IsPostBack Then
+
+
+
+            ViewState("Orden") = ""
             CargaTipoPeriodo()
             cargaEjercicios()
             CargaDatos()
@@ -29,10 +33,10 @@ Partial Class Nomina_CatPeriodos
             '    LbAgregar.Enabled = False
             'End If
         End If
-	End Sub
+    End Sub
 
-	Public Sub CargaDatos()
-		Dim ObjNom_Periodos As New ClsNominas
+    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)
             GlobalDTNom_Periodos = ObjNom_Periodos.DtResultados
@@ -41,14 +45,14 @@ Partial Class Nomina_CatPeriodos
             Me.GvDatos.DataSource = Nothing
         End If
 
-		ObjNom_Periodos.Dispose()
+        ObjNom_Periodos.Dispose()
 
-		If ViewState("Orden").ToString() <> String.Empty Then
-			CargaGrid(ViewState("Orden").ToString())
-		Else
-			CargaGrid("")
-		End If
-	End Sub
+        If ViewState("Orden").ToString() <> String.Empty Then
+            CargaGrid(ViewState("Orden").ToString())
+        Else
+            CargaGrid("")
+        End If
+    End Sub
 
 
 #Region " C O M B O S"