Prospeccion/Prospectos.aspx

@@ -1,5 +1,5 @@
 <%@ Page Title="Expediente del prospecto" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Prospectos.aspx.vb" Inherits="Prospectos_Prospectos" %>
-<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>
+<%--<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>--%>
 
 <asp:Content ID="Content4" ContentPlaceHolderID="Css" Runat="Server">
     <style>
@@ -368,9 +368,9 @@
                                                     </div>
                                                 </div>
                                                 <div class="portlet-body " style="padding-top: 0px; margin-top: -5px;">
-                                                    <cc1:Map ID="Mapa" runat="server" Height="400px" Width="400px" BorderWidth="1px" MapUnit="Meter" oninfotool="Map1_InfoTool"
+                                                   <%-- <cc1:Map ID="Mapa" runat="server" Height="400px" Width="400px" BorderWidth="1px" MapUnit="Meter" oninfotool="Map1_InfoTool"
                                                         ImageFormat="Png" EnableSession="false" PixelPerInch="100" ImageTempDirectory="/Temp" BackColor="White" FontQuality="ClearType"
-                                                        ImageResolution="100" MapTool="Info" ImagePriority="High" PanCursor="url(/imagenes/hand-drag.cur),default" />
+                                                        ImageResolution="100" MapTool="Info" ImagePriority="High" PanCursor="url(/imagenes/hand-drag.cur),default" />--%>
                                                     <asp:HiddenField ID="HdnIDUbicacion" runat="server" />
                                                     <asp:Button ID="BtnCambiaUbicacion" runat="server" Text="Cambiar Ubicación" Visible="false" CssClass="btn btn-primary " />
                                                 </div>

Prospeccion/Prospectos.aspx.vb

@@ -1,6 +1,6 @@
 Imports System.Data
 Imports System.Drawing
-Imports AspMap
+'Imports AspMap
 Imports Extensiones
 Imports AspMap.Web
 
@@ -38,8 +38,8 @@ Partial Class Prospectos_Prospectos
             IDSeleccionados = New ArrayList
 
             '' set the transparency of the main map image to display other layers over the satellite map
-            Mapa.ImageFormat = ImageFormat.Png
-            Mapa.ImageOpacity = 0.8
+            'Mapa.ImageFormat = ImageFormat.Png
+            'Mapa.ImageOpacity = 0.8
 
             DdlProspectoClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlProspectoClasificacion.DataBind() : DdlProspectoClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
             DdlCalificacion.DataSource = GlobalDTProspectosTipos(UsuarioActual.CveEmpresa) : DdlCalificacion.DataBind() : DdlCalificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -569,70 +569,192 @@ Partial Class Prospectos_Prospectos
     Private Sub CargaMapa()
 
 
