...

B4A/B4XMainPage.bas

@@ -47,6 +47,7 @@ Sub Class_Globals
 	'xxxxxxxxxxxxxxxxxxxxxxxxx
 
 	Dim reqManager As DBRequestManager
+	Dim s As C_Subs
 	Dim v As String = Application.VersionName
 	Dim ruta As String
 	Dim tgl As Toggle
@@ -104,6 +105,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	B4XPages.GetManager.LogEvents = True
 	Root = Root1
 	Root.LoadLayout("login")
+	s.Initialize(Me, "Subs")
 	B4XPages.SetTitle(Me, "Mariana Preventa")
 	login.Initialize
 	B4XPages.AddPage("Login", login)
@@ -407,7 +409,7 @@ Sub Entrar_Click
 End Sub
 
 Sub JobDone(Job As HttpJob)
-	Log(Job.Success)
+	Log("JOBDONE MAINPAGE - " & Job.Success)
 	If Job.Success = False Then
 '		ToastMessageShow("Error: " & Job.ErrorMessage, True)
 	Else