neu

2019-11-06 16:32:20 +01:00
parent 12f63bb4bc
commit bd77a8a525
20 changed files with 652 additions and 380 deletions
--- a/Aviso/usrCntlSND_Handling.Designer.vb
+++ b/Aviso/usrCntlSND_Handling.Designer.vb
@@ -22,56 +22,75 @@ Partial Class usrCntlSND_Handling
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
        Me.pnlT1 = New System.Windows.Forms.Panel()
-        Me.txtATA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label33 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.clmnArt = New System.Windows.Forms.DataGridViewComboBoxColumn()
+        Me.Nr = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.txtATCMRNFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtATAold = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
        Me.pnlT1.SuspendLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'pnlT1
        '
+        Me.pnlT1.Controls.Add(Me.Label3)
+        Me.pnlT1.Controls.Add(Me.Label2)
+        Me.pnlT1.Controls.Add(Me.MyDatagridview1)
        Me.pnlT1.Controls.Add(Me.txtATCMRNFremd)
        Me.pnlT1.Controls.Add(Me.Label1)
-        Me.pnlT1.Controls.Add(Me.txtATA)
-        Me.pnlT1.Controls.Add(Me.Label33)
+        Me.pnlT1.Controls.Add(Me.txtATAold)
        Me.pnlT1.Location = New System.Drawing.Point(0, 0)
        Me.pnlT1.Name = "pnlT1"
        Me.pnlT1.Size = New System.Drawing.Size(549, 92)
        Me.pnlT1.TabIndex = 67
        '
-        'txtATA
+        'Label2
        '
-        Me.txtATA._DateTimeOnly = False
-        Me.txtATA._numbersOnly = False
-        Me.txtATA._numbersOnlyKommastellen = ""
-        Me.txtATA._Prozent = False
-        Me.txtATA._ShortDateNew = False
-        Me.txtATA._ShortDateOnly = False
-        Me.txtATA._TimeOnly = False
-        Me.txtATA._value = ""
-        Me.txtATA._Waehrung = False
-        Me.txtATA._WaehrungZeichen = True
-        Me.txtATA.ForeColor = System.Drawing.Color.Black
-        Me.txtATA.Location = New System.Drawing.Point(121, 11)
-        Me.txtATA.MaxLength = 500
-        Me.txtATA.MaxLineLength = -1
-        Me.txtATA.MaxLines_Warning = ""
-        Me.txtATA.MaxLines_Warning_Label = Nothing
-        Me.txtATA.Name = "txtATA"
-        Me.txtATA.Size = New System.Drawing.Size(265, 20)
-        Me.txtATA.TabIndex = 32
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(410, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(58, 13)
+        Me.Label2.TabIndex = 36
+        Me.Label2.Text = "0 Handling"
+        Me.Label2.Visible = False
        '
-        'Label33
+        'MyDatagridview1
        '
-        Me.Label33.AutoSize = True
-        Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label33.Location = New System.Drawing.Point(23, 14)
-        Me.Label33.Name = "Label33"
-        Me.Label33.Size = New System.Drawing.Size(48, 13)
-        Me.Label33.TabIndex = 1
-        Me.Label33.Text = "ATA-Nr.:"
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.AllowUserToResizeColumns = False
+        Me.MyDatagridview1.AllowUserToResizeRows = False
+        Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Control
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.Nr})
+        Me.MyDatagridview1.Location = New System.Drawing.Point(397, 25)
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.RowHeadersWidth = 25
+        Me.MyDatagridview1.Size = New System.Drawing.Size(148, 64)
+        Me.MyDatagridview1.TabIndex = 35
+        Me.MyDatagridview1.Visible = False
+        '
+        'clmnArt
+        '
+        Me.clmnArt.DisplayStyle = System.Windows.Forms.DataGridViewComboBoxDisplayStyle.ComboBox
+        Me.clmnArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.clmnArt.HeaderText = "Art"
+        Me.clmnArt.Items.AddRange(New Object() {"ATA", "MRN", "CRN"})
+        Me.clmnArt.Name = "clmnArt"
+        Me.clmnArt.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.clmnArt.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
+        Me.clmnArt.Width = 60
+        '
+        'Nr
+        '
+        Me.Nr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.Nr.HeaderText = "ATA/CRN/MRN"
+        Me.Nr.Name = "Nr"
        '
        'txtATCMRNFremd
        '
@@ -86,25 +105,57 @@ Partial Class usrCntlSND_Handling
        Me.txtATCMRNFremd._Waehrung = False
        Me.txtATCMRNFremd._WaehrungZeichen = True
        Me.txtATCMRNFremd.ForeColor = System.Drawing.Color.Black
-        Me.txtATCMRNFremd.Location = New System.Drawing.Point(121, 37)
+        Me.txtATCMRNFremd.Location = New System.Drawing.Point(146, 47)
        Me.txtATCMRNFremd.MaxLength = 500
        Me.txtATCMRNFremd.MaxLineLength = -1
        Me.txtATCMRNFremd.MaxLines_Warning = ""
        Me.txtATCMRNFremd.MaxLines_Warning_Label = Nothing
        Me.txtATCMRNFremd.Name = "txtATCMRNFremd"
-        Me.txtATCMRNFremd.Size = New System.Drawing.Size(265, 20)
+        Me.txtATCMRNFremd.Size = New System.Drawing.Size(245, 20)
        Me.txtATCMRNFremd.TabIndex = 34
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(23, 40)
+        Me.Label1.Location = New System.Drawing.Point(44, 50)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(96, 13)
        Me.Label1.TabIndex = 33
        Me.Label1.Text = "ATC/MRN (fremd):"
        '
+        'txtATAold
+        '
+        Me.txtATAold._DateTimeOnly = False
+        Me.txtATAold._numbersOnly = False
+        Me.txtATAold._numbersOnlyKommastellen = ""
+        Me.txtATAold._Prozent = False
+        Me.txtATAold._ShortDateNew = False
+        Me.txtATAold._ShortDateOnly = False
+        Me.txtATAold._TimeOnly = False
+        Me.txtATAold._value = ""
+        Me.txtATAold._Waehrung = False
+        Me.txtATAold._WaehrungZeichen = True
+        Me.txtATAold.ForeColor = System.Drawing.Color.Black
+        Me.txtATAold.Location = New System.Drawing.Point(146, 21)
+        Me.txtATAold.MaxLength = 500
+        Me.txtATAold.MaxLineLength = -1
+        Me.txtATAold.MaxLines_Warning = ""
+        Me.txtATAold.MaxLines_Warning_Label = Nothing
+        Me.txtATAold.Name = "txtATAold"
+        Me.txtATAold.Size = New System.Drawing.Size(245, 20)
+        Me.txtATAold.TabIndex = 32
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(44, 24)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(48, 13)
+        Me.Label3.TabIndex = 37
+        Me.Label3.Text = "ATA-Nr.:"
+        '
        'usrCntlSND_Handling
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -114,12 +165,17 @@ Partial Class usrCntlSND_Handling
        Me.Size = New System.Drawing.Size(549, 92)
        Me.pnlT1.ResumeLayout(False)
        Me.pnlT1.PerformLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents pnlT1 As System.Windows.Forms.Panel
-    Friend WithEvents Label33 As System.Windows.Forms.Label
-    Friend WithEvents txtATA As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtATAold As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents txtATCMRNFremd As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label1 As Label
+    Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label2 As Label
+    Friend WithEvents clmnArt As DataGridViewComboBoxColumn
+    Friend WithEvents Nr As DataGridViewTextBoxColumn
+    Friend WithEvents Label3 As Label
 End Class