Here is what I have so far:
FMain.class
' Gambas class file
Public $hTask As MyTask_FTS
Public Sub Form_Open()
Dim hImageIW As Image
AG.Initialise
hImageIW = Image.Load("Images/start.jpg")
ImageView1.Image = hImageIW.Resize(ImageView1.Width - 20, ImageView1.Height - 20)
ImageView1.Refresh
TaskRun()
Print $hTask.Value
End
Private Sub TaskRun()
' New task object - Object-Name = Object-Event-Name: MyTask_FTS
If $hTask = Null Then $hTask = New MyTask_FTS As "MyTask_FTS"
Repeat
Wait 0.001
Until $hTask <> Null
Application.Priority = 10 ' nice
End ' TaskRun()
MyTask_FTS.class
' Gambas class file
'MyTask_FTS.class
Inherits Task
Public Function Main() As Variant
Dim DBS As New Cls_SQL_DataBase
Dim $Rec As Result
Dim $Query, $QueryUpdate As String
Dim sToday As String = Format(Now(), AV.FormatDBDateNoTime)
Debug sToday
$QueryUpdate = "UPDATE App_variables SET Val='" & sToday & "' WHERE Var='LastCreateFTS'"
Debug $Query
$Query = "SELECT * FROM App_variables WHERE Var='LastCreateFTS'"
$Rec = DB.$Con.Exec($Query)
If Not $Rec.Available Then
Message("No variable defined")
Return False
Endif
If sToday > $Rec!Val Then
Debug "Aktion: Create Virt. Table: --> sToday '" & sToday & "' ist größer als der letzte Eintrag: '" & $Rec!Val & "'"
DBS.Refresh_FTS
$Rec = DB.$Con.Exec($QueryUpdate)
Wait
Else
Debug "No action required sToday '" & sToday & "' ist NICHT größer oder jedoch gleich letzter Eintrag: '" & $Rec!Val & "'"
Endif
Return True
End
Hmm, as I said already above the function Main() in class MyTask_FTS does not start. Does anyone know why?