Update Div. Anpassungen Erneuerung DMS

EDOKA/Dokumentmanagement/frmBarcodeKleber.vb

@@ -42,18 +42,25 @@ Public Class frmBarcodeKleber
     Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents Label3 As System.Windows.Forms.Label
     Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents pnlimport As Panel
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label5 As Label
     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBarcodeKleber))
-        Me.btnOK = New System.Windows.Forms.Button
-        Me.brnAbbruch = New System.Windows.Forms.Button
-        Me.Label1 = New System.Windows.Forms.Label
-        Me.TextBox1 = New System.Windows.Forms.TextBox
-        Me.Button1 = New System.Windows.Forms.Button
-        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
-        Me.Label2 = New System.Windows.Forms.Label
-        Me.Label3 = New System.Windows.Forms.Label
-        Me.Label4 = New System.Windows.Forms.Label
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.brnAbbruch = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.pnlimport = New System.Windows.Forms.Panel()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.pnlimport.SuspendLayout()
         Me.SuspendLayout()
         '
         'btnOK
@@ -126,11 +133,40 @@ Public Class frmBarcodeKleber
         Me.Label4.TabIndex = 7
         Me.Label4.Text = "Dateiname:"
         '
+        'pnlimport
+        '
+        Me.pnlimport.Controls.Add(Me.Button2)
+        Me.pnlimport.Controls.Add(Me.Label5)
+        Me.pnlimport.Location = New System.Drawing.Point(11, 6)
+        Me.pnlimport.Name = "pnlimport"
+        Me.pnlimport.Size = New System.Drawing.Size(305, 129)
+        Me.pnlimport.TabIndex = 8
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.ForeColor = System.Drawing.Color.Red
+        Me.Label5.Location = New System.Drawing.Point(10, 16)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(291, 17)
+        Me.Label5.TabIndex = 0
+        Me.Label5.Text = "Dokumente bitte direk in OnBase importieren"
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(110, 79)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 23)
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "&OK"
+        '
         'frmBarcodeKleber
         '
         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
         Me.ClientSize = New System.Drawing.Size(328, 144)
         Me.ControlBox = False
+        Me.Controls.Add(Me.pnlimport)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label2)
@@ -146,6 +182,8 @@ Public Class frmBarcodeKleber
         Me.Name = "frmBarcodeKleber"
         Me.ShowInTaskbar = False
         Me.Text = "Barcode-Dokument erstellen"
+        Me.pnlimport.ResumeLayout(False)
+        Me.pnlimport.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -206,7 +244,7 @@ Public Class frmBarcodeKleber
             Me.TextBox1.Focus()
             Exit Sub
         End Try
-        Dim bc As New edokadb.clsBarcodeetikette()
+        Dim bc As New edokaDB.clsBarcodeetikette()
         bc.cpMainConnectionProvider = conn
         Try
             bc.iBarcodenr = New SqlInt32(CType(Me.TextBox1.Text, String))
@@ -255,6 +293,7 @@ Public Class frmBarcodeKleber
             Me.Label4.Visible = True
             Me.Button1.Visible = True
             Me.Text = "Dokument-Import"
+            Me.pnlimport.Visible = True
         Else
             Me.Label1.Visible = True
             Me.TextBox1.Visible = True
@@ -263,6 +302,7 @@ Public Class frmBarcodeKleber
             Me.Label4.Visible = False
             Me.Button1.Visible = False
             Me.Text = "Barcode-Dokument erstellen"
+            Me.pnlimport.Visible = False
         End If
     End Sub
 
@@ -285,4 +325,9 @@ Public Class frmBarcodeKleber
             Me.Label2.Text = Globals.Dokument_Importfilename
         End If
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        brnAbbruch_Click(sender, e)
+
+    End Sub
 End Class