From b67e780cb73979e6e1dbcf50ee64e80b3bdf674d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 19 Oct 2022 17:04:36 +0200 Subject: [PATCH] Feature_Gesamtsicherheiten --- Aviso/Aviso.vbproj | 13 +- Aviso/My Project/Application.Designer.vb | 2 +- Aviso/frmGesamtsicherheitenMenu.vb | 4 - Aviso/frmGesamtsicherheitenNEU.Designer.vb | 612 ++++++++++----------- Aviso/frmGesamtsicherheitenNEU.vb | 535 +++++++++++------- Aviso/frmHauptfenster.Designer.vb | 477 ++++++++-------- Aviso/frmHauptfenster.vb | 6 + 7 files changed, 892 insertions(+), 757 deletions(-) diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 6691d31..304bf68 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -101,7 +101,7 @@ false - x86 + x64 bin\Debug\ @@ -126,7 +126,8 @@ ..\packages\Common.Logging.Core.3.4.1\lib\net40\Common.Logging.Core.dll - + + False ..\..\..\ADMIN\ADMIN\DAKOSY_Worker\bin\Debug\DAKOSY_Worker.dll @@ -316,6 +317,10 @@ ..\..\..\dll\ThoughtWorks.QRCode.dll + + False + ..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll + @@ -1368,10 +1373,6 @@ {289bcd77-bc00-4ba1-95ed-a79176d99525} SDL - - {a3b497bd-842c-4a2b-b398-ed1976849df1} - VERAG_PROG_ALLGEMEIN - {110c923b-cb02-4fd0-af24-95e0f0eeeff5} Gemeinsames diff --git a/Aviso/My Project/Application.Designer.vb b/Aviso/My Project/Application.Designer.vb index a77e014..c6a8fea 100644 --- a/Aviso/My Project/Application.Designer.vb +++ b/Aviso/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.AVISO.frmLogin + Me.MainForm = AVISO.frmLogin End Sub End Class End Namespace diff --git a/Aviso/frmGesamtsicherheitenMenu.vb b/Aviso/frmGesamtsicherheitenMenu.vb index 26a2af0..9a7c6ed 100644 --- a/Aviso/frmGesamtsicherheitenMenu.vb +++ b/Aviso/frmGesamtsicherheitenMenu.vb @@ -178,10 +178,6 @@ Public Class frmGesamtsicherheitenMenu btnSucheStarten_Click(sender, e) End Sub - Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) - - End Sub - Private Sub btnSucheStarten_Click(sender As Object, e As EventArgs) Handles btnSucheStarten.Click Try Date.Parse(txtVon.Text) diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index a86ce1d..814441b 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -29,7 +29,7 @@ Partial Class frmGesamtsicherheitenNEU 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU)) - Me.dgvGesamtsicherheitMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ClosedErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2 = New System.Windows.Forms.Panel() @@ -44,18 +44,18 @@ Partial Class frmGesamtsicherheitenNEU Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.dgvGesamtsicherheitPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.btnAddClose = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnAddOpen = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lblGestellungNr = New System.Windows.Forms.Label() Me.txtCRNTime = New System.Windows.Forms.TextBox() Me.txtCRNDate = New System.Windows.Forms.TextBox() Me.txtMRNTime = New System.Windows.Forms.TextBox() Me.txtMRNDate = New System.Windows.Forms.TextBox() Me.btnSaveOben = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtCRNSicherheitsbetrag = New System.Windows.Forms.TextBox() - Me.txtCRNWarenwert = New System.Windows.Forms.TextBox() - Me.txtCRN = New System.Windows.Forms.TextBox() + Me.txtPosSicherheitsbetrag = New System.Windows.Forms.TextBox() + Me.txtPosWarenwert = New System.Windows.Forms.TextBox() + Me.txtPositionenCRN = New System.Windows.Forms.TextBox() Me.txtMRNSicherheitsbetrag = New System.Windows.Forms.TextBox() Me.txtMRNWarenwert = New System.Windows.Forms.TextBox() Me.txtMRN = New System.Windows.Forms.TextBox() @@ -64,13 +64,15 @@ Partial Class frmGesamtsicherheitenNEU Me.lblReferenzwert = New System.Windows.Forms.Label() Me.lblSaldo = New System.Windows.Forms.Label() Me.panOben = New System.Windows.Forms.Panel() + Me.Label20 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnSuche = New System.Windows.Forms.Button() Me.Label26 = New System.Windows.Forms.Label() - Me.Button7 = New System.Windows.Forms.Button() - Me.Button6 = New System.Windows.Forms.Button() - Me.Button5 = New System.Windows.Forms.Button() + Me.btnBisTag = New System.Windows.Forms.Button() + Me.btnVonTag = New System.Windows.Forms.Button() + Me.btnTag = New System.Windows.Forms.Button() Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.btnJahr = New System.Windows.Forms.Button() @@ -84,19 +86,17 @@ Partial Class frmGesamtsicherheitenNEU Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label23 = New System.Windows.Forms.Label() - Me.cbxWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label19 = New System.Windows.Forms.Label() - Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbx_Suche_Filiale = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtLKW = New System.Windows.Forms.TextBox() - Me.txtAbfNr = New System.Windows.Forms.TextBox() - Me.Label20 = New System.Windows.Forms.Label() + Me.txt_Suche = New System.Windows.Forms.TextBox() Me.Label21 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() - Me.btnDeleteClose = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnDeleteOpen = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnUpdateClose = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnUpdateOpen = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdateSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label15 = New System.Windows.Forms.Label() Me.txtPos = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() @@ -115,22 +115,22 @@ Partial Class frmGesamtsicherheitenNEU Me.Label3 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() - Me.txtFreitextClose = New System.Windows.Forms.TextBox() + Me.txtPosFreitext = New System.Windows.Forms.TextBox() Me.txtFreitextOpen = New System.Windows.Forms.TextBox() - CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() Me.Panel2.SuspendLayout() Me.panOverlay.SuspendLayout() - CType(Me.dgvGesamtsicherheitPositionen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.panOben.SuspendLayout() Me.Panel1.SuspendLayout() Me.SuspendLayout() ' - 'dgvGesamtsicherheitMRN + 'dgvGesamtsicherheit ' - Me.dgvGesamtsicherheitMRN.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvGesamtsicherheitMRN.AllowUserToAddRows = False - Me.dgvGesamtsicherheitMRN.AllowUserToDeleteRows = False + Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvGesamtsicherheit.AllowUserToAddRows = False + Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -138,9 +138,9 @@ Partial Class frmGesamtsicherheitenNEU DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvGesamtsicherheitMRN.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvGesamtsicherheitMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvGesamtsicherheitMRN.ContextMenuStrip = Me.ContextMenuStrip1 + Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStrip1 DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -148,11 +148,11 @@ Partial Class frmGesamtsicherheitenNEU DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvGesamtsicherheitMRN.DefaultCellStyle = DataGridViewCellStyle2 - Me.dgvGesamtsicherheitMRN.Dock = System.Windows.Forms.DockStyle.Left - Me.dgvGesamtsicherheitMRN.Location = New System.Drawing.Point(0, 0) - Me.dgvGesamtsicherheitMRN.Name = "dgvGesamtsicherheitMRN" - Me.dgvGesamtsicherheitMRN.ReadOnly = True + Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left + Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0) + Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit" + Me.dgvGesamtsicherheit.ReadOnly = True DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -160,10 +160,10 @@ Partial Class frmGesamtsicherheitenNEU DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvGesamtsicherheitMRN.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 - Me.dgvGesamtsicherheitMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvGesamtsicherheitMRN.Size = New System.Drawing.Size(692, 486) - Me.dgvGesamtsicherheitMRN.TabIndex = 0 + Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(692, 486) + Me.dgvGesamtsicherheit.TabIndex = 0 ' 'ContextMenuStrip1 ' @@ -180,8 +180,8 @@ Partial Class frmGesamtsicherheitenNEU 'Panel2 ' Me.Panel2.Controls.Add(Me.panOverlay) - Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitPositionen) - Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitMRN) + Me.Panel2.Controls.Add(Me.dgvSicherheitsPos) + Me.Panel2.Controls.Add(Me.dgvGesamtsicherheit) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Location = New System.Drawing.Point(0, 290) Me.Panel2.Name = "Panel2" @@ -201,7 +201,7 @@ Partial Class frmGesamtsicherheitenNEU Me.panOverlay.Controls.Add(Me.Label17) Me.panOverlay.Controls.Add(Me.Label16) Me.panOverlay.Controls.Add(Me.btnClosePanOverlay) - Me.panOverlay.Location = New System.Drawing.Point(27, 183) + Me.panOverlay.Location = New System.Drawing.Point(493, 15) Me.panOverlay.Name = "panOverlay" Me.panOverlay.Size = New System.Drawing.Size(527, 275) Me.panOverlay.TabIndex = 2 @@ -323,11 +323,11 @@ Partial Class frmGesamtsicherheitenNEU Me.btnClosePanOverlay.TabIndex = 0 Me.btnClosePanOverlay.UseVisualStyleBackColor = False ' - 'dgvGesamtsicherheitPositionen + 'dgvSicherheitsPos ' - Me.dgvGesamtsicherheitPositionen.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvGesamtsicherheitPositionen.AllowUserToAddRows = False - Me.dgvGesamtsicherheitPositionen.AllowUserToDeleteRows = False + Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvSicherheitsPos.AllowUserToAddRows = False + Me.dgvSicherheitsPos.AllowUserToDeleteRows = False DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -335,8 +335,8 @@ Partial Class frmGesamtsicherheitenNEU DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvGesamtsicherheitPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 - Me.dgvGesamtsicherheitPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvSicherheitsPos.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvSicherheitsPos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -344,44 +344,44 @@ Partial Class frmGesamtsicherheitenNEU DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvGesamtsicherheitPositionen.DefaultCellStyle = DataGridViewCellStyle5 - Me.dgvGesamtsicherheitPositionen.Dock = System.Windows.Forms.DockStyle.Right - Me.dgvGesamtsicherheitPositionen.Location = New System.Drawing.Point(692, 0) - Me.dgvGesamtsicherheitPositionen.Name = "dgvGesamtsicherheitPositionen" - Me.dgvGesamtsicherheitPositionen.ReadOnly = True - Me.dgvGesamtsicherheitPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvGesamtsicherheitPositionen.Size = New System.Drawing.Size(692, 486) - Me.dgvGesamtsicherheitPositionen.TabIndex = 1 + Me.dgvSicherheitsPos.DefaultCellStyle = DataGridViewCellStyle5 + Me.dgvSicherheitsPos.Dock = System.Windows.Forms.DockStyle.Right + Me.dgvSicherheitsPos.Location = New System.Drawing.Point(692, 0) + Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" + Me.dgvSicherheitsPos.ReadOnly = True + Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvSicherheitsPos.Size = New System.Drawing.Size(692, 486) + Me.dgvSicherheitsPos.TabIndex = 1 ' - 'btnAddClose + 'btnAddPos ' - Me.btnAddClose.allowBorder = False - Me.btnAddClose.BackColor = System.Drawing.Color.White - Me.btnAddClose.BackgroundImage = Global.AVISO.My.Resources.Resources.plus - Me.btnAddClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnAddClose.FlatAppearance.BorderSize = 0 - Me.btnAddClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAddClose.ForeColor = System.Drawing.Color.Black - Me.btnAddClose.Location = New System.Drawing.Point(1348, 225) - Me.btnAddClose.Name = "btnAddClose" - Me.btnAddClose.Size = New System.Drawing.Size(24, 24) - Me.btnAddClose.TabIndex = 31 - Me.btnAddClose.UseVisualStyleBackColor = False + Me.btnAddPos.allowBorder = False + Me.btnAddPos.BackColor = System.Drawing.Color.White + Me.btnAddPos.BackgroundImage = Global.AVISO.My.Resources.Resources.plus + Me.btnAddPos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnAddPos.FlatAppearance.BorderSize = 0 + Me.btnAddPos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAddPos.ForeColor = System.Drawing.Color.Black + Me.btnAddPos.Location = New System.Drawing.Point(1348, 225) + Me.btnAddPos.Name = "btnAddPos" + Me.btnAddPos.Size = New System.Drawing.Size(24, 24) + Me.btnAddPos.TabIndex = 31 + Me.btnAddPos.UseVisualStyleBackColor = False ' - 'btnAddOpen + 'btnAddSicherheit ' - Me.btnAddOpen.allowBorder = False - Me.btnAddOpen.BackColor = System.Drawing.Color.White - Me.btnAddOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.plus - Me.btnAddOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnAddOpen.FlatAppearance.BorderSize = 0 - Me.btnAddOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAddOpen.ForeColor = System.Drawing.Color.Black - Me.btnAddOpen.Location = New System.Drawing.Point(654, 205) - Me.btnAddOpen.Name = "btnAddOpen" - Me.btnAddOpen.Size = New System.Drawing.Size(24, 24) - Me.btnAddOpen.TabIndex = 30 - Me.btnAddOpen.UseVisualStyleBackColor = False + Me.btnAddSicherheit.allowBorder = False + Me.btnAddSicherheit.BackColor = System.Drawing.Color.White + Me.btnAddSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.plus + Me.btnAddSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnAddSicherheit.FlatAppearance.BorderSize = 0 + Me.btnAddSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAddSicherheit.ForeColor = System.Drawing.Color.Black + Me.btnAddSicherheit.Location = New System.Drawing.Point(654, 205) + Me.btnAddSicherheit.Name = "btnAddSicherheit" + Me.btnAddSicherheit.Size = New System.Drawing.Size(24, 24) + Me.btnAddSicherheit.TabIndex = 30 + Me.btnAddSicherheit.UseVisualStyleBackColor = False ' 'lblGestellungNr ' @@ -447,33 +447,33 @@ Partial Class frmGesamtsicherheitenNEU Me.btnSaveOben.Text = "Speichern" Me.btnSaveOben.UseVisualStyleBackColor = False ' - 'txtCRNSicherheitsbetrag + 'txtPosSicherheitsbetrag ' - Me.txtCRNSicherheitsbetrag.Enabled = False - Me.txtCRNSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCRNSicherheitsbetrag.Location = New System.Drawing.Point(1172, 204) - Me.txtCRNSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0) - Me.txtCRNSicherheitsbetrag.Name = "txtCRNSicherheitsbetrag" - Me.txtCRNSicherheitsbetrag.Size = New System.Drawing.Size(100, 24) - Me.txtCRNSicherheitsbetrag.TabIndex = 29 + Me.txtPosSicherheitsbetrag.Enabled = False + Me.txtPosSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPosSicherheitsbetrag.Location = New System.Drawing.Point(1172, 204) + Me.txtPosSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0) + Me.txtPosSicherheitsbetrag.Name = "txtPosSicherheitsbetrag" + Me.txtPosSicherheitsbetrag.Size = New System.Drawing.Size(100, 24) + Me.txtPosSicherheitsbetrag.TabIndex = 29 ' - 'txtCRNWarenwert + 'txtPosWarenwert ' - Me.txtCRNWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCRNWarenwert.Location = New System.Drawing.Point(1072, 204) - Me.txtCRNWarenwert.Margin = New System.Windows.Forms.Padding(0) - Me.txtCRNWarenwert.Name = "txtCRNWarenwert" - Me.txtCRNWarenwert.Size = New System.Drawing.Size(100, 24) - Me.txtCRNWarenwert.TabIndex = 28 + Me.txtPosWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPosWarenwert.Location = New System.Drawing.Point(1072, 204) + Me.txtPosWarenwert.Margin = New System.Windows.Forms.Padding(0) + Me.txtPosWarenwert.Name = "txtPosWarenwert" + Me.txtPosWarenwert.Size = New System.Drawing.Size(100, 24) + Me.txtPosWarenwert.TabIndex = 28 ' - 'txtCRN + 'txtPositionenCRN ' - Me.txtCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCRN.Location = New System.Drawing.Point(708, 204) - Me.txtCRN.Margin = New System.Windows.Forms.Padding(0) - Me.txtCRN.Name = "txtCRN" - Me.txtCRN.Size = New System.Drawing.Size(205, 24) - Me.txtCRN.TabIndex = 25 + Me.txtPositionenCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPositionenCRN.Location = New System.Drawing.Point(708, 204) + Me.txtPositionenCRN.Margin = New System.Windows.Forms.Padding(0) + Me.txtPositionenCRN.Name = "txtPositionenCRN" + Me.txtPositionenCRN.Size = New System.Drawing.Size(205, 24) + Me.txtPositionenCRN.TabIndex = 25 ' 'txtMRNSicherheitsbetrag ' @@ -511,7 +511,7 @@ Partial Class frmGesamtsicherheitenNEU Me.btn_resetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn_resetSearch.ForeColor = System.Drawing.Color.Black Me.btn_resetSearch.Image = Global.AVISO.My.Resources.Resources.refresh - Me.btn_resetSearch.Location = New System.Drawing.Point(354, 28) + Me.btn_resetSearch.Location = New System.Drawing.Point(610, 33) Me.btn_resetSearch.Name = "btn_resetSearch" Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33) Me.btn_resetSearch.TabIndex = 3 @@ -523,7 +523,7 @@ Partial Class frmGesamtsicherheitenNEU Me.lblZollsatz.AutoSize = True Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew - Me.lblZollsatz.Location = New System.Drawing.Point(1010, 190) + Me.lblZollsatz.Location = New System.Drawing.Point(962, 168) Me.lblZollsatz.Name = "lblZollsatz" Me.lblZollsatz.Size = New System.Drawing.Size(85, 16) Me.lblZollsatz.TabIndex = 4 @@ -535,7 +535,7 @@ Partial Class frmGesamtsicherheitenNEU Me.lblReferenzwert.AutoSize = True Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew - Me.lblReferenzwert.Location = New System.Drawing.Point(1010, 168) + Me.lblReferenzwert.Location = New System.Drawing.Point(962, 152) Me.lblReferenzwert.Name = "lblReferenzwert" Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16) Me.lblReferenzwert.TabIndex = 1 @@ -547,7 +547,7 @@ Partial Class frmGesamtsicherheitenNEU Me.lblSaldo.AutoSize = True Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew - Me.lblSaldo.Location = New System.Drawing.Point(1152, 160) + Me.lblSaldo.Location = New System.Drawing.Point(1225, 152) Me.lblSaldo.Name = "lblSaldo" Me.lblSaldo.Size = New System.Drawing.Size(147, 24) Me.lblSaldo.TabIndex = 5 @@ -556,11 +556,13 @@ Partial Class frmGesamtsicherheitenNEU 'panOben ' Me.panOben.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.panOben.Controls.Add(Me.Label20) + Me.panOben.Controls.Add(Me.TextBox1) Me.panOben.Controls.Add(Me.Panel1) - Me.panOben.Controls.Add(Me.btnDeleteClose) - Me.panOben.Controls.Add(Me.btnDeleteOpen) - Me.panOben.Controls.Add(Me.btnUpdateClose) - Me.panOben.Controls.Add(Me.btnUpdateOpen) + Me.panOben.Controls.Add(Me.btnDeletePos) + Me.panOben.Controls.Add(Me.btnDeleteSicherheit) + Me.panOben.Controls.Add(Me.btnUpdatePos) + Me.panOben.Controls.Add(Me.btnUpdateSicherheit) Me.panOben.Controls.Add(Me.Label15) Me.panOben.Controls.Add(Me.txtPos) Me.panOben.Controls.Add(Me.Label14) @@ -579,19 +581,19 @@ Partial Class frmGesamtsicherheitenNEU Me.panOben.Controls.Add(Me.Label3) Me.panOben.Controls.Add(Me.Label2) Me.panOben.Controls.Add(Me.Label1) - Me.panOben.Controls.Add(Me.txtFreitextClose) + Me.panOben.Controls.Add(Me.txtPosFreitext) Me.panOben.Controls.Add(Me.txtFreitextOpen) - Me.panOben.Controls.Add(Me.btnAddClose) - Me.panOben.Controls.Add(Me.btnAddOpen) + Me.panOben.Controls.Add(Me.btnAddPos) + Me.panOben.Controls.Add(Me.btnAddSicherheit) Me.panOben.Controls.Add(Me.lblGestellungNr) Me.panOben.Controls.Add(Me.txtCRNTime) Me.panOben.Controls.Add(Me.txtCRNDate) Me.panOben.Controls.Add(Me.txtMRNTime) Me.panOben.Controls.Add(Me.txtMRNDate) Me.panOben.Controls.Add(Me.btnSaveOben) - Me.panOben.Controls.Add(Me.txtCRNSicherheitsbetrag) - Me.panOben.Controls.Add(Me.txtCRNWarenwert) - Me.panOben.Controls.Add(Me.txtCRN) + Me.panOben.Controls.Add(Me.txtPosSicherheitsbetrag) + Me.panOben.Controls.Add(Me.txtPosWarenwert) + Me.panOben.Controls.Add(Me.txtPositionenCRN) Me.panOben.Controls.Add(Me.txtMRNSicherheitsbetrag) Me.panOben.Controls.Add(Me.txtMRNWarenwert) Me.panOben.Controls.Add(Me.txtMRN) @@ -605,15 +607,35 @@ Partial Class frmGesamtsicherheitenNEU Me.panOben.Size = New System.Drawing.Size(1384, 290) Me.panOben.TabIndex = 0 ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label20.Location = New System.Drawing.Point(918, 237) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(25, 13) + Me.Label20.TabIndex = 42 + Me.Label20.Text = "Pos" + ' + 'TextBox1 + ' + Me.TextBox1.Enabled = False + Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox1.Location = New System.Drawing.Point(921, 250) + Me.TextBox1.Margin = New System.Windows.Forms.Padding(0) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(37, 24) + Me.TextBox1.TabIndex = 43 + ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight Me.Panel1.Controls.Add(Me.txtDatBis) Me.Panel1.Controls.Add(Me.btnSuche) Me.Panel1.Controls.Add(Me.Label26) - Me.Panel1.Controls.Add(Me.Button7) - Me.Panel1.Controls.Add(Me.Button6) - Me.Panel1.Controls.Add(Me.Button5) + Me.Panel1.Controls.Add(Me.btnBisTag) + Me.Panel1.Controls.Add(Me.btnVonTag) + Me.Panel1.Controls.Add(Me.btnTag) Me.Panel1.Controls.Add(Me.txtDatVon) Me.Panel1.Controls.Add(Me.Label24) Me.Panel1.Controls.Add(Me.btnJahr) @@ -627,13 +649,11 @@ Partial Class frmGesamtsicherheitenNEU Me.Panel1.Controls.Add(Me.DateTimePicker1) Me.Panel1.Controls.Add(Me.btnSucheStarten) Me.Panel1.Controls.Add(Me.Label23) - Me.Panel1.Controls.Add(Me.cbxWarenort) + Me.Panel1.Controls.Add(Me.cbx_Suche_Warenort) Me.Panel1.Controls.Add(Me.Label19) - Me.Panel1.Controls.Add(Me.cbxFiliale) + Me.Panel1.Controls.Add(Me.cbx_Suche_Filiale) Me.Panel1.Controls.Add(Me.btnNeu) - Me.Panel1.Controls.Add(Me.txtLKW) - Me.Panel1.Controls.Add(Me.txtAbfNr) - Me.Panel1.Controls.Add(Me.Label20) + Me.Panel1.Controls.Add(Me.txt_Suche) Me.Panel1.Controls.Add(Me.Label21) Me.Panel1.Controls.Add(Me.Label22) Me.Panel1.Controls.Add(Me.btn_resetSearch) @@ -641,7 +661,6 @@ Partial Class frmGesamtsicherheitenNEU Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(1384, 97) Me.Panel1.TabIndex = 10 - Me.Panel1.Visible = False ' 'txtDatBis ' @@ -674,7 +693,7 @@ Partial Class frmGesamtsicherheitenNEU Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSuche.Location = New System.Drawing.Point(414, 19) + Me.btnSuche.Location = New System.Drawing.Point(692, 20) Me.btnSuche.Name = "btnSuche" Me.btnSuche.Size = New System.Drawing.Size(162, 52) Me.btnSuche.TabIndex = 35 @@ -691,49 +710,49 @@ Partial Class frmGesamtsicherheitenNEU Me.Label26.TabIndex = 34 Me.Label26.Text = "Datum" ' - 'Button7 + 'btnBisTag ' - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button7.ForeColor = System.Drawing.Color.Black - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.Location = New System.Drawing.Point(284, 7) - Me.Button7.Margin = New System.Windows.Forms.Padding(0) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(34, 23) - Me.Button7.TabIndex = 26 - Me.Button7.Text = ">>" - Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.UseVisualStyleBackColor = True + Me.btnBisTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisTag.ForeColor = System.Drawing.Color.Black + Me.btnBisTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisTag.Location = New System.Drawing.Point(284, 7) + Me.btnBisTag.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisTag.Name = "btnBisTag" + Me.btnBisTag.Size = New System.Drawing.Size(34, 23) + Me.btnBisTag.TabIndex = 26 + Me.btnBisTag.Text = ">>" + Me.btnBisTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisTag.UseVisualStyleBackColor = True ' - 'Button6 + 'btnVonTag ' - Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button6.ForeColor = System.Drawing.Color.Black - Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button6.Location = New System.Drawing.Point(165, 7) - Me.Button6.Margin = New System.Windows.Forms.Padding(0) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(34, 23) - Me.Button6.TabIndex = 24 - Me.Button6.Text = "<<" - Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button6.UseVisualStyleBackColor = True + Me.btnVonTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonTag.ForeColor = System.Drawing.Color.Black + Me.btnVonTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonTag.Location = New System.Drawing.Point(165, 7) + Me.btnVonTag.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonTag.Name = "btnVonTag" + Me.btnVonTag.Size = New System.Drawing.Size(34, 23) + Me.btnVonTag.TabIndex = 24 + Me.btnVonTag.Text = "<<" + Me.btnVonTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonTag.UseVisualStyleBackColor = True ' - 'Button5 + 'btnTag ' - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button5.ForeColor = System.Drawing.Color.Black - Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.Location = New System.Drawing.Point(198, 7) - Me.Button5.Margin = New System.Windows.Forms.Padding(0) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(87, 23) - Me.Button5.TabIndex = 25 - Me.Button5.Text = "Heute" - Me.Button5.UseVisualStyleBackColor = True + Me.btnTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnTag.ForeColor = System.Drawing.Color.Black + Me.btnTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTag.Location = New System.Drawing.Point(198, 7) + Me.btnTag.Margin = New System.Windows.Forms.Padding(0) + Me.btnTag.Name = "btnTag" + Me.btnTag.Size = New System.Drawing.Size(87, 23) + Me.btnTag.TabIndex = 25 + Me.btnTag.Text = "Heute" + Me.btnTag.UseVisualStyleBackColor = True ' 'txtDatVon ' @@ -916,43 +935,43 @@ Partial Class frmGesamtsicherheitenNEU Me.Label23.TabIndex = 13 Me.Label23.Text = "Bis" ' - 'cbxWarenort + 'cbx_Suche_Warenort ' - Me.cbxWarenort._allowedValuesFreiText = Nothing - Me.cbxWarenort._allowFreiText = False - Me.cbxWarenort._value = "" - Me.cbxWarenort.DropDownWidth = 300 - Me.cbxWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxWarenort.FormattingEnabled = True - Me.cbxWarenort.Location = New System.Drawing.Point(663, 29) - Me.cbxWarenort.MaxLength = 4 - Me.cbxWarenort.Name = "cbxWarenort" - Me.cbxWarenort.Size = New System.Drawing.Size(95, 24) - Me.cbxWarenort.TabIndex = 9 + Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing + Me.cbx_Suche_Warenort._allowFreiText = False + Me.cbx_Suche_Warenort._value = "" + Me.cbx_Suche_Warenort.DropDownWidth = 300 + Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_Suche_Warenort.FormattingEnabled = True + Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(345, 20) + Me.cbx_Suche_Warenort.MaxLength = 4 + Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort" + Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24) + Me.cbx_Suche_Warenort.TabIndex = 9 ' 'Label19 ' Me.Label19.AutoSize = True Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.Location = New System.Drawing.Point(660, 16) + Me.Label19.Location = New System.Drawing.Point(342, 7) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(63, 13) Me.Label19.TabIndex = 8 Me.Label19.Text = "Warenort:" ' - 'cbxFiliale + 'cbx_Suche_Filiale ' - Me.cbxFiliale._allowedValuesFreiText = Nothing - Me.cbxFiliale._allowFreiText = False - Me.cbxFiliale._value = "" - Me.cbxFiliale.DropDownWidth = 300 - Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxFiliale.FormattingEnabled = True - Me.cbxFiliale.Location = New System.Drawing.Point(783, 32) - Me.cbxFiliale.MaxLength = 4 - Me.cbxFiliale.Name = "cbxFiliale" - Me.cbxFiliale.Size = New System.Drawing.Size(95, 21) - Me.cbxFiliale.TabIndex = 2 + Me.cbx_Suche_Filiale._allowedValuesFreiText = Nothing + Me.cbx_Suche_Filiale._allowFreiText = False + Me.cbx_Suche_Filiale._value = "" + Me.cbx_Suche_Filiale.DropDownWidth = 300 + Me.cbx_Suche_Filiale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_Suche_Filiale.FormattingEnabled = True + Me.cbx_Suche_Filiale.Location = New System.Drawing.Point(493, 21) + Me.cbx_Suche_Filiale.MaxLength = 4 + Me.cbx_Suche_Filiale.Name = "cbx_Suche_Filiale" + Me.cbx_Suche_Filiale.Size = New System.Drawing.Size(95, 21) + Me.cbx_Suche_Filiale.TabIndex = 2 ' 'btnNeu ' @@ -961,124 +980,105 @@ Partial Class frmGesamtsicherheitenNEU Me.btnNeu.FlatAppearance.BorderSize = 0 Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNeu.ForeColor = System.Drawing.Color.Black - Me.btnNeu.Location = New System.Drawing.Point(1156, 31) + Me.btnNeu.Location = New System.Drawing.Point(1262, 31) Me.btnNeu.Name = "btnNeu" Me.btnNeu.Size = New System.Drawing.Size(75, 23) Me.btnNeu.TabIndex = 7 Me.btnNeu.Text = "Neu" Me.btnNeu.UseVisualStyleBackColor = False ' - 'txtLKW + 'txt_Suche ' - Me.txtLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtLKW.Location = New System.Drawing.Point(1055, 32) - Me.txtLKW.Margin = New System.Windows.Forms.Padding(0) - Me.txtLKW.Name = "txtLKW" - Me.txtLKW.Size = New System.Drawing.Size(79, 24) - Me.txtLKW.TabIndex = 6 - ' - 'txtAbfNr - ' - Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfNr.Location = New System.Drawing.Point(898, 32) - Me.txtAbfNr.Margin = New System.Windows.Forms.Padding(0) - Me.txtAbfNr.Name = "txtAbfNr" - Me.txtAbfNr.Size = New System.Drawing.Size(122, 24) - Me.txtAbfNr.TabIndex = 4 - ' - 'Label20 - ' - Me.Label20.AutoSize = True - Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label20.Location = New System.Drawing.Point(1052, 16) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(55, 13) - Me.Label20.TabIndex = 5 - Me.Label20.Text = "LKW-ID:" + Me.txt_Suche.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txt_Suche.Location = New System.Drawing.Point(345, 68) + Me.txt_Suche.Margin = New System.Windows.Forms.Padding(0) + Me.txt_Suche.Name = "txt_Suche" + Me.txt_Suche.Size = New System.Drawing.Size(243, 24) + Me.txt_Suche.TabIndex = 4 ' 'Label21 ' Me.Label21.AutoSize = True Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label21.Location = New System.Drawing.Point(895, 16) + Me.Label21.Location = New System.Drawing.Point(342, 52) Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(125, 13) + Me.Label21.Size = New System.Drawing.Size(47, 13) Me.Label21.TabIndex = 3 - Me.Label21.Text = "Abfertigungsnummer:" + Me.Label21.Text = "Suche:" ' 'Label22 ' Me.Label22.AutoSize = True Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label22.Location = New System.Drawing.Point(780, 16) + Me.Label22.Location = New System.Drawing.Point(490, 5) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(44, 13) Me.Label22.TabIndex = 1 Me.Label22.Text = "Filiale:" ' - 'btnDeleteClose + 'btnDeletePos ' - Me.btnDeleteClose.allowBorder = False - Me.btnDeleteClose.BackColor = System.Drawing.Color.White - Me.btnDeleteClose.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnDeleteClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnDeleteClose.FlatAppearance.BorderSize = 0 - Me.btnDeleteClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDeleteClose.ForeColor = System.Drawing.Color.Black - Me.btnDeleteClose.Location = New System.Drawing.Point(1348, 195) - Me.btnDeleteClose.Name = "btnDeleteClose" - Me.btnDeleteClose.Size = New System.Drawing.Size(24, 24) - Me.btnDeleteClose.TabIndex = 7 - Me.btnDeleteClose.UseVisualStyleBackColor = False - Me.btnDeleteClose.Visible = False + Me.btnDeletePos.allowBorder = False + Me.btnDeletePos.BackColor = System.Drawing.Color.White + Me.btnDeletePos.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeletePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeletePos.FlatAppearance.BorderSize = 0 + Me.btnDeletePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeletePos.ForeColor = System.Drawing.Color.Black + Me.btnDeletePos.Location = New System.Drawing.Point(1348, 195) + Me.btnDeletePos.Name = "btnDeletePos" + Me.btnDeletePos.Size = New System.Drawing.Size(24, 24) + Me.btnDeletePos.TabIndex = 7 + Me.btnDeletePos.UseVisualStyleBackColor = False + Me.btnDeletePos.Visible = False ' - 'btnDeleteOpen + 'btnDeleteSicherheit ' - Me.btnDeleteOpen.allowBorder = False - Me.btnDeleteOpen.BackColor = System.Drawing.Color.White - Me.btnDeleteOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnDeleteOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnDeleteOpen.FlatAppearance.BorderSize = 0 - Me.btnDeleteOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDeleteOpen.ForeColor = System.Drawing.Color.Black - Me.btnDeleteOpen.Location = New System.Drawing.Point(654, 175) - Me.btnDeleteOpen.Name = "btnDeleteOpen" - Me.btnDeleteOpen.Size = New System.Drawing.Size(24, 24) - Me.btnDeleteOpen.TabIndex = 6 - Me.btnDeleteOpen.UseVisualStyleBackColor = False - Me.btnDeleteOpen.Visible = False + Me.btnDeleteSicherheit.allowBorder = False + Me.btnDeleteSicherheit.BackColor = System.Drawing.Color.White + Me.btnDeleteSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeleteSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeleteSicherheit.FlatAppearance.BorderSize = 0 + Me.btnDeleteSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteSicherheit.ForeColor = System.Drawing.Color.Black + Me.btnDeleteSicherheit.Location = New System.Drawing.Point(654, 175) + Me.btnDeleteSicherheit.Name = "btnDeleteSicherheit" + Me.btnDeleteSicherheit.Size = New System.Drawing.Size(24, 24) + Me.btnDeleteSicherheit.TabIndex = 6 + Me.btnDeleteSicherheit.UseVisualStyleBackColor = False + Me.btnDeleteSicherheit.Visible = False ' - 'btnUpdateClose + 'btnUpdatePos ' - Me.btnUpdateClose.allowBorder = False - Me.btnUpdateClose.BackColor = System.Drawing.Color.White - Me.btnUpdateClose.BackgroundImage = Global.AVISO.My.Resources.Resources.ok - Me.btnUpdateClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnUpdateClose.FlatAppearance.BorderSize = 0 - Me.btnUpdateClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdateClose.ForeColor = System.Drawing.Color.Black - Me.btnUpdateClose.Location = New System.Drawing.Point(1348, 257) - Me.btnUpdateClose.Name = "btnUpdateClose" - Me.btnUpdateClose.Size = New System.Drawing.Size(24, 24) - Me.btnUpdateClose.TabIndex = 37 - Me.btnUpdateClose.UseVisualStyleBackColor = False - Me.btnUpdateClose.Visible = False + Me.btnUpdatePos.allowBorder = False + Me.btnUpdatePos.BackColor = System.Drawing.Color.White + Me.btnUpdatePos.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdatePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdatePos.FlatAppearance.BorderSize = 0 + Me.btnUpdatePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdatePos.ForeColor = System.Drawing.Color.Black + Me.btnUpdatePos.Location = New System.Drawing.Point(1348, 257) + Me.btnUpdatePos.Name = "btnUpdatePos" + Me.btnUpdatePos.Size = New System.Drawing.Size(24, 24) + Me.btnUpdatePos.TabIndex = 37 + Me.btnUpdatePos.UseVisualStyleBackColor = False + Me.btnUpdatePos.Visible = False ' - 'btnUpdateOpen + 'btnUpdateSicherheit ' - Me.btnUpdateOpen.allowBorder = False - Me.btnUpdateOpen.BackColor = System.Drawing.Color.White - Me.btnUpdateOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.ok - Me.btnUpdateOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnUpdateOpen.FlatAppearance.BorderSize = 0 - Me.btnUpdateOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdateOpen.ForeColor = System.Drawing.Color.Black - Me.btnUpdateOpen.Location = New System.Drawing.Point(654, 237) - Me.btnUpdateOpen.Name = "btnUpdateOpen" - Me.btnUpdateOpen.Size = New System.Drawing.Size(24, 24) - Me.btnUpdateOpen.TabIndex = 35 - Me.btnUpdateOpen.UseVisualStyleBackColor = False - Me.btnUpdateOpen.Visible = False + Me.btnUpdateSicherheit.allowBorder = False + Me.btnUpdateSicherheit.BackColor = System.Drawing.Color.White + Me.btnUpdateSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdateSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdateSicherheit.FlatAppearance.BorderSize = 0 + Me.btnUpdateSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdateSicherheit.ForeColor = System.Drawing.Color.Black + Me.btnUpdateSicherheit.Location = New System.Drawing.Point(654, 237) + Me.btnUpdateSicherheit.Name = "btnUpdateSicherheit" + Me.btnUpdateSicherheit.Size = New System.Drawing.Size(24, 24) + Me.btnUpdateSicherheit.TabIndex = 35 + Me.btnUpdateSicherheit.UseVisualStyleBackColor = False + Me.btnUpdateSicherheit.Visible = False ' 'Label15 ' @@ -1262,14 +1262,14 @@ Partial Class frmGesamtsicherheitenNEU Me.Label1.TabIndex = 8 Me.Label1.Text = "ATB Nummer" ' - 'txtFreitextClose + 'txtPosFreitext ' - Me.txtFreitextClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFreitextClose.Location = New System.Drawing.Point(1017, 250) - Me.txtFreitextClose.Margin = New System.Windows.Forms.Padding(0) - Me.txtFreitextClose.Name = "txtFreitextClose" - Me.txtFreitextClose.Size = New System.Drawing.Size(255, 24) - Me.txtFreitextClose.TabIndex = 41 + Me.txtPosFreitext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPosFreitext.Location = New System.Drawing.Point(1017, 250) + Me.txtPosFreitext.Margin = New System.Windows.Forms.Padding(0) + Me.txtPosFreitext.Name = "txtPosFreitext" + Me.txtPosFreitext.Size = New System.Drawing.Size(255, 24) + Me.txtPosFreitext.TabIndex = 41 ' 'txtFreitextOpen ' @@ -1293,12 +1293,12 @@ Partial Class frmGesamtsicherheitenNEU Me.Name = "frmGesamtsicherheitenNEU" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "frmGesSich" - CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip1.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.panOverlay.ResumeLayout(False) Me.panOverlay.PerformLayout() - CType(Me.dgvGesamtsicherheitPositionen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit() Me.panOben.ResumeLayout(False) Me.panOben.PerformLayout() Me.Panel1.ResumeLayout(False) @@ -1307,20 +1307,20 @@ Partial Class frmGesamtsicherheitenNEU End Sub - Friend WithEvents dgvGesamtsicherheitMRN As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents dgvGesamtsicherheit As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents Panel2 As Panel - Friend WithEvents dgvGesamtsicherheitPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview - Friend WithEvents btnAddClose As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents btnAddOpen As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents dgvSicherheitsPos As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents btnAddPos As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnAddSicherheit As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents lblGestellungNr As Label Friend WithEvents txtCRNTime As TextBox Friend WithEvents txtCRNDate As TextBox Friend WithEvents txtMRNTime As TextBox Friend WithEvents txtMRNDate As TextBox Friend WithEvents btnSaveOben As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents txtCRNSicherheitsbetrag As TextBox - Friend WithEvents txtCRNWarenwert As TextBox - Friend WithEvents txtCRN As TextBox + Friend WithEvents txtPosSicherheitsbetrag As TextBox + Friend WithEvents txtPosWarenwert As TextBox + Friend WithEvents txtPositionenCRN As TextBox Friend WithEvents txtMRNSicherheitsbetrag As TextBox Friend WithEvents txtMRNWarenwert As TextBox Friend WithEvents txtMRN As TextBox @@ -1329,7 +1329,7 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents lblReferenzwert As Label Friend WithEvents lblSaldo As Label Friend WithEvents panOben As Panel - Friend WithEvents txtFreitextClose As TextBox + Friend WithEvents txtPosFreitext As TextBox Friend WithEvents txtFreitextOpen As TextBox Friend WithEvents Label14 As Label Friend WithEvents txtEust As TextBox @@ -1358,30 +1358,28 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents Label16 As Label Friend WithEvents btnClosePanOverlay As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents btnUpdateClose As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents btnUpdateOpen As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents btnDeleteClose As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents btnDeleteOpen As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnUpdatePos As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnUpdateSicherheit As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnDeletePos As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnDeleteSicherheit As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents cboWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents lblWarenort As Label Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents ClosedErzeugenToolStripMenuItem As ToolStripMenuItem Friend WithEvents Panel1 As Panel - Friend WithEvents cbxWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbx_Suche_Warenort As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label19 As Label - Friend WithEvents cbxFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbx_Suche_Filiale As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents txtLKW As TextBox - Friend WithEvents txtAbfNr As TextBox - Friend WithEvents Label20 As Label + Friend WithEvents txt_Suche As TextBox Friend WithEvents Label21 As Label Friend WithEvents Label22 As Label Friend WithEvents btnSucheStarten As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents Label23 As Label Friend WithEvents Label26 As Label - Friend WithEvents Button7 As Button - Friend WithEvents Button6 As Button - Friend WithEvents Button5 As Button + Friend WithEvents btnBisTag As Button + Friend WithEvents btnVonTag As Button + Friend WithEvents btnTag As Button Friend WithEvents txtDatVon As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label24 As Label Friend WithEvents btnJahr As Button @@ -1395,4 +1393,6 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents DateTimePicker1 As DateTimePicker Friend WithEvents btnSuche As Button Friend WithEvents txtDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label20 As Label + Friend WithEvents TextBox1 As TextBox End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 7d86c17..e37b04d 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -7,14 +7,13 @@ Imports VERAG_PROG_ALLGEMEIN Public Class frmGesamtsicherheitenNEU + 'Dim openopened As cSicherheiten - Dim openopened As cSicherheiten + 'Dim closedopened As cSicherheiten - Dim closedopened As cSicherheiten - - Dim sicherheiten As cSicherheiten - Property GesSichRef As cGesamtsicherheitsReferenz - Property GesSichPos As cGesamtsicherheitsPositionen + Dim currentSicherheit As cSicherheiten + Property currentSPos As cGesamtsicherheitsPositionen + Property currentGesSichRef As cGesamtsicherheitsReferenz Public Property gessicherheitID As Integer Public Property datum As DateTime = Nothing Property Standort As String = "" @@ -35,6 +34,8 @@ Public Class frmGesamtsicherheitenNEU Public warenortID As String + Dim indexGsId As Integer = 0 + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) @@ -43,85 +44,78 @@ Public Class frmGesamtsicherheitenNEU Dim JAHR As Date = CDate("01.01." & Now.Year) - Private Sub btn_resetSearch_Click(sender As Object, e As EventArgs) Handles btn_resetSearch.Click - Dim dgv As String = "" - For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns - dgv &= c.Width & c.HeaderText & vbCrLf - Next - LoadDGV() - GesSichRef.LOAD() + Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort) + lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N") + + + + If setNullToZero(gessicherheitID) = 0 Or Neu = True Then + 'panOben.Enabled = False : panOben.Enabled = False + Panel1.Enabled = True + 'panOverlay.Visible = True + cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + + cbx_Suche_Filiale.Items.AddRange(cboFiliale.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) + cbx_Suche_Warenort.Items.AddRange(cboWarenort.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) + + If datum = Nothing Then datum = Date.Now + Else + LoadDGVSicherheiten() + End If LoadStandort() - End Sub + cboATR.Enabled = currentGesSichRef.gsr_ATR + Zollsatz = currentGesSichRef.gsr_zollsatz - Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load + txtDatVon.Text = Date.Today.ToString("dd.MM.yyyy") + txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy") btnMonat.Text = MONAT.ToString("MMMM") btnJahr.Text = JAHR.Year - If setNullToZero(gessicherheitID) = "" Or Neu = True Then - panOben.Enabled = False : panOben.Enabled = False - 'panOverlay.Visible = True - cbxFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - cbxFiliale.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) - If datum = Nothing Then datum = Date.Now - Else - LoadDGV() - End If - LoadStandort() - cboATR.Enabled = GesSichRef.gsr_ATR - Zollsatz = GesSichRef.gsr_zollsatz - Me.Text = "Gesamtsicherheit " & Standort - frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitPositionen) + frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos) End Sub - Public Sub LoadDGV() + Public Sub LoadDGVSicherheiten() - lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString() + lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString() lblGestellungNr.Text = "" Dim sqladd1 As String = "" - If GesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust" - If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]" + If currentGesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust" + If currentGesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]" Dim addtosqlstring As String = "" - Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' order by [gs_datum]" - dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,) - dgvGesamtsicherheitMRN.LOAD() + Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & + sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] + where gs_standort = '" & Standort & "'And gs_datum > '" & Date.Parse(txtDatVon.Text) & "' And gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" & + "AND (gs_abfertigungsNr Like '%" & txt_Suche.Text & "%' OR" & + " gs_ATBNr like '%" & txt_Suche.Text & "%' OR" & + " gs_LKWID like '%" & txt_Suche.Text & "%' OR" & + " gs_warenort like '%" & cbx_Suche_Warenort.Text & "%') order by [gs_datum]" - Dim SQLStringCRN As String = "select [gsp_gspPosId] ,[gsp_gsId],[gsp_warenwert],[gsp_sicherheitsbetrag],[gsp_freitext],[gsp_art] ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_ATCNr] ,[gsp_MRNNr] from [tblGesamtsicherheitsPositionen] where [gsp_gsId] = '" & gessicherheitID & "' order by [gsp_gspPosId]" - dgvGesamtsicherheitPositionen.SET_SQL(SQLStringCRN, "AVISO", ,) - dgvGesamtsicherheitPositionen.LOAD() - - Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'" - Dim dt As New DataTable - dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) - - If dt.Rows.Count > 0 Then - Me.LKWID = setNullToZero(dt.Rows(0).Item("gs_LKWID")) - Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr")) - Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr")) - Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort")) - - If Me.LKWID.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWID & " " - If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " " - If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " " - If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " " - End If + dgvGesamtsicherheit.SET_SQL(SQLStringMRN, "AVISO", ,) + dgvGesamtsicherheit.LOAD() - If dgvGesamtsicherheitMRN.Columns.Count > 0 Then - With dgvGesamtsicherheitMRN + + + + If dgvGesamtsicherheit.Columns.Count > 0 Then + With dgvGesamtsicherheit .RowHeadersWidth = 10 .Columns("gs_gsId").Visible = False .Columns("gs_warenwert").DefaultCellStyle.Format = "c" .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" .Columns("gs_saldo").DefaultCellStyle.Format = "c" .Columns("gs_saldo").Visible = False - Select Case GesSichRef.gsr_ATR + Select Case currentGesSichRef.gsr_ATR Case True .Columns("gs_ATBNr").HeaderText = "ATB" .Columns("gs_atr").HeaderText = "ATR" @@ -141,71 +135,113 @@ Public Class frmGesamtsicherheitenNEU .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill End With + + 'For Each row As DataGridViewRow In dgvGesamtsicherheit.Rows + ' If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then + ' row.DefaultCellStyle.BackColor = Color.Red + ' Else + ' row.DefaultCellStyle.BackColor = Color.Green + ' End If + 'Next + End If - If dgvGesamtsicherheitPositionen.Columns.Count > 0 Then - With dgvGesamtsicherheitPositionen + + End Sub + + Private Sub dgvGesamtsicherheit_SelectionChanged(sender As Object, e As EventArgs) Handles dgvGesamtsicherheit.SelectionChanged + If dgvGesamtsicherheit.SelectedRows.Count > 0 Then + + indexGsId = CInt(dgvGesamtsicherheit.SelectedRows(0).Cells("gs_gsId").Value) + currentSicherheit = New cSicherheiten(indexGsId) + + LoadDGVSicherheitsPos(indexGsId) + loadTitle(indexGsId) + + If dgvGesamtsicherheit.Enabled = False Then Exit Sub + + End If + End Sub + + Public Sub LoadDGVSicherheitsPos(gsId As Integer) + + If gsId = 0 Then Exit Sub + + Dim SQLStringCRN As String = "select [gsp_gspPosId] ,[gsp_gsId],[gsp_warenwert],[gsp_sicherheitsbetrag],[gsp_freitext],[gsp_art] ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_ATCNr] ,[gsp_MRNNr] from [tblGesamtsicherheitsPositionen] where [gsp_gsId] = '" & gsId & "' order by [gsp_gspPosId]" + dgvSicherheitsPos.SET_SQL(SQLStringCRN, "AVISO", ,) + dgvSicherheitsPos.LOAD() + + If dgvSicherheitsPos.Columns.Count > 0 Then + With dgvSicherheitsPos .RowHeadersWidth = 10 .Columns("gsp_gsId").Visible = False - .Columns("gs_warenwert").DefaultCellStyle.Format = "c" - .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" - .Columns("gs_saldo").DefaultCellStyle.Format = "c" - .Columns("gs_saldo").Visible = False - Select Case GesSichRef.gsr_ATR + .Columns("gsp_warenwert").DefaultCellStyle.Format = "c" + .Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c" + '.Columns("gs_saldo").DefaultCellStyle.Format = "c" + '.Columns("gs_saldo").Visible = False + Select Case currentGesSichRef.gsr_ATR Case True - .Columns("gs_ATBNr").HeaderText = "ATC / MRN" + .Columns("gsp_ATCNr").HeaderText = "ATC / MRN" Case Else - .Columns("gs_ATBNr").HeaderText = "CRN" + .Columns("gsp_ATCNr").HeaderText = "CRN" End Select - .Columns("gs_ATBNr").Width = 120 - .Columns("gs_datum").Width = 140 - .Columns("gs_warenwert").Width = 100 - .Columns("gs_sicherheitsbetrag").Width = 100 - .Columns("gs_freitext").Width = 220 + .Columns("gsp_ATCNr").Width = 120 + '.Columns("gs_datum").Width = 140 + .Columns("gsp_warenwert").Width = 100 + .Columns("gsp_sicherheitsbetrag").Width = 100 + .Columns("gsp_freitext").Width = 220 End With End If + End Sub + Sub loadTitle(indexGsId As Integer) + 'Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'" + + lblGestellungNr.Text = "" + + Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsId] = '" & indexGsId & "'" + + + Dim dt As New DataTable + dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) + + If dt.Rows.Count > 0 Then + Me.LKWID = setNullToZero(dt.Rows(0).Item("gs_LKWID")) + Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr")) + Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr")) + Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort")) + + If Me.LKWID.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWID & " " + If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " " + If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " " + If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " " + End If End Sub Public Sub LoadStandort() - lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString() - lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" - ZollsatzMulti = GesSichRef.gsr_zollsatz / 100 + lblReferenzwert.Text = "Referenzwert: €" & currentGesSichRef.gsr_referenzwert.ToString() + lblZollsatz.Text = "Zollsatz: " & currentGesSichRef.gsr_zollsatz & "%" + ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100 End Sub - - - 'Private Sub CalcSaldo() - ' Dim SaldoString As String = "select SUM([MRN_Sicherheitsbetrag]) as sumone, SUM([CRN_Sicherheitsbetrag]) As sumtwo from [tblGesamtsicherheit]" - ' Dim dt As New DataTable - ' dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True) - ' Dim mrn As Integer = dt.Rows(0).Item(0) - ' Dim crn As Integer = dt.Rows(0).Item(1) - - ' Saldo = Referenzwert - mrn + crn - - ' lblSaldo.Text = "Saldo: €" & Saldo.ToString("N") - 'End Sub - - - Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtCRNWarenwert.TextChanged + Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtPosWarenwert.TextChanged Try Select Case sender.name Case "txtMRNWarenwert" txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N") - If GesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.gsr_ust / 100) + If currentGesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (currentGesSichRef.gsr_ust / 100) Case "txtCRNWarenwert" - txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N") + txtPosSicherheitsbetrag.Text = (txtPosWarenwert.Text * ZollsatzMulti).ToString("N") End Select Catch End Try End Sub - Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMRNWarenwert.KeyPress, txtCRNWarenwert.KeyPress, txtPos.KeyPress + Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMRNWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtPos.KeyPress Select Case Asc(e.KeyChar) Case 48 To 57, 8, 44 ' Zahlen, Backspace und , zulassen @@ -253,7 +289,7 @@ Public Class frmGesamtsicherheitenNEU End Select End Sub - Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click + Private Sub btnAddSicherheit_Click(sender As Object, e As EventArgs) Handles btnAddSicherheit.Click Try @@ -272,50 +308,56 @@ Public Class frmGesamtsicherheitenNEU .gs_gsNr = Me.gessicherheitID .gs_erstellungsdatum = Me.datum .gs_freitext = Me.txtFreitextOpen.Text - .gs_saldo = GesSichRef.gsr_Saldo + .gs_saldo = currentGesSichRef.gsr_Saldo .gs_atr = setNullToZero(cboATR.SelectedItem) setEnviromentDataToObject(OPEN, Me) End With + indexGsId = OPEN.SAVEOBJECT() For count As Integer = 1 To limit - If (count > 1) Then txtMRNWarenwert.Text = 0 + 'If (count > 1) Then txtMRNWarenwert.Text = 0 - Dim OPENPos As New cGesamtsicherheitsPositionen() + Dim OPENPos As New cGesamtsicherheitsPositionen(indexGsId, count) With OPENPos - .gsp_gsId = OPEN.gs_gsId - .gsp_gspPosId = count + '.gsp_gsId = + '.gsp_gspPosId = count .gsp_warenwert = 0 .gsp_sicherheitsbetrag = 0 .gsp_freitext = "" .gsp_filialenNr = OPEN.gs_filialenNr .gsp_art = "OPEN" - .gsp_abfertigungsNr = "" - .gsp_avisoId = "" - .gsp_ust = OPEN.gs_ust + .gsp_abfertigungsNr = OPEN.gs_filialenNr + .gsp_avisoId = OPEN.gs_ATBNr + .gsp_ust = "" .gsp_ATCNr = "" .gsp_MRNNr = "" End With + OPENPos.SAVE() - If Neu = True AndAlso count <= 1 Then OPEN.gs_gsNr = AddNewGesamtSichNr() + 'If Neu = True AndAlso count <= 1 Then OPEN.gs_gsNr = AddNewGesamtSichNr() - Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID) - Case "Neu" - OPEN.SAVE() - Case Else - If (count > 1) Then - OPEN.SAVE() - Else - MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() - End If + 'Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID) + ' Case "Neu" + ' OPEN.SAVE() - End Select + ' Case Else + ' If (count >= 1) Then + ' OPEN.SAVE() + ' OPENPos.SAVE() + ' Else + ' MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() + ' End If + + 'End Select Next - AfterButton() + + + AfterButton() Catch ex As Exception @@ -323,31 +365,42 @@ Public Class frmGesamtsicherheitenNEU End Try End Sub - Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click + Private Sub btnAddPos_Click(sender As Object, e As EventArgs) Handles btnAddPos.Click + + If dgvGesamtsicherheit.SelectedRows.Count = 0 Then + + MsgBox("Bitte Sicherheit markieren, zu diese eine Pos hinzugefügt/entfernt/aktualisiert werden soll") + Exit Sub + End If + Try - 'Dim Close As New cSicherheiten(Me) - Dim Close As New cSicherheiten() - With Close - .gs_ATBNr = txtCRN.Text - .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) - .gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") - .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") - .gs_standort = Me.Standort - .gs_art = "CLOSE" - .gs_gsNr = Me.gessicherheitID - .gs_erstellungsdatum = Me.datum - .gs_freitext = Me.txtFreitextClose.Text - .gs_saldo = GesSichRef.gsr_Saldo + + Dim SicherheitsPos As New cGesamtsicherheitsPositionen() + With SicherheitsPos + .gsp_gsId = currentSicherheit.gs_gsId + .gsp_gspPosId = Me.getLatestPosNr(currentSicherheit.gs_gsId) + 1 + .gsp_warenwert = 0 + .gsp_sicherheitsbetrag = 0 + .gsp_freitext = "" + .gsp_filialenNr = currentSicherheit.gs_filialenNr + .gsp_art = "OPEN" + .gsp_abfertigungsNr = "" + .gsp_avisoId = "" + .gsp_ust = currentSicherheit.gs_ust + .gsp_ATCNr = "" + .gsp_MRNNr = "" End With - If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr() + SicherheitsPos.SAVE() - Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID) - Case "Neu" - Close.SAVE() - Case Else - MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub - End Select + 'If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr() + + 'Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID) + ' Case "Neu" + ' Close.SAVE() + ' Case Else + ' MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub + 'End Select AfterButton() Catch ex As Exception @@ -366,8 +419,8 @@ Public Class frmGesamtsicherheitenNEU End If End Function Sub AfterButton() - GesSichRef.CalcSaldo() - LoadDGV() + currentGesSichRef.CalcSaldo() + LoadDGVSicherheiten() EmptyTXT() End Sub @@ -434,7 +487,7 @@ Public Class frmGesamtsicherheitenNEU End Try Try - Me.warenortID = checkNothingValue(cboWarenort.SelectedItem, "String") + Me.warenortID = checkNothingValue(cbx_Suche_Warenort.SelectedItem, "String") Catch Me.warenortID = "-" @@ -446,7 +499,7 @@ Public Class frmGesamtsicherheitenNEU If setNullToZero(Me.gessicherheitID) >= 0 Then Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' " SQL.doSQL(sqlstring, "AVISO") - LoadDGV() + LoadDGVSicherheiten() End If panOben.Enabled = True : panOben.Enabled = True @@ -472,9 +525,9 @@ Public Class frmGesamtsicherheitenNEU End Function - Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick + Private Sub dgvGesamtsicherheit_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheit.CellContentClick - Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("gs_gsId").Value) + Dim Sicherh As New cSicherheiten(dgvGesamtsicherheit.CurrentRow.Cells("gs_gsId").Value) txtMRN.Text = Sicherh.gs_ATBNr txtPos.Text = Sicherh.gs_posNr @@ -484,15 +537,15 @@ Public Class frmGesamtsicherheitenNEU txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") - openopened = Sicherh + currentSicherheit = Sicherh - btnAddOpen.Visible = False - btnUpdateOpen.Visible = True - btnDeleteOpen.Visible = True + btnAddSicherheit.Visible = False + btnUpdateSicherheit.Visible = True + btnDeleteSicherheit.Visible = True End Sub - Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click - With openopened + Private Sub btnUpdateSicherheit_Click(sender As Object, e As EventArgs) Handles btnUpdateSicherheit.Click + With currentSicherheit .gs_ATBNr = txtMRN.Text .gs_posNr = Double.Parse(setNullToZero(txtPos.Text)) .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) @@ -503,68 +556,69 @@ Public Class frmGesamtsicherheitenNEU .gs_gsNr = Me.gessicherheitID '.MakeDate = Me.MakeDate .gs_freitext = Me.txtFreitextOpen.Text - '.saldo = GesSichRef.Saldo + '.saldo = currentGesSichRef.Saldo .gs_atr = setNullToZero(cboATR.SelectedItem) End With - openopened.SAVE() - btnUpdateOpen.Visible = False - btnAddOpen.Visible = True - btnDeleteOpen.Visible = False + currentSicherheit.SAVE() + btnUpdateSicherheit.Visible = False + btnAddSicherheit.Visible = True + btnDeleteSicherheit.Visible = False AfterButton() End Sub - Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click - With closedopened - .gs_ATBNr = txtCRN.Text - .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) - .gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") - .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") - .gs_standort = Me.Standort - .gs_art = "CLOSE" - .gs_freitext = Me.txtFreitextClose.Text + Private Sub btnUpdatePos_Click(sender As Object, e As EventArgs) Handles btnUpdatePos.Click + With currentSPos + + .gsp_art = "CLOSE" + .gsp_gspPosId = txtPos.Text + .gsp_freitext = txtPosFreitext.Text + .gsp_sicherheitsbetrag = txtPosSicherheitsbetrag.Text + .gsp_warenwert = txtPosWarenwert.Text + .gsp_ATCNr = txtPositionenCRN.Text + End With - closedopened.SAVE() - btnAddClose.Visible = True - btnUpdateClose.Visible = False - btnDeleteClose.Visible = False + currentSPos.SAVE() + btnAddPos.Visible = True + btnUpdatePos.Visible = False + btnDeletePos.Visible = False AfterButton() End Sub - Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitPositionen.CellDoubleClick + Private Sub dgvGesamtsicherheitPositionen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSicherheitsPos.CellContentClick - Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitPositionen.CurrentRow.Cells("gs_gsId").Value) + Dim sPos As New cGesamtsicherheitsPositionen(indexGsId, dgvSicherheitsPos.CurrentRow.Cells("gsp_gspPosId").Value) - txtCRN.Text = Sicherh.gs_ATBNr - txtCRNWarenwert.Text = Sicherh.gs_warenwert - txtFreitextClose.Text = Sicherh.gs_freitext - txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") - txtCRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") + txtPos.Text = sPos.gsp_gspPosId + txtPosFreitext.Text = sPos.gsp_freitext + txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag + txtPosWarenwert.Text = sPos.gsp_sicherheitsbetrag + txtPositionenCRN.Text = sPos.gsp_ATCNr - closedopened = Sicherh + currentSPos = sPos - btnDeleteClose.Visible = True - btnAddClose.Visible = False - btnUpdateClose.Visible = True + btnDeletePos.Visible = True + btnAddPos.Visible = False + btnUpdatePos.Visible = True End Sub - Private Sub btnDeleteOpen_Click(sender As Object, e As EventArgs) Handles btnDeleteOpen.Click + Private Sub btnDeleteSicherheit_Click(sender As Object, e As EventArgs) Handles btnDeleteSicherheit.Click Try - openopened.Delete() - btnUpdateOpen.Visible = False - btnAddOpen.Visible = True - btnDeleteOpen.Visible = False + currentSicherheit.Delete() + btnUpdateSicherheit.Visible = False + btnAddSicherheit.Visible = True + btnDeleteSicherheit.Visible = False AfterButton() Catch ex As Exception MsgBox(ex.Message) End Try End Sub - Private Sub btnDeleteClose_Click_1(sender As Object, e As EventArgs) Handles btnDeleteClose.Click + Private Sub btnDeletePos_Click(sender As Object, e As EventArgs) Handles btnDeletePos.Click Try - closedopened.Delete() - btnUpdateClose.Visible = False - btnAddClose.Visible = True - btnDeleteClose.Visible = False + currentSPos.Delete() + btnUpdatePos.Visible = False + btnAddPos.Visible = True + btnDeletePos.Visible = False AfterButton() Catch ex As Exception MsgBox(ex.Message) @@ -575,15 +629,15 @@ Public Class frmGesamtsicherheitenNEU panOverlay.Visible = True cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer) - cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) - cboWarenort.SelectedIndex = cboWarenort.FindString(Me.warenortID) + cbx_Suche_Warenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + cbx_Suche_Warenort.SelectedIndex = cbx_Suche_Warenort.FindString(Me.warenortID) txtAbfertNum.Text = Me.Abfertigungsnummer txtLKWID.Text = Me.LKWID panOben.Enabled = False End Sub Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click - Close() + panOverlay.Visible = False End Sub Private Function checkMandatoryFieldsAreFilled() As Boolean @@ -607,9 +661,28 @@ Public Class frmGesamtsicherheitenNEU sicherheiten.gs_warenort = gessich.warenortID End Sub - Private Sub ClosedErzeugenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClosedErzeugenToolStripMenuItem.Click - MsgBox("") - End Sub + + + Private Function getLatestPosNr(gs_gsId As Integer) As Integer + Dim posNr As Integer = 0 + Dim sqlq As String = "select MAX([gsp_gspPosId]) as MaxPosNr from tblGesamtsicherheitsPositionen where gsp_gsId = " & gs_gsId + Dim dt As New DataTable + dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) + + If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then + + posNr = dt.Rows(0).Item(0) + + End If + + Return posNr + + End Function + + + 'Kalenderhandling + + Sub initBtns(MonatJahr) btnMonat.Text = MONAT.ToString("MMMM") btnJahr.Text = JAHR.Year @@ -627,13 +700,13 @@ Public Class frmGesamtsicherheitenNEU DateTimePicker1.Value = srcTAG DateTimePicker2.Value = srcTAG If srcTAG = Now.ToShortDateString Then - Button5.Text = "Heute" + btnTag.Text = "Heute" ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then - Button5.Text = "Gestern" + btnTag.Text = "Gestern" ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then - Button5.Text = "Vorgestern" + btnTag.Text = "Vorgestern" Else - Button5.Text = srcTAG.ToString("dd.MM") + btnTag.Text = srcTAG.ToString("dd.MM") End If 'End If @@ -649,6 +722,20 @@ Public Class frmGesamtsicherheitenNEU initBtns("Jahr") End Sub + Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click + JAHR = JAHR.AddYears(1) + initBtns("Jahr") + End Sub + + Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click + JAHR = JAHR.AddYears(-1) + initBtns("Jahr") + End Sub + + Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click + initBtns("Monat") + End Sub + Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click MONAT = MONAT.AddMonths(1) initBtns("Monat") @@ -659,9 +746,19 @@ Public Class frmGesamtsicherheitenNEU initBtns("Monat") End Sub - Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click - JAHR = JAHR.AddYears(1) - initBtns("Jahr") + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnTag.Click + initBtns("Tag") + End Sub + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnVonTag.Click + srcTAG = srcTAG.AddDays(-1) + initBtns("Tag") + End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnBisTag.Click + srcTAG = srcTAG.AddDays(1) + initBtns("Tag") End Sub Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged @@ -672,12 +769,40 @@ Public Class frmGesamtsicherheitenNEU txtDatBis._value = CDate(sender.value).ToShortDateString End Sub - Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles btnNeu.Click - - End Sub - Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click - + Try + Date.Parse(txtDatVon.Text) + Date.Parse(txtDatBis.Text) + If Me.Visible Then LoadDGVSicherheiten() + Catch ex As Exception + MsgBox("Datum VON und/oder BIS konnte nicht konvertiert werden.") + End Try End Sub + + Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click + panOverlay.Visible = True + End Sub + + Private Sub btn_resetSearch_Click(sender As Object, e As EventArgs) Handles btn_resetSearch.Click + + Dim dgv As String = "" + For Each c As DataGridViewColumn In dgvGesamtsicherheit.Columns + dgv &= c.Width & c.HeaderText & vbCrLf + Next + + clearSearchFields() + + LoadDGVSicherheiten() + currentGesSichRef.LOAD() + LoadStandort() + End Sub + + Private Sub clearSearchFields() + cbx_Suche_Warenort.changeItem("") + cbx_Suche_Filiale.changeItem("") + txt_Suche.Clear() + End Sub + + End Class diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index 75d6542..9782cc8 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/Aviso/frmHauptfenster.Designer.vb @@ -362,6 +362,7 @@ Partial Class frmHauptfenster Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem() + Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.Top.SuspendLayout() @@ -404,13 +405,13 @@ Partial Class frmHauptfenster 'mnuInfo ' Me.mnuInfo.Name = "mnuInfo" - Me.mnuInfo.Size = New System.Drawing.Size(291, 34) + Me.mnuInfo.Size = New System.Drawing.Size(193, 22) Me.mnuInfo.Text = "Info" ' 'conÜbernehmen ' Me.conÜbernehmen.Name = "conÜbernehmen" - Me.conÜbernehmen.Size = New System.Drawing.Size(400, 32) + Me.conÜbernehmen.Size = New System.Drawing.Size(284, 22) Me.conÜbernehmen.Text = "Akt übernehmen" ' 'conMenuAviso @@ -418,75 +419,74 @@ Partial Class frmHauptfenster Me.conMenuAviso.ImageScalingSize = New System.Drawing.Size(24, 24) Me.conMenuAviso.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conÜbernehmen, Me.ToolStripSeparator5, Me.conFertig, Me.ToolStripSeparator1, Me.conVorgeschrieben, Me.conVorbereitet, Me.conAnkunft, Me.conFreigabe, Me.conNichtEingetroffen, Me.ToolStripSeparator2, Me.conÄndern}) Me.conMenuAviso.Name = "conMenuTage" - Me.conMenuAviso.Size = New System.Drawing.Size(401, 278) + Me.conMenuAviso.Size = New System.Drawing.Size(285, 198) ' 'ToolStripSeparator5 ' Me.ToolStripSeparator5.Name = "ToolStripSeparator5" - Me.ToolStripSeparator5.Size = New System.Drawing.Size(397, 6) + Me.ToolStripSeparator5.Size = New System.Drawing.Size(281, 6) ' 'conFertig ' Me.conFertig.Name = "conFertig" - Me.conFertig.Size = New System.Drawing.Size(400, 32) + Me.conFertig.Size = New System.Drawing.Size(284, 22) Me.conFertig.Text = "LKW ist FERTIG / nicht FERTIG" ' 'ToolStripSeparator1 ' Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - Me.ToolStripSeparator1.Size = New System.Drawing.Size(397, 6) + Me.ToolStripSeparator1.Size = New System.Drawing.Size(281, 6) ' 'conVorgeschrieben ' Me.conVorgeschrieben.Name = "conVorgeschrieben" - Me.conVorgeschrieben.Size = New System.Drawing.Size(400, 32) + Me.conVorgeschrieben.Size = New System.Drawing.Size(284, 22) Me.conVorgeschrieben.Text = "auf Status VORGESCHRIEBEN setzen" ' 'conVorbereitet ' Me.conVorbereitet.Name = "conVorbereitet" - Me.conVorbereitet.Size = New System.Drawing.Size(400, 32) + Me.conVorbereitet.Size = New System.Drawing.Size(284, 22) Me.conVorbereitet.Text = "auf Status VORBEREITET setzen" Me.conVorbereitet.Visible = False ' 'conAnkunft ' Me.conAnkunft.Name = "conAnkunft" - Me.conAnkunft.Size = New System.Drawing.Size(400, 32) + Me.conAnkunft.Size = New System.Drawing.Size(284, 22) Me.conAnkunft.Text = "auf Status ANKUNFT setzen" ' 'conFreigabe ' Me.conFreigabe.Name = "conFreigabe" - Me.conFreigabe.Size = New System.Drawing.Size(400, 32) + Me.conFreigabe.Size = New System.Drawing.Size(284, 22) Me.conFreigabe.Text = "auf Status FREIGABE setzen" ' 'conNichtEingetroffen ' Me.conNichtEingetroffen.Name = "conNichtEingetroffen" - Me.conNichtEingetroffen.Size = New System.Drawing.Size(400, 32) + Me.conNichtEingetroffen.Size = New System.Drawing.Size(284, 22) Me.conNichtEingetroffen.Text = "auf Status NICHT EINGETROFFEN setzen" ' 'ToolStripSeparator2 ' Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - Me.ToolStripSeparator2.Size = New System.Drawing.Size(397, 6) + Me.ToolStripSeparator2.Size = New System.Drawing.Size(281, 6) ' 'conÄndern ' Me.conÄndern.Name = "conÄndern" - Me.conÄndern.Size = New System.Drawing.Size(400, 32) + Me.conÄndern.Size = New System.Drawing.Size(284, 22) Me.conÄndern.Text = "Eintrag ändern" ' 'MenuStrip1 ' Me.MenuStrip1.BackColor = System.Drawing.Color.White - Me.MenuStrip1.GripMargin = New System.Windows.Forms.Padding(2, 2, 0, 2) Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.FunktionenToolStripMenuItem, Me.StatistikToolStripMenuItem, Me.ToolStripFormulare, Me.BREXITToolStripMenuItem, Me.mnuFragezeichen}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" - Me.MenuStrip1.Size = New System.Drawing.Size(1372, 36) + Me.MenuStrip1.Size = New System.Drawing.Size(1372, 24) Me.MenuStrip1.TabIndex = 3 Me.MenuStrip1.Text = "MenuStrip1" ' @@ -496,45 +496,45 @@ Partial Class frmHauptfenster Me.mnuProgramm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFirmen, Me.NeuesPasswortToolStripMenuItem, Me.OptionenToolStripMenuItem, Me.StandorteToolStripMenuItem, Me.AvisoTVToolStripMenuItem, Me.SecretAvisoToolStripMenuItem, Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator4, Me.FirmaWechselnToolStripMenuItem, Me.StandortWechselnToolStripMenuItem, Me.SpracheWechselnToolStripMenuItem, Me.NacherfassungToolStripMenuItem, Me.VollständigesUpdateToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.LogoutToolStripMenuItem}) Me.mnuProgramm.ForeColor = System.Drawing.Color.Black Me.mnuProgramm.Name = "mnuProgramm" - Me.mnuProgramm.Size = New System.Drawing.Size(116, 30) + Me.mnuProgramm.Size = New System.Drawing.Size(78, 20) Me.mnuProgramm.Text = "Verwaltung" ' 'mnuFirmen ' Me.mnuFirmen.Name = "mnuFirmen" - Me.mnuFirmen.Size = New System.Drawing.Size(282, 34) + Me.mnuFirmen.Size = New System.Drawing.Size(184, 22) Me.mnuFirmen.Text = "Firmen" Me.mnuFirmen.Visible = False ' 'NeuesPasswortToolStripMenuItem ' Me.NeuesPasswortToolStripMenuItem.Name = "NeuesPasswortToolStripMenuItem" - Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort" ' 'OptionenToolStripMenuItem ' Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZeilenInFarbeEinausToolStripMenuItem, Me.BerechtigungenNeuLadenToolStripMenuItem}) Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem" - Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.OptionenToolStripMenuItem.Text = "Optionen" ' 'ZeilenInFarbeEinausToolStripMenuItem ' Me.ZeilenInFarbeEinausToolStripMenuItem.Name = "ZeilenInFarbeEinausToolStripMenuItem" - Me.ZeilenInFarbeEinausToolStripMenuItem.Size = New System.Drawing.Size(319, 34) + Me.ZeilenInFarbeEinausToolStripMenuItem.Size = New System.Drawing.Size(213, 22) Me.ZeilenInFarbeEinausToolStripMenuItem.Text = "Zeilen in Farbe ein/aus" ' 'BerechtigungenNeuLadenToolStripMenuItem ' Me.BerechtigungenNeuLadenToolStripMenuItem.Name = "BerechtigungenNeuLadenToolStripMenuItem" - Me.BerechtigungenNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(319, 34) + Me.BerechtigungenNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(213, 22) Me.BerechtigungenNeuLadenToolStripMenuItem.Text = "Berechtigungen neu laden" ' 'StandorteToolStripMenuItem ' Me.StandorteToolStripMenuItem.Name = "StandorteToolStripMenuItem" - Me.StandorteToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.StandorteToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.StandorteToolStripMenuItem.Text = "Standorte" Me.StandorteToolStripMenuItem.Visible = False ' @@ -542,444 +542,444 @@ Partial Class frmHauptfenster ' Me.AvisoTVToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoTextÄndernToolStripMenuItem}) Me.AvisoTVToolStripMenuItem.Name = "AvisoTVToolStripMenuItem" - Me.AvisoTVToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.AvisoTVToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.AvisoTVToolStripMenuItem.Text = "AvisoTV" Me.AvisoTVToolStripMenuItem.Visible = False ' 'InfoTextÄndernToolStripMenuItem ' Me.InfoTextÄndernToolStripMenuItem.Name = "InfoTextÄndernToolStripMenuItem" - Me.InfoTextÄndernToolStripMenuItem.Size = New System.Drawing.Size(236, 34) + Me.InfoTextÄndernToolStripMenuItem.Size = New System.Drawing.Size(156, 22) Me.InfoTextÄndernToolStripMenuItem.Text = "InfoText ändern" ' 'SecretAvisoToolStripMenuItem ' Me.SecretAvisoToolStripMenuItem.Name = "SecretAvisoToolStripMenuItem" - Me.SecretAvisoToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.SecretAvisoToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.SecretAvisoToolStripMenuItem.Text = "SecretAviso" ' 'AdministrationToolStripMenuItem ' Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem, Me.AlleStatusMailsSchickenToolStripMenuItem, Me.RoutenverwaltungToolStripMenuItem}) Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem" - Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.AdministrationToolStripMenuItem.Text = "Administration" Me.AdministrationToolStripMenuItem.Visible = False ' 'KdNrZuordnenToolStripMenuItem ' Me.KdNrZuordnenToolStripMenuItem.Name = "KdNrZuordnenToolStripMenuItem" - Me.KdNrZuordnenToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.KdNrZuordnenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.KdNrZuordnenToolStripMenuItem.Text = "KdNr Zuordnen" ' 'OptionenToolStripMenuItem1 ' Me.OptionenToolStripMenuItem1.Name = "OptionenToolStripMenuItem1" - Me.OptionenToolStripMenuItem1.Size = New System.Drawing.Size(313, 34) + Me.OptionenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22) Me.OptionenToolStripMenuItem1.Text = "Optionen" ' 'VorlagenUploadToolStripMenuItem ' Me.VorlagenUploadToolStripMenuItem.Name = "VorlagenUploadToolStripMenuItem" - Me.VorlagenUploadToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.VorlagenUploadToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.VorlagenUploadToolStripMenuItem.Text = "Vorlagen Upload" ' 'BarcodeTestToolStripMenuItem ' Me.BarcodeTestToolStripMenuItem.Name = "BarcodeTestToolStripMenuItem" - Me.BarcodeTestToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.BarcodeTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.BarcodeTestToolStripMenuItem.Text = "Barcode Test" ' 'TabellenToolStripMenuItem ' Me.TabellenToolStripMenuItem.Name = "TabellenToolStripMenuItem" - Me.TabellenToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.TabellenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.TabellenToolStripMenuItem.Text = "Tabellen" ' 'SMSTestToolStripMenuItem ' Me.SMSTestToolStripMenuItem.Name = "SMSTestToolStripMenuItem" - Me.SMSTestToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.SMSTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.SMSTestToolStripMenuItem.Text = "SMS Test" ' 'QSTeamsToolStripMenuItem ' Me.QSTeamsToolStripMenuItem.Name = "QSTeamsToolStripMenuItem" - Me.QSTeamsToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.QSTeamsToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.QSTeamsToolStripMenuItem.Text = "QS Teams" ' 'LeereRechnungToolStripMenuItem ' Me.LeereRechnungToolStripMenuItem.Name = "LeereRechnungToolStripMenuItem" - Me.LeereRechnungToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.LeereRechnungToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.LeereRechnungToolStripMenuItem.Text = "leere Rechnung TEST" ' 'EMAILTESTToolStripMenuItem ' Me.EMAILTESTToolStripMenuItem.Name = "EMAILTESTToolStripMenuItem" - Me.EMAILTESTToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.EMAILTESTToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.EMAILTESTToolStripMenuItem.Text = "EMAILTEST" ' 'FreigabeMailTestToolStripMenuItem ' Me.FreigabeMailTestToolStripMenuItem.Name = "FreigabeMailTestToolStripMenuItem" - Me.FreigabeMailTestToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.FreigabeMailTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.FreigabeMailTestToolStripMenuItem.Text = "FreigabeMail test" ' 'SDLProgrammStartenToolStripMenuItem ' Me.SDLProgrammStartenToolStripMenuItem.Name = "SDLProgrammStartenToolStripMenuItem" - Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.SDLProgrammStartenToolStripMenuItem.Text = "SDL Programm starten" ' 'TESTToolStripMenuItem ' Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem" - Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.TESTToolStripMenuItem.Text = "TEST" ' 'AlleStatusMailsSchickenToolStripMenuItem ' Me.AlleStatusMailsSchickenToolStripMenuItem.Name = "AlleStatusMailsSchickenToolStripMenuItem" - Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.AlleStatusMailsSchickenToolStripMenuItem.Text = "Alle Status Mails schicken" ' 'RoutenverwaltungToolStripMenuItem ' Me.RoutenverwaltungToolStripMenuItem.Name = "RoutenverwaltungToolStripMenuItem" - Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(313, 34) + Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.RoutenverwaltungToolStripMenuItem.Text = "Routenverwaltung" ' 'ToolStripSeparator4 ' Me.ToolStripSeparator4.Name = "ToolStripSeparator4" - Me.ToolStripSeparator4.Size = New System.Drawing.Size(279, 6) + Me.ToolStripSeparator4.Size = New System.Drawing.Size(181, 6) ' 'FirmaWechselnToolStripMenuItem ' Me.FirmaWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VERAGToolStripMenuItem, Me.ATILLAToolStripMenuItem, Me.IMEXToolStripMenuItem, Me.UNISPEDToolStripMenuItem, Me.AMBARToolStripMenuItem, Me.FRONTOFFICEToolStripMenuItem, Me.VERIMEXToolStripMenuItem}) Me.FirmaWechselnToolStripMenuItem.Name = "FirmaWechselnToolStripMenuItem" - Me.FirmaWechselnToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.FirmaWechselnToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.FirmaWechselnToolStripMenuItem.Text = "Firma wechseln" ' 'VERAGToolStripMenuItem ' Me.VERAGToolStripMenuItem.Name = "VERAGToolStripMenuItem" - Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(226, 34) + Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.VERAGToolStripMenuItem.Text = "VERAG" ' 'ATILLAToolStripMenuItem ' Me.ATILLAToolStripMenuItem.Name = "ATILLAToolStripMenuItem" - Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(226, 34) + Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.ATILLAToolStripMenuItem.Text = "ATILLA" ' 'IMEXToolStripMenuItem ' Me.IMEXToolStripMenuItem.Name = "IMEXToolStripMenuItem" - Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(226, 34) + Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.IMEXToolStripMenuItem.Text = "IMEX" ' 'UNISPEDToolStripMenuItem ' Me.UNISPEDToolStripMenuItem.Name = "UNISPEDToolStripMenuItem" - Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(226, 34) + Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.UNISPEDToolStripMenuItem.Text = "UNISPED" ' 'AMBARToolStripMenuItem ' Me.AMBARToolStripMenuItem.Name = "AMBARToolStripMenuItem" - Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(226, 34) + Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.AMBARToolStripMenuItem.Text = "AMBAR" ' 'FRONTOFFICEToolStripMenuItem ' Me.FRONTOFFICEToolStripMenuItem.Name = "FRONTOFFICEToolStripMenuItem" - Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(226, 34) + Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.FRONTOFFICEToolStripMenuItem.Text = "FRONTOFFICE" ' 'VERIMEXToolStripMenuItem ' Me.VERIMEXToolStripMenuItem.Name = "VERIMEXToolStripMenuItem" - Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(226, 34) + Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(148, 22) Me.VERIMEXToolStripMenuItem.Text = "VERIMEX" ' 'StandortWechselnToolStripMenuItem ' Me.StandortWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SUBToolStripMenuItem, Me.SBGToolStripMenuItem, Me.WAIToolStripMenuItem, Me.NKDToolStripMenuItem, Me.NEUToolStripMenuItem, Me.AMBToolStripMenuItem, Me.DTBToolStripMenuItem}) Me.StandortWechselnToolStripMenuItem.Name = "StandortWechselnToolStripMenuItem" - Me.StandortWechselnToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.StandortWechselnToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.StandortWechselnToolStripMenuItem.Text = "Standort wechseln" Me.StandortWechselnToolStripMenuItem.Visible = False ' 'SUBToolStripMenuItem ' Me.SUBToolStripMenuItem.Name = "SUBToolStripMenuItem" - Me.SUBToolStripMenuItem.Size = New System.Drawing.Size(152, 34) + Me.SUBToolStripMenuItem.Size = New System.Drawing.Size(100, 22) Me.SUBToolStripMenuItem.Text = "SUB" ' 'SBGToolStripMenuItem ' Me.SBGToolStripMenuItem.Name = "SBGToolStripMenuItem" - Me.SBGToolStripMenuItem.Size = New System.Drawing.Size(152, 34) + Me.SBGToolStripMenuItem.Size = New System.Drawing.Size(100, 22) Me.SBGToolStripMenuItem.Text = "SBG" ' 'WAIToolStripMenuItem ' Me.WAIToolStripMenuItem.Name = "WAIToolStripMenuItem" - Me.WAIToolStripMenuItem.Size = New System.Drawing.Size(152, 34) + Me.WAIToolStripMenuItem.Size = New System.Drawing.Size(100, 22) Me.WAIToolStripMenuItem.Text = "WAI" ' 'NKDToolStripMenuItem ' Me.NKDToolStripMenuItem.Name = "NKDToolStripMenuItem" - Me.NKDToolStripMenuItem.Size = New System.Drawing.Size(152, 34) + Me.NKDToolStripMenuItem.Size = New System.Drawing.Size(100, 22) Me.NKDToolStripMenuItem.Text = "NKD" ' 'NEUToolStripMenuItem ' Me.NEUToolStripMenuItem.Name = "NEUToolStripMenuItem" - Me.NEUToolStripMenuItem.Size = New System.Drawing.Size(152, 34) + Me.NEUToolStripMenuItem.Size = New System.Drawing.Size(100, 22) Me.NEUToolStripMenuItem.Text = "NEU" ' 'AMBToolStripMenuItem ' Me.AMBToolStripMenuItem.Name = "AMBToolStripMenuItem" - Me.AMBToolStripMenuItem.Size = New System.Drawing.Size(152, 34) + Me.AMBToolStripMenuItem.Size = New System.Drawing.Size(100, 22) Me.AMBToolStripMenuItem.Text = "AMB" Me.AMBToolStripMenuItem.Visible = False ' 'DTBToolStripMenuItem ' Me.DTBToolStripMenuItem.Name = "DTBToolStripMenuItem" - Me.DTBToolStripMenuItem.Size = New System.Drawing.Size(152, 34) + Me.DTBToolStripMenuItem.Size = New System.Drawing.Size(100, 22) Me.DTBToolStripMenuItem.Text = "DTB" ' 'SpracheWechselnToolStripMenuItem ' Me.SpracheWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DeutschToolStripMenuItem, Me.TürkischToolStripMenuItem}) Me.SpracheWechselnToolStripMenuItem.Name = "SpracheWechselnToolStripMenuItem" - Me.SpracheWechselnToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.SpracheWechselnToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.SpracheWechselnToolStripMenuItem.Text = "Sprache wechseln" ' 'DeutschToolStripMenuItem ' Me.DeutschToolStripMenuItem.Name = "DeutschToolStripMenuItem" - Me.DeutschToolStripMenuItem.Size = New System.Drawing.Size(178, 34) + Me.DeutschToolStripMenuItem.Size = New System.Drawing.Size(118, 22) Me.DeutschToolStripMenuItem.Text = "Deutsch" ' 'TürkischToolStripMenuItem ' Me.TürkischToolStripMenuItem.Name = "TürkischToolStripMenuItem" - Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(178, 34) + Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(118, 22) Me.TürkischToolStripMenuItem.Text = "Türkisch" ' 'NacherfassungToolStripMenuItem ' Me.NacherfassungToolStripMenuItem.Name = "NacherfassungToolStripMenuItem" - Me.NacherfassungToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.NacherfassungToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.NacherfassungToolStripMenuItem.Text = "Nacherfassung" Me.NacherfassungToolStripMenuItem.Visible = False ' 'VollständigesUpdateToolStripMenuItem ' Me.VollständigesUpdateToolStripMenuItem.Name = "VollständigesUpdateToolStripMenuItem" - Me.VollständigesUpdateToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.VollständigesUpdateToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.VollständigesUpdateToolStripMenuItem.Text = "Vollständiges Update" ' 'UpdateToolStripMenuItem ' Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem" - Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.UpdateToolStripMenuItem.Text = "Update" ' 'LogoutToolStripMenuItem ' Me.LogoutToolStripMenuItem.Name = "LogoutToolStripMenuItem" - Me.LogoutToolStripMenuItem.Size = New System.Drawing.Size(282, 34) + Me.LogoutToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.LogoutToolStripMenuItem.Text = "Logout" Me.LogoutToolStripMenuItem.Visible = False ' 'FunktionenToolStripMenuItem ' - Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem}) + Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem}) Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem" - Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(116, 30) + Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20) Me.FunktionenToolStripMenuItem.Text = "Funktionen" ' 'GenerelleGestellungenDurchsuchenToolStripMenuItem ' Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem" - Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen" Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False ' 'KundenVonFremdenSpeditionenToolStripMenuItem ' Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem" - Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen" ' 'KundenverwaltungToolStripMenuItem ' Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem" - Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung" ' 'MDMParkplatzkartenToolStripMenuItem ' Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem" - Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten" ' 'SMSSendenToolStripMenuItem ' Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem}) Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem" - Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.SMSSendenToolStripMenuItem.Text = "SMS" ' 'NeueSMSSendenToolStripMenuItem ' Me.NeueSMSSendenToolStripMenuItem.Name = "NeueSMSSendenToolStripMenuItem" - Me.NeueSMSSendenToolStripMenuItem.Size = New System.Drawing.Size(258, 34) + Me.NeueSMSSendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22) Me.NeueSMSSendenToolStripMenuItem.Text = "Neue SMS senden" ' 'GesendeteSMSToolStripMenuItem ' Me.GesendeteSMSToolStripMenuItem.Name = "GesendeteSMSToolStripMenuItem" - Me.GesendeteSMSToolStripMenuItem.Size = New System.Drawing.Size(258, 34) + Me.GesendeteSMSToolStripMenuItem.Size = New System.Drawing.Size(169, 22) Me.GesendeteSMSToolStripMenuItem.Text = "SMS Verlauf" ' 'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem ' Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem" - Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen" ' 'MRNBarcodedruckToolStripMenuItem ' Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem" - Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck" ' 'ToolStripSeparator12 ' Me.ToolStripSeparator12.Name = "ToolStripSeparator12" - Me.ToolStripSeparator12.Size = New System.Drawing.Size(572, 6) + Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6) ' 'ToolStripMenuItem3 ' Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" - Me.ToolStripMenuItem3.Size = New System.Drawing.Size(575, 34) + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem3.Text = "Bürgschaften Excel" ' 'ToolStripMenuItem4 ' Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" - Me.ToolStripMenuItem4.Size = New System.Drawing.Size(575, 34) + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel" Me.ToolStripMenuItem4.Visible = False ' 'ToolStripMenuItem5 ' Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" - Me.ToolStripMenuItem5.Size = New System.Drawing.Size(575, 34) + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel" Me.ToolStripMenuItem5.Visible = False ' 'BürgschaftenExcelToolStripMenuItem ' Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem" - Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel" Me.BürgschaftenExcelToolStripMenuItem.Visible = False ' 'ToolStripMenuItem6 ' Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" - Me.ToolStripMenuItem6.Size = New System.Drawing.Size(575, 34) + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel" Me.ToolStripMenuItem6.Visible = False ' 'ToolStripMenuItem10 ' Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" - Me.ToolStripMenuItem10.Size = New System.Drawing.Size(575, 34) + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem10.Text = "TICKET Parkplatz" ' 'TICKETWaidhausToolStripMenuItem ' Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem" - Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz" ' 'ToolStripSeparator10 ' Me.ToolStripSeparator10.Name = "ToolStripSeparator10" - Me.ToolStripSeparator10.Size = New System.Drawing.Size(572, 6) + Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6) ' 'DAKOSYToolStripMenuItem ' Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem}) Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem" - Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.DAKOSYToolStripMenuItem.Text = "DAKOSY" ' 'StammreferenzenVerwaltenToolStripMenuItem ' Me.StammreferenzenVerwaltenToolStripMenuItem.Name = "StammreferenzenVerwaltenToolStripMenuItem" - Me.StammreferenzenVerwaltenToolStripMenuItem.Size = New System.Drawing.Size(332, 34) + Me.StammreferenzenVerwaltenToolStripMenuItem.Size = New System.Drawing.Size(221, 22) Me.StammreferenzenVerwaltenToolStripMenuItem.Text = "Stammreferenzen verwalten" ' 'ToolStripSeparator11 ' Me.ToolStripSeparator11.Name = "ToolStripSeparator11" - Me.ToolStripSeparator11.Size = New System.Drawing.Size(572, 6) + Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6) ' 'SDLAbholaufträgeToolStripMenuItem ' Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem" - Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge" ' 'ToolStripMenuItem13 ' Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13" - Me.ToolStripMenuItem13.Size = New System.Drawing.Size(575, 34) + Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)" ' 'VorauskassenToolStripMenuItem ' Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem" - Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen" ' 'DEGesamtsicherheitVeragGmbHToolStripMenuItem ' Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHToolStripMenuItem" - Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH" Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = False ' 'ATGesamtsicherheitVeragAGToolStripMenuItem ' Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Name = "ATGesamtsicherheitVeragAGToolStripMenuItem" - Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag AG" Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = False ' 'ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem ' Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Name = "ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem" - Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Text = "AT | Gesamtsicherheit IMEX CS GmbH" Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = False ' 'ATGesamtsicherheitVeragCSToolStripMenuItem ' Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem" - Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(575, 34) + Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS" Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False ' @@ -988,53 +988,53 @@ Partial Class frmHauptfenster Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1}) Me.StatistikToolStripMenuItem.ForeColor = System.Drawing.Color.Black Me.StatistikToolStripMenuItem.Name = "StatistikToolStripMenuItem" - Me.StatistikToolStripMenuItem.Size = New System.Drawing.Size(123, 30) + Me.StatistikToolStripMenuItem.Size = New System.Drawing.Size(83, 20) Me.StatistikToolStripMenuItem.Text = "Auswertung" ' 'LKWBerichtToolStripMenuItem ' Me.LKWBerichtToolStripMenuItem.Name = "LKWBerichtToolStripMenuItem" - Me.LKWBerichtToolStripMenuItem.Size = New System.Drawing.Size(351, 34) + Me.LKWBerichtToolStripMenuItem.Size = New System.Drawing.Size(234, 22) Me.LKWBerichtToolStripMenuItem.Text = "LKW Bericht" ' 'StatistikADMINToolStripMenuItem ' Me.StatistikADMINToolStripMenuItem.Name = "StatistikADMINToolStripMenuItem" - Me.StatistikADMINToolStripMenuItem.Size = New System.Drawing.Size(351, 34) + Me.StatistikADMINToolStripMenuItem.Size = New System.Drawing.Size(234, 22) Me.StatistikADMINToolStripMenuItem.Text = "Statistik (Aviso)" ' 'ToolStripSeparator8 ' Me.ToolStripSeparator8.Name = "ToolStripSeparator8" - Me.ToolStripSeparator8.Size = New System.Drawing.Size(348, 6) + Me.ToolStripSeparator8.Size = New System.Drawing.Size(231, 6) ' 'BürgschafrtsbuchungenFremdToolStripMenuItem ' Me.BürgschafrtsbuchungenFremdToolStripMenuItem.Name = "BürgschafrtsbuchungenFremdToolStripMenuItem" - Me.BürgschafrtsbuchungenFremdToolStripMenuItem.Size = New System.Drawing.Size(351, 34) + Me.BürgschafrtsbuchungenFremdToolStripMenuItem.Size = New System.Drawing.Size(234, 22) Me.BürgschafrtsbuchungenFremdToolStripMenuItem.Text = "Bürgschaftsbuchungen Fremd" ' 'LKWEingetroffenNachToolStripMenuItem ' Me.LKWEingetroffenNachToolStripMenuItem.Name = "LKWEingetroffenNachToolStripMenuItem" - Me.LKWEingetroffenNachToolStripMenuItem.Size = New System.Drawing.Size(351, 34) + Me.LKWEingetroffenNachToolStripMenuItem.Size = New System.Drawing.Size(234, 22) Me.LKWEingetroffenNachToolStripMenuItem.Text = "LKW eingetroffen nach ..." ' 'ToolStripSeparator7 ' Me.ToolStripSeparator7.Name = "ToolStripSeparator7" - Me.ToolStripSeparator7.Size = New System.Drawing.Size(348, 6) + Me.ToolStripSeparator7.Size = New System.Drawing.Size(231, 6) ' 'SDLAuswertungenToolStripMenuItem ' Me.SDLAuswertungenToolStripMenuItem.Name = "SDLAuswertungenToolStripMenuItem" - Me.SDLAuswertungenToolStripMenuItem.Size = New System.Drawing.Size(351, 34) + Me.SDLAuswertungenToolStripMenuItem.Size = New System.Drawing.Size(234, 22) Me.SDLAuswertungenToolStripMenuItem.Text = "Buchhaltung" ' 'SDLAuswertungenToolStripMenuItem1 ' Me.SDLAuswertungenToolStripMenuItem1.Name = "SDLAuswertungenToolStripMenuItem1" - Me.SDLAuswertungenToolStripMenuItem1.Size = New System.Drawing.Size(351, 34) + Me.SDLAuswertungenToolStripMenuItem1.Size = New System.Drawing.Size(234, 22) Me.SDLAuswertungenToolStripMenuItem1.Text = "SDL Auswertungen" ' 'ToolStripFormulare @@ -1046,201 +1046,201 @@ Partial Class frmHauptfenster Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.BottomRight Me.ToolStripFormulare.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None Me.ToolStripFormulare.Name = "ToolStripFormulare" - Me.ToolStripFormulare.Size = New System.Drawing.Size(108, 30) + Me.ToolStripFormulare.Size = New System.Drawing.Size(73, 20) Me.ToolStripFormulare.Text = "Formulare" ' 'MANAGERToolStripMenuItem ' Me.MANAGERToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold) Me.MANAGERToolStripMenuItem.Name = "MANAGERToolStripMenuItem" - Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(421, 34) + Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(277, 22) Me.MANAGERToolStripMenuItem.Text = "Formular - Manager" ' 'ToolStripSeparator3 ' Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - Me.ToolStripSeparator3.Size = New System.Drawing.Size(418, 6) + Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 6) ' 'ToolStripMenuItem2 ' Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.toolStrVM_at, Me.toolStrVM_at4200, Me.ZollvollmachtATEVToolStripMenuItem}) Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" - Me.ToolStripMenuItem2.Size = New System.Drawing.Size(421, 34) + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(277, 22) Me.ToolStripMenuItem2.Text = "Vollmachten" ' 'toolStrVM_de ' Me.toolStrVM_de.Name = "toolStrVM_de" - Me.toolStrVM_de.Size = New System.Drawing.Size(307, 34) + Me.toolStrVM_de.Size = New System.Drawing.Size(204, 22) Me.toolStrVM_de.Text = "Zollvollmacht DE" ' 'ZollvollmachtDEFiskalToolStripMenuItem ' Me.ZollvollmachtDEFiskalToolStripMenuItem.Name = "ZollvollmachtDEFiskalToolStripMenuItem" - Me.ZollvollmachtDEFiskalToolStripMenuItem.Size = New System.Drawing.Size(307, 34) + Me.ZollvollmachtDEFiskalToolStripMenuItem.Size = New System.Drawing.Size(204, 22) Me.ZollvollmachtDEFiskalToolStripMenuItem.Text = "Zollvollmacht DE - Fiskal" ' 'toolStrVM_at ' Me.toolStrVM_at.Name = "toolStrVM_at" - Me.toolStrVM_at.Size = New System.Drawing.Size(307, 34) + Me.toolStrVM_at.Size = New System.Drawing.Size(204, 22) Me.toolStrVM_at.Text = "Zollvollmacht AT" ' 'toolStrVM_at4200 ' Me.toolStrVM_at4200.Name = "toolStrVM_at4200" - Me.toolStrVM_at4200.Size = New System.Drawing.Size(307, 34) + Me.toolStrVM_at4200.Size = New System.Drawing.Size(204, 22) Me.toolStrVM_at4200.Text = "Zollvollmacht AT - Fiskal" ' 'ZollvollmachtATEVToolStripMenuItem ' Me.ZollvollmachtATEVToolStripMenuItem.Name = "ZollvollmachtATEVToolStripMenuItem" - Me.ZollvollmachtATEVToolStripMenuItem.Size = New System.Drawing.Size(307, 34) + Me.ZollvollmachtATEVToolStripMenuItem.Size = New System.Drawing.Size(204, 22) Me.ZollvollmachtATEVToolStripMenuItem.Text = "Zollvollmacht AT - EV" ' 'ToolStripMenuItem7 ' Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" - Me.ToolStripMenuItem7.Size = New System.Drawing.Size(421, 34) + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(277, 22) Me.ToolStripMenuItem7.Text = "Gestellungsgarantien" ' 'ToolStripMenuItem12 ' Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12" - Me.ToolStripMenuItem12.Size = New System.Drawing.Size(421, 34) + Me.ToolStripMenuItem12.Size = New System.Drawing.Size(277, 22) Me.ToolStripMenuItem12.Text = "Importaviso" ' 'ToolStripMenuItem15 ' Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15" - Me.ToolStripMenuItem15.Size = New System.Drawing.Size(421, 34) + Me.ToolStripMenuItem15.Size = New System.Drawing.Size(277, 22) Me.ToolStripMenuItem15.Text = "Dispoliste" ' 'ToolStripMenuItem18 ' Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18" - Me.ToolStripMenuItem18.Size = New System.Drawing.Size(421, 34) + Me.ToolStripMenuItem18.Size = New System.Drawing.Size(277, 22) Me.ToolStripMenuItem18.Text = "Verzollungspreise" ' 'AuftragÜberwachungsdokumentToolStripMenuItem ' Me.AuftragÜberwachungsdokumentToolStripMenuItem.Name = "AuftragÜberwachungsdokumentToolStripMenuItem" - Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(421, 34) + Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(277, 22) Me.AuftragÜberwachungsdokumentToolStripMenuItem.Text = "Auftrag Überwachungsdokument" ' 'toolVUB ' Me.toolVUB.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VUBVERAGSpeditionAGToolStripMenuItem, Me.VeragCustomsServiceToolStripMenuItem}) Me.toolVUB.Name = "toolVUB" - Me.toolVUB.Size = New System.Drawing.Size(421, 34) + Me.toolVUB.Size = New System.Drawing.Size(277, 22) Me.toolVUB.Text = "VUB" ' 'VUBVERAGSpeditionAGToolStripMenuItem ' Me.VUBVERAGSpeditionAGToolStripMenuItem.Name = "VUBVERAGSpeditionAGToolStripMenuItem" - Me.VUBVERAGSpeditionAGToolStripMenuItem.Size = New System.Drawing.Size(411, 34) + Me.VUBVERAGSpeditionAGToolStripMenuItem.Size = New System.Drawing.Size(271, 22) Me.VUBVERAGSpeditionAGToolStripMenuItem.Text = "VUB - VERAG Spedition AG" ' 'VeragCustomsServiceToolStripMenuItem ' Me.VeragCustomsServiceToolStripMenuItem.Name = "VeragCustomsServiceToolStripMenuItem" - Me.VeragCustomsServiceToolStripMenuItem.Size = New System.Drawing.Size(411, 34) + Me.VeragCustomsServiceToolStripMenuItem.Size = New System.Drawing.Size(271, 22) Me.VeragCustomsServiceToolStripMenuItem.Text = "VUB - VERAG Customs Service GmbH" ' 'toolVPCreditreform ' Me.toolVPCreditreform.Name = "toolVPCreditreform" - Me.toolVPCreditreform.Size = New System.Drawing.Size(421, 34) + Me.toolVPCreditreform.Size = New System.Drawing.Size(277, 22) Me.toolVPCreditreform.Text = "Bonitätsauskunft (Creditreform)" Me.toolVPCreditreform.Visible = False ' 'ToolStripSeparator9 ' Me.ToolStripSeparator9.Name = "ToolStripSeparator9" - Me.ToolStripSeparator9.Size = New System.Drawing.Size(418, 6) + Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6) ' 'VerzollungsunterlagenToolStripMenuItem ' Me.VerzollungsunterlagenToolStripMenuItem.Name = "VerzollungsunterlagenToolStripMenuItem" - Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(421, 34) + Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22) Me.VerzollungsunterlagenToolStripMenuItem.Text = "Verzollungsunterlagen" ' 'ToolStripMenuItem11 ' Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11" - Me.ToolStripMenuItem11.Size = New System.Drawing.Size(421, 34) + Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22) Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR" ' 'ToolStripSeparator6 ' Me.ToolStripSeparator6.Name = "ToolStripSeparator6" - Me.ToolStripSeparator6.Size = New System.Drawing.Size(418, 6) + Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 6) ' 'WAIDHAUSToolStripMenuItem ' Me.WAIDHAUSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.AnnahmeblattIMPORTToolStripMenuItem, Me.AnnahmeblattEXPORTToolStripMenuItem, Me.ChecklisteVerwahrlagerToolStripMenuItem}) Me.WAIDHAUSToolStripMenuItem.Name = "WAIDHAUSToolStripMenuItem" - Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(421, 34) + Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(277, 22) Me.WAIDHAUSToolStripMenuItem.Text = "WAIDHAUS" ' 'ToolStripMenuItem8 ' Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" - Me.ToolStripMenuItem8.Size = New System.Drawing.Size(370, 34) + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(243, 22) Me.ToolStripMenuItem8.Text = "Annahmeblatt IMPORT DE / TR" ' 'ToolStripMenuItem9 ' Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" - Me.ToolStripMenuItem9.Size = New System.Drawing.Size(370, 34) + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(243, 22) Me.ToolStripMenuItem9.Text = "Annahmeblatt EXPORT DE / TR" ' 'AnnahmeblattIMPORTToolStripMenuItem ' Me.AnnahmeblattIMPORTToolStripMenuItem.Name = "AnnahmeblattIMPORTToolStripMenuItem" - Me.AnnahmeblattIMPORTToolStripMenuItem.Size = New System.Drawing.Size(370, 34) + Me.AnnahmeblattIMPORTToolStripMenuItem.Size = New System.Drawing.Size(243, 22) Me.AnnahmeblattIMPORTToolStripMenuItem.Text = "Annahmeblatt IMPORT DE / SRB" ' 'AnnahmeblattEXPORTToolStripMenuItem ' Me.AnnahmeblattEXPORTToolStripMenuItem.Name = "AnnahmeblattEXPORTToolStripMenuItem" - Me.AnnahmeblattEXPORTToolStripMenuItem.Size = New System.Drawing.Size(370, 34) + Me.AnnahmeblattEXPORTToolStripMenuItem.Size = New System.Drawing.Size(243, 22) Me.AnnahmeblattEXPORTToolStripMenuItem.Text = "Annahmeblatt EXPORT DE / SRB" ' 'ChecklisteVerwahrlagerToolStripMenuItem ' Me.ChecklisteVerwahrlagerToolStripMenuItem.Name = "ChecklisteVerwahrlagerToolStripMenuItem" - Me.ChecklisteVerwahrlagerToolStripMenuItem.Size = New System.Drawing.Size(370, 34) + Me.ChecklisteVerwahrlagerToolStripMenuItem.Size = New System.Drawing.Size(243, 22) Me.ChecklisteVerwahrlagerToolStripMenuItem.Text = "Checkliste Verwahrlager" ' 'ToolStripSeparator13 ' Me.ToolStripSeparator13.Name = "ToolStripSeparator13" - Me.ToolStripSeparator13.Size = New System.Drawing.Size(418, 6) + Me.ToolStripSeparator13.Size = New System.Drawing.Size(274, 6) ' 'EinheitspapierToolStripMenuItem ' Me.EinheitspapierToolStripMenuItem.Name = "EinheitspapierToolStripMenuItem" - Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(421, 34) + Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(277, 22) Me.EinheitspapierToolStripMenuItem.Text = "Einheitspapier 0777 (Vereinfachte ZA)" ' 'CMRToolStripMenuItem ' Me.CMRToolStripMenuItem.Name = "CMRToolStripMenuItem" - Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(421, 34) + Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(277, 22) Me.CMRToolStripMenuItem.Text = "CMR" ' 'Einheitspapier0735VersandverfahrenToolStripMenuItem ' Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Name = "Einheitspapier0735VersandverfahrenToolStripMenuItem" - Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(421, 34) + Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(277, 22) Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Text = "Einheitspapier 0735 (Versandverfahren)" ' 'BREXITToolStripMenuItem ' Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSToolStripMenuItem, Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem}) Me.BREXITToolStripMenuItem.Name = "BREXITToolStripMenuItem" - Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(83, 29) + Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(55, 20) Me.BREXITToolStripMenuItem.Text = "BREXIT" Me.BREXITToolStripMenuItem.Visible = False ' @@ -1248,147 +1248,147 @@ Partial Class frmHauptfenster ' Me.GVMSToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.GVMSToolStripMenuItem.Name = "GVMSToolStripMenuItem" - Me.GVMSToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.GVMSToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.GVMSToolStripMenuItem.Text = "GVMS" ' 'GVMSUKIMportToolStripMenuItem ' Me.GVMSUKIMportToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.GVMSUKIMportToolStripMenuItem.Name = "GVMSUKIMportToolStripMenuItem" - Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.GVMSUKIMportToolStripMenuItem.Text = "GVMS (UK Import)" ' 'GVMSBeschreibungToolStripMenuItem ' Me.GVMSBeschreibungToolStripMenuItem.Enabled = False Me.GVMSBeschreibungToolStripMenuItem.Name = "GVMSBeschreibungToolStripMenuItem" - Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.GVMSBeschreibungToolStripMenuItem.Text = "GVMS Beschreibung" ' 'ToolStripSeparator14 ' Me.ToolStripSeparator14.Name = "ToolStripSeparator14" - Me.ToolStripSeparator14.Size = New System.Drawing.Size(366, 6) + Me.ToolStripSeparator14.Size = New System.Drawing.Size(245, 6) ' 'TicketIBFInlandBorderFacilitiesToolStripMenuItem ' Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Name = "TicketIBFInlandBorderFacilitiesToolStripMenuItem" - Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Text = "Ticket IBF (InlandBorderFacilities)" ' 'TicketIBFBeschreibungToolStripMenuItem ' Me.TicketIBFBeschreibungToolStripMenuItem.Name = "TicketIBFBeschreibungToolStripMenuItem" - Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.TicketIBFBeschreibungToolStripMenuItem.Text = "Ticket IBF Beschreibung" ' 'IBFStatusToolStripMenuItem ' Me.IBFStatusToolStripMenuItem.Name = "IBFStatusToolStripMenuItem" - Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.IBFStatusToolStripMenuItem.Text = "IBF Status" ' 'ToolStripSeparator15 ' Me.ToolStripSeparator15.Name = "ToolStripSeparator15" - Me.ToolStripSeparator15.Size = New System.Drawing.Size(366, 6) + Me.ToolStripSeparator15.Size = New System.Drawing.Size(245, 6) ' 'FREnveloppeSmartBorderToolStripMenuItem ' Me.FREnveloppeSmartBorderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.FREnveloppeSmartBorderToolStripMenuItem.Name = "FREnveloppeSmartBorderToolStripMenuItem" - Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.FREnveloppeSmartBorderToolStripMenuItem.Text = "FR: Enveloppe (SmartBorder)" ' 'ToolStripSeparator16 ' Me.ToolStripSeparator16.Name = "ToolStripSeparator16" - Me.ToolStripSeparator16.Size = New System.Drawing.Size(366, 6) + Me.ToolStripSeparator16.Size = New System.Drawing.Size(245, 6) ' 'PBNIrelandFähreToolStripMenuItem ' Me.PBNIrelandFähreToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.PBNIrelandFähreToolStripMenuItem.Name = "PBNIrelandFähreToolStripMenuItem" - Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.PBNIrelandFähreToolStripMenuItem.Text = "PBN (Ireland Fähre)" ' 'ToolStripSeparator20 ' Me.ToolStripSeparator20.Name = "ToolStripSeparator20" - Me.ToolStripSeparator20.Size = New System.Drawing.Size(366, 6) + Me.ToolStripSeparator20.Size = New System.Drawing.Size(245, 6) ' 'WARENORTToolStripMenuItem ' Me.WARENORTToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATFormularZa282ToolStripMenuItem, Me.ATInfoToolStripMenuItem, Me.ToolStripSeparator17, Me.DEFormular0442ToolStripMenuItem, Me.DEInfoToolStripMenuItem}) Me.WARENORTToolStripMenuItem.Name = "WARENORTToolStripMenuItem" - Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.WARENORTToolStripMenuItem.Text = "REX" ' 'ATFormularZa282ToolStripMenuItem ' Me.ATFormularZa282ToolStripMenuItem.Name = "ATFormularZa282ToolStripMenuItem" - Me.ATFormularZa282ToolStripMenuItem.Size = New System.Drawing.Size(264, 34) + Me.ATFormularZa282ToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.ATFormularZa282ToolStripMenuItem.Text = "AT Formular Za278" ' 'ATInfoToolStripMenuItem ' Me.ATInfoToolStripMenuItem.Name = "ATInfoToolStripMenuItem" - Me.ATInfoToolStripMenuItem.Size = New System.Drawing.Size(264, 34) + Me.ATInfoToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.ATInfoToolStripMenuItem.Text = "AT Info" ' 'ToolStripSeparator17 ' Me.ToolStripSeparator17.Name = "ToolStripSeparator17" - Me.ToolStripSeparator17.Size = New System.Drawing.Size(261, 6) + Me.ToolStripSeparator17.Size = New System.Drawing.Size(169, 6) ' 'DEFormular0442ToolStripMenuItem ' Me.DEFormular0442ToolStripMenuItem.Name = "DEFormular0442ToolStripMenuItem" - Me.DEFormular0442ToolStripMenuItem.Size = New System.Drawing.Size(264, 34) + Me.DEFormular0442ToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.DEFormular0442ToolStripMenuItem.Text = "DE Formular 0442" ' 'DEInfoToolStripMenuItem ' Me.DEInfoToolStripMenuItem.Name = "DEInfoToolStripMenuItem" - Me.DEInfoToolStripMenuItem.Size = New System.Drawing.Size(264, 34) + Me.DEInfoToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.DEInfoToolStripMenuItem.Text = "DE Info" ' 'ToolStripMenuItem14 ' Me.ToolStripMenuItem14.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem16, Me.ToolStripSeparator19}) Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14" - Me.ToolStripMenuItem14.Size = New System.Drawing.Size(369, 34) + Me.ToolStripMenuItem14.Size = New System.Drawing.Size(248, 22) Me.ToolStripMenuItem14.Text = "WARENORT" ' 'ToolStripMenuItem16 ' Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16" - Me.ToolStripMenuItem16.Size = New System.Drawing.Size(264, 34) + Me.ToolStripMenuItem16.Size = New System.Drawing.Size(172, 22) Me.ToolStripMenuItem16.Text = "AT Formular Za283" ' 'ToolStripSeparator19 ' Me.ToolStripSeparator19.Name = "ToolStripSeparator19" - Me.ToolStripSeparator19.Size = New System.Drawing.Size(261, 6) + Me.ToolStripSeparator19.Size = New System.Drawing.Size(169, 6) ' 'ToolStripSeparator18 ' Me.ToolStripSeparator18.Name = "ToolStripSeparator18" - Me.ToolStripSeparator18.Size = New System.Drawing.Size(366, 6) + Me.ToolStripSeparator18.Size = New System.Drawing.Size(245, 6) ' 'EORIUKGeneriertenToolStripMenuItem ' Me.EORIUKGeneriertenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen1 Me.EORIUKGeneriertenToolStripMenuItem.Name = "EORIUKGeneriertenToolStripMenuItem" - Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.EORIUKGeneriertenToolStripMenuItem.Text = "EORI UK generierten" ' 'KAPKentAccessPermitToolStripMenuItem ' Me.KAPKentAccessPermitToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen Me.KAPKentAccessPermitToolStripMenuItem.Name = "KAPKentAccessPermitToolStripMenuItem" - Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(369, 34) + Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(248, 22) Me.KAPKentAccessPermitToolStripMenuItem.Text = "KAP (KentAccessPermit)" ' 'mnuFragezeichen @@ -1397,85 +1397,85 @@ Partial Class frmHauptfenster Me.mnuFragezeichen.ForeColor = System.Drawing.Color.Black Me.mnuFragezeichen.ImageTransparentColor = System.Drawing.Color.Brown Me.mnuFragezeichen.Name = "mnuFragezeichen" - Me.mnuFragezeichen.Size = New System.Drawing.Size(36, 30) + Me.mnuFragezeichen.Size = New System.Drawing.Size(24, 20) Me.mnuFragezeichen.Text = "?" ' 'VerfahrenshandbücherToolStripMenuItem ' Me.VerfahrenshandbücherToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem}) Me.VerfahrenshandbücherToolStripMenuItem.Name = "VerfahrenshandbücherToolStripMenuItem" - Me.VerfahrenshandbücherToolStripMenuItem.Size = New System.Drawing.Size(291, 34) + Me.VerfahrenshandbücherToolStripMenuItem.Size = New System.Drawing.Size(193, 22) Me.VerfahrenshandbücherToolStripMenuItem.Text = "Verfahrenshandbücher" ' 'VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem ' Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Name = "VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem" - Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Size = New System.Drawing.Size(463, 34) + Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Size = New System.Drawing.Size(306, 22) Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Text = "Verfahrenshandbuch VERAG GmbH Zoll WO" ' 'ChecklistenToolStripMenuItem ' Me.ChecklistenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChecklisteWOCHECKLISTEZEallgemein, Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem, Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem, Me.ToolStripSeparator22, Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem, Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1, Me.ToolStripSeparator21, Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem, Me.WOCECKLISTEZEWDHToolStripMenuItem}) Me.ChecklistenToolStripMenuItem.Name = "ChecklistenToolStripMenuItem" - Me.ChecklistenToolStripMenuItem.Size = New System.Drawing.Size(291, 34) + Me.ChecklistenToolStripMenuItem.Size = New System.Drawing.Size(193, 22) Me.ChecklistenToolStripMenuItem.Text = "Checklisten" ' 'ChecklisteWOCHECKLISTEZEallgemein ' Me.ChecklisteWOCHECKLISTEZEallgemein.Name = "ChecklisteWOCHECKLISTEZEallgemein" - Me.ChecklisteWOCHECKLISTEZEallgemein.Size = New System.Drawing.Size(573, 34) + Me.ChecklisteWOCHECKLISTEZEallgemein.Size = New System.Drawing.Size(381, 22) Me.ChecklisteWOCHECKLISTEZEallgemein.Text = "ZE WO CHECKLISTE ZE allgemein" ' 'ZEVerfahrensanleitungGestellungSumAToolStripMenuItem ' Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Name = "ZEVerfahrensanleitungGestellungSumAToolStripMenuItem" - Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Size = New System.Drawing.Size(573, 34) + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Size = New System.Drawing.Size(381, 22) Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Text = "ZE Verfahrensanleitung Gestellung/SumA" ' 'ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem ' Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Name = "ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem" - Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Size = New System.Drawing.Size(573, 34) + Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Size = New System.Drawing.Size(381, 22) Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Text = "ZE Verfahrensanleitung Gestellung/SumA - Fremdpersonal" ' 'ToolStripSeparator22 ' Me.ToolStripSeparator22.Name = "ToolStripSeparator22" - Me.ToolStripSeparator22.Size = New System.Drawing.Size(570, 6) + Me.ToolStripSeparator22.Size = New System.Drawing.Size(378, 6) ' 'WOCHECKLISTEZVAllgemeinToolStripMenuItem ' Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Name = "WOCHECKLISTEZVAllgemeinToolStripMenuItem" - Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Size = New System.Drawing.Size(573, 34) + Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Size = New System.Drawing.Size(381, 22) Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Text = "ZV WO CHECKLISTE ZV allgemein" ' 'ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1 ' Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Name = "ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1" - Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Size = New System.Drawing.Size(573, 34) + Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Size = New System.Drawing.Size(381, 22) Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Text = "ZV Verfahrensanleitung" ' 'ToolStripSeparator21 ' Me.ToolStripSeparator21.Name = "ToolStripSeparator21" - Me.ToolStripSeparator21.Size = New System.Drawing.Size(570, 6) + Me.ToolStripSeparator21.Size = New System.Drawing.Size(378, 6) ' 'WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem ' Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Name = "WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem" - Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Size = New System.Drawing.Size(573, 34) + Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Size = New System.Drawing.Size(381, 22) Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Text = "WO CHECKLISTE Abgang Verwahrungsort ZV" ' 'WOCECKLISTEZEWDHToolStripMenuItem ' Me.WOCECKLISTEZEWDHToolStripMenuItem.Name = "WOCECKLISTEZEWDHToolStripMenuItem" - Me.WOCECKLISTEZEWDHToolStripMenuItem.Size = New System.Drawing.Size(573, 34) + Me.WOCECKLISTEZEWDHToolStripMenuItem.Size = New System.Drawing.Size(381, 22) Me.WOCECKLISTEZEWDHToolStripMenuItem.Text = "WO CHECKLISTE ZE WDH" ' 'HandbuchToolStripMenuItem ' Me.HandbuchToolStripMenuItem.Name = "HandbuchToolStripMenuItem" - Me.HandbuchToolStripMenuItem.Size = New System.Drawing.Size(291, 34) + Me.HandbuchToolStripMenuItem.Size = New System.Drawing.Size(193, 22) Me.HandbuchToolStripMenuItem.Text = "Handbuch" ' 'btnWoche @@ -1534,7 +1534,7 @@ Partial Class frmHauptfenster Me.pnlDetailsRechts.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0) Me.pnlDetailsRechts.Name = "pnlDetailsRechts" - Me.pnlDetailsRechts.Size = New System.Drawing.Size(550, 587) + Me.pnlDetailsRechts.Size = New System.Drawing.Size(550, 599) Me.pnlDetailsRechts.TabIndex = 0 ' 'Label6 @@ -1544,7 +1544,7 @@ Partial Class frmHauptfenster Me.Label6.ForeColor = System.Drawing.Color.White Me.Label6.Location = New System.Drawing.Point(232, 55) Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(109, 17) + Me.Label6.Size = New System.Drawing.Size(81, 13) Me.Label6.TabIndex = 11 Me.Label6.Text = "mind. 2 Zeichen" ' @@ -1554,7 +1554,7 @@ Partial Class frmHauptfenster Me.txtSuche.Location = New System.Drawing.Point(7, 28) Me.txtSuche.MaxLength = 30 Me.txtSuche.Name = "txtSuche" - Me.txtSuche.Size = New System.Drawing.Size(306, 35) + Me.txtSuche.Size = New System.Drawing.Size(306, 26) Me.txtSuche.TabIndex = 0 ' 'Top @@ -1575,7 +1575,7 @@ Partial Class frmHauptfenster Me.Top.Controls.Add(Me.btnKunden) Me.Top.Controls.Add(Me.btnSpedBuch) Me.Top.Dock = System.Windows.Forms.DockStyle.Top - Me.Top.Location = New System.Drawing.Point(0, 36) + Me.Top.Location = New System.Drawing.Point(0, 24) Me.Top.Name = "Top" Me.Top.Size = New System.Drawing.Size(1372, 52) Me.Top.TabIndex = 6 @@ -1861,7 +1861,7 @@ Partial Class frmHauptfenster Me.lblMitarbeiter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.lblMitarbeiter.Location = New System.Drawing.Point(2, 184) Me.lblMitarbeiter.Name = "lblMitarbeiter" - Me.lblMitarbeiter.Size = New System.Drawing.Size(190, 20) + Me.lblMitarbeiter.Size = New System.Drawing.Size(126, 13) Me.lblMitarbeiter.TabIndex = 1 Me.lblMitarbeiter.Text = "Max Mustermann (Admin)" Me.lblMitarbeiter.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -1875,7 +1875,7 @@ Partial Class frmHauptfenster Me.lblGrenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.lblGrenzstelle.Location = New System.Drawing.Point(143, 199) Me.lblGrenzstelle.Name = "lblGrenzstelle" - Me.lblGrenzstelle.Size = New System.Drawing.Size(43, 20) + Me.lblGrenzstelle.Size = New System.Drawing.Size(29, 13) Me.lblGrenzstelle.TabIndex = 0 Me.lblGrenzstelle.Text = "SUB" Me.lblGrenzstelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -2050,7 +2050,7 @@ Partial Class frmHauptfenster Me.lblFimaAviso.ForeColor = System.Drawing.Color.Black Me.lblFimaAviso.Location = New System.Drawing.Point(67, 199) Me.lblFimaAviso.Name = "lblFimaAviso" - Me.lblFimaAviso.Size = New System.Drawing.Size(97, 20) + Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13) Me.lblFimaAviso.TabIndex = 11 Me.lblFimaAviso.Text = "XXXXXXXX" ' @@ -2074,7 +2074,7 @@ Partial Class frmHauptfenster Me.Label7.ForeColor = System.Drawing.Color.Black Me.Label7.Location = New System.Drawing.Point(6, 5) Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(56, 20) + Me.Label7.Size = New System.Drawing.Size(41, 13) Me.Label7.TabIndex = 3 Me.Label7.Text = "Links:" ' @@ -2138,7 +2138,7 @@ Partial Class frmHauptfenster Me.lblVersion.ForeColor = System.Drawing.Color.Black Me.lblVersion.Location = New System.Drawing.Point(3, 199) Me.lblVersion.Name = "lblVersion" - Me.lblVersion.Size = New System.Drawing.Size(68, 20) + Me.lblVersion.Size = New System.Drawing.Size(47, 13) Me.lblVersion.TabIndex = 6 Me.lblVersion.Text = "V1.0.0.0" ' @@ -2215,12 +2215,12 @@ Partial Class frmHauptfenster Me.cntxtAtilla.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtAtilla.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem17}) Me.cntxtAtilla.Name = "cntxt" - Me.cntxtAtilla.Size = New System.Drawing.Size(139, 36) + Me.cntxtAtilla.Size = New System.Drawing.Size(111, 26) ' 'ToolStripMenuItem17 ' Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17" - Me.ToolStripMenuItem17.Size = New System.Drawing.Size(138, 32) + Me.ToolStripMenuItem17.Size = New System.Drawing.Size(110, 22) Me.ToolStripMenuItem17.Text = "ATILLA" ' 'SplitContainer3 @@ -2355,7 +2355,7 @@ Partial Class frmHauptfenster Me.lblMeineAviso.ForeColor = System.Drawing.Color.White Me.lblMeineAviso.Location = New System.Drawing.Point(29, 5) Me.lblMeineAviso.Name = "lblMeineAviso" - Me.lblMeineAviso.Size = New System.Drawing.Size(163, 20) + Me.lblMeineAviso.Size = New System.Drawing.Size(113, 13) Me.lblMeineAviso.TabIndex = 0 Me.lblMeineAviso.Text = "Meine Sendungen:" ' @@ -2373,7 +2373,7 @@ Partial Class frmHauptfenster Me.cboMy_Grenzstelle.FormattingEnabled = True Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(113, 1) Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle" - Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 28) + Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21) Me.cboMy_Grenzstelle.TabIndex = 26 ' 'Label18 @@ -2392,9 +2392,9 @@ Partial Class frmHauptfenster Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cbx_My_LKW.AutoSize = True Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White - Me.cbx_My_LKW.Location = New System.Drawing.Point(-18, 3) + Me.cbx_My_LKW.Location = New System.Drawing.Point(-11, 3) Me.cbx_My_LKW.Name = "cbx_My_LKW" - Me.cbx_My_LKW.Size = New System.Drawing.Size(57, 21) + Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17) Me.cbx_My_LKW.TabIndex = 24 Me.cbx_My_LKW.Text = "LKW" Me.cbx_My_LKW.UseVisualStyleBackColor = True @@ -2406,9 +2406,9 @@ Partial Class frmHauptfenster Me.cboMy_QS.Checked = True Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate Me.cboMy_QS.ForeColor = System.Drawing.Color.White - Me.cboMy_QS.Location = New System.Drawing.Point(438, 3) + Me.cboMy_QS.Location = New System.Drawing.Point(445, 3) Me.cboMy_QS.Name = "cboMy_QS" - Me.cboMy_QS.Size = New System.Drawing.Size(22, 21) + Me.cboMy_QS.Size = New System.Drawing.Size(15, 14) Me.cboMy_QS.TabIndex = 23 Me.cboMy_QS.ThreeState = True Me.cboMy_QS.UseVisualStyleBackColor = True @@ -2420,9 +2420,9 @@ Partial Class frmHauptfenster Me.cboMy_VB.Checked = True Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate Me.cboMy_VB.ForeColor = System.Drawing.Color.White - Me.cboMy_VB.Location = New System.Drawing.Point(457, 3) + Me.cboMy_VB.Location = New System.Drawing.Point(464, 3) Me.cboMy_VB.Name = "cboMy_VB" - Me.cboMy_VB.Size = New System.Drawing.Size(22, 21) + Me.cboMy_VB.Size = New System.Drawing.Size(15, 14) Me.cboMy_VB.TabIndex = 22 Me.cboMy_VB.ThreeState = True Me.cboMy_VB.UseVisualStyleBackColor = True @@ -2440,7 +2440,7 @@ Partial Class frmHauptfenster Me.cboMyAvisoAnzeige.FormattingEnabled = True Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(232, 1) Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" - Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 28) + Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21) Me.cboMyAvisoAnzeige.TabIndex = 21 ' 'Label17 @@ -2630,7 +2630,7 @@ Partial Class frmHauptfenster Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainer1.IsSplitterFixed = True - Me.SplitContainer1.Location = New System.Drawing.Point(0, 88) + Me.SplitContainer1.Location = New System.Drawing.Point(0, 76) Me.SplitContainer1.Name = "SplitContainer1" ' 'SplitContainer1.Panel1 @@ -2643,7 +2643,7 @@ Partial Class frmHauptfenster Me.SplitContainer1.Panel2.Controls.Add(Me.btnSmall) Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts) Me.SplitContainer1.Panel2MinSize = 300 - Me.SplitContainer1.Size = New System.Drawing.Size(1372, 589) + Me.SplitContainer1.Size = New System.Drawing.Size(1372, 601) Me.SplitContainer1.SplitterDistance = 819 Me.SplitContainer1.SplitterWidth = 1 Me.SplitContainer1.TabIndex = 7 @@ -2657,7 +2657,7 @@ Partial Class frmHauptfenster Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0) Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564) Me.pnlDetailsLinks.Name = "pnlDetailsLinks" - Me.pnlDetailsLinks.Size = New System.Drawing.Size(817, 587) + Me.pnlDetailsLinks.Size = New System.Drawing.Size(817, 599) Me.pnlDetailsLinks.TabIndex = 0 ' 'splitMain @@ -2680,8 +2680,8 @@ Partial Class frmHauptfenster ' Me.splitMain.Panel2.Controls.Add(Me.SplitContainer2) Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption) - Me.splitMain.Size = New System.Drawing.Size(815, 585) - Me.splitMain.SplitterDistance = 276 + Me.splitMain.Size = New System.Drawing.Size(815, 597) + Me.splitMain.SplitterDistance = 288 Me.splitMain.TabIndex = 0 ' 'gridAviso @@ -2734,7 +2734,7 @@ Partial Class frmHauptfenster Me.gridAviso.RowTemplate.ReadOnly = True Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.gridAviso.Size = New System.Drawing.Size(815, 56) + Me.gridAviso.Size = New System.Drawing.Size(815, 68) Me.gridAviso.TabIndex = 1 Me.gridAviso.TabStop = False ' @@ -2820,7 +2820,7 @@ Partial Class frmHauptfenster Me.cboImEx.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD"}) Me.cboImEx.Location = New System.Drawing.Point(828, 3) Me.cboImEx.Name = "cboImEx" - Me.cboImEx.Size = New System.Drawing.Size(78, 33) + Me.cboImEx.Size = New System.Drawing.Size(78, 24) Me.cboImEx.TabIndex = 24 ' 'Label21 @@ -2841,7 +2841,7 @@ Partial Class frmHauptfenster Me.cbxCluster.ForeColor = System.Drawing.Color.White Me.cbxCluster.Location = New System.Drawing.Point(767, 35) Me.cbxCluster.Name = "cbxCluster" - Me.cbxCluster.Size = New System.Drawing.Size(103, 21) + Me.cbxCluster.Size = New System.Drawing.Size(96, 17) Me.cbxCluster.TabIndex = 20 Me.cbxCluster.Text = "Firmenverbund" Me.cbxCluster.UseVisualStyleBackColor = True @@ -2859,7 +2859,7 @@ Partial Class frmHauptfenster Me.cboTeams.FormattingEnabled = True Me.cboTeams.Location = New System.Drawing.Point(379, 3) Me.cboTeams.Name = "cboTeams" - Me.cboTeams.Size = New System.Drawing.Size(107, 33) + Me.cboTeams.Size = New System.Drawing.Size(107, 24) Me.cboTeams.TabIndex = 19 ' 'lblErweitereSuche @@ -2890,7 +2890,7 @@ Partial Class frmHauptfenster Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) Me.Label8.Location = New System.Drawing.Point(67, 7) Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(22, 26) + Me.Label8.Size = New System.Drawing.Size(15, 18) Me.Label8.TabIndex = 15 Me.Label8.Text = "*" Me.Label8.Visible = False @@ -2921,7 +2921,7 @@ Partial Class frmHauptfenster Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"}) Me.cboGrenzstelle.Location = New System.Drawing.Point(379, 30) Me.cboGrenzstelle.Name = "cboGrenzstelle" - Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 33) + Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24) Me.cboGrenzstelle.TabIndex = 13 ' 'Label4 @@ -2964,7 +2964,7 @@ Partial Class frmHauptfenster Me.MyComboBox1.Location = New System.Drawing.Point(46, 1) Me.MyComboBox1.MaxLength = 4 Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(98, 28) + Me.MyComboBox1.Size = New System.Drawing.Size(98, 21) Me.MyComboBox1.TabIndex = 7 ' 'pnlSearch @@ -3003,7 +3003,7 @@ Partial Class frmHauptfenster Me.txtDyRef.Location = New System.Drawing.Point(389, 61) Me.txtDyRef.MaxLength = 100 Me.txtDyRef.Name = "txtDyRef" - Me.txtDyRef.Size = New System.Drawing.Size(216, 30) + Me.txtDyRef.Size = New System.Drawing.Size(216, 23) Me.txtDyRef.TabIndex = 21 ' 'Label19 @@ -3032,7 +3032,7 @@ Partial Class frmHauptfenster Me.txtlkwId.Location = New System.Drawing.Point(79, 61) Me.txtlkwId.MaxLength = 100 Me.txtlkwId.Name = "txtlkwId" - Me.txtlkwId.Size = New System.Drawing.Size(236, 30) + Me.txtlkwId.Size = New System.Drawing.Size(236, 23) Me.txtlkwId.TabIndex = 10 ' 'cbxNE @@ -3041,7 +3041,7 @@ Partial Class frmHauptfenster Me.cbxNE.ForeColor = System.Drawing.Color.White Me.cbxNE.Location = New System.Drawing.Point(553, 86) Me.cbxNE.Name = "cbxNE" - Me.cbxNE.Size = New System.Drawing.Size(117, 21) + Me.cbxNE.Size = New System.Drawing.Size(110, 17) Me.cbxNE.TabIndex = 16 Me.cbxNE.Text = "Nicht eingetroffen" Me.cbxNE.UseVisualStyleBackColor = True @@ -3052,7 +3052,7 @@ Partial Class frmHauptfenster Me.cbxFreigabe.ForeColor = System.Drawing.Color.White Me.cbxFreigabe.Location = New System.Drawing.Point(462, 86) Me.cbxFreigabe.Name = "cbxFreigabe" - Me.cbxFreigabe.Size = New System.Drawing.Size(92, 21) + Me.cbxFreigabe.Size = New System.Drawing.Size(85, 17) Me.cbxFreigabe.TabIndex = 15 Me.cbxFreigabe.Text = "Freigegeben" Me.cbxFreigabe.UseVisualStyleBackColor = True @@ -3063,7 +3063,7 @@ Partial Class frmHauptfenster Me.cbxAnkunft.ForeColor = System.Drawing.Color.White Me.cbxAnkunft.Location = New System.Drawing.Point(393, 86) Me.cbxAnkunft.Name = "cbxAnkunft" - Me.cbxAnkunft.Size = New System.Drawing.Size(70, 21) + Me.cbxAnkunft.Size = New System.Drawing.Size(63, 17) Me.cbxAnkunft.TabIndex = 14 Me.cbxAnkunft.Text = "Ankunft" Me.cbxAnkunft.UseVisualStyleBackColor = True @@ -3074,7 +3074,7 @@ Partial Class frmHauptfenster Me.cbxVorg.ForeColor = System.Drawing.Color.White Me.cbxVorg.Location = New System.Drawing.Point(294, 86) Me.cbxVorg.Name = "cbxVorg" - Me.cbxVorg.Size = New System.Drawing.Size(107, 21) + Me.cbxVorg.Size = New System.Drawing.Size(100, 17) Me.cbxVorg.TabIndex = 13 Me.cbxVorg.Text = "Vorgeschrieben" Me.cbxVorg.UseVisualStyleBackColor = True @@ -3085,7 +3085,7 @@ Partial Class frmHauptfenster Me.cbxVorb.ForeColor = System.Drawing.Color.White Me.cbxVorb.Location = New System.Drawing.Point(193, 86) Me.cbxVorb.Name = "cbxVorb" - Me.cbxVorb.Size = New System.Drawing.Size(102, 21) + Me.cbxVorb.Size = New System.Drawing.Size(95, 17) Me.cbxVorb.TabIndex = 12 Me.cbxVorb.Text = "Vorbereitet QS" Me.cbxVorb.UseVisualStyleBackColor = True @@ -3096,7 +3096,7 @@ Partial Class frmHauptfenster Me.cbxErfasst.ForeColor = System.Drawing.Color.White Me.cbxErfasst.Location = New System.Drawing.Point(129, 86) Me.cbxErfasst.Name = "cbxErfasst" - Me.cbxErfasst.Size = New System.Drawing.Size(65, 21) + Me.cbxErfasst.Size = New System.Drawing.Size(58, 17) Me.cbxErfasst.TabIndex = 11 Me.cbxErfasst.Text = "Erfasst" Me.cbxErfasst.UseVisualStyleBackColor = True @@ -3117,7 +3117,7 @@ Partial Class frmHauptfenster Me.txtKdAuftragsnr.Location = New System.Drawing.Point(389, 35) Me.txtKdAuftragsnr.MaxLength = 100 Me.txtKdAuftragsnr.Name = "txtKdAuftragsnr" - Me.txtKdAuftragsnr.Size = New System.Drawing.Size(216, 30) + Me.txtKdAuftragsnr.Size = New System.Drawing.Size(216, 23) Me.txtKdAuftragsnr.TabIndex = 9 ' 'txtAuftraggeber @@ -3126,7 +3126,7 @@ Partial Class frmHauptfenster Me.txtAuftraggeber.Location = New System.Drawing.Point(79, 13) Me.txtAuftraggeber.MaxLength = 100 Me.txtAuftraggeber.Name = "txtAuftraggeber" - Me.txtAuftraggeber.Size = New System.Drawing.Size(236, 30) + Me.txtAuftraggeber.Size = New System.Drawing.Size(236, 23) Me.txtAuftraggeber.TabIndex = 1 ' 'lblErwKdAtrNr @@ -3171,7 +3171,7 @@ Partial Class frmHauptfenster Me.txtEmpfänger.Location = New System.Drawing.Point(79, 35) Me.txtEmpfänger.MaxLength = 100 Me.txtEmpfänger.Name = "txtEmpfänger" - Me.txtEmpfänger.Size = New System.Drawing.Size(236, 30) + Me.txtEmpfänger.Size = New System.Drawing.Size(236, 23) Me.txtEmpfänger.TabIndex = 5 ' 'cboFiliale @@ -3185,7 +3185,7 @@ Partial Class frmHauptfenster Me.cboFiliale.Location = New System.Drawing.Point(389, 13) Me.cboFiliale.MaxLength = 4 Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(70, 33) + Me.cboFiliale.Size = New System.Drawing.Size(70, 24) Me.cboFiliale.TabIndex = 3 ' 'txtAbfertigungsnummer @@ -3194,7 +3194,7 @@ Partial Class frmHauptfenster Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(458, 13) Me.txtAbfertigungsnummer.MaxLength = 8 Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(147, 30) + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(147, 23) Me.txtAbfertigungsnummer.TabIndex = 4 ' 'lblErwFilialePos @@ -3223,7 +3223,7 @@ Partial Class frmHauptfenster Me.cbxAlle.ForeColor = System.Drawing.Color.White Me.cbxAlle.Location = New System.Drawing.Point(79, 86) Me.cbxAlle.Name = "cbxAlle" - Me.cbxAlle.Size = New System.Drawing.Size(50, 21) + Me.cbxAlle.Size = New System.Drawing.Size(43, 17) Me.cbxAlle.TabIndex = 10 Me.cbxAlle.Text = "Alle" Me.cbxAlle.UseVisualStyleBackColor = True @@ -3256,7 +3256,7 @@ Partial Class frmHauptfenster Me.Label9.ForeColor = System.Drawing.Color.Red Me.Label9.Location = New System.Drawing.Point(370, 5) Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(618, 22) + Me.Label9.Size = New System.Drawing.Size(438, 15) Me.Label9.TabIndex = 9 Me.Label9.Text = "Es ist ein Programm-Update verfügbar, bitte das AVISO neu starten." Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -3351,18 +3351,18 @@ Partial Class frmHauptfenster Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BundesanzeigerToolStripMenuItem, Me.EUTaricToolStripMenuItem, Me.ZugelassenerAusführerToolStripMenuItem}) Me.cntxt.Name = "cntxt" - Me.cntxt.Size = New System.Drawing.Size(278, 100) + Me.cntxt.Size = New System.Drawing.Size(207, 94) ' 'BundesanzeigerToolStripMenuItem ' Me.BundesanzeigerToolStripMenuItem.Name = "BundesanzeigerToolStripMenuItem" - Me.BundesanzeigerToolStripMenuItem.Size = New System.Drawing.Size(277, 32) + Me.BundesanzeigerToolStripMenuItem.Size = New System.Drawing.Size(206, 30) Me.BundesanzeigerToolStripMenuItem.Text = "Bundesanzeiger" ' 'EUTaricToolStripMenuItem ' Me.EUTaricToolStripMenuItem.Name = "EUTaricToolStripMenuItem" - Me.EUTaricToolStripMenuItem.Size = New System.Drawing.Size(277, 32) + Me.EUTaricToolStripMenuItem.Size = New System.Drawing.Size(206, 30) Me.EUTaricToolStripMenuItem.Text = "EU-Taric" ' 'ZugelassenerAusführerToolStripMenuItem @@ -3370,42 +3370,42 @@ Partial Class frmHauptfenster Me.ZugelassenerAusführerToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.AllgemeineEinführungExportkontrolleToolStripMenuItem, Me.BrexitToolStripMenuItem1, Me.EmbargosLänderToolStripMenuItem, Me.GüterlisteToolStripMenuItem}) Me.ZugelassenerAusführerToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico Me.ZugelassenerAusführerToolStripMenuItem.Name = "ZugelassenerAusführerToolStripMenuItem" - Me.ZugelassenerAusführerToolStripMenuItem.Size = New System.Drawing.Size(277, 32) + Me.ZugelassenerAusführerToolStripMenuItem.Size = New System.Drawing.Size(206, 30) Me.ZugelassenerAusführerToolStripMenuItem.Text = "Zugelassener Ausführer" ' 'AllgemeinToolStripMenuItem ' Me.AllgemeinToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico Me.AllgemeinToolStripMenuItem.Name = "AllgemeinToolStripMenuItem" - Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(419, 34) + Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.AllgemeinToolStripMenuItem.Text = "Allgemein" ' 'AllgemeineEinführungExportkontrolleToolStripMenuItem ' Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Name = "AllgemeineEinführungExportkontrolleToolStripMenuItem" - Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Size = New System.Drawing.Size(419, 34) + Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.AllgemeineEinführungExportkontrolleToolStripMenuItem.Text = "Allgemeine Einführung Exportkontrolle" ' 'BrexitToolStripMenuItem1 ' Me.BrexitToolStripMenuItem1.Image = Global.AVISO.My.Resources.Resources.zollico Me.BrexitToolStripMenuItem1.Name = "BrexitToolStripMenuItem1" - Me.BrexitToolStripMenuItem1.Size = New System.Drawing.Size(419, 34) + Me.BrexitToolStripMenuItem1.Size = New System.Drawing.Size(280, 22) Me.BrexitToolStripMenuItem1.Text = "Brexit" ' 'EmbargosLänderToolStripMenuItem ' Me.EmbargosLänderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico Me.EmbargosLänderToolStripMenuItem.Name = "EmbargosLänderToolStripMenuItem" - Me.EmbargosLänderToolStripMenuItem.Size = New System.Drawing.Size(419, 34) + Me.EmbargosLänderToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.EmbargosLänderToolStripMenuItem.Text = "Embargos-Länder" ' 'GüterlisteToolStripMenuItem ' Me.GüterlisteToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.zollico Me.GüterlisteToolStripMenuItem.Name = "GüterlisteToolStripMenuItem" - Me.GüterlisteToolStripMenuItem.Size = New System.Drawing.Size(419, 34) + Me.GüterlisteToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.GüterlisteToolStripMenuItem.Text = "Güterliste" ' 'Timer_REFRESH @@ -3429,35 +3429,41 @@ Partial Class frmHauptfenster Me.ctxtFarben.ImageScalingSize = New System.Drawing.Size(24, 24) Me.ctxtFarben.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ALLEToolStripMenuItem, Me.ToolStripMenuItem19, Me.ToolStripMenuItem20, Me.ToolStripMenuItem21}) Me.ctxtFarben.Name = "cntxt" - Me.ctxtFarben.Size = New System.Drawing.Size(156, 132) + Me.ctxtFarben.Size = New System.Drawing.Size(122, 92) ' 'ALLEToolStripMenuItem ' Me.ALLEToolStripMenuItem.Name = "ALLEToolStripMenuItem" - Me.ALLEToolStripMenuItem.Size = New System.Drawing.Size(155, 32) + Me.ALLEToolStripMenuItem.Size = New System.Drawing.Size(121, 22) Me.ALLEToolStripMenuItem.Text = "ALLE" ' 'ToolStripMenuItem19 ' Me.ToolStripMenuItem19.BackColor = System.Drawing.Color.Red Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19" - Me.ToolStripMenuItem19.Size = New System.Drawing.Size(155, 32) + Me.ToolStripMenuItem19.Size = New System.Drawing.Size(121, 22) Me.ToolStripMenuItem19.Text = "ROT" ' 'ToolStripMenuItem20 ' Me.ToolStripMenuItem20.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" - Me.ToolStripMenuItem20.Size = New System.Drawing.Size(155, 32) + Me.ToolStripMenuItem20.Size = New System.Drawing.Size(121, 22) Me.ToolStripMenuItem20.Text = "ORANGE" ' 'ToolStripMenuItem21 ' Me.ToolStripMenuItem21.BackColor = System.Drawing.Color.Yellow Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21" - Me.ToolStripMenuItem21.Size = New System.Drawing.Size(155, 32) + Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22) Me.ToolStripMenuItem21.Text = "GELB" ' + 'DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem + ' + Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem" + Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH - NEU" + ' 'frmHauptfenster ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -3859,4 +3865,5 @@ Partial Class frmHauptfenster Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 3c5a621..27e9a28 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -4174,6 +4174,12 @@ Public Class frmHauptfenster btnColor.BackColor = Color.White meineAviso_anzeigen() End Sub + + Private Sub DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Click + Dim frm As New frmGesamtsicherheitenNEU + frm.Standort = "VERAG AG" + frm.Show() + End Sub End Class Public Class AvisoStatusFunctions