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.
28 lines
959 B
28 lines
959 B
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 |