From e6f22a2e5d29c6dd2f3c8d5d31bd7ec082b43f10 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 25 Mar 2026 15:51:50 +0100 Subject: [PATCH] Sendungsdetails, etc. --- Aviso/App.config | 2 +- Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/frmGesamtsicherheitenMenuNEU.vb | 38 ++- Aviso/frmGesamtsicherheitenNEU.vb | 83 ++++-- Aviso/frmSendungsdetailsNEU.Designer.vb | 318 ++++++++++----------- Aviso/frmSendungsdetailsNEU.resx | 6 - Aviso/frmSendungsdetailsNEU.vb | 25 ++ Aviso/usrCntlSND_ATBGestellung.Designer.vb | 118 ++++---- 8 files changed, 326 insertions(+), 268 deletions(-) diff --git a/Aviso/App.config b/Aviso/App.config index 96c7394..cf5284a 100644 --- a/Aviso/App.config +++ b/Aviso/App.config @@ -1,4 +1,4 @@ - + diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index ae9a434..e8298a3 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index b012385..e394487 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -68,6 +68,7 @@ Public Class frmGesamtsicherheitenMenuNEU Public Function LoadDGV() Dim sqladdon As String = "" + Dim sqlWhere As String = "" Dim sqlSicherheitssaldo As String = "" If chkOffen.Checked Then sqlSicherheitssaldo &= " HAVING ( COALESCE(MAX(SicherheitsSaldo.gs_SicherheitsSaldo), 0) + @@ -77,6 +78,24 @@ Public Class frmGesamtsicherheitenMenuNEU If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'" If cbxAUTO.Checked Then sqladdon &= " AND CAST(gs_dakoyimport AS INT) = 1" + + If txtSuchbegriff.Text <> "" Then + + sqlWhere = " AND ( gs.gs_freitext LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_avisoId LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_ATBNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_VeralteteWeitereRegistriernummer LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_MRNNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%' + )" + + + + + End If + 'Dim sqlstring As String = ' " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId, ' max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT( @@ -145,17 +164,10 @@ Public Class frmGesamtsicherheitenMenuNEU tblGesamtsicherheit gs LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr - WHERE + WHERE gs.gs_gsnr <> 2030 AND gs.gs_standort = '" & Standort & "' " & sqladdon & " - AND gs.gs_datum BETWEEN '" & Date.Parse(txtDatVon.Text) & "' AND '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "' - AND ( - gs.gs_freitext LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_avisoId LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_ATBNr LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_warenort LIKE '%" & txtSuchbegriff.Text & "%' - ) + AND gs.gs_datum BETWEEN '" & Date.Parse(txtDatVon.Text) & "' AND '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" & sqlWhere & " + GROUP BY gs.gs_gsnr " & sqlSicherheitssaldo & "ORDER BY @@ -472,7 +484,7 @@ Public Class frmGesamtsicherheitenMenuNEU WHEN gs_art = 'Open' THEN -gs_sicherheitsbetrag WHEN gs_art = 'Close' THEN gs_sicherheitsbetrag END) AS gs_SicherheitsSaldo - FROM tblGesamtsicherheit + FROM tblGesamtsicherheit WHERE gs_gsnr <> 2030 GROUP BY gs_gsnr ), PositionenSaldo AS ( @@ -482,7 +494,7 @@ Public Class frmGesamtsicherheitenMenuNEU WHEN gsp_art = 'Open' THEN -gsp_sicherheitsbetrag WHEN gsp_art = 'Close' THEN gsp_sicherheitsbetrag END) AS gsp_SicherheitsSaldo - FROM tblGesamtsicherheitsPositionen + FROM tblGesamtsicherheitsPositionen WHERE gsp_gsnr <> 2030 GROUP BY gsp_gsnr ) SELECT @@ -497,7 +509,7 @@ Public Class frmGesamtsicherheitenMenuNEU FROM tblGesamtsicherheit gs LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr - WHERE gs.gs_standort = '" & Standort & "' + WHERE gs.gs_standort = '" & Standort & "' AND gs.gs_gsnr <> 2030 AND gs.gs_datum < '" & Date.Now().AddDays(-85) & "' GROUP BY gs.gs_gsnr ) AS meh2 diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index e983c64..65e9dfa 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -80,12 +80,7 @@ Public Class frmGesamtsicherheitenNEU cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - If warenortPrefix <> "" Then - cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND LEFT([wo_warenort],2) = " & warenortPrefix & " ORDER BY [wo_reihenfolge] ", True, "AVISO", True) - Else - cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND [wo_firma] = " & firmaId & " ORDER BY [wo_reihenfolge] ", True, "AVISO", True) ' - End If - + setcboWarenort(True) If datum = Nothing Then datum = Date.Now @@ -94,28 +89,6 @@ Public Class frmGesamtsicherheitenNEU txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200) - If Standort = "AMBAR GmbH" Then - For i As Integer = 0 To cboFiliale.Items.Count - 1 - If cboFiliale.Items(i).ToString().Contains("5701") Then - cboFiliale.SelectedIndex = i - Exit For - End If - Next - For i As Integer = 0 To cboWarenort.Items.Count - 1 - If cboWarenort.Items(i).ToString().Contains("AMBAR") Then - cboWarenort.SelectedIndex = i - Exit For - End If - Next - ElseIf grenzstelle <> "" Then - - For i As Integer = 0 To cboWarenort.Items.Count - 1 - If cboWarenort.Items(i).ToString().Contains(grenzstelle) Then - cboWarenort.SelectedIndex = i - Exit For - End If - Next - End If Else LoadDGVSicherheiten(True) @@ -2339,4 +2312,58 @@ Public Class frmGesamtsicherheitenNEU End Sub + Private Sub setcboWarenort(setDefaultValue As Boolean) + + Dim whereWarenort As String = " WHERE [wo_aktiv] = 1 AND wo_ze = 1" + + + If Standort = "Atilla GmbH" Then + + '----'nicht unisped und cs und ambar aber alle anderen - laut j.Siener am 23.03.2026 + + whereWarenort &= " AND [wo_firma] not in (24, 21,22,23, 11)" + + Else + If warenortPrefix <> "" Then + whereWarenort &= " AND LEFT([wo_warenort],2) = " & warenortPrefix & "" + Else + whereWarenort &= " AND [wo_firma] = " & firmaId + End If + + End If + + cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] " & whereWarenort, True, "AVISO", True) + + + If setDefaultValue AndAlso cboWarenort.Items.Count > 0 Then + + If Standort = "AMBAR GmbH" Then + For i As Integer = 0 To cboFiliale.Items.Count - 1 + If cboFiliale.Items(i).ToString().Contains("5701") Then + cboFiliale.SelectedIndex = i + Exit For + End If + Next + For i As Integer = 0 To cboWarenort.Items.Count - 1 + If cboWarenort.Items(i).ToString().Contains("AMBAR") Then + cboWarenort.SelectedIndex = i + Exit For + End If + Next + ElseIf grenzstelle <> "" Then + + For i As Integer = 0 To cboWarenort.Items.Count - 1 + If cboWarenort.Items(i).ToString().Contains(grenzstelle) Then + cboWarenort.SelectedIndex = i + Exit For + End If + Next + End If + + End If + + + + End Sub + End Class diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index e88e92d..2c3a912 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -24,29 +24,29 @@ Partial Class frmSendungsdetailsNEU Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU)) - Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnl = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel() Me.TabControl1 = New System.Windows.Forms.TabControl() @@ -412,6 +412,7 @@ Partial Class frmSendungsdetailsNEU Me.LaufzetteldruckJANEINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GestellungslisteAnfügenJANEINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FürDruckMarkierenJANEINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HervorhebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() @@ -498,7 +499,6 @@ Partial Class frmSendungsdetailsNEU Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.FürDruckMarkierenJANEINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() @@ -1634,18 +1634,18 @@ Partial Class frmSendungsdetailsNEU Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToResizeRows = False - DataGridViewCellStyle24.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.gridVermerke.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle25.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) - DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle25 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.gridVermerke.ColumnHeadersHeight = 29 Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill @@ -1656,8 +1656,8 @@ Partial Class frmSendungsdetailsNEU Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersWidth = 51 Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle26 + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3 Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -1685,18 +1685,18 @@ Partial Class frmSendungsdetailsNEU Me.dgvATEZNCTS.AllowUserToAddRows = False Me.dgvATEZNCTS.AllowUserToDeleteRows = False Me.dgvATEZNCTS.AllowUserToResizeRows = False - DataGridViewCellStyle27.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle28.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle28 + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5 Me.dgvATEZNCTS.ColumnHeadersHeight = 29 Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill @@ -1707,8 +1707,8 @@ Partial Class frmSendungsdetailsNEU Me.dgvATEZNCTS.RowHeadersVisible = False Me.dgvATEZNCTS.RowHeadersWidth = 51 Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle29 + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvATEZNCTS.RowTemplate.Height = 20 Me.dgvATEZNCTS.RowTemplate.ReadOnly = True Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -1774,18 +1774,18 @@ Partial Class frmSendungsdetailsNEU Me.dgvDigicust.AllowUserToAddRows = False Me.dgvDigicust.AllowUserToDeleteRows = False Me.dgvDigicust.AllowUserToResizeRows = False - DataGridViewCellStyle30.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30 + DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle31.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle31 + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvDigicust.ColumnHeadersHeight = 29 Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill @@ -1796,8 +1796,8 @@ Partial Class frmSendungsdetailsNEU Me.dgvDigicust.RowHeadersVisible = False Me.dgvDigicust.RowHeadersWidth = 51 Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle32 + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle9 Me.dgvDigicust.RowTemplate.Height = 20 Me.dgvDigicust.RowTemplate.ReadOnly = True Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -1849,18 +1849,18 @@ Partial Class frmSendungsdetailsNEU Me.dgvMail.AllowUserToAddRows = False Me.dgvMail.AllowUserToDeleteRows = False Me.dgvMail.AllowUserToResizeRows = False - DataGridViewCellStyle33.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33 + DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 Me.dgvMail.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle34.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle34 + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle11.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.dgvMail.ColumnHeadersHeight = 29 Me.dgvMail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvMail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnSender, Me.clmnRec, Me.clmnSbj, Me.clmnAtt, Me.clmnUIDL}) @@ -1872,8 +1872,8 @@ Partial Class frmSendungsdetailsNEU Me.dgvMail.RowHeadersVisible = False Me.dgvMail.RowHeadersWidth = 51 Me.dgvMail.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle35 + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle12 Me.dgvMail.RowTemplate.Height = 20 Me.dgvMail.RowTemplate.ReadOnly = True Me.dgvMail.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -2700,36 +2700,36 @@ Partial Class frmSendungsdetailsNEU Me.dgvAbrechnung.AllowUserToResizeColumns = False Me.dgvAbrechnung.AllowUserToResizeRows = False Me.dgvAbrechnung.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAbrechnung.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle36 + DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvAbrechnung.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13 Me.dgvAbrechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvAbrechnung.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnAbrId, Me.clmnAbrFirma, Me.clmnAbrLeistungsNr, Me.clmnAbrLeistung, Me.clmnAbrPreis}) - DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle38.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle38.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvAbrechnung.DefaultCellStyle = DataGridViewCellStyle38 + DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvAbrechnung.DefaultCellStyle = DataGridViewCellStyle15 Me.dgvAbrechnung.Location = New System.Drawing.Point(6, 35) Me.dgvAbrechnung.MultiSelect = False Me.dgvAbrechnung.Name = "dgvAbrechnung" Me.dgvAbrechnung.ReadOnly = True - DataGridViewCellStyle39.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle39.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle39.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle39.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle39.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle39.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAbrechnung.RowHeadersDefaultCellStyle = DataGridViewCellStyle39 + DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvAbrechnung.RowHeadersDefaultCellStyle = DataGridViewCellStyle16 Me.dgvAbrechnung.RowHeadersVisible = False Me.dgvAbrechnung.RowHeadersWidth = 51 Me.dgvAbrechnung.RowTemplate.Height = 18 @@ -2771,8 +2771,8 @@ Partial Class frmSendungsdetailsNEU ' 'clmnAbrPreis ' - DataGridViewCellStyle37.Format = "C2" - Me.clmnAbrPreis.DefaultCellStyle = DataGridViewCellStyle37 + DataGridViewCellStyle14.Format = "C2" + Me.clmnAbrPreis.DefaultCellStyle = DataGridViewCellStyle14 Me.clmnAbrPreis.HeaderText = "Preis" Me.clmnAbrPreis.MaxInputLength = 15 Me.clmnAbrPreis.MinimumWidth = 6 @@ -2801,35 +2801,35 @@ Partial Class frmSendungsdetailsNEU Me.dgvBelege.AllowUserToResizeColumns = False Me.dgvBelege.AllowUserToResizeRows = False Me.dgvBelege.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40 + DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle41 + DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle18 Me.dgvBelege.Location = New System.Drawing.Point(6, 40) Me.dgvBelege.MultiSelect = False Me.dgvBelege.Name = "dgvBelege" Me.dgvBelege.ReadOnly = True - DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle42.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle42.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle42 + DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle19 Me.dgvBelege.RowHeadersVisible = False Me.dgvBelege.RowHeadersWidth = 51 Me.dgvBelege.RowTemplate.Height = 18 @@ -3004,36 +3004,36 @@ Partial Class frmSendungsdetailsNEU Me.dgvVorkosten.AllowUserToResizeColumns = False Me.dgvVorkosten.AllowUserToResizeRows = False Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43 + DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle20 Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis}) - DataGridViewCellStyle45.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle45.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle45.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle45.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle45.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle45 + DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle22 Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4) Me.dgvVorkosten.MultiSelect = False Me.dgvVorkosten.Name = "dgvVorkosten" Me.dgvVorkosten.ReadOnly = True - DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle46 + DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle23 Me.dgvVorkosten.RowHeadersVisible = False Me.dgvVorkosten.RowHeadersWidth = 51 Me.dgvVorkosten.RowTemplate.Height = 18 @@ -3071,8 +3071,8 @@ Partial Class frmSendungsdetailsNEU 'clmnPreis ' Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle44.Format = "C2" - Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle44 + DataGridViewCellStyle21.Format = "C2" + Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle21 Me.clmnPreis.HeaderText = "Preis" Me.clmnPreis.MaxInputLength = 15 Me.clmnPreis.MinimumWidth = 6 @@ -5677,7 +5677,7 @@ Partial Class frmSendungsdetailsNEU Me.cntxtAnh.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem, Me.FürDruckMarkierenJANEINToolStripMenuItem, Me.HervorhebenToolStripMenuItem}) Me.cntxtAnh.Name = "cntxtAnh" - Me.cntxtAnh.Size = New System.Drawing.Size(294, 266) + Me.cntxtAnh.Size = New System.Drawing.Size(294, 244) ' 'MarkiertePDFsDruckenToolStripMenuItem ' @@ -5718,6 +5718,12 @@ Partial Class frmSendungsdetailsNEU Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Size = New System.Drawing.Size(293, 30) Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Text = "Abrechung: Fremde Grenze Akt drucken" ' + 'FürDruckMarkierenJANEINToolStripMenuItem + ' + Me.FürDruckMarkierenJANEINToolStripMenuItem.Name = "FürDruckMarkierenJANEINToolStripMenuItem" + Me.FürDruckMarkierenJANEINToolStripMenuItem.Size = New System.Drawing.Size(293, 30) + Me.FürDruckMarkierenJANEINToolStripMenuItem.Text = "Für Druck markieren JA/NEIN" + ' 'HervorhebenToolStripMenuItem ' Me.HervorhebenToolStripMenuItem.Image = CType(resources.GetObject("HervorhebenToolStripMenuItem.Image"), System.Drawing.Image) @@ -6315,12 +6321,6 @@ Partial Class frmSendungsdetailsNEU Me.DataGridViewTextBoxColumn5.ReadOnly = True Me.DataGridViewTextBoxColumn5.Width = 200 ' - 'FürDruckMarkierenJANEINToolStripMenuItem - ' - Me.FürDruckMarkierenJANEINToolStripMenuItem.Name = "FürDruckMarkierenJANEINToolStripMenuItem" - Me.FürDruckMarkierenJANEINToolStripMenuItem.Size = New System.Drawing.Size(293, 30) - Me.FürDruckMarkierenJANEINToolStripMenuItem.Text = "Für Druck markieren JA/NEIN" - ' 'frmSendungsdetailsNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) diff --git a/Aviso/frmSendungsdetailsNEU.resx b/Aviso/frmSendungsdetailsNEU.resx index 14d6ef9..799cef0 100644 --- a/Aviso/frmSendungsdetailsNEU.resx +++ b/Aviso/frmSendungsdetailsNEU.resx @@ -1402,9 +1402,6 @@ BXidk8YAAAAAAElFTkSuQmCC - - 296, 17 - iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAH1JREFUOE/V @@ -1923,9 +1920,6 @@ 174, 17 - - 404, 17 - 596, 17 diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 9458678..2d48f51 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -2607,6 +2607,12 @@ Public Class frmSendungsdetailsNEU Case "44" pnlT1.Controls.Add(usrcntl_ATB) + cboVorpapier._value = "" + cboVorpapier2._value = "" + cboVorpapier3._value = "" + txtVorpapierPos.Text = "" + txtVorpapier2Pos.Text = "" + txtVorpapier3Pos.Text = "" cboVorpapier.Enabled = False cboVorpapier2.Enabled = False cboVorpapier3.Enabled = False @@ -7899,4 +7905,23 @@ Public Class frmSendungsdetailsNEU initAnhang() End If End Sub + + Private Sub txtVorpapierPos_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtVorpapierPos.KeyPress, txtVorpapier2Pos.KeyPress, txtVorpapier3Pos.KeyPress + enableOnlyNumericValues(e) + End Sub + + Private Sub enableOnlyNumericValues(e As KeyPressEventArgs) + + If Char.IsControl(e.KeyChar) Then + Return + End If + + If Char.IsDigit(e.KeyChar) OrElse e.KeyChar = ","c OrElse e.KeyChar = "+"c OrElse e.KeyChar = " "c Then + Return + End If + + e.Handled = True + End Sub + + End Class diff --git a/Aviso/usrCntlSND_ATBGestellung.Designer.vb b/Aviso/usrCntlSND_ATBGestellung.Designer.vb index c6b249d..a990d15 100644 --- a/Aviso/usrCntlSND_ATBGestellung.Designer.vb +++ b/Aviso/usrCntlSND_ATBGestellung.Designer.vb @@ -24,18 +24,18 @@ Partial Class usrCntlSND_ATBGestellung Private Sub InitializeComponent() Me.pnlT1 = New System.Windows.Forms.Panel() Me.PictureBox5 = New System.Windows.Forms.PictureBox() - Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.Label1 = New System.Windows.Forms.Label() Me.btnGesSicherheit = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox() - Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() - Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label33 = New System.Windows.Forms.Label() + Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.pnlT1.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -64,37 +64,12 @@ Partial Class usrCntlSND_ATBGestellung ' Me.PictureBox5.BackgroundImage = Global.AVISO.My.Resources.Resources.fragezeichen1 Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox5.Location = New System.Drawing.Point(0, 8) + Me.PictureBox5.Location = New System.Drawing.Point(2, 8) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(18, 19) Me.PictureBox5.TabIndex = 132 Me.PictureBox5.TabStop = False ' - 'txtT1Datum - ' - Me.txtT1Datum._DateTimeOnly = False - Me.txtT1Datum._numbersOnly = False - Me.txtT1Datum._numbersOnlyKommastellen = "" - Me.txtT1Datum._numbersOnlyTrennzeichen = True - Me.txtT1Datum._Prozent = False - Me.txtT1Datum._ShortDateNew = True - Me.txtT1Datum._ShortDateOnly = False - Me.txtT1Datum._TimeOnly = False - Me.txtT1Datum._TimeOnly_Seconds = False - Me.txtT1Datum._value = "" - Me.txtT1Datum._Waehrung = False - Me.txtT1Datum._WaehrungZeichen = True - Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtT1Datum.ForeColor = System.Drawing.Color.Black - Me.txtT1Datum.Location = New System.Drawing.Point(272, 33) - Me.txtT1Datum.MaxLength = 10 - Me.txtT1Datum.MaxLineLength = -1 - Me.txtT1Datum.MaxLines_Warning = "" - Me.txtT1Datum.MaxLines_Warning_Label = Nothing - Me.txtT1Datum.Name = "txtT1Datum" - Me.txtT1Datum.Size = New System.Drawing.Size(83, 20) - Me.txtT1Datum.TabIndex = 38 - ' 'DateTimePicker1 ' Me.DateTimePicker1.CustomFormat = "''" @@ -150,6 +125,60 @@ Partial Class usrCntlSND_ATBGestellung Me.cbxATBFakturieren.ThreeState = True Me.cbxATBFakturieren.UseVisualStyleBackColor = True ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(23, 59) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(92, 13) + Me.Label4.TabIndex = 20 + Me.Label4.Text = "ATB / Gestellung:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(23, 81) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(51, 13) + Me.Label3.TabIndex = 15 + Me.Label3.Text = "Zollstelle:" + ' + 'Label33 + ' + 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(79, 13) + Me.Label33.TabIndex = 3 + Me.Label33.Text = "Vorpapier / T1:" + ' + 'txtT1Datum + ' + Me.txtT1Datum._DateTimeOnly = False + Me.txtT1Datum._numbersOnly = False + Me.txtT1Datum._numbersOnlyKommastellen = "" + Me.txtT1Datum._numbersOnlyTrennzeichen = True + Me.txtT1Datum._Prozent = False + Me.txtT1Datum._ShortDateNew = True + Me.txtT1Datum._ShortDateOnly = False + Me.txtT1Datum._TimeOnly = False + Me.txtT1Datum._TimeOnly_Seconds = False + Me.txtT1Datum._value = "" + Me.txtT1Datum._Waehrung = False + Me.txtT1Datum._WaehrungZeichen = True + Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtT1Datum.ForeColor = System.Drawing.Color.Black + Me.txtT1Datum.Location = New System.Drawing.Point(272, 33) + Me.txtT1Datum.MaxLength = 10 + Me.txtT1Datum.MaxLineLength = -1 + Me.txtT1Datum.MaxLines_Warning = "" + Me.txtT1Datum.MaxLines_Warning_Label = Nothing + Me.txtT1Datum.Name = "txtT1Datum" + Me.txtT1Datum.Size = New System.Drawing.Size(83, 20) + Me.txtT1Datum.TabIndex = 38 + ' 'txtATBNr ' Me.txtATBNr._DateTimeOnly = False @@ -196,25 +225,6 @@ Partial Class usrCntlSND_ATBGestellung Me.txtATBT1.Size = New System.Drawing.Size(269, 20) Me.txtATBT1.TabIndex = 22 ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(23, 59) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(92, 13) - Me.Label4.TabIndex = 20 - Me.Label4.Text = "ATB / Gestellung:" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(23, 81) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(51, 13) - Me.Label3.TabIndex = 15 - Me.Label3.Text = "Zollstelle:" - ' 'txtT1VerzollungsadresseBestimmungszollstelle ' Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False @@ -241,16 +251,6 @@ Partial Class usrCntlSND_ATBGestellung Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 16 Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing ' - 'Label33 - ' - 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(79, 13) - Me.Label33.TabIndex = 3 - Me.Label33.Text = "Vorpapier / T1:" - ' 'usrCntlSND_ATBGestellung ' Me.Controls.Add(Me.pnlT1)