VERSION 5.10.12

- Se agrego la bitacora.

B4A/Starter.bas

@@ -38,6 +38,7 @@ Sub Process_Globals
 	Dim pre_viejo As Float
 	Private BTAdmin As BluetoothAdmin
 	Public BluetoothState As Boolean
+	Dim enVenta As Boolean = False
 End Sub
 
 Sub Service_Create
@@ -138,4 +139,24 @@ Sub reinicializaReqManager(srv As String)
 	DBReqServer = srv
 	reqManager.Initialize(Me, srv)
 	LogColor(srv, Colors.red)
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	Log("JOBDONE STARTER")
+	If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
+		If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
+			reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
+			LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
+		End If
+		LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
+	End If
+	If Job.Success = False Then
+		Log("ERROR")
+		LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
+'		Job.Release
+	Else 'If Job Success then ...
+		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0))  'Mod por CHV - 211027
+		'Verificamos que el usuario guardado en BD sea VALIDO.
+	End If
+
 End Sub