...

B4A/C_Cliente.bas

@@ -464,7 +464,9 @@ Sub B4XPage_Appear
 			l_segmento2.text = c.GetString("CAT_CL_SEGMENTO")
 			If c.GetString("CAT_CL_EMAIL") = "1" Then
 				L_doe.Visible = True
+'				b_whats.Visible = True
 			Else
+'				b_whats.Visible = False
 				L_doe.Visible = False
 			End If
 			'''FIN CLIENTES DOE
@@ -661,7 +663,7 @@ Sub B4XPage_Appear
 
 	gps_boton_doe = "0"
 	muestraBoleta = False
-	b_whats.Visible =False
+'	b_whats.Visible =False
 	If l_total.Text <> Null Then Tels.Visible = False
 End Sub
 
@@ -720,7 +722,12 @@ Sub GPS_LocationChanged (Location1 As Location)
 	distance =    l1.DistanceTo(l2)  ' resultado en metros
 	gest.Visible = True
 	
-	gps_boton_doe ="1"
+	c=Starter.skmt.ExecQuery("select * from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+	c.Position = 0
+	If c.RowCount > 0 Then
+		
+	gps_boton_doe = c.GetString("CAT_CL_EMAIL")
+	End If
 '	LogColor($"Distancia actual: ${distance}"$, Colors.Blue)
 	If distance <= 50 Or usuario = "KMTSKLL1" Then
 '		If pgs_boton_noventa = "1" Then Tels.Visible = True
@@ -738,6 +745,7 @@ Sub GPS_LocationChanged (Location1 As Location)
 		b_whats.Visible = False
 	End If
 	''' fin de la geocerca
+	c.Close
 End Sub
 
 Sub ListView1_ItemLongClick (Position As Int, Value As Object)