diff --git a/Prospectos/CatProspectosRedes.aspx.vb b/Prospectos/CatProspectosRedes.aspx.vb
index 99b56048f..59bf6ff30 100644
--- a/Prospectos/CatProspectosRedes.aspx.vb
+++ b/Prospectos/CatProspectosRedes.aspx.vb
@@ -34,7 +34,7 @@ Partial Class Prospectos_CatProspectos
             DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
             DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
             DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind()
-            DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind()
+            DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind()
 
             CargaDatos(True)
             ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")
diff --git a/Prospectos/ProspectoExpediente.aspx.vb b/Prospectos/ProspectoExpediente.aspx.vb
index afc5a3463..2d90f538f 100644
--- a/Prospectos/ProspectoExpediente.aspx.vb
+++ b/Prospectos/ProspectoExpediente.aspx.vb
@@ -197,11 +197,11 @@ Partial Class Prospectos_ProspectoExpediente
     End Sub
 
     Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
-        ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind()
     End Sub
 
     Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
-        ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind()
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
diff --git a/Prospectos/ProspectosG15.aspx.vb b/Prospectos/ProspectosG15.aspx.vb
index c03bba0eb..2502f1005 100644
--- a/Prospectos/ProspectosG15.aspx.vb
+++ b/Prospectos/ProspectosG15.aspx.vb
@@ -153,11 +153,11 @@ Partial Class Prospectos_ProspectosG15
 
 
     Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
-        ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind()
     End Sub
 
     Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
-        ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind()
     End Sub
 
     Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer)
diff --git a/Prospectos/ProspectosSIP.aspx.vb b/Prospectos/ProspectosSIP.aspx.vb
index 6eb2749cf..08bbe2ee7 100644
--- a/Prospectos/ProspectosSIP.aspx.vb
+++ b/Prospectos/ProspectosSIP.aspx.vb
@@ -137,11 +137,11 @@ Partial Class Prospectos_ProspectosSIP
     End Sub
 
     Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
-        ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind()
     End Sub
 
     Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
-        ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind()
     End Sub
 
     Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer)
diff --git a/Prospectos/RepEncuestasDetalle.aspx.vb b/Prospectos/RepEncuestasDetalle.aspx.vb
index bed3ee7ef..06f088d48 100644
--- a/Prospectos/RepEncuestasDetalle.aspx.vb
+++ b/Prospectos/RepEncuestasDetalle.aspx.vb
@@ -24,7 +24,7 @@ Partial Class Prospectos_RepEncuestasDetalle
 
             If CveMunicipio > 0 Then
 
-                Dim dr As DataRow = GlobalDTGralMunicipios(-1).FiltroPrimero("CveMunicipio =" & CveMunicipio)
+                Dim dr As DataRow = GlobalDTGralMunicipios("-1", CveEstado:=-1).FiltroPrimero("CveMunicipio =" & CveMunicipio)
                 If dr IsNot Nothing Then LblMunicipio.Text = dr("Municipio").ToString()
             End If
             LblSeccion.Text = Seccion.ToString
diff --git a/Prospectos/RepProspectosRedes.aspx.vb b/Prospectos/RepProspectosRedes.aspx.vb
index 19bc8fc91..e30de1116 100644
--- a/Prospectos/RepProspectosRedes.aspx.vb
+++ b/Prospectos/RepProspectosRedes.aspx.vb
@@ -36,7 +36,7 @@ Partial Class Prospectos_RepProspectosRedes
             DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
             DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
             DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind()
-            DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind()
+            DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind()
             DdlEscolaridad.DataSource = GlobalDTGralEscolaridades : DdlEscolaridad.DataBind()
 
             CargaDatos(True)
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index a8b3bda14..f309669f8 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -489,9 +489,10 @@ Partial Class Sistemas_CatSesiones
     End Sub
 
     Private Sub CargaOCEstatus()
-        Dim ObjOC As New ClsOC
-        If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
-        ObjOC.Dispose()
+        'Dim ObjOC As New ClsOC
+        'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
+        'ObjOC.Dispose()
+        GlobalDTOCEstatus(UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
     Private Sub CargaOCEstatusUsuarios()