This commit is contained in:
2023-03-15 22:29:46 +01:00
4 changed files with 310 additions and 292 deletions

View File

@@ -264,9 +264,9 @@ Public Class frmEssensbestellungenAdministration
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
tmpForm.Controls.Add(UserControl1)
If tmpForm.ShowDialog() = DialogResult.OK Then
dgvBestellungen.SetOrder()
loadBestellungen()
dgvBestellungen.GetOrder()
loadBestellungen()
dgvBestellungen.SetOrder()
End If
End Using
@@ -358,10 +358,10 @@ Public Class frmEssensbestellungenAdministration
End If
dgvBestellungen.SetOrder()
dgvBestellungen.GetOrder()
bestellung.SAVE()
dgvBestellungen.LOAD()
dgvBestellungen.GetOrder()
dgvBestellungen.SetOrder()
Next
@@ -384,10 +384,10 @@ Public Class frmEssensbestellungenAdministration
End If
dgvBestellungen.SetOrder()
dgvBestellungen.GetOrder()
bestellung.SAVE()
dgvBestellungen.LOAD()
dgvBestellungen.GetOrder()
dgvBestellungen.SetOrder()
Next
@@ -408,10 +408,10 @@ Public Class frmEssensbestellungenAdministration
End If
dgvBestellungen.SetOrder()
dgvBestellungen.GetOrder()
bestellung.SAVE()
dgvBestellungen.LOAD()
dgvBestellungen.GetOrder()
dgvBestellungen.SetOrder()
Next
@@ -713,9 +713,9 @@ Public Class frmEssensbestellungenAdministration
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
tmpForm.Controls.Add(UserControl1)
If tmpForm.ShowDialog() = DialogResult.OK Then
dgvBestellungen.SetOrder()
loadBestellungen()
dgvBestellungen.GetOrder()
loadBestellungen()
dgvBestellungen.SetOrder()
End If
End Using

View File

