Initial commit

EDOKA_Toolset/Plugin_ScanToEDOKA/Class1.vb

@@ -0,0 +1,23 @@
+Imports PluginContracts
+Public Class Class1
+    Implements PluginContracts.IPlugin
+
+    Public ReadOnly Property Name() As String Implements IPlugin.Name
+        Get
+            Return "ScanKorrektur"
+        End Get
+    End Property
+
+    Public Function Show(CurrentUser As String, Connectionstring As String, Parentform As Object) As Object Implements IPlugin.Show
+        Globals.Mitarbeiternr = CurrentUser
+        Dim f As New frmScanKorrektur
+        Try
+            f.MdiParent = Parentform
+        Catch
+        End Try
+
+        f.Show()
+
+    End Function
+
+End Class