unificación de GlobalDT Estados,Municipios

cambios en para carta porte

Planeacion/CatSubProyectos.aspx.vb

@@ -46,12 +46,12 @@ Partial Class CatSubProyectos
 
 
 
-            Dim objsubproyecto As New ClsSubProyectos
-            'If objsubproyecto.GetSubProyectosexcel(9, UsuarioActual.CveEmpresa) Then
-            '    'DatatableToExcel(objsubproyecto.DtResultados)
-            '    objsubproyecto.DtResultados.ExportToExcel("subproyecto")
-            'End If
-            objsubproyecto.Dispose()
+            'Dim objsubproyecto As New ClsSubProyectos
+            ''If objsubproyecto.GetSubProyectosexcel(9, UsuarioActual.CveEmpresa) Then
+            ''    'DatatableToExcel(objsubproyecto.DtResultados)
+            ''    objsubproyecto.DtResultados.ExportToExcel("subproyecto")
+            ''End If
+            'objsubproyecto.Dispose()
 
             If Not UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
                 'GvDatos.Columns(0).Visible = False
@@ -496,7 +496,6 @@ Partial Class CatSubProyectos
                     ObjOC.Commit()
                 End If
 
-
                 ObjOC.Dispose()
             End If
         End If
@@ -829,7 +828,7 @@ Partial Class CatSubProyectos
     Private Sub CargaEstado()
         DdlEstado.Items.Clear()
         If DdlPais.SelectedValue.ToEntero > 0 Then
-            DdlEstado.DataSource = GlobalDTEstado("-1", DdlPais.SelectedValue.ToEntero)
+            DdlEstado.DataSource = GlobalDTGralEstados("-1", DdlPais.SelectedValue.ToEntero)
         End If
         DdlEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlEstado.DataBind()
@@ -838,7 +837,7 @@ Partial Class CatSubProyectos
     Private Sub CargaMunicipio()
         DdlMunicipio.Items.Clear()
         If DdlEstado.SelectedValue.ToEntero > 0 Then
-            DdlMunicipio.DataSource = GlobalDTMunicipio("-1", DdlEstado.SelectedValue.ToEntero)
+            DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlEstado.SelectedValue.ToEntero)
         End If
         DdlMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlMunicipio.DataBind()