-cleanup

Planeacion/CatSubProyectos.aspx.vb

@@ -2,13 +2,13 @@
 Option Strict On
 
 Imports System.Data
-Imports Extensiones
-Imports System.IO
 Imports System.Data.OleDb
+Imports System.IO
+Imports Extensiones
 
 Partial Class CatSubProyectos
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "P R O P I E D A D E S"
     Public Property DtSegmentosNegocio As Data.DataTable
         Get
@@ -33,9 +33,9 @@ Partial Class CatSubProyectos
         Set(value As Integer)
             ViewState("CveCentroCosto") = value
         End Set
-    End Property
+    End Property
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             ViewState("Orden") = ""
@@ -90,8 +90,8 @@ Partial Class CatSubProyectos
     Private Sub RecargaGlobal()
         GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
         GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
-    End Sub
-
+    End Sub
+
 #Region "O R D E N A M I E N T O"
     Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
         Dim Orden As String = ""
@@ -114,10 +114,10 @@ Partial Class CatSubProyectos
         Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
         ViewState("Orden") = Orden
         CargaDatos()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "C A R G A S"
     Public Sub CargaDatos()
 
@@ -189,9 +189,9 @@ Partial Class CatSubProyectos
         '    'End If
         'Next
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "GV"
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -312,11 +312,11 @@ Partial Class CatSubProyectos
         CargaRequired()
         UpAddCentroEstatus.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarCentroCosto"))
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "G U A R D A R"
-
+
     Private Function ValidaComercioExterior() As Boolean
         If ChkAplicaComercioExterior.Checked Then
             If Not DdlPais.SelectedValue.ToEntero > 0 Then
@@ -501,11 +501,11 @@ Partial Class CatSubProyectos
         End If
 
 
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "E X C E L"
     Protected Sub downExcel_Click(sender As Object, e As EventArgs)
         Dim Gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -664,12 +664,12 @@ Partial Class CatSubProyectos
         Select Case Extension
             Case ".xls"
                 'Excel 97-03
-                conStr = ConfigurationManager.ConnectionStrings("Excel03ConString") _
+                conStr = ConfigurationManager.ConnectionStrings("Excel03ConString") _
                            .ConnectionString
                 Exit Select
             Case ".xlsx"
                 'Excel 07
-                conStr = ConfigurationManager.ConnectionStrings("Excel07ConString") _
+                conStr = ConfigurationManager.ConnectionStrings("Excel07ConString") _
                           .ConnectionString
                 Exit Select
         End Select
@@ -811,14 +811,14 @@ Partial Class CatSubProyectos
 
     Private Sub ChkEsSucursal_CheckedChanged(sender As Object, e As EventArgs) Handles ChkEsSucursal.CheckedChanged
         CargaRequired()
-    End Sub
-
-
-
+    End Sub
+
+
+
 #End Region
-
+
 #Region "COMERCIO EXTERIOR"
-
+
     Private Sub CargaPais()
         DdlPais.DataSource = GlobalDTGralPaises()
         DdlPais.DataBind()