From 13b726a3a0739cc34070af6479b891118a186de3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 17 Oct 2023 11:08:47 +0200 Subject: [PATCH] ATEZ --- Aviso/frmATEZ_NCTS.Designer.vb | 124 +++++++++++++++------------------ Aviso/frmATEZ_NCTS.vb | 116 ++++++++++++++++++++++-------- 2 files changed, 142 insertions(+), 98 deletions(-) diff --git a/Aviso/frmATEZ_NCTS.Designer.vb b/Aviso/frmATEZ_NCTS.Designer.vb index 6f30873..43a04ba 100644 --- 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 diff --git a/Aviso/frmATEZ_NCTS.vb b/Aviso/frmATEZ_NCTS.vb index f1ee106..7bd7741 100644 --- 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 - - Private Sub dgvAnhaenge_CurrentCellChanged(sender As Object, e As EventArgs) Handles dgvAnhaenge.CurrentCellDirtyStateChanged - Dim countAnh As Double = 0 - - - If dgvAnhaenge.CurrentRow.Cells("anh_size").Value > 0 Then countAnh += dgvAnhaenge.CurrentRow.Cells("anh_size").Value - - 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 + 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 - Next + 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_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 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 = "Anhang in MB: " & countAnh.ToString + + End If + + End If + + - lblAnh.Text = countAnh.ToString End Sub End Class \ No newline at end of file