-        Dim dbLayer As AspMap.Layer
-        Dim feature As AspMap.Feature
-        'Dim FillColor, LineColor As Color
-        Mapa.RemoveAllLayers()
+        'Dim dbLayer As AspMap.Layer
+        'Dim feature As AspMap.Feature
+        ''Dim FillColor, LineColor As Color
+        'Mapa.RemoveAllLayers()
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.LightGray
+        ''    feature.Symbol.Size = 12
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DodgerBlue
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+        ''    If Not Page.IsPostBack Then Mapa.Extent = dbLayer.Extent : Mapa.Extent.Inflate(50, 50)
+
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DodgerBlue
+        ''    feature.Symbol.FillColor = Color.LightGray
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DarkGray
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.FillColor = ColorTranslator.FromHtml("#FF9E78")
+        ''    feature.Symbol.Size = 0
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 8
+        ''    feature.MinScale = 700
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 10
+        ''    feature.MaxScale = 700
+        ''    feature.MinScale = 450
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 14
+        ''    feature.MaxScale = 449
+        ''    feature.MinScale = 200
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    dbLayer.LabelField = "TEXTSTRING"
+        ''    dbLayer.LabelExpression = "REPLACE(TEXTSTRING,""Z"","""")"
+        ''    dbLayer.ShowLabels = True
+        ''    dbLayer.Symbol.Size = 0
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 12
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MinScale = 700
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 14
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MaxScale = 700
+        ''    feature.MinScale = 450
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 20
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MaxScale = 449
+        ''    feature.MinScale = 200
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    dbLayer.LabelField = "TEXTSTRING"
+        ''    dbLayer.ShowLabels = True
+        ''    dbLayer.Symbol.Size = 0
+
+        ''End If
+
+        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
+
+
+        'dbLayer.Name = "Stand"
         'If dbLayer IsNot Nothing Then
+
+        '    'If Not dbLayer.AddRelate("FID_", DTApartados, "IDGis") Then
+
+        '    'End If
+        '    'feature = New AspMap.Feature()
+        '    ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    'feature.Expression = String.Format("CveCliente > 0")
+        '    'feature.Symbol.FillColor = ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E5E5E5")
+
+        '    'dbLayer.Renderer.Add(feature)
+
+        '    If IDSeleccionados.Count > 0 Then
+        '        For Each s As String In IDSeleccionados
+        '            feature = New AspMap.Feature()
+        '            'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '            feature.Expression = String.Format("FID_ = {0}", s)
+        '            feature.Symbol.FillColor = Color.DarkRed
+        '            feature.Symbol.LineColor = Color.Red
+        '            dbLayer.Renderer.Add(feature)
+        '        Next
+
+        '    End If
+
+        '    'feature = New AspMap.Feature()
+        '    ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    'feature.Expression = String.Format("Tipo = 1")
+        '    'feature.Symbol.FillColor = Color.LightGray 'ColorTranslator.FromHtml("#52A5A5")
+        '    'feature.Symbol.LineColor = Color.CadetBlue
+        '    'dbLayer.Renderer.Add(feature)
+
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.LightGray
-        '    feature.Symbol.Size = 12
+        '    feature.Expression = String.Format("FID_ < 10")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#1BA39C")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#1BBC9B")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DodgerBlue
-        '    feature.Symbol.Size = 1
-        '    dbLayer.Renderer.Add(feature)
-        '    If Not Page.IsPostBack Then Mapa.Extent = dbLayer.Extent : Mapa.Extent.Inflate(50, 50)
-
-
-        'End If
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DodgerBlue
-        '    feature.Symbol.FillColor = Color.LightGray
-        '    feature.Symbol.Size = 1
+        '    feature.Expression = String.Format("FID_ < 30")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#C49F47")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#F4D03F")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DarkGray
-        '    feature.Symbol.Size = 1
+        '    feature.Expression = String.Format("FID_ < 300")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#E5E5E5")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#525E64")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
+        '    'feature = New AspMap.Feature()
+        '    'feature.Expression = String.Format("Tipo = 4")
+        '    'feature.Symbol.FillColor = Color.LightGray ' ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.Size = 1
+        '    'dbLayer.Renderer.Add(feature)
+
+        '    'Dim records As AspMap.Recordset = dbLayer.SearchShape(Mapa.Extent, SearchMethod.Inside)
+        '    'Do While Not records.EOF
+        '    '    Dim tooltip As String = "<b>75m2</b><br><b>5 x 5 </b> "
+
+        '    '    ' Mapa.Hotspots.Add(records.RecordExtent.Center, 15, tooltip)
+
+        '    '    records.MoveNext()
+        '    'Loop
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#FF9E78")
-        '    feature.Symbol.Size = 0
-        '    dbLayer.Renderer.Add(feature)
-
-        'End If
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 8
+        '    feature.LabelFont.Size = 7
         '    feature.MinScale = 700
         '    dbLayer.Renderer.Add(feature)
 
@@ -648,222 +770,100 @@ Partial Class Prospectos_Prospectos
         '    feature.MinScale = 200
         '    dbLayer.Renderer.Add(feature)
 
-        '    dbLayer.LabelField = "TEXTSTRING"
-        '    dbLayer.LabelExpression = "REPLACE(TEXTSTRING,""Z"","""")"
-        '    dbLayer.ShowLabels = True
-        '    dbLayer.Symbol.Size = 0
+        '    'dbLayer.LabelField = "CLAVE"
+        '    'dbLayer.LabelExpression = "REPLACE(CLAVE,""Z"","""")"
+        '    'dbLayer.ShowLabels = True
+        '    'dbLayer.Symbol.Size = 0
+
+        '    'If Not Page.IsPostBack Then
+
+        '    '    'If Mapa.Markers.Count > 0 Then
+        '    '    Mapa.ZoomScale(dbLayer.Recordset.RecordExtent.Center, 5500000)
+        '    '    'End If
+        '    'End If
 
         'End If
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 12
-        '    feature.LabelFont.Bold = True
-        '    feature.MinScale = 700
-        '    dbLayer.Renderer.Add(feature)
-
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 14
-        '    feature.LabelFont.Bold = True
-        '    feature.MaxScale = 700
-        '    feature.MinScale = 450
-        '    dbLayer.Renderer.Add(feature)
-
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 20
-        '    feature.LabelFont.Bold = True
-        '    feature.MaxScale = 449
-        '    feature.MinScale = 200
-        '    dbLayer.Renderer.Add(feature)
-
-        '    dbLayer.LabelField = "TEXTSTRING"
-        '    dbLayer.ShowLabels = True
-        '    dbLayer.Symbol.Size = 0
-
-        'End If
-
-        dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
-
-
-        dbLayer.Name = "Stand"
-        If dbLayer IsNot Nothing Then
-
-            'If Not dbLayer.AddRelate("FID_", DTApartados, "IDGis") Then
-
-            'End If
-            'feature = New AspMap.Feature()
-            ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            'feature.Expression = String.Format("CveCliente > 0")
-            'feature.Symbol.FillColor = ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E5E5E5")
-
-            'dbLayer.Renderer.Add(feature)
-
-            If IDSeleccionados.Count > 0 Then
-                For Each s As String In IDSeleccionados
-                    feature = New AspMap.Feature()
-                    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-                    feature.Expression = String.Format("FID_ = {0}", s)
-                    feature.Symbol.FillColor = Color.DarkRed
-                    feature.Symbol.LineColor = Color.Red
-                    dbLayer.Renderer.Add(feature)
-                Next
-
-            End If
-
-            'feature = New AspMap.Feature()
-            ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            'feature.Expression = String.Format("Tipo = 1")
-            'feature.Symbol.FillColor = Color.LightGray 'ColorTranslator.FromHtml("#52A5A5")
-            'feature.Symbol.LineColor = Color.CadetBlue
-            'dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 10")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#1BA39C")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#1BBC9B")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 30")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#C49F47")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#F4D03F")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 300")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#E5E5E5")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#525E64")
-            dbLayer.Renderer.Add(feature)
-
-            'feature = New AspMap.Feature()
-            'feature.Expression = String.Format("Tipo = 4")
-            'feature.Symbol.FillColor = Color.LightGray ' ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.Size = 1
-            'dbLayer.Renderer.Add(feature)
-
-            'Dim records As AspMap.Recordset = dbLayer.SearchShape(Mapa.Extent, SearchMethod.Inside)
-            'Do While Not records.EOF
-            '    Dim tooltip As String = "<b>75m2</b><br><b>5 x 5 </b> "
-
-            '    ' Mapa.Hotspots.Add(records.RecordExtent.Center, 15, tooltip)
-
-            '    records.MoveNext()
-            'Loop
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 7
-            feature.MinScale = 700
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 10
-            feature.MaxScale = 700
-            feature.MinScale = 450
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 14
-            feature.MaxScale = 449
-            feature.MinScale = 200
-            dbLayer.Renderer.Add(feature)
-
-            'dbLayer.LabelField = "CLAVE"
-            'dbLayer.LabelExpression = "REPLACE(CLAVE,""Z"","""")"
-            'dbLayer.ShowLabels = True
-            'dbLayer.Symbol.Size = 0
-
-            'If Not Page.IsPostBack Then
-
-            '    'If Mapa.Markers.Count > 0 Then
-            '    Mapa.ZoomScale(dbLayer.Recordset.RecordExtent.Center, 5500000)
-            '    'End If
-            'End If
-
-        End If
-
 
 
     End Sub
 
