SND GW-Aviso

2023-06-12 08:26:38 +02:00
parent 52a8f9418a
commit 4eb01c30dc
8 changed files with 562 additions and 57 deletions
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -24,10 +24,10 @@ 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 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 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()
        Me.pnl = New System.Windows.Forms.Panel()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -35,6 +35,7 @@ Partial Class frmSendungsdetailsNEU
        Me.pnlKundenInfo = New System.Windows.Forms.Panel()
        Me.Panel20 = New System.Windows.Forms.Panel()
        Me.tbAnhang = New System.Windows.Forms.TabPage()
+        Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
        Me.Panel19 = New System.Windows.Forms.Panel()
        Me.Button17 = New System.Windows.Forms.Button()
@@ -52,7 +53,6 @@ Partial Class frmSendungsdetailsNEU
        Me.btnOptionen = New System.Windows.Forms.Button()
        Me.btnImportAssi = New System.Windows.Forms.Button()
        Me.lblAnhaenge = New System.Windows.Forms.Label()
-        Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.tbZollabfertigung = New System.Windows.Forms.TabPage()
        Me.Panel16 = New System.Windows.Forms.Panel()
        Me.dgvZollAnmeldungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -408,14 +408,17 @@ Partial Class frmSendungsdetailsNEU
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
        Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem28 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem29 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem30 = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnl.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.TabControl1.SuspendLayout()
        Me.tbKundenInfo.SuspendLayout()
        Me.tbAnhang.SuspendLayout()
+        CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel19.SuspendLayout()
        Me.Panel21.SuspendLayout()
-        CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tbZollabfertigung.SuspendLayout()
        Me.Panel16.SuspendLayout()
        CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -555,6 +558,24 @@ Partial Class frmSendungsdetailsNEU
        Me.tbAnhang.Text = "Anhang"
        Me.tbAnhang.UseVisualStyleBackColor = True
        '
+        'dgvAnhang
+        '
+        Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhang.AllowUserToAddRows = False
+        Me.dgvAnhang.AllowUserToDeleteRows = False
+        Me.dgvAnhang.AllowUserToResizeColumns = False
+        Me.dgvAnhang.AllowUserToResizeRows = False
+        Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvAnhang.Location = New System.Drawing.Point(0, 45)
+        Me.dgvAnhang.Name = "dgvAnhang"
+        Me.dgvAnhang.ReadOnly = True
+        Me.dgvAnhang.RowHeadersVisible = False
+        Me.dgvAnhang.RowTemplate.Height = 40
+        Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhang.Size = New System.Drawing.Size(1206, 243)
+        Me.dgvAnhang.TabIndex = 1
+        '
        'btnDirektAnfuegen
        '
        Me.btnDirektAnfuegen.Enabled = False
@@ -772,24 +793,6 @@ Partial Class frmSendungsdetailsNEU
        Me.lblAnhaenge.TabIndex = 0
        Me.lblAnhaenge.Text = "Anhänge"
        '
-        'dgvAnhang
-        '
-        Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvAnhang.AllowUserToAddRows = False
-        Me.dgvAnhang.AllowUserToDeleteRows = False
-        Me.dgvAnhang.AllowUserToResizeColumns = False
-        Me.dgvAnhang.AllowUserToResizeRows = False
-        Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvAnhang.Location = New System.Drawing.Point(0, 45)
-        Me.dgvAnhang.Name = "dgvAnhang"
-        Me.dgvAnhang.ReadOnly = True
-        Me.dgvAnhang.RowHeadersVisible = False
-        Me.dgvAnhang.RowTemplate.Height = 40
-        Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvAnhang.Size = New System.Drawing.Size(1206, 243)
-        Me.dgvAnhang.TabIndex = 1
-        '
        'tbZollabfertigung
        '
        Me.tbZollabfertigung.Controls.Add(Me.Panel16)
@@ -1448,18 +1451,18 @@ Partial Class frmSendungsdetailsNEU
        Me.gridVermerke.AllowUserToAddRows = False
        Me.gridVermerke.AllowUserToDeleteRows = False
        Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
        Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        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
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
        Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
        Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
