--Cambio de Codigo2 a NumeroParte, codigo y clases

Sistemas/CatSesiones.aspx

@@ -29,6 +29,7 @@
         <asp:ListItem Text="Paises" Value="GlobalDTGralPaises"></asp:ListItem>
         <asp:ListItem Text="Estados" Value="GlobalDTGralEstados"></asp:ListItem>
         <asp:ListItem Text="Municipios" Value="GlobalDTGralMunicipios"></asp:ListItem>
+        <asp:ListItem Text="Localidades" Value="GlobalDTLocalidad"></asp:ListItem>
         <asp:ListItem Text="Poblaciones" Value="GlobalDTGralPoblaciones"></asp:ListItem>
         <asp:ListItem Text="Colonias" Value="GlobalDTGralColonias"></asp:ListItem>
         <asp:ListItem Text="Escolaridades" Value="GlobalDTGralEscolaridades"></asp:ListItem>

Sistemas/CatSesiones.aspx.vb

@@ -39,7 +39,9 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralColonias" Then
             CargaColonias()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then
-            CargaMunicipios()
+            CargaMunicipios()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTLocalidad" Then
+            CargaLocalidades()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPoblaciones" Then
             CargaPoblaciones()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEscolaridades" Then
@@ -494,6 +496,13 @@ Partial Class Sistemas_CatSesiones
         'Dim Gral As New ClsGenerales
         'If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
         'Gral.Dispose()
+    End Sub
+
+    Private Sub CargaLocalidades()
+        GlobalDTLocalidad() = Nothing
+        'Dim Gral As New ClsGenerales
+        'If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
+        'Gral.Dispose()
     End Sub
 
     Private Sub CargaPoblaciones()