-    Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
+    'Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
 
-        Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
-        If records.Layer.Name = "Stand" Then
-            ' CargaInformacion(records("ID").ToString.ToEntero)
-            IDSeleccionados.Clear()
+    '    Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
+    '    If records.Layer.Name = "Stand" Then
+    '        ' CargaInformacion(records("ID").ToString.ToEntero)
+    '        IDSeleccionados.Clear()
 
-            If records("FID_").ToString.toentero > 30 Then
+    '        If records("FID_").ToString.toentero > 30 Then
 
-                IDSeleccionados.Add(records("FID_").ToString)
+    '            IDSeleccionados.Add(records("FID_").ToString)
 
-                HdnIDUbicacion.Value = records("FID_").ToString
+    '            HdnIDUbicacion.Value = records("FID_").ToString
 
-                If CveProspecto > 0 Then BtnCambiaUbicacion.Visible = True
+    '            If CveProspecto > 0 Then BtnCambiaUbicacion.Visible = True
 
-            Else
-                BtnCambiaUbicacion.Visible = False
-                Alert("El lote se encuentra apartado/vendido")
-            End If
-            ' solo los de a zona oro y platino
-            'If records("CveCliente").ToString.ToEntero = 0 And Not IDSeleccionados.Contains(records("ID").ToString) Then
-            '    If records("Tipo").ToString.ToEntero.Contiene(2, 3) Then
+    '        Else
+    '            BtnCambiaUbicacion.Visible = False
+    '            Alert("El lote se encuentra apartado/vendido")
+    '        End If
+    '        ' solo los de a zona oro y platino
+    '        'If records("CveCliente").ToString.ToEntero = 0 And Not IDSeleccionados.Contains(records("ID").ToString) Then
+    '        '    If records("Tipo").ToString.ToEntero.Contiene(2, 3) Then
 
 
 
-            '        IDSeleccionados.Add(records("ID").ToString)
-            '        Dim dr As DataRow = TmpDT.NewRow
-            '        Dim Zona As String = ""
-            '        Dim Stand As String = ""
-            '        Dim CvePS As Integer = 0
+    '        '        IDSeleccionados.Add(records("ID").ToString)
+    '        '        Dim dr As DataRow = TmpDT.NewRow
+    '        '        Dim Zona As String = ""
+    '        '        Dim Stand As String = ""
+    '        '        Dim CvePS As Integer = 0
 
