ATEZ

2023-10-17 11:08:47 +02:00
parent e22d1298cd
commit 13b726a3a0
2 changed files with 142 additions and 98 deletions
--- a/Aviso/frmATEZ_NCTS.Designer.vb
+++ b/Aviso/frmATEZ_NCTS.Designer.vb
@@ -72,7 +72,6 @@ Partial Class frmATEZ_NCTS
        Me.lblBezugsnummer = New System.Windows.Forms.Label()
        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Label10 = New System.Windows.Forms.Label()
        Me.lblAnh = New System.Windows.Forms.Label()
        Me.pnlHead.SuspendLayout()
        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -86,7 +85,7 @@ Partial Class frmATEZ_NCTS
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.Button1.Location = New System.Drawing.Point(154, 772)
+        Me.Button1.Location = New System.Drawing.Point(222, 772)
        Me.Button1.Margin = New System.Windows.Forms.Padding(2)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(159, 42)
@@ -144,7 +143,7 @@ Partial Class frmATEZ_NCTS
        Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
        Me.pnlHead.Location = New System.Drawing.Point(3, 2)
        Me.pnlHead.Name = "pnlHead"
-        Me.pnlHead.Size = New System.Drawing.Size(478, 601)
+        Me.pnlHead.Size = New System.Drawing.Size(584, 601)
        Me.pnlHead.TabIndex = 112
        '
        'Label2
@@ -193,7 +192,7 @@ Partial Class frmATEZ_NCTS
        '
        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(283, 76)
+        Me.Label8.Location = New System.Drawing.Point(389, 76)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(57, 13)
        Me.Label8.TabIndex = 146
@@ -209,7 +208,7 @@ Partial Class frmATEZ_NCTS
        Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cboStammreferenz.FormattingEnabled = True
-        Me.cboStammreferenz.Location = New System.Drawing.Point(341, 73)
+        Me.cboStammreferenz.Location = New System.Drawing.Point(445, 73)
        Me.cboStammreferenz.Name = "cboStammreferenz"
        Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
        Me.cboStammreferenz.TabIndex = 145
@@ -242,9 +241,9 @@ Partial Class frmATEZ_NCTS
        Me.usrCntl_Carrier._Titel = "Frächter:"
        Me.usrCntl_Carrier.BackColor = System.Drawing.Color.White
        Me.usrCntl_Carrier.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.usrCntl_Carrier.Location = New System.Drawing.Point(13, 229)
+        Me.usrCntl_Carrier.Location = New System.Drawing.Point(13, 227)
        Me.usrCntl_Carrier.Name = "usrCntl_Carrier"
-        Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132)
+        Me.usrCntl_Carrier.Size = New System.Drawing.Size(561, 132)
        Me.usrCntl_Carrier.TabIndex = 143
        '
        'txtDat
@@ -288,9 +287,9 @@ Partial Class frmATEZ_NCTS
        '
        Me.Label7.Location = New System.Drawing.Point(10, 148)
        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(103, 17)
+        Me.Label7.Size = New System.Drawing.Size(134, 17)
        Me.Label7.TabIndex = 140
-        Me.Label7.Text = "Datumgrenze:"
+        Me.Label7.Text = "Wiedergestellungs-Datum:"
        '
        'lblC
        '
@@ -350,10 +349,10 @@ Partial Class frmATEZ_NCTS
        Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
        Me.sbDurchgangszollstelle5.key_visible = False
        Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(166, 429)
+        Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(207, 427)
        Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
        Me.sbDurchgangszollstelle5.searchActive = True
-        Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(171, 20)
        Me.sbDurchgangszollstelle5.SQL_ORDER_BY = Nothing
        Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing
        Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing
@@ -375,10 +374,10 @@ Partial Class frmATEZ_NCTS
        Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing
        Me.sbDurchgangszollstelle9.key_visible = False
        Me.sbDurchgangszollstelle9.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(319, 448)
+        Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(376, 446)
        Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9"
        Me.sbDurchgangszollstelle9.searchActive = True
-        Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(198, 20)
        Me.sbDurchgangszollstelle9.SQL_ORDER_BY = Nothing
        Me.sbDurchgangszollstelle9.SQL_SELECT = Nothing
        Me.sbDurchgangszollstelle9.SQL_WHERE = Nothing