@@ -24,15 +24,15 @@ Partial Class frmHauptfenster
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -271,15 +271,20 @@ Partial Class frmHauptfenster
Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel6 = New System.Windows.Forms.Panel()
Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox()
Me.btnColor = New System.Windows.Forms.Button()
Me.lblMeineAviso = New System.Windows.Forms.Label()
Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label()
Me.cbx_My_LKW = New System.Windows.Forms.CheckBox()
Me.cboMy_QS = New System.Windows.Forms.CheckBox()
Me.cboMy_VB = New System.Windows.Forms.CheckBox()
Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblMySND_Anzeige = New System.Windows.Forms.Label()
Me.lblAkte = New System.Windows.Forms.Label()
Me.btnClose = New System.Windows.Forms.Button()
@@ -300,16 +305,22 @@ Partial Class frmHauptfenster
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlDetailsLinks = New System.Windows.Forms.Panel()
Me.splitMain = New System.Windows.Forms.SplitContainer()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.cbxCluster = New System.Windows.Forms.CheckBox()
Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblErweitereSuche = New System.Windows.Forms.LinkLabel()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.lblEintraege = New System.Windows.Forms.Label()
Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.pnlTime = New System.Windows.Forms.Panel()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlSearch = New System.Windows.Forms.Panel()
Me.txtDyRef = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label()
@@ -328,6 +339,7 @@ Partial Class frmHauptfenster
Me.Button4 = New System.Windows.Forms.Button()
Me.lblErwEmpfänger = New System.Windows.Forms.Label()
Me.txtEmpfänger = New System.Windows.Forms.TextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox()
Me.lblErwFilialePos = New System.Windows.Forms.Label()
Me.lblErwAuftraggeber = New System.Windows.Forms.Label()
@@ -359,20 +371,9 @@ 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.cbx_My_Brexit = New System.Windows.Forms.CheckBox()
Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.TIRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -392,6 +393,7 @@ Partial Class frmHauptfenster
Me.SplitContainer3.Panel2.SuspendLayout()
Me.SplitContainer3.SuspendLayout()
Me.pnl.SuspendLayout()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel6.SuspendLayout()
Me.tbcntrAviso.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -403,14 +405,13 @@ Partial Class frmHauptfenster
Me.splitMain.Panel1.SuspendLayout()
Me.splitMain.Panel2.SuspendLayout()
Me.splitMain.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.pnlTime.SuspendLayout()
Me.pnlSearch.SuspendLayout()
Me.pnlOptionen.SuspendLayout()
Me.cntxt.SuspendLayout()
Me.ctxtFarben.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'mnuInfo
@@ -1095,7 +1096,7 @@ Partial Class frmHauptfenster
'ToolStripFormulare
'
Me.ToolStripFormulare.BackColor = System.Drawing.Color.White
Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.ToolStripMenuItem2, Me.ToolStripMenuItem7, Me.ToolStripMenuItem12, Me.ToolStripMenuItem15, Me.ToolStripMenuItem18, Me.AuftragÜberwachungsdokumentToolStripMenuItem, Me.toolVUB, Me.toolVPCreditreform, Me.ToolStripSeparator9, Me.VerzollungsunterlagenToolStripMenuItem, Me.ToolStripMenuItem11, Me.ToolStripSeparator6, Me.WAIDHAUSToolStripMenuItem, Me.ToolStripSeparator13, Me.EinheitspapierToolStripMenuItem, Me.CMRToolStripMenuItem, Me.Einheitspapier0735VersandverfahrenToolStripMenuItem})
Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.ToolStripMenuItem2, Me.ToolStripMenuItem7, Me.ToolStripMenuItem12, Me.ToolStripMenuItem15, Me.ToolStripMenuItem18, Me.AuftragÜberwachungsdokumentToolStripMenuItem, Me.toolVUB, Me.toolVPCreditreform, Me.ToolStripSeparator9, Me.VerzollungsunterlagenToolStripMenuItem, Me.ToolStripMenuItem11, Me.ToolStripSeparator6, Me.WAIDHAUSToolStripMenuItem, Me.ToolStripSeparator13, Me.EinheitspapierToolStripMenuItem, Me.CMRToolStripMenuItem, Me.Einheitspapier0735VersandverfahrenToolStripMenuItem, Me.TIRToolStripMenuItem})
Me.ToolStripFormulare.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripFormulare.ForeColor = System.Drawing.Color.Black
Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.BottomRight
@@ -2315,6 +2316,15 @@ Partial Class frmHauptfenster
Me.SplitContainer3.SplitterDistance = 158
Me.SplitContainer3.TabIndex = 3
'
'UsrCntlBenachrichtigungen1
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'pnl
'
Me.pnl.Controls.Add(Me.Button10)
@@ -2340,6 +2350,50 @@ Partial Class frmHauptfenster
Me.Button10.Text = "<"
Me.Button10.UseVisualStyleBackColor = False
'
'gridMyAviso
'
Me.gridMyAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridMyAviso.AllowUserToAddRows = False
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle12
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
Me.gridMyAviso.TabIndex = 0
'
'Panel6
'
Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -2360,6 +2414,19 @@ Partial Class frmHauptfenster
Me.Panel6.Size = New System.Drawing.Size(488, 21)
Me.Panel6.TabIndex = 1
'
'cbx_My_Brexit
'
Me.cbx_My_Brexit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx_My_Brexit.AutoSize = True
Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White
Me.cbx_My_Brexit.Location = New System.Drawing.Point(-91, 3)
Me.cbx_My_Brexit.Name = "cbx_My_Brexit"
Me.cbx_My_Brexit.Size = New System.Drawing.Size(65, 17)
Me.cbx_My_Brexit.TabIndex = 28
Me.cbx_My_Brexit.Text = "BREXIT"
Me.cbx_My_Brexit.UseVisualStyleBackColor = True
Me.cbx_My_Brexit.Visible = False
'
'btnColor
'
Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2382,6 +2449,23 @@ Partial Class frmHauptfenster
Me.lblMeineAviso.TabIndex = 0
Me.lblMeineAviso.Text = "Meine Sendungen:"
'
'cboMy_Grenzstelle
'
Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing
Me.cboMy_Grenzstelle._allowFreiText = False
Me.cboMy_Grenzstelle._value = ""
Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMy_Grenzstelle.DropDownWidth = 120
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
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, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
'
'lblMySnd_Grenzstelle
'
Me.lblMySnd_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2433,6 +2517,22 @@ Partial Class frmHauptfenster
Me.cboMy_VB.ThreeState = True
Me.cboMy_VB.UseVisualStyleBackColor = True
'
'cboMyAvisoAnzeige
'
Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing
Me.cboMyAvisoAnzeige._allowFreiText = False
Me.cboMyAvisoAnzeige._value = ""
Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
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, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
'
'lblMySND_Anzeige
'
Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2695,6 +2795,60 @@ Partial Class frmHauptfenster
Me.splitMain.SplitterDistance = 288
Me.splitMain.TabIndex = 0
'
'gridAviso
'
Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle15.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle16
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 220)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle18
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, 68)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -2728,6 +2882,32 @@ Partial Class frmHauptfenster
Me.Panel1.Size = New System.Drawing.Size(815, 220)
Me.Panel1.TabIndex = 2
'
'txtBestimmungszollstelle
'
Me.txtBestimmungszollstelle._allowFreitext = False
Me.txtBestimmungszollstelle._AllowSetValue = False
Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtBestimmungszollstelle._autoSizeGross = False
Me.txtBestimmungszollstelle._hideIfListEmpty = True
Me.txtBestimmungszollstelle._value = Nothing
Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
Me.txtBestimmungszollstelle.dgvpos = "LEFT"
Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
Me.txtBestimmungszollstelle.key_visible = False
Me.txtBestimmungszollstelle.KEYPARAM = Nothing
Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(379, 55)
Me.txtBestimmungszollstelle.MaxLength = 50
Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
Me.txtBestimmungszollstelle.searchActive = True
Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(211, 20)
Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
Me.txtBestimmungszollstelle.TabIndex = 25
Me.txtBestimmungszollstelle.usrcntl = Nothing
'
'Label10
'
Me.Label10.AutoSize = True
@@ -2738,6 +2918,22 @@ Partial Class frmHauptfenster
Me.Label10.TabIndex = 26
Me.Label10.Text = "Zollamt:"
'
'cboImEx
'
Me.cboImEx._allowedValuesFreiText = Nothing
Me.cboImEx._allowFreiText = False
Me.cboImEx._value = ""
Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboImEx.FormattingEnabled = True
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, 24)
Me.cboImEx.TabIndex = 24
'
'Label21
'
Me.Label21.AutoSize = True
@@ -2761,6 +2957,22 @@ Partial Class frmHauptfenster
Me.cbxCluster.Text = "Firmenverbund"
Me.cbxCluster.UseVisualStyleBackColor = True
'
'cboTeams
'
Me.cboTeams._allowedValuesFreiText = Nothing
Me.cboTeams._allowFreiText = False
Me.cboTeams._value = ""
Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeams.DropDownWidth = 200
Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
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, 24)
Me.cboTeams.TabIndex = 19
'
'lblErweitereSuche
'
Me.lblErweitereSuche.AutoSize = True
@@ -2806,6 +3018,23 @@ Partial Class frmHauptfenster
Me.lblEintraege.Text = "0 Einträge"
Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboGrenzstelle
'
Me.cboGrenzstelle._allowedValuesFreiText = Nothing
Me.cboGrenzstelle._allowFreiText = False
Me.cboGrenzstelle._value = ""
Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGrenzstelle.DropDownWidth = 200
Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboGrenzstelle.FormattingEnabled = True
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, 24)
Me.cboGrenzstelle.TabIndex = 13
'
'Label4
'
Me.Label4.AutoSize = True
@@ -2833,6 +3062,22 @@ Partial Class frmHauptfenster
Me.pnlTime.Size = New System.Drawing.Size(437, 57)
Me.pnlTime.TabIndex = 12
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox1.ForeColor = System.Drawing.Color.White
Me.MyComboBox1.FormattingEnabled = True
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, 21)
Me.MyComboBox1.TabIndex = 7
'
'pnlSearch
'
Me.pnlSearch.Controls.Add(Me.txtDyRef)
@@ -3040,6 +3285,20 @@ Partial Class frmHauptfenster
Me.txtEmpfänger.Size = New System.Drawing.Size(236, 23)
Me.txtEmpfänger.TabIndex = 5
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 300
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
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, 24)
Me.cboFiliale.TabIndex = 3
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -3282,19 +3541,6 @@ Partial Class frmHauptfenster
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem21.Text = "GELB"
'
'cbx_My_Brexit
'
Me.cbx_My_Brexit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx_My_Brexit.AutoSize = True
Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White
Me.cbx_My_Brexit.Location = New System.Drawing.Point(-91, 3)
Me.cbx_My_Brexit.Name = "cbx_My_Brexit"
Me.cbx_My_Brexit.Size = New System.Drawing.Size(65, 17)
Me.cbx_My_Brexit.TabIndex = 28
Me.cbx_My_Brexit.Text = "BREXIT"
Me.cbx_My_Brexit.UseVisualStyleBackColor = True
Me.cbx_My_Brexit.Visible = False
'
'btnMitarbeiterKonto
'
Me.btnMitarbeiterKonto.allowBorder = False
@@ -3324,250 +3570,11 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'gridAviso
'TIRToolStripMenuItem
'
Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 220)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9
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, 68)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
'txtBestimmungszollstelle
'
Me.txtBestimmungszollstelle._allowFreitext = False
Me.txtBestimmungszollstelle._AllowSetValue = False
Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtBestimmungszollstelle._autoSizeGross = False
Me.txtBestimmungszollstelle._hideIfListEmpty = True
Me.txtBestimmungszollstelle._value = Nothing
Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
Me.txtBestimmungszollstelle.dgvpos = "LEFT"
Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
Me.txtBestimmungszollstelle.key_visible = False
Me.txtBestimmungszollstelle.KEYPARAM = Nothing
Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(379, 55)
Me.txtBestimmungszollstelle.MaxLength = 50
Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
Me.txtBestimmungszollstelle.searchActive = True
Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(211, 20)
Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
Me.txtBestimmungszollstelle.TabIndex = 25
Me.txtBestimmungszollstelle.usrcntl = Nothing
'
'cboImEx
'
Me.cboImEx._allowedValuesFreiText = Nothing
Me.cboImEx._allowFreiText = False
Me.cboImEx._value = ""
Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboImEx.FormattingEnabled = True
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, 24)
Me.cboImEx.TabIndex = 24
'
'cboTeams
'
Me.cboTeams._allowedValuesFreiText = Nothing
Me.cboTeams._allowFreiText = False
Me.cboTeams._value = ""
Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeams.DropDownWidth = 200
Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
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, 24)
Me.cboTeams.TabIndex = 19
'
'cboGrenzstelle
'
Me.cboGrenzstelle._allowedValuesFreiText = Nothing
Me.cboGrenzstelle._allowFreiText = False
Me.cboGrenzstelle._value = ""
Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGrenzstelle.DropDownWidth = 200
Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboGrenzstelle.FormattingEnabled = True
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, 24)
Me.cboGrenzstelle.TabIndex = 13
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox1.ForeColor = System.Drawing.Color.White
Me.MyComboBox1.FormattingEnabled = True
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, 21)
Me.MyComboBox1.TabIndex = 7
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 300
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
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, 24)
Me.cboFiliale.TabIndex = 3
'
'UsrCntlBenachrichtigungen1
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'gridMyAviso
'
Me.gridMyAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridMyAviso.AllowUserToAddRows = False
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
Me.gridMyAviso.TabIndex = 0
'
'cboMy_Grenzstelle
'
Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing
Me.cboMy_Grenzstelle._allowFreiText = False
Me.cboMy_Grenzstelle._value = ""
Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMy_Grenzstelle.DropDownWidth = 120
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
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, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
'
'cboMyAvisoAnzeige
'
Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing
Me.cboMyAvisoAnzeige._allowFreiText = False
Me.cboMyAvisoAnzeige._value = ""
Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
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, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
Me.TIRToolStripMenuItem.Name = "TIRToolStripMenuItem"
Me.TIRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.TIRToolStripMenuItem.Text = "TIR"
'
'frmHauptfenster
'
@@ -3612,6 +3619,7 @@ Partial Class frmHauptfenster
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer3.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel6.ResumeLayout(False)
Me.Panel6.PerformLayout()
Me.tbcntrAviso.ResumeLayout(False)
@@ -3626,6 +3634,7 @@ Partial Class frmHauptfenster
Me.splitMain.Panel2.ResumeLayout(False)
CType(Me.splitMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.splitMain.ResumeLayout(False)
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.pnlTime.ResumeLayout(False)
@@ -3635,8 +3644,6 @@ Partial Class frmHauptfenster
Me.pnlOptionen.ResumeLayout(False)
Me.cntxt.ResumeLayout(False)
Me.ctxtFarben.ResumeLayout(False)
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -3981,4 +3988,5 @@ Partial Class frmHauptfenster
Friend WithEvents btnMitarbeiterKonto As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblUsrname As Label
Friend WithEvents cbx_My_Brexit As CheckBox
Friend WithEvents TIRToolStripMenuItem As ToolStripMenuItem
End Class

View File

@@ -228,6 +228,9 @@
pOTzPwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>598, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>697, 17</value>
</metadata>

View File

@@ -4435,6 +4435,13 @@ Public Class frmHauptfenster
f.Show()
Me.Cursor = Cursors.Default
End Sub
Private Sub TIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TIRToolStripMenuItem.Click
Me.Cursor = Cursors.WaitCursor
Dim eh As New SDL.frmTIR
eh.Show()
Me.Cursor = Cursors.Default
End Sub
End Class
Public Class AvisoStatusFunctions