-            '        'Select Case records("Tipo").ToString.ToEntero
-            '        '    Case 1 : Zona = "ZONA COBRE" : CvePS = 38255
-            '        '    Case 2 : Zona = "ZONA ORO" : CvePS = 38253
-            '        '    Case 3 : Zona = "ZONA PLATINO" : CvePS = 38252
-            '        '    Case 4 : Zona = "ZONA PLATA" : CvePS = 38254
-            '        'End Select
+    '        '        'Select Case records("Tipo").ToString.ToEntero
+    '        '        '    Case 1 : Zona = "ZONA COBRE" : CvePS = 38255
+    '        '        '    Case 2 : Zona = "ZONA ORO" : CvePS = 38253
+    '        '        '    Case 3 : Zona = "ZONA PLATINO" : CvePS = 38252
+    '        '        '    Case 4 : Zona = "ZONA PLATA" : CvePS = 38254
+    '        '        'End Select
 
 
-            '        'Dim Rst As Recordset = Mapa("Texto").SearchShape(records.Shape, SearchMethod.Inside)
-            '        'If Not Rst.EOF() Then
-            '        '    Stand = Rst("TEXTSTRING").ToString.Replace("Z", "")
-            '        'End If
+    '        '        'Dim Rst As Recordset = Mapa("Texto").SearchShape(records.Shape, SearchMethod.Inside)
+    '        '        'If Not Rst.EOF() Then
+    '        '        '    Stand = Rst("TEXTSTRING").ToString.Replace("Z", "")
+    '        '        'End If
 
-            '        dr("IDGis") = records("ID").ToString.ToEntero
-            '        dr("Tipo") = records("Tipo").ToString.ToEntero
-            '        dr("Zona") = Zona
-            '        dr("Clave") = records("Clave").ToString.Replace("Z", "")
-            '        dr("CvePS") = CvePS
-            '        TmpDT.Rows.Add(dr)
-            '    End If
+    '        '        dr("IDGis") = records("ID").ToString.ToEntero
+    '        '        dr("Tipo") = records("Tipo").ToString.ToEntero
+    '        '        dr("Zona") = Zona
+    '        '        dr("Clave") = records("Clave").ToString.Replace("Z", "")
+    '        '        dr("CvePS") = CvePS
+    '        '        TmpDT.Rows.Add(dr)
+    '        '    End If
 
-            'Else
-            '    IDSeleccionados.Remove(records("ID").ToString)
-            '    Dim i As Integer = -1
+    '        'Else
+    '        '    IDSeleccionados.Remove(records("ID").ToString)
+    '        '    Dim i As Integer = -1
 
-            '    For Each drr As DataRow In TmpDT.Rows
-            '        i += 1
-            '        If drr("IDGis").ToString = records("ID").ToString Then
-            '            Exit For
-            '        End If
-            '    Next
+    '        '    For Each drr As DataRow In TmpDT.Rows
+    '        '        i += 1
+    '        '        If drr("IDGis").ToString = records("ID").ToString Then
+    '        '            Exit For
+    '        '        End If
+    '        '    Next
 
-            '    TmpDT.Rows.RemoveAt(i)
-            '    TmpDT.AcceptChanges()
-            'End If
-            ''BtnApartar.Visible = TmpDT.Rows.Count > 0
-            'divSel.Visible = TmpDT.Rows.Count > 0
-            'GvSel.DataSource = TmpDT
-            'GvSel.DataBind()
-            CargaMapa()
+    '        '    TmpDT.Rows.RemoveAt(i)
+    '        '    TmpDT.AcceptChanges()
+    '        'End If
+    '        ''BtnApartar.Visible = TmpDT.Rows.Count > 0
+    '        'divSel.Visible = TmpDT.Rows.Count > 0
+    '        'GvSel.DataSource = TmpDT
+    '        'GvSel.DataBind()
+    '        CargaMapa()
 
-            End If
+    '        End If
 
 
-    End Sub
+    'End Sub
 
     Private Sub BtnCambiaUbicacion_Click(sender As Object, e As EventArgs) Handles BtnCambiaUbicacion.Click
 

Prospeccion/RepProspectosGIS.aspx

@@ -1,5 +1,5 @@
 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepProspectosGIS.aspx.vb" Inherits="Prospeccion_RepProspectosGIS" %>
-<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>
+<%--<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>--%>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="H" Runat="Server">
 </asp:Content>
@@ -10,7 +10,7 @@
      <asp:UpdatePanel ID="UPPGIS" runat="server" UpdateMode="Conditional" RenderMode="Inline">
                     <ContentTemplate>
                         <table style="width:1000px" border="0" cellpadding="0" cellspacing="0">
