Initial commit

EDOKA_Toolset/Plugin_Dokumentwerte/Form1.vb

@@ -0,0 +1,28 @@
+Public Class Form1
+    Dim cdb As New DB
+    Dim dbc As New DB_Connection
+
+    Private Sub btnKopieren_Click(sender As Object, e As EventArgs) Handles btnKopieren.Click
+        Dim s As String = ""
+        s = cdb.Call_DB(1, Globals.Mitarbeiternr, Me.txtSourceDokumentID.Text, Me.txtTargetDokumentID.Text)
+        If s <> "" Then
+            MsgBox(s)
+            Exit Sub
+        End If
+        s = ""
+        s = cdb.Call_DB(2, Globals.Mitarbeiternr, Me.txtSourceDokumentID.Text, Me.txtTargetDokumentID.Text)
+        If s <> "" Then
+            MsgBox(s)
+            Exit Sub
+        End If
+        s = ""
+        s = cdb.Call_DB(3, Globals.Mitarbeiternr, Me.txtSourceDokumentID.Text, Me.txtTargetDokumentID.Text)
+        If s <> "" Then
+            MsgBox(s)
+        End If
+    End Sub
+
+    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+End Class