Initial commit

edkb12/edkb12 V14/Backup/EDKB12WS/Service1.vb

@@ -0,0 +1,34 @@
+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