-                            <tr><td style="width:1000px"><cc1:Map ID="Mapa" runat="server" Height="700px" Width="994px" BorderWidth="1px" MapUnit="Meter" oninfotool="Map1_InfoTool" ImageFormat="Png" EnableSession="false" PixelPerInch="100" ImageTempDirectory="/Temp" BackColor="White" FontQuality="ClearType" ImageResolution="100" MapTool="Info" ImagePriority="High" PanCursor="url(/imagenes/hand-drag.cur),default" />
+                            <tr><td style="width:1000px"><%--<cc1:Map ID="Mapa" runat="server" Height="700px" Width="994px" BorderWidth="1px" MapUnit="Meter" oninfotool="Map1_InfoTool" ImageFormat="Png" EnableSession="false" PixelPerInch="100" ImageTempDirectory="/Temp" BackColor="White" FontQuality="ClearType" ImageResolution="100" MapTool="Info" ImagePriority="High" PanCursor="url(/imagenes/hand-drag.cur),default" />--%>
                                 </td>
                                 <td style="vertical-align: top;"> 
                                      <div style="z-index: 1000; border: 1px solid; ">

Prospeccion/RepProspectosGIS.aspx.vb

@@ -1,6 +1,6 @@
 Imports System.Data
 Imports System.Drawing
-Imports AspMap
+'Imports AspMap
 Imports Extensiones
 Imports AspMap.Web
 
@@ -65,8 +65,8 @@ Partial Class Prospeccion_RepProspectosGIS
             IDSeleccionados = New ArrayList
 
             '' set the transparency of the main map image to display other layers over the satellite map
-            Mapa.ImageFormat = ImageFormat.Png
-            Mapa.ImageOpacity = 0.8
+            'Mapa.ImageFormat = ImageFormat.Png
+            'Mapa.ImageOpacity = 0.8
 
             TmpDT = New DataTable
             TmpDT.Columns.Add("IDGis", GetType(Integer))
@@ -156,70 +156,198 @@ Partial Class Prospeccion_RepProspectosGIS
     Private Sub CargaMapa()
 
 
