Sub Process_Globals
Private n As Notification
Public ServiceDatum2 As Long
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
StartServiceAt(Me, DateTime.Now + 10 * DateTime.TicksPerSecond, True)
ServiceDatum2 = Main.ServiceDatum
If ServiceDatum2 <= DateTime.Now Then
n.Initialize
n.Icon = "icon"
n.SetInfo("Notizen","Notiz zu erledigen",Main)
n.AutoCancel = True
n.Notify(1)
n.Light = True
Else
End If
End Sub