@@ -400,10 +399,10 @@ Partial Class frmATEZ_NCTS
        Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing
        Me.sbDurchgangszollstelle8.key_visible = False
        Me.sbDurchgangszollstelle8.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(166, 448)
+        Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(207, 446)
        Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8"
        Me.sbDurchgangszollstelle8.searchActive = True
-        Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(171, 20)
        Me.sbDurchgangszollstelle8.SQL_ORDER_BY = Nothing
        Me.sbDurchgangszollstelle8.SQL_SELECT = Nothing
        Me.sbDurchgangszollstelle8.SQL_WHERE = Nothing
@@ -425,10 +424,10 @@ Partial Class frmATEZ_NCTS
        Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing
        Me.sbDurchgangszollstelle7.key_visible = False
        Me.sbDurchgangszollstelle7.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 448)
+        Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 446)
        Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7"
        Me.sbDurchgangszollstelle7.searchActive = True
-        Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(197, 20)
        Me.sbDurchgangszollstelle7.SQL_ORDER_BY = Nothing
        Me.sbDurchgangszollstelle7.SQL_SELECT = Nothing
        Me.sbDurchgangszollstelle7.SQL_WHERE = Nothing
@@ -450,10 +449,10 @@ Partial Class frmATEZ_NCTS
        Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
        Me.sbDurchgangszollstelle6.key_visible = False
        Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(319, 429)
+        Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(376, 427)
        Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
        Me.sbDurchgangszollstelle6.searchActive = True
-        Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(198, 20)
        Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing
        Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
        Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
@@ -475,10 +474,10 @@ Partial Class frmATEZ_NCTS
        Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing
        Me.sbDurchgangszollstelle4.key_visible = False
        Me.sbDurchgangszollstelle4.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 429)
+        Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 427)
        Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4"
        Me.sbDurchgangszollstelle4.searchActive = True
-        Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(197, 20)
        Me.sbDurchgangszollstelle4.SQL_ORDER_BY = Nothing
        Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing
        Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing
@@ -500,10 +499,10 @@ Partial Class frmATEZ_NCTS
        Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing
        Me.sbDurchgangszollstelle3.key_visible = False
        Me.sbDurchgangszollstelle3.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(319, 410)
+        Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(376, 408)
        Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3"
        Me.sbDurchgangszollstelle3.searchActive = True
-        Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(198, 20)
        Me.sbDurchgangszollstelle3.SQL_ORDER_BY = Nothing
        Me.sbDurchgangszollstelle3.SQL_SELECT = Nothing
        Me.sbDurchgangszollstelle3.SQL_WHERE = Nothing
@@ -525,10 +524,10 @@ Partial Class frmATEZ_NCTS
        Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing
        Me.sbDurchgangszollstelle2.key_visible = False
        Me.sbDurchgangszollstelle2.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(166, 410)
+        Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(207, 408)
        Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2"
        Me.sbDurchgangszollstelle2.searchActive = True
-        Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(171, 20)
        Me.sbDurchgangszollstelle2.SQL_ORDER_BY = Nothing
        Me.sbDurchgangszollstelle2.SQL_SELECT = Nothing
        Me.sbDurchgangszollstelle2.SQL_WHERE = Nothing
@@ -550,10 +549,10 @@ Partial Class frmATEZ_NCTS
        Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing
        Me.sbDurchgangszollstelle1.key_visible = False
        Me.sbDurchgangszollstelle1.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 410)
+        Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 408)
        Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1"
        Me.sbDurchgangszollstelle1.searchActive = True
-        Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(154, 20)
+        Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(197, 20)
        Me.sbDurchgangszollstelle1.SQL_ORDER_BY = Nothing
        Me.sbDurchgangszollstelle1.SQL_SELECT = Nothing
        Me.sbDurchgangszollstelle1.SQL_WHERE = Nothing
@@ -563,7 +562,7 @@ Partial Class frmATEZ_NCTS
        '
        'Label5
        '
-        Me.Label5.Location = New System.Drawing.Point(10, 394)
+        Me.Label5.Location = New System.Drawing.Point(10, 392)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(135, 13)
        Me.Label5.TabIndex = 127
@@ -573,7 +572,7 @@ Partial Class frmATEZ_NCTS
        '
        Me.lklRoutenauswahl.AutoSize = True
        Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.lklRoutenauswahl.Location = New System.Drawing.Point(392, 489)
