You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
951 B
35 lines
951 B
Public Class Service1
|
|
#Region "Deklarationen"
|
|
Dim RowId As Integer
|
|
Dim Working As Boolean = False
|
|
|
|
Dim WithEvents CheckTimer As New Timers.Timer()
|
|
|
|
#End Region
|
|
|
|
Protected Overrides Sub OnStart(ByVal args() As String)
|
|
Globals.Param = New Parameters
|
|
CheckTimer.Interval = Globals.Param.TimerInterval
|
|
CheckTimer.Start()
|
|
CheckTimer.Enabled = True
|
|
|
|
End Sub
|
|
|
|
Public Sub CheckTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles CheckTimer.Elapsed
|
|
CheckTimer.Enabled = False
|
|
rowid = ModMain.Check_pendente_Dokumente()
|
|
While RowId > 0
|
|
If RowId > 0 Then
|
|
ModMain.Generate_Dokument(RowId)
|
|
RowId = ModMain.Check_pendente_Dokumente()
|
|
End If
|
|
End While
|
|
CheckTimer.Enabled = True
|
|
End Sub
|
|
|
|
Protected Overrides Sub OnStop()
|
|
CheckTimer.Stop()
|
|
End Sub
|
|
|
|
End Class
|