...

B4A/B4XMainPage.bas

@@ -223,6 +223,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		If logger Then LogColor($"//////////////////  IMEI: ${IMEI} ////////////////// "$, Colors.Blue)
 	End If
 	Log("TERMINA PERMISOS Phone")
+	
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	
 	c=Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS FROM TMP_INSPECCION_AUTO_DIARIA")
 	c.Position = 0
 	CUANTOS = c.GetString("CUANTOS")

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)

B4A/C_Principal.bas

@@ -1800,6 +1800,7 @@ Sub JobDone(Job As HttpJob)
 					Dim DIA_VISITA As String = records(RESULT.Columns.Get("DIA_VISITA"))
 					Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("DIA_VISITA"))
 					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("DIA_VISITA",DIA_VISITA))
+					Log(DIA_VISITA)
 					'Msgbox(DIA_VISITA, "") 'ignore
 				Next
 			End If

B4A/KelloggsV3.b4a

@@ -176,7 +176,7 @@ Version=12.5
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 3.09.19 RMI
+	#VersionName: 3.11.02 RMI
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true

B4A/KelloggsV3.b4a.meta

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_TicketsDia,Class_Globals,0,0,C_TicketsDia,B4XPage_Appear,68,2,B4XMainPage,Class_Globals,16,0
+NavigationStack=Diseñador Visual,cliente.bal,-100,4,C_Cliente,b_aceptarrpomo_Click,2918,0,C_Cliente,GPS_LocationChanged,723,6,C_Clientes,Initialize,28,0,C_Clientes,ListView1_ItemClick,89,0,C_Clientes,B4XPage_Appear,70,0,B4XMainPage,B4XPage_Created,169,0,C_Principal,cargar_Click,765,0,C_Principal,JobDone,1811,2,B4XMainPage,B4XPage_Appear,318,0
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,14
+VisibleModules=1,2,3,4,5,6,7,8,9,10,11