@@ -1468,8 +1471,8 @@ Partial Class frmSendungsdetailsNEU
        Me.gridVermerke.ReadOnly = True
        Me.gridVermerke.RowHeadersVisible = False
        Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle11
        Me.gridVermerke.RowTemplate.Height = 20
        Me.gridVermerke.RowTemplate.ReadOnly = True
        Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -2214,8 +2217,8 @@ Partial Class frmSendungsdetailsNEU
        'clmnPreis
        '
        Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle4.Format = "C2"
-        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle12.Format = "C2"
+        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle12
        Me.clmnPreis.HeaderText = "Preis"
        Me.clmnPreis.MaxInputLength = 15
        Me.clmnPreis.Name = "clmnPreis"
@@ -4837,7 +4840,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
-        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(97, 26)
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(93, 22)
        Me.ToolStripMenuItem4.Text = "T1"
        '
        'ToolStripMenuItem5
@@ -4845,7 +4848,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
-        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(97, 26)
+        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(93, 22)
        Me.ToolStripMenuItem5.Text = "T2"
        '
        'ÜTToolStripMenuItem
@@ -4853,7 +4856,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ÜTToolStripMenuItem.Enabled = False
        Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ÜTToolStripMenuItem.Name = "ÜTToolStripMenuItem"
-        Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(97, 26)
+        Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(93, 22)
        Me.ÜTToolStripMenuItem.Text = "Ü-T"
        '
        'NeueZollanmeldungToolStripMenuItem
@@ -5099,9 +5102,9 @@ Partial Class frmSendungsdetailsNEU
        'ContextMenuStrip1
        '
        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem28, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "cntxtAnh"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 334)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 386)
        '
        'ToolStripMenuItem15
        '
@@ -5174,14 +5177,14 @@ Partial Class frmSendungsdetailsNEU
        '
        Me.ATANAKTRFraechter.Image = CType(resources.GetObject("ATANAKTRFraechter.Image"), System.Drawing.Image)
        Me.ATANAKTRFraechter.Name = "ATANAKTRFraechter"
-        Me.ATANAKTRFraechter.Size = New System.Drawing.Size(234, 26)
+        Me.ATANAKTRFraechter.Size = New System.Drawing.Size(230, 22)
        Me.ATANAKTRFraechter.Text = "ATANAK (TR Frächter)"
        '
        'ATANAKEUFraechter
        '
        Me.ATANAKEUFraechter.Image = CType(resources.GetObject("ATANAKEUFraechter.Image"), System.Drawing.Image)
        Me.ATANAKEUFraechter.Name = "ATANAKEUFraechter"
-        Me.ATANAKEUFraechter.Size = New System.Drawing.Size(234, 26)
+        Me.ATANAKEUFraechter.Size = New System.Drawing.Size(230, 22)
        Me.ATANAKEUFraechter.Text = "ATANAK (EU/andere Frächter)"
        '
        'ToolStripMenuItem26
@@ -5210,14 +5213,14 @@ Partial Class frmSendungsdetailsNEU
        '
        Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Image = CType(resources.GetObject("AktuelleSendungAnhängeWählenToolStripMenuItem.Image"), System.Drawing.Image)
        Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Name = "AktuelleSendungAnhängeWählenToolStripMenuItem"
-        Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Size = New System.Drawing.Size(271, 26)
+        Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Size = New System.Drawing.Size(275, 30)
        Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Text = "Aktuelle Sendung (Anhänge wählen)"
        '
        'AlleLEXSendungenLKWToolStripMenuItem
        '
        Me.AlleLEXSendungenLKWToolStripMenuItem.Image = CType(resources.GetObject("AlleLEXSendungenLKWToolStripMenuItem.Image"), System.Drawing.Image)
        Me.AlleLEXSendungenLKWToolStripMenuItem.Name = "AlleLEXSendungenLKWToolStripMenuItem"