+        Me.lklRoutenauswahl.Location = New System.Drawing.Point(493, 487)
        Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
        Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
        Me.lklRoutenauswahl.TabIndex = 117
@@ -594,10 +593,10 @@ Partial Class frmATEZ_NCTS
        Me.sbRoute5.INVISIBLE_COLUMNS = Nothing
        Me.sbRoute5.key_visible = False
        Me.sbRoute5.KEYPARAM = Nothing
-        Me.sbRoute5.Location = New System.Drawing.Point(166, 524)
+        Me.sbRoute5.Location = New System.Drawing.Point(205, 522)
        Me.sbRoute5.Name = "sbRoute5"
        Me.sbRoute5.searchActive = True
-        Me.sbRoute5.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute5.Size = New System.Drawing.Size(183, 20)
        Me.sbRoute5.SQL_ORDER_BY = Nothing
        Me.sbRoute5.SQL_SELECT = Nothing
        Me.sbRoute5.SQL_WHERE = Nothing
@@ -619,10 +618,10 @@ Partial Class frmATEZ_NCTS
        Me.sbRoute9.INVISIBLE_COLUMNS = Nothing
        Me.sbRoute9.key_visible = False
        Me.sbRoute9.KEYPARAM = Nothing
-        Me.sbRoute9.Location = New System.Drawing.Point(319, 543)
+        Me.sbRoute9.Location = New System.Drawing.Point(387, 541)
        Me.sbRoute9.Name = "sbRoute9"
        Me.sbRoute9.searchActive = True
-        Me.sbRoute9.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute9.Size = New System.Drawing.Size(187, 20)
        Me.sbRoute9.SQL_ORDER_BY = Nothing
        Me.sbRoute9.SQL_SELECT = Nothing
        Me.sbRoute9.SQL_WHERE = Nothing
@@ -644,10 +643,10 @@ Partial Class frmATEZ_NCTS
        Me.sbRoute8.INVISIBLE_COLUMNS = Nothing
        Me.sbRoute8.key_visible = False
        Me.sbRoute8.KEYPARAM = Nothing
-        Me.sbRoute8.Location = New System.Drawing.Point(166, 543)
+        Me.sbRoute8.Location = New System.Drawing.Point(205, 541)
        Me.sbRoute8.Name = "sbRoute8"
        Me.sbRoute8.searchActive = True
-        Me.sbRoute8.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute8.Size = New System.Drawing.Size(183, 20)
        Me.sbRoute8.SQL_ORDER_BY = Nothing
        Me.sbRoute8.SQL_SELECT = Nothing
        Me.sbRoute8.SQL_WHERE = Nothing
@@ -669,10 +668,10 @@ Partial Class frmATEZ_NCTS
        Me.sbRoute7.INVISIBLE_COLUMNS = Nothing
        Me.sbRoute7.key_visible = False
        Me.sbRoute7.KEYPARAM = Nothing
-        Me.sbRoute7.Location = New System.Drawing.Point(13, 543)
+        Me.sbRoute7.Location = New System.Drawing.Point(13, 541)
        Me.sbRoute7.Name = "sbRoute7"
        Me.sbRoute7.searchActive = True
-        Me.sbRoute7.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute7.Size = New System.Drawing.Size(195, 20)
        Me.sbRoute7.SQL_ORDER_BY = Nothing
        Me.sbRoute7.SQL_SELECT = Nothing
        Me.sbRoute7.SQL_WHERE = Nothing
@@ -694,10 +693,10 @@ Partial Class frmATEZ_NCTS
        Me.sbRoute6.INVISIBLE_COLUMNS = Nothing
        Me.sbRoute6.key_visible = False
        Me.sbRoute6.KEYPARAM = Nothing
-        Me.sbRoute6.Location = New System.Drawing.Point(319, 524)
+        Me.sbRoute6.Location = New System.Drawing.Point(387, 522)
        Me.sbRoute6.Name = "sbRoute6"
        Me.sbRoute6.searchActive = True
-        Me.sbRoute6.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute6.Size = New System.Drawing.Size(187, 20)
        Me.sbRoute6.SQL_ORDER_BY = Nothing
        Me.sbRoute6.SQL_SELECT = Nothing
        Me.sbRoute6.SQL_WHERE = Nothing
