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