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