@@ -719,10 +718,10 @@ Partial Class frmATEZ_NCTS
        Me.sbRoute4.INVISIBLE_COLUMNS = Nothing
        Me.sbRoute4.key_visible = False
        Me.sbRoute4.KEYPARAM = Nothing
-        Me.sbRoute4.Location = New System.Drawing.Point(13, 524)
+        Me.sbRoute4.Location = New System.Drawing.Point(13, 522)
        Me.sbRoute4.Name = "sbRoute4"
        Me.sbRoute4.searchActive = True
-        Me.sbRoute4.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute4.Size = New System.Drawing.Size(195, 20)
        Me.sbRoute4.SQL_ORDER_BY = Nothing
        Me.sbRoute4.SQL_SELECT = Nothing
        Me.sbRoute4.SQL_WHERE = Nothing
@@ -744,10 +743,10 @@ Partial Class frmATEZ_NCTS
        Me.sbRoute3.INVISIBLE_COLUMNS = Nothing
        Me.sbRoute3.key_visible = False
        Me.sbRoute3.KEYPARAM = Nothing
-        Me.sbRoute3.Location = New System.Drawing.Point(319, 505)
+        Me.sbRoute3.Location = New System.Drawing.Point(387, 503)
        Me.sbRoute3.Name = "sbRoute3"
        Me.sbRoute3.searchActive = True
-        Me.sbRoute3.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute3.Size = New System.Drawing.Size(187, 20)
        Me.sbRoute3.SQL_ORDER_BY = Nothing
        Me.sbRoute3.SQL_SELECT = Nothing
        Me.sbRoute3.SQL_WHERE = Nothing
@@ -769,10 +768,10 @@ Partial Class frmATEZ_NCTS
        Me.sbRoute2.INVISIBLE_COLUMNS = Nothing
        Me.sbRoute2.key_visible = False
        Me.sbRoute2.KEYPARAM = Nothing
-        Me.sbRoute2.Location = New System.Drawing.Point(166, 505)
+        Me.sbRoute2.Location = New System.Drawing.Point(205, 503)
        Me.sbRoute2.Name = "sbRoute2"
        Me.sbRoute2.searchActive = True
-        Me.sbRoute2.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute2.Size = New System.Drawing.Size(183, 20)
        Me.sbRoute2.SQL_ORDER_BY = Nothing
        Me.sbRoute2.SQL_SELECT = Nothing
        Me.sbRoute2.SQL_WHERE = Nothing
@@ -794,10 +793,10 @@ Partial Class frmATEZ_NCTS
        Me.sbRoute1.INVISIBLE_COLUMNS = Nothing
        Me.sbRoute1.key_visible = False
        Me.sbRoute1.KEYPARAM = Nothing
-        Me.sbRoute1.Location = New System.Drawing.Point(13, 505)
+        Me.sbRoute1.Location = New System.Drawing.Point(13, 503)
        Me.sbRoute1.Name = "sbRoute1"
        Me.sbRoute1.searchActive = True
-        Me.sbRoute1.Size = New System.Drawing.Size(154, 20)
+        Me.sbRoute1.Size = New System.Drawing.Size(195, 20)
        Me.sbRoute1.SQL_ORDER_BY = Nothing
        Me.sbRoute1.SQL_SELECT = Nothing
        Me.sbRoute1.SQL_WHERE = Nothing
@@ -807,7 +806,7 @@ Partial Class frmATEZ_NCTS
        '
        'Label14
        '
-        Me.Label14.Location = New System.Drawing.Point(10, 489)
+        Me.Label14.Location = New System.Drawing.Point(10, 487)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(135, 13)
        Me.Label14.TabIndex = 116
@@ -902,7 +901,7 @@ Partial Class frmATEZ_NCTS
        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label1.AutoSize = True
        Me.Label1.BackColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(190, 2)
+        Me.Label1.Location = New System.Drawing.Point(296, 2)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(82, 13)
        Me.Label1.TabIndex = 106
@@ -922,7 +921,7 @@ Partial Class frmATEZ_NCTS
        Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
        Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBezugsnummer.Location = New System.Drawing.Point(278, 2)
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(384, 2)
        Me.lblBezugsnummer.Name = "lblBezugsnummer"
        Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
        Me.lblBezugsnummer.TabIndex = 107