-        Dim dbLayer As AspMap.Layer
-        Dim feature As AspMap.Feature
-        'Dim FillColor, LineColor As Color
-        Mapa.RemoveAllLayers()
+        'Dim dbLayer As AspMap.Layer
+        'Dim feature As AspMap.Feature
+        ''Dim FillColor, LineColor As Color
+        'Mapa.RemoveAllLayers()
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.LightGray
+        ''    feature.Symbol.Size = 12
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DodgerBlue
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+        ''    If Not Page.IsPostBack Then Mapa.Extent = dbLayer.Extent : Mapa.Extent.Inflate(50, 50)
+
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DodgerBlue
+        ''    feature.Symbol.FillColor = Color.LightGray
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.LineColor = Color.DarkGray
+        ''    feature.Symbol.Size = 1
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        ''    feature.Symbol.FillColor = ColorTranslator.FromHtml("#FF9E78")
+        ''    feature.Symbol.Size = 0
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 8
+        ''    feature.MinScale = 700
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 10
+        ''    feature.MaxScale = 700
+        ''    feature.MinScale = 450
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 14
+        ''    feature.MaxScale = 449
+        ''    feature.MinScale = 200
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    dbLayer.LabelField = "TEXTSTRING"
+        ''    dbLayer.LabelExpression = "REPLACE(TEXTSTRING,""Z"","""")"
+        ''    dbLayer.ShowLabels = True
+        ''    dbLayer.Symbol.Size = 0
+
+        ''End If
+
+        ''dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
+        ''If dbLayer IsNot Nothing Then
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 12
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MinScale = 700
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 14
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MaxScale = 700
+        ''    feature.MinScale = 450
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    feature = New AspMap.Feature()
+        ''    feature.LabelFont.Size = 20
+        ''    feature.LabelFont.Bold = True
+        ''    feature.MaxScale = 449
+        ''    feature.MinScale = 200
+        ''    dbLayer.Renderer.Add(feature)
+
+        ''    dbLayer.LabelField = "TEXTSTRING"
+        ''    dbLayer.ShowLabels = True
+        ''    dbLayer.Symbol.Size = 0
+
+        ''End If
+
+        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
+
+
+        'dbLayer.Name = "Stand"
         'If dbLayer IsNot Nothing Then
+
+        '    If Not dbLayer.AddRelate("FID_", DTApartados, "IDGis") Then
+
+        '    End If
+        '    'feature = New AspMap.Feature()
+        '    ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    'feature.Expression = String.Format("CveCliente > 0")
+        '    'feature.Symbol.FillColor = ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E5E5E5")
+
+        '    'dbLayer.Renderer.Add(feature)
+
+        '    'If IDSeleccionados.Count > 0 Then
+        '    '    For Each s As String In IDSeleccionados
+        '    '        feature = New AspMap.Feature()
+        '    '        'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    '        feature.Expression = String.Format("FID_ = {0}", s)
+        '    '        feature.Symbol.FillColor = Color.DarkRed
+        '    '        feature.Symbol.LineColor = Color.Red
+        '    '        dbLayer.Renderer.Add(feature)
+        '    '    Next
+
+        '    'End If
+
+        '    'feature = New AspMap.Feature()
+        '    ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
+        '    'feature.Expression = String.Format("Tipo = 1")
+        '    'feature.Symbol.FillColor = Color.LightGray 'ColorTranslator.FromHtml("#52A5A5")
+        '    'feature.Symbol.LineColor = Color.CadetBlue
+        '    'dbLayer.Renderer.Add(feature)
+
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.LightGray
-        '    feature.Symbol.Size = 12
+        '    feature.Expression = String.Format("FID_ < 10")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#1BA39C")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#1BBC9B")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DodgerBlue
-        '    feature.Symbol.Size = 1
-        '    dbLayer.Renderer.Add(feature)
-        '    If Not Page.IsPostBack Then Mapa.Extent = dbLayer.Extent : Mapa.Extent.Inflate(50, 50)
-
-
-        'End If
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DodgerBlue
-        '    feature.Symbol.FillColor = Color.LightGray
-        '    feature.Symbol.Size = 1
+        '    feature.Expression = String.Format("FID_ < 30")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#C49F47")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#F4D03F")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.LineColor = Color.DarkGray
-        '    feature.Symbol.Size = 1
+        '    feature.Expression = String.Format("FID_ < 40")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#E87E04")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#F7CA18")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
-
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#FF9E78")
-        '    feature.Symbol.Size = 0
+        '    feature.Expression = String.Format("FID_ < 300")
+        '    feature.Symbol.FillColor = ColorTranslator.FromHtml("#E5E5E5")
+        '    feature.Symbol.LineColor = ColorTranslator.FromHtml("#525E64")
         '    dbLayer.Renderer.Add(feature)
 
-        'End If
+        '    'feature = New AspMap.Feature()
+        '    'feature.Expression = String.Format("Tipo = 4")
+        '    'feature.Symbol.FillColor = Color.LightGray ' ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E9EDEF")
+        '    'feature.Symbol.Size = 1
+        '    'dbLayer.Renderer.Add(feature)
+
+        '    'Dim records As AspMap.Recordset = dbLayer.SearchShape(Mapa.Extent, SearchMethod.Inside)
+        '    'Do While Not records.EOF
+        '    '    Dim tooltip As String = "<b>75m2</b><br><b>5 x 5 </b> "
+
+        '    '    ' Mapa.Hotspots.Add(records.RecordExtent.Center, 15, tooltip)
+
+        '    '    records.MoveNext()
+        '    'Loop
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
         '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 8
+        '    feature.LabelFont.Size = 7
         '    feature.MinScale = 700
         '    dbLayer.Renderer.Add(feature)
 
@@ -235,222 +363,94 @@ Partial Class Prospeccion_RepProspectosGIS
         '    feature.MinScale = 200
         '    dbLayer.Renderer.Add(feature)
 
-        '    dbLayer.LabelField = "TEXTSTRING"
-        '    dbLayer.LabelExpression = "REPLACE(TEXTSTRING,""Z"","""")"
-        '    dbLayer.ShowLabels = True
-        '    dbLayer.Symbol.Size = 0
+        '    'dbLayer.LabelField = "CLAVE"
+        '    'dbLayer.LabelExpression = "REPLACE(CLAVE,""Z"","""")"
+        '    'dbLayer.ShowLabels = True
+        '    'dbLayer.Symbol.Size = 0
 
-        'End If
+        '    'If Not Page.IsPostBack Then
 
-        'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
-        'If dbLayer IsNot Nothing Then
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 12
-        '    feature.LabelFont.Bold = True
-        '    feature.MinScale = 700
-        '    dbLayer.Renderer.Add(feature)
-
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 14
-        '    feature.LabelFont.Bold = True
-        '    feature.MaxScale = 700
-        '    feature.MinScale = 450
-        '    dbLayer.Renderer.Add(feature)
-
-        '    feature = New AspMap.Feature()
-        '    feature.LabelFont.Size = 20
-        '    feature.LabelFont.Bold = True
-        '    feature.MaxScale = 449
-        '    feature.MinScale = 200
-        '    dbLayer.Renderer.Add(feature)
-
-        '    dbLayer.LabelField = "TEXTSTRING"
-        '    dbLayer.ShowLabels = True
-        '    dbLayer.Symbol.Size = 0
-
-        'End If
-
-        dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
-
-
-        dbLayer.Name = "Stand"
-        If dbLayer IsNot Nothing Then
-
-            If Not dbLayer.AddRelate("FID_", DTApartados, "IDGis") Then
-
-            End If
-            'feature = New AspMap.Feature()
-            ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            'feature.Expression = String.Format("CveCliente > 0")
-            'feature.Symbol.FillColor = ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E5E5E5")
-
-            'dbLayer.Renderer.Add(feature)
-
-            'If IDSeleccionados.Count > 0 Then
-            '    For Each s As String In IDSeleccionados
-            '        feature = New AspMap.Feature()
-            '        'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            '        feature.Expression = String.Format("FID_ = {0}", s)
-            '        feature.Symbol.FillColor = Color.DarkRed
-            '        feature.Symbol.LineColor = Color.Red
-            '        dbLayer.Renderer.Add(feature)
-            '    Next
-
-            'End If
-
-            'feature = New AspMap.Feature()
-            ''el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
-            'feature.Expression = String.Format("Tipo = 1")
-            'feature.Symbol.FillColor = Color.LightGray 'ColorTranslator.FromHtml("#52A5A5")
-            'feature.Symbol.LineColor = Color.CadetBlue
-            'dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 10")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#1BA39C")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#1BBC9B")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 30")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#C49F47")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#F4D03F")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 40")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#E87E04")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#F7CA18")
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.Expression = String.Format("FID_ < 300")
-            feature.Symbol.FillColor = ColorTranslator.FromHtml("#E5E5E5")
-            feature.Symbol.LineColor = ColorTranslator.FromHtml("#525E64")
-            dbLayer.Renderer.Add(feature)
-
-            'feature = New AspMap.Feature()
-            'feature.Expression = String.Format("Tipo = 4")
-            'feature.Symbol.FillColor = Color.LightGray ' ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.LineColor = ColorTranslator.FromHtml("#E9EDEF")
-            'feature.Symbol.Size = 1
-            'dbLayer.Renderer.Add(feature)
-
-            'Dim records As AspMap.Recordset = dbLayer.SearchShape(Mapa.Extent, SearchMethod.Inside)
-            'Do While Not records.EOF
-            '    Dim tooltip As String = "<b>75m2</b><br><b>5 x 5 </b> "
-
-            '    ' Mapa.Hotspots.Add(records.RecordExtent.Center, 15, tooltip)
-
-            '    records.MoveNext()
-            'Loop
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 7
-            feature.MinScale = 700
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 10
-            feature.MaxScale = 700
-            feature.MinScale = 450
-            dbLayer.Renderer.Add(feature)
-
-            feature = New AspMap.Feature()
-            feature.LabelFont.Size = 14
-            feature.MaxScale = 449
-            feature.MinScale = 200
-            dbLayer.Renderer.Add(feature)
-
-            'dbLayer.LabelField = "CLAVE"
-            'dbLayer.LabelExpression = "REPLACE(CLAVE,""Z"","""")"
-            'dbLayer.ShowLabels = True
-            'dbLayer.Symbol.Size = 0
-
-            'If Not Page.IsPostBack Then
-
-            '    'If Mapa.Markers.Count > 0 Then
-            '    Mapa.ZoomScale(dbLayer.Recordset.RecordExtent.Center, 5500000)
-            '    'End If
-            'End If
-
-        End If
-
-
-
-    End Sub
-
-    Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
-        Response.Redirect("/Prospeccion/RepProspeccion.aspx")
-
-        'Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
-        'If records.Layer.Name = "Stand" Then
-        '    ' CargaInformacion(records("ID").ToString.ToEntero)
-
-        '    ' RegistraScript("AbrirVentana('/Prospeccion/RepProspectosGis.aspx')")
-        '    ' Server.Transfer("/Prospeccion/RepProspectosGis.aspx")
-
-        '    Response.Redirect("/Prospeccion/RepProspectosGis.aspx")
-        '    ' solo los de a zona oro y platino
-        '    'If records("CveCliente").ToString.ToEntero = 0 And Not IDSeleccionados.Contains(records("ID").ToString) Then
-        '    '    If records("Tipo").ToString.ToEntero.Contiene(2, 3) Then
-
-
-
-        '    '        IDSeleccionados.Add(records("ID").ToString)
-        '    '        Dim dr As DataRow = TmpDT.NewRow
-        '    '        Dim Zona As String = ""
-        '    '        Dim Stand As String = ""
-        '    '        Dim CvePS As Integer = 0
-
-
-        '    '        'Select Case records("Tipo").ToString.ToEntero
-        '    '        '    Case 1 : Zona = "ZONA COBRE" : CvePS = 38255
-        '    '        '    Case 2 : Zona = "ZONA ORO" : CvePS = 38253
-        '    '        '    Case 3 : Zona = "ZONA PLATINO" : CvePS = 38252
-        '    '        '    Case 4 : Zona = "ZONA PLATA" : CvePS = 38254
-        '    '        'End Select
-
-
-        '    '        'Dim Rst As Recordset = Mapa("Texto").SearchShape(records.Shape, SearchMethod.Inside)
-        '    '        'If Not Rst.EOF() Then
-        '    '        '    Stand = Rst("TEXTSTRING").ToString.Replace("Z", "")
-        '    '        'End If
-
-        '    '        dr("IDGis") = records("ID").ToString.ToEntero
-        '    '        dr("Tipo") = records("Tipo").ToString.ToEntero
-        '    '        dr("Zona") = Zona
-        '    '        dr("Clave") = records("Clave").ToString.Replace("Z", "")
-        '    '        dr("CvePS") = CvePS
-        '    '        TmpDT.Rows.Add(dr)
-        '    '    End If
-
-        '    'Else
-        '    '    IDSeleccionados.Remove(records("ID").ToString)
-        '    '    Dim i As Integer = -1
-
-        '    '    For Each drr As DataRow In TmpDT.Rows
-        '    '        i += 1
-        '    '        If drr("IDGis").ToString = records("ID").ToString Then
-        '    '            Exit For
-        '    '        End If
-        '    '    Next
-
-        '    '    TmpDT.Rows.RemoveAt(i)
-        '    '    TmpDT.AcceptChanges()
+        '    '    'If Mapa.Markers.Count > 0 Then
+        '    '    Mapa.ZoomScale(dbLayer.Recordset.RecordExtent.Center, 5500000)
+        '    '    'End If
         '    'End If
