GPS. Mejores reporte de punto de interes

GPS/PuntosDeInteres.aspx.vb

@@ -39,23 +39,22 @@ Partial Class GPS_PuntosDeInteres
     End Sub
 
     Private Sub CargaDatos()
-        Dim gps As New ClsGPS
-        If gps.PuntoDeInteresGrupoGet(-1, 1) Then
-            GvGrupos.DataSource = gps.DtResultados
-        Else
-            GvGrupos.DataSource = Nothing
+        Dim ObjGPS As New ClsGPS
+        If ObjGPS.PuntoDeInteresGrupoGet(UsuarioActual.CveCliente, 1) Then
+            GvGrupos.DataSource = ObjGPS.DtResultados
         End If
-        If gps.PuntoDeInteresGet(-1, UsuarioActual.CveCliente, 1, -1) Then
-            GvPuntos.DataSource = gps.DtResultados
-            GVPuntosInteres.DataSource = gps.DtResultados
-        Else
-            GvPuntos.DataSource = Nothing
-            GVPuntosInteres.DataSource = Nothing
+
+        If ObjGPS.PuntoDeInteresGet(-1, UsuarioActual.CveCliente, 1, -1) Then
+            GvPuntos.DataSource = ObjGPS.DtResultados
+            GVPuntosInteres.DataSource = ObjGPS.DtResultados
         End If
-        gps.Dispose()
+
+        ObjGPS.Dispose()
+
         GvGrupos.DataBind()
         GvPuntos.DataBind()
         GVPuntosInteres.DataBind()
+
         UpEditar.Update()
     End Sub
 
@@ -65,7 +64,6 @@ Partial Class GPS_PuntosDeInteres
         End If
     End Sub
 
-
     Protected Sub BtnAgregarPunto_Click(sender As Object, e As EventArgs) Handles BtnAgregarPunto.Click
         Dim GPS As New ClsGPS
         GPS.IniciaTransacSQL()
@@ -110,7 +108,7 @@ Partial Class GPS_PuntosDeInteres
                     Alert("Es necesario seleccionar un grupo de puntos", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
-                If GPS.PuntoDeInteresGet(-1, -1, 1, HdnGrupo.Value.ToEntero) AndAlso GPS.DtResultados.Rows.Count > 0 Then
+                If GPS.PuntoDeInteresGet(-1, UsuarioActual.CveCliente, 1, HdnGrupo.Value.ToEntero) AndAlso GPS.DtResultados.Rows.Count > 0 Then
                     Dim ruta As String = ""
                     For Each row As DataRow In GPS.DtResultados.Rows
                         ruta += row("Punto").ToString.Replace("POINT (", "").Replace(")", ",")