@@ -942,7 +941,7 @@ Partial Class frmATEZ_NCTS
        Me.dgvAnhaenge.Location = New System.Drawing.Point(3, 609)
        Me.dgvAnhaenge.Name = "dgvAnhaenge"
        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvAnhaenge.Size = New System.Drawing.Size(478, 158)
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(584, 158)
        Me.dgvAnhaenge.TabIndex = 112
        '
        'columnName
@@ -952,33 +951,21 @@ Partial Class frmATEZ_NCTS
        Me.columnName.Name = "columnName"
        Me.columnName.ReadOnly = True
        '
-        'Label10
-        '
-        Me.Label10.BackColor = System.Drawing.Color.Transparent
-        Me.Label10.Location = New System.Drawing.Point(340, 772)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(84, 14)
-        Me.Label10.TabIndex = 115
-        Me.Label10.Text = "mark. Anhänge"
-        Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        '
        'lblAnh
        '
-        Me.lblAnh.BackColor = System.Drawing.Color.Transparent
-        Me.lblAnh.Location = New System.Drawing.Point(438, 772)
+        Me.lblAnh.Location = New System.Drawing.Point(442, 772)
        Me.lblAnh.Name = "lblAnh"
-        Me.lblAnh.Size = New System.Drawing.Size(38, 20)
-        Me.lblAnh.TabIndex = 116
-        Me.lblAnh.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblAnh.Size = New System.Drawing.Size(135, 13)
+        Me.lblAnh.TabIndex = 151
+        Me.lblAnh.Visible = False
        '
        'frmATEZ_NCTS
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.ClientSize = New System.Drawing.Size(484, 819)
+        Me.ClientSize = New System.Drawing.Size(589, 819)
        Me.Controls.Add(Me.lblAnh)
-        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.pnlHead)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.dgvAnhaenge)
@@ -1040,6 +1027,5 @@ Partial Class frmATEZ_NCTS
    Friend WithEvents lblBezugsnummer As Label
    Friend WithEvents Label2 As Label
    Friend WithEvents cboProzedur As VERAG_PROG_ALLGEMEIN.MyComboBox
-    Friend WithEvents Label10 As Label
    Friend WithEvents lblAnh As Label
 End Class
--- a/Aviso/frmATEZ_NCTS.vb
+++ b/Aviso/frmATEZ_NCTS.vb
@@ -96,10 +96,10 @@ Public Class frmATEZ_NCTS
                Exit Sub
            End If

-
-            If Not checkAttachment() Then
-                Exit Sub
-            End If
+            'auskommentiert, weil Sendungen ohne ANhang auch geschickt werden sollen: M.Akceylan
+            'If Not checkAttachment() Then
+            '    Exit Sub
+            'End If


            If Not checkMandatoryField() Then
@@ -445,8 +445,28 @@ Public Class frmATEZ_NCTS
                                                when [anh_Art] = 'Sonstiges' then 'OTHER'
                                                when [anh_Art] ='' then 'OTHER' End
                                                [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
-                                        WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <= 0 And anh_Typ = 'PDF'
-                                        Order BY  [anh_Reihenfolge], anh_Datum desc, [anh_id]"
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=733587) And anh_Typ = 'PDF'
+                                           ORDER BY  anh_SendungsId desc,
+										  case	  
+                                                when [anh_Art] = 'ATR-EUR1' then 0
+                                                when [anh_Art] = 'Rechnung' then 1
+                                                when [anh_Art] = 'eFatura' then 1.1
+                                                when [anh_Art] = 'CMR' then 2
+                                                when [anh_Art] = 'Ausfuhr' then 3
+                                                when [anh_Art] = 'Vorpapier' then 4
+                                                when [anh_Art] = 'Packliste' then 5
+                                                when [anh_Art] = 'Auftrag' then 6
+                                                when [anh_Art] = 'Auftrag' then 7
+                                                when [anh_Art] = 'Dispoliste' then 8
+                                                when [anh_Art] = 'Vorkasse' then 9
+                                                when [anh_Art] = 'Überweisungsbeleg' then 10
+                                                when [anh_Art] = 'Vollmacht' then 11
+                                                when [anh_Art] = 'ATB' then 12
+                                                when [anh_Art] = 'ATA' then 13
+                                                when [anh_Art] = 'Sonstiges' then 99
+                                                when [anh_Art] ='' then 15
+
+										END, [anh_Reihenfolge],[anh_id]"

        Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)

