- VERSION 5.03.20

- Se agregó que ponga el segmento en cliente al "appear", porque antes etsaba solo en el "create".
- Se puso un try/catch en "Foto" en "SetPictureSize" porque a veces mabdaba error al voltearvel celular.

B4A/DBRequestManager.bas

@@ -20,6 +20,7 @@ Sub Class_Globals
 	Dim inicioRequest As Long 'ignore
 	Dim inicioJobDone As Long 'ignore
 	Dim inicioRequestMap, inicioJobDoneMap As Map
+	Private logger As Boolean = False
 End Sub
 
 'Target - The module that handles JobDone (usually Me).
@@ -327,6 +328,7 @@ Sub requestTimes(tag As String) As Map 'ignore
 '	Log($"${inicioJobDone} - ${inicioRequest}"$)
 	Private requestTime As String = NumberFormat2(((inicioJobDone - inicioRequest) / 1000),1,5,0,False)
 	Private JobDoneTime As String = NumberFormat2(((DateTime.Now - inicioJobDone) / 1000),1,5,0,False)
+	times.Put("request", tag)
 	times.Put("requestTime", requestTime)
 	times.Put("jobDoneTime", JobDoneTime)
 	times.Put("totalTime", NumberFormat2((JobDoneTime + requestTime),1,5,0,False))
@@ -335,7 +337,7 @@ End Sub
 
 'Initializes request tracking
 Sub trackInit 'ignore
-	Log(">>>>>>>>>  TRACKINIT ")
+	If logger Then Log(">>>>>>>>>  TRACKINIT ")
 	reqsList.Initialize
 	timesList.Initialize
 	inicioRequestMap.Initialize
@@ -354,7 +356,7 @@ Sub trackNext(job As HttpJob)
 			End If
 			quitamos = $"Quitamos ${job.tag} - "$
 		End If
-		LogColor(">>>>>> Requests: " & reqsList.Size & " - " & quitamos & reqsList, Colors.Blue)
-		LogColor(">>>>>> inicioRequestMap:" & inicioRequestMap.Size & " - " & inicioRequestMap, Colors.Magenta)
+		If logger Then LogColor(">>>>>> Requests: " & reqsList.Size & " - " & quitamos & reqsList, Colors.Blue)
+		if logger then LogColor(">>>>>> inicioRequestMap:" & inicioRequestMap.Size & " - " & inicioRequestMap, Colors.Magenta)
 	End If
 End Sub