- VERSION 5.02.05

- Se agregó el envío del ticket en PDF por WhatsApp en la pantalla del cliente.

B4A/Starter.bas

@@ -22,7 +22,7 @@ Sub Process_Globals
 	Dim server As String = "http://187.189.244.154:1782"
 '	Dim server As String = "http://10.0.0.205:1782"
 	Dim Timer1 As Timer
-	Dim Interval As Int = 30
+	Dim Interval As Int = 10
 	Dim ruta As String = File.DirInternal
 	'Para los Logs
 	Private logs As StringBuilder
@@ -145,15 +145,15 @@ End Sub
 
 Sub JobDone(Job As HttpJob)
 	Log("JOBDONE STARTER")
-	If Job.JobName = "DBRequest" Then
-		Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
-		Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
-	End If
-	'Log(Job.Tag)
-	If Job.Success = False Then
+'	Log(Job.Tag)
+	If Job.Success = False Then ' Si hay unerror en el request...
 '		Log("JOBDONE ERROR")
 		LogColor("Error: " & Job.ErrorMessage, Colors.red)
 	Else 'If Job Success then ...
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
+			Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
+		End If
 '		Log("JOBDONE SUCCESS")
 	End If
 End Sub