@@ -455,7 +475,6 @@ Public Class frmATEZ_NCTS
        col.SetOrdinal(0)
        dgvAnhaenge.Columns.Clear()
        dgvAnhaenge.DataSource = dt
-
        If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub

        With dgvAnhaenge
@@ -468,30 +487,35 @@ Public Class frmATEZ_NCTS
            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
            .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen

-            .Columns("anh_selekt").MinimumWidth = 10
-            .Columns("anh_selekt").HeaderText = "ausgewählt"
+            .Columns("anh_selekt").Width = 25
+            .Columns("anh_selekt").HeaderText = ""
            .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

            .Columns("anh_Datum").MinimumWidth = 50
            .Columns("anh_Datum").HeaderText = "Datum"
            .Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Datum").ReadOnly = True


            .Columns("anh_Name").MinimumWidth = 150
            .Columns("anh_Name").HeaderText = "Name"
            .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("anh_Name").ReadOnly = True

            .Columns("anh_Art").MinimumWidth = 50
            .Columns("anh_Art").HeaderText = "Art"
            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Art").ReadOnly = True

-            .Columns("anh_Typ").Width = 60
+            .Columns("anh_Typ").Width = 50
            .Columns("anh_Typ").HeaderText = "Typ"
            .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Typ").ReadOnly = True

-            .Columns("anh_size").Width = 60
+            .Columns("anh_size").Width = 50
            .Columns("anh_size").HeaderText = "Größe in MB"
            .Columns("anh_size").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_size").ReadOnly = True

        End With

@@ -591,12 +615,12 @@ Public Class frmATEZ_NCTS
            If selectedDocuments Then Exit For
        Next

-        'auskommentiert, weil Sendungen ohne ANhang auch geschickt werden sollen: M.Akceylan
-        'If Not selectedDocuments Then
-        '    lblInfo.Text = "kein Anhang selektiert"
-        '    Cursor = Cursors.Default
-        '    Return selectedDocuments
-        'End If
+
+        If Not selectedDocuments Then
+            lblInfo.Text = "kein Anhang selektiert"
+            Cursor = Cursors.Default
+            Return selectedDocuments
+        End If

        Return selectedDocuments

@@ -688,21 +712,55 @@ Public Class frmATEZ_NCTS
        If sbRoute9._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute9._value)
    End Sub

+    Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick
+        Try
+
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhaenge.SelectedRows(0).Cells("anh_docId").Value)
+                If Not IO.File.Exists(docPath) Then
+                    MsgBox("Die Datei existiert nicht!")
+                Else
+                    If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler  (bereits von Benutzer soUndSo geöffnet)
+                        Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
+                        System.IO.File.Copy(docPath, docPathTMP)
+                        Process.Start(docPathTMP)
+                    Else
+                        Process.Start(docPath)
+                    End If
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub


-    Private Sub dgvAnhaenge_CurrentCellChanged(sender As Object, e As EventArgs) Handles dgvAnhaenge.CurrentCellDirtyStateChanged
+
+    Private Sub dgvAnhaenge_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick
+
        Dim countAnh As Double = 0
+        If dgvAnhaenge.RowCount > 0 Then

+            If dgvAnhaenge.Columns(e.ColumnIndex).Name = "anh_selekt" Then

-        If dgvAnhaenge.CurrentRow.Cells("anh_size").Value > 0 Then countAnh += dgvAnhaenge.CurrentRow.Cells("anh_size").Value
+                If Not IsDBNull(dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value) AndAlso dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value = True Then
+                    countAnh += dgvAnhaenge.CurrentRow.Cells("anh_size").Value
+                End If

                For Each Row As DataGridViewRow In dgvAnhaenge.Rows
                    If Row.Cells("anh_selekt").Value IsNot DBNull.Value AndAlso Row.Cells("anh_selekt").Value = True AndAlso Row.Cells("anh_size").Value IsNot DBNull.Value Then
                        countAnh += Row.Cells("anh_size").Value
                    End If
-
                Next

-        lblAnh.Text = countAnh.ToString
+                lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+
+            End If
+
+        End If
+
+
+
    End Sub
 End Class