-        '    'BtnApartar.Visible = TmpDT.Rows.Count > 0
-        '    'divSel.Visible = TmpDT.Rows.Count > 0
-        '    'GvSel.DataSource = TmpDT
-        '    'GvSel.DataBind()
-        '    CargaMapa()
 
         'End If
 
 
+
     End Sub
 
+    'Protected Sub Map1_InfoTool(ByVal sender As Object, ByVal e As InfoToolEventArgs)
+    '    Response.Redirect("/Prospeccion/RepProspeccion.aspx")
+
+    '    'Dim records As AspMap.Recordset = Mapa.Identify(e.InfoPoint, 10)
+    '    'If records.Layer.Name = "Stand" Then
+    '    '    ' CargaInformacion(records("ID").ToString.ToEntero)
+
+    '    '    ' RegistraScript("AbrirVentana('/Prospeccion/RepProspectosGis.aspx')")
+    '    '    ' Server.Transfer("/Prospeccion/RepProspectosGis.aspx")
+
+    '    '    Response.Redirect("/Prospeccion/RepProspectosGis.aspx")
+    '    '    ' solo los de a zona oro y platino
+    '    '    'If records("CveCliente").ToString.ToEntero = 0 And Not IDSeleccionados.Contains(records("ID").ToString) Then
+    '    '    '    If records("Tipo").ToString.ToEntero.Contiene(2, 3) Then
+
+
+
+    '    '    '        IDSeleccionados.Add(records("ID").ToString)
+    '    '    '        Dim dr As DataRow = TmpDT.NewRow
+    '    '    '        Dim Zona As String = ""
+    '    '    '        Dim Stand As String = ""
+    '    '    '        Dim CvePS As Integer = 0
+
+
+    '    '    '        'Select Case records("Tipo").ToString.ToEntero
+    '    '    '        '    Case 1 : Zona = "ZONA COBRE" : CvePS = 38255
+    '    '    '        '    Case 2 : Zona = "ZONA ORO" : CvePS = 38253
+    '    '    '        '    Case 3 : Zona = "ZONA PLATINO" : CvePS = 38252
+    '    '    '        '    Case 4 : Zona = "ZONA PLATA" : CvePS = 38254
+    '    '    '        'End Select
+
+
+    '    '    '        'Dim Rst As Recordset = Mapa("Texto").SearchShape(records.Shape, SearchMethod.Inside)
+    '    '    '        'If Not Rst.EOF() Then
+    '    '    '        '    Stand = Rst("TEXTSTRING").ToString.Replace("Z", "")
+    '    '    '        'End If
+
+    '    '    '        dr("IDGis") = records("ID").ToString.ToEntero
+    '    '    '        dr("Tipo") = records("Tipo").ToString.ToEntero
+    '    '    '        dr("Zona") = Zona
+    '    '    '        dr("Clave") = records("Clave").ToString.Replace("Z", "")
+    '    '    '        dr("CvePS") = CvePS
+    '    '    '        TmpDT.Rows.Add(dr)
+    '    '    '    End If
+
+    '    '    'Else
+    '    '    '    IDSeleccionados.Remove(records("ID").ToString)
+    '    '    '    Dim i As Integer = -1
+
+    '    '    '    For Each drr As DataRow In TmpDT.Rows
+    '    '    '        i += 1
+    '    '    '        If drr("IDGis").ToString = records("ID").ToString Then
+    '    '    '            Exit For
+    '    '    '        End If
+    '    '    '    Next
+
+    '    '    '    TmpDT.Rows.RemoveAt(i)
+    '    '    '    TmpDT.AcceptChanges()
+    '    '    'End If
+    '    '    'BtnApartar.Visible = TmpDT.Rows.Count > 0
+    '    '    'divSel.Visible = TmpDT.Rows.Count > 0
+    '    '    'GvSel.DataSource = TmpDT
+    '    '    'GvSel.DataBind()
+    '    '    CargaMapa()
+
+    '    'End If
+
+
+    'End Sub
+
     'Private Sub CargaInformacion(ByVal pCveID As Integer)
 
     '    RegistraScript("$get('DivAlta').style.display=''; $(""#DivAlta"").center(); ")