Intmex multiventa

B4A/test.bas

@@ -0,0 +1,66 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Service
+Version=11.5
+@EndOfDesignText@
+#Region  Service Attributes 
+	#StartAtBoot: False
+	
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+	Dim timer As Timer
+'	Dim reqManager As DBRequestManager
+End Sub
+
+Sub Service_Create
+
+End Sub
+
+Sub Service_Start (StartingIntent As Intent)
+	Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
+	timer.Initialize("Timer", 5000)
+	timer.Enabled = True
+	Starter.reqManager.Initialize(Me, Starter.server)
+End Sub
+
+Private Sub Timer_Tick
+'	ToastMessageShow("Timer",False)
+'	Log("Next run " & DateTime.Time(DateTime.Now + Interval * 1000))
+	testJobdone
+End Sub
+
+Sub testJobdone
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "select_fechat"
+	Starter.reqManager.ExecuteQuery(cmd , 0, "fechat")
+	Log("sent......")
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	If Job.Success = False Then
+'		ToastMessageShow("Error: " & Job.ErrorMessage, True)
+		Log("Success NOT")
+	Else
+		LogColor("JobDone: '" & Starter.reqManager.HandleJob(Job).tag & "' - Registros: " & Starter.reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211110
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = Starter.reqManager.HandleJob(Job)
+			If result.Tag = "select_fechat" Then 'query tag
+				For Each records() As Object In result.Rows
+					For Each k As String In result.Columns.Keys
+						Log("select_fechat: " & k & ": " & records(result.Columns.Get(k)))
+					Next
+				Next
+			End If
+		End If
+	End If
+	Job.Release
+End Sub
+
+Sub Service_Destroy
+
+End Sub