-        Me.AlleLEXSendungenLKWToolStripMenuItem.Size = New System.Drawing.Size(271, 26)
+        Me.AlleLEXSendungenLKWToolStripMenuItem.Size = New System.Drawing.Size(275, 30)
        Me.AlleLEXSendungenLKWToolStripMenuItem.Text = "Alle LEX Sendungen (LKW)"
        '
        'GVMSInfoToolStripMenuItem
@@ -5232,14 +5235,14 @@ Partial Class frmSendungsdetailsNEU
        '
        Me.AlleEIDRSendungenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
        Me.AlleEIDRSendungenToolStripMenuItem.Name = "AlleEIDRSendungenToolStripMenuItem"
-        Me.AlleEIDRSendungenToolStripMenuItem.Size = New System.Drawing.Size(188, 26)
+        Me.AlleEIDRSendungenToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
        Me.AlleEIDRSendungenToolStripMenuItem.Text = "Alle EIDR Sendungen"
        '
        'AktuelleSendungToolStripMenuItem
        '
        Me.AktuelleSendungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
        Me.AktuelleSendungToolStripMenuItem.Name = "AktuelleSendungToolStripMenuItem"
-        Me.AktuelleSendungToolStripMenuItem.Size = New System.Drawing.Size(188, 26)
+        Me.AktuelleSendungToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
        Me.AktuelleSendungToolStripMenuItem.Text = "Aktuelle Sendung"
        '
        'WarenortAMBARToolStripMenuItem
@@ -5279,6 +5282,28 @@ Partial Class frmSendungsdetailsNEU
        Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
        Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
        '
+        'ToolStripMenuItem28
+        '
+        Me.ToolStripMenuItem28.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem29, Me.ToolStripMenuItem30})
+        Me.ToolStripMenuItem28.Image = Global.AVISO.My.Resources.Resources.email_big1
+        Me.ToolStripMenuItem28.Name = "ToolStripMenuItem28"
+        Me.ToolStripMenuItem28.Size = New System.Drawing.Size(222, 30)
+        Me.ToolStripMenuItem28.Text = "GEBR.WEISS (CH) Aviso"
+        '
+        'ToolStripMenuItem29
+        '
+        Me.ToolStripMenuItem29.Image = CType(resources.GetObject("ToolStripMenuItem29.Image"), System.Drawing.Image)
+        Me.ToolStripMenuItem29.Name = "ToolStripMenuItem29"
+        Me.ToolStripMenuItem29.Size = New System.Drawing.Size(275, 30)
+        Me.ToolStripMenuItem29.Text = "Aktuelle Sendung (Anhänge wählen)"
+        '
+        'ToolStripMenuItem30
+        '
+        Me.ToolStripMenuItem30.Image = CType(resources.GetObject("ToolStripMenuItem30.Image"), System.Drawing.Image)
+        Me.ToolStripMenuItem30.Name = "ToolStripMenuItem30"
+        Me.ToolStripMenuItem30.Size = New System.Drawing.Size(275, 30)
+        Me.ToolStripMenuItem30.Text = "Alle Sendungen (LKW)"
+        '
        'frmSendungsdetailsNEU
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5299,11 +5324,11 @@ Partial Class frmSendungsdetailsNEU
        Me.TabControl1.ResumeLayout(False)
        Me.tbKundenInfo.ResumeLayout(False)
        Me.tbAnhang.ResumeLayout(False)
+        CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel19.ResumeLayout(False)
        Me.Panel19.PerformLayout()
        Me.Panel21.ResumeLayout(False)
        Me.Panel21.PerformLayout()
-        CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit()
        Me.tbZollabfertigung.ResumeLayout(False)
        Me.Panel16.ResumeLayout(False)
        Me.Panel16.PerformLayout()
@@ -5757,4 +5782,7 @@ Partial Class frmSendungsdetailsNEU
    Friend WithEvents ATANAKEUFraechter As ToolStripMenuItem
    Friend WithEvents HervorhebenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents Button18 As Button
+    Friend WithEvents ToolStripMenuItem28 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem
 End Class