26/12/23 - Cambios para contablilizar tiempos al cargar dia

seleccion.bas

@@ -168,6 +168,7 @@ Sub Globals
 	Dim ime As IME
 	Private l_monto_kc As Label
 	Private l_version As Label
+	Dim inicioContador As Double
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
@@ -932,7 +933,11 @@ Sub cargar_Click
 	c.Position = 0
 	usuario = c.GetString("USUARIO")
 	
-	reqManager.reqsList.Initialize 'inicializamos lista de requests.
+	DateTime.TimeFormat = "HHmmss"
+	inicioContador = DateTime.Now
+	reqManager.trackInit
+	
+'	reqManager.reqsList.Initialize 'inicializamos lista de requests.
 	
 	Dim cmd As DBCommand
 	cmd.Initialize
@@ -1978,6 +1983,12 @@ Sub JobDone(Job As HttpJob)
 		End If
 		Job.Release
 	End If
+	
+	Log($"tiempo Request "${Job.Tag}": ${((reqManager.inicioJobDone - reqManager.inicioRequest)/1000)}"$)
+	Log($"tiempo JobDone "${Job.Tag}": ${((DateTime.Now - reqManager.inicioJobDone)/1000)}"$)
+	Log($"tiempo Total "${Job.Tag}": ${((DateTime.Now - inicioContador)/1000)}"$)
+	
+	Log(reqManager.requestTimes(Job.Tag))
 End Sub
 
 Sub Activity_KeyPress (key As Int) As Boolean