diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb
index bb7526a..3647d5e 100644
--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
@@ -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 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()
+ Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -291,7 +291,6 @@ 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)
@@ -399,6 +398,8 @@ Partial Class frmHauptfenster
Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
+ Me.Button1 = New System.Windows.Forms.Button()
+ Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -892,26 +893,26 @@ Partial Class frmHauptfenster
'GenerelleGestellungenDurchsuchenToolStripMenuItem
'
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem"
- Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ 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(391, 30)
+ 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(391, 30)
+ 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(391, 30)
+ Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten"
'
'SMSSendenToolStripMenuItem
@@ -919,7 +920,7 @@ Partial Class frmHauptfenster
Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem})
Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2
Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem"
- Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.SMSSendenToolStripMenuItem.Text = "SMS"
'
'NeueSMSSendenToolStripMenuItem
@@ -937,51 +938,51 @@ Partial Class frmHauptfenster
'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem
'
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem"
- Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ 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(391, 30)
+ 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(388, 6)
+ Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6)
'
'tool_BRGXLS
'
Me.tool_BRGXLS.Name = "tool_BRGXLS"
- Me.tool_BRGXLS.Size = New System.Drawing.Size(391, 30)
+ Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22)
Me.tool_BRGXLS.Text = "Bürgschaften Excel"
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
- Me.ToolStripMenuItem4.Size = New System.Drawing.Size(391, 30)
+ 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(391, 30)
+ 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(391, 30)
+ 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(391, 30)
+ Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel"
Me.ToolStripMenuItem6.Visible = False
'
@@ -989,69 +990,69 @@ Partial Class frmHauptfenster
'
Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem})
Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem"
- Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten"
Me.GesamtsicherheitenToolStripMenuItem.Visible = False
'
'ATVeragAGToolStripMenuItem
'
Me.ATVeragAGToolStripMenuItem.Name = "ATVeragAGToolStripMenuItem"
- Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.ATVeragAGToolStripMenuItem.Text = "AT | Verag AG"
'
'ATImexCSToolStripMenuItem
'
Me.ATImexCSToolStripMenuItem.Name = "ATImexCSToolStripMenuItem"
- Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.ATImexCSToolStripMenuItem.Text = "AT | IMEX CS GmbH"
'
'ATVeragCSToolStripMenuItem
'
Me.ATVeragCSToolStripMenuItem.Name = "ATVeragCSToolStripMenuItem"
- Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.ATVeragCSToolStripMenuItem.Text = "AT | Verag CS"
'
'DEVeragGmbHToolStripMenuItem
'
Me.DEVeragGmbHToolStripMenuItem.Name = "DEVeragGmbHToolStripMenuItem"
- Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.DEVeragGmbHToolStripMenuItem.Text = "DE | Verag GmbH"
'
'ATUnispedGmbHToolStripMenuItem
'
Me.ATUnispedGmbHToolStripMenuItem.Name = "ATUnispedGmbHToolStripMenuItem"
- Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.ATUnispedGmbHToolStripMenuItem.Text = "AT | Unisped GmbH"
'
'DEAmbarToolStripMenuItem
'
Me.DEAmbarToolStripMenuItem.Name = "DEAmbarToolStripMenuItem"
- Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
Me.DEAmbarToolStripMenuItem.Text = "DE | Ambar GmbH"
Me.DEAmbarToolStripMenuItem.Visible = False
'
'ToolStripMenuItem10
'
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
- Me.ToolStripMenuItem10.Size = New System.Drawing.Size(391, 30)
+ 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(391, 30)
+ 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(388, 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(391, 30)
+ Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.DAKOSYToolStripMenuItem.Text = "DAKOSY"
'
'StammreferenzenVerwaltenToolStripMenuItem
@@ -1063,69 +1064,69 @@ Partial Class frmHauptfenster
'ToolStripSeparator23
'
Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
- Me.ToolStripSeparator23.Size = New System.Drawing.Size(388, 6)
+ Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6)
'
'toolOriginalATR
'
Me.toolOriginalATR.Image = Global.AVISO.My.Resources.Resources.atr
Me.toolOriginalATR.Name = "toolOriginalATR"
- Me.toolOriginalATR.Size = New System.Drawing.Size(391, 30)
+ Me.toolOriginalATR.Size = New System.Drawing.Size(383, 22)
Me.toolOriginalATR.Text = "Original-ATR"
'
'SDLAbholaufträgeToolStripMenuItem
'
Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem"
- Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ 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(391, 30)
+ Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22)
Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)"
'
'VorauskassenToolStripMenuItem
'
Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung
Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem"
- Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen"
'
'ToolStripSeparator11
'
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
- Me.ToolStripSeparator11.Size = New System.Drawing.Size(388, 6)
+ Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6)
'
'EssensbestellungenToolStripMenuItem
'
Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
- Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen"
Me.EssensbestellungenToolStripMenuItem.Visible = False
'
'AdministrationEssensbestellungenToolStripMenuItem
'
Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem"
- Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen"
Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False
'
'ToolStripSeparator24
'
Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
- Me.ToolStripSeparator24.Size = New System.Drawing.Size(388, 6)
+ Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6)
'
'WarenorteToolStripMenuItem
'
Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem"
- Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.WarenorteToolStripMenuItem.Text = "Warenorte"
'
'DatevBuchungsexportToolStripMenuItem
'
Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem})
Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem"
- Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport"
Me.DatevBuchungsexportToolStripMenuItem.Visible = False
'
@@ -1144,13 +1145,13 @@ Partial Class frmHauptfenster
'APIToolStripMenuItem
'
Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem"
- Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.APIToolStripMenuItem.Text = "API"
'
'FIBUSachkontenToolStripMenuItem
'
Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem"
- Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+ Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten"
'
'StatistikToolStripMenuItem
@@ -1774,6 +1775,7 @@ Partial Class frmHauptfenster
'Top
'
Me.Top.BackColor = System.Drawing.Color.White
+ Me.Top.Controls.Add(Me.Button1)
Me.Top.Controls.Add(Me.lblUsrname)
Me.Top.Controls.Add(Me.lblFimaAviso)
Me.Top.Controls.Add(Me.Button11)
@@ -1825,7 +1827,7 @@ Partial Class frmHauptfenster
'
'Button11
'
- Me.Button11.Location = New System.Drawing.Point(687, 26)
+ Me.Button11.Location = New System.Drawing.Point(1081, 15)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(75, 23)
Me.Button11.TabIndex = 14
@@ -2494,15 +2496,6 @@ 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)
@@ -2535,38 +2528,38 @@ Partial Class frmHauptfenster
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
- DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
- Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+ DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+ Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
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
+ 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
- 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
+ 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
- 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
+ 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)
@@ -2979,47 +2972,47 @@ Partial Class frmHauptfenster
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
+ 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
- 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
+ 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
- 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
+ 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, 248)
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
+ 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
- DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
- Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle18
+ 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
@@ -3793,6 +3786,25 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
+ 'Button1
+ '
+ Me.Button1.Location = New System.Drawing.Point(1028, 7)
+ Me.Button1.Name = "Button1"
+ Me.Button1.Size = New System.Drawing.Size(75, 23)
+ Me.Button1.TabIndex = 87
+ Me.Button1.Text = "Button1"
+ Me.Button1.UseVisualStyleBackColor = True
+ Me.Button1.Visible = False
+ '
+ '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
+ '
'frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4232,4 +4244,5 @@ Partial Class frmHauptfenster
Friend WithEvents FTPToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SpireLizenzPrüfenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DEAmbarToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents Button1 As Button
End Class
diff --git a/Aviso/frmHauptfenster.resx b/Aviso/frmHauptfenster.resx
index 9801068..b95b36c 100644
--- a/Aviso/frmHauptfenster.resx
+++ b/Aviso/frmHauptfenster.resx
@@ -243,9 +243,6 @@
pOTzPwAAAABJRU5ErkJggg==
-
- 560, 17
-
659, 17
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 84c1b38..4abeb5d 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -368,6 +368,7 @@ Public Class frmHauptfenster
AdministrationToolStripMenuItem.Visible = True
lblMitarbeiter.Text += " (Admin)"
Button3.Visible = True
+ Button1.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
@@ -4318,11 +4319,153 @@ Public Class frmHauptfenster
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
+ Exit Sub
+
setProfileImage()
cHMRC.VATTEST(InputBox("Token"))
End Sub
+ Sub saveLukowaPDFsFromTherefore()
+ ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+ ' Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL")
+ Dim slist As New List(Of String)
+ slist.Add("530324001596")
+ slist.Add("530324001604")
+ slist.Add("530324001658")
+ slist.Add("530324001685")
+ slist.Add("530324001707")
+ slist.Add("530324001721")
+ slist.Add("530324001756")
+ slist.Add("530324001720")
+ slist.Add("530324001755")
+ slist.Add("530324001863")
+ slist.Add("530324001853")
+ slist.Add("530324001941")
+ slist.Add("530324001695")
+ slist.Add("530324002015")
+ slist.Add("530324002021")
+ slist.Add("530324002034")
+ slist.Add("530324002042")
+ slist.Add("530324002083")
+ slist.Add("530324002089")
+ slist.Add("530324002090")
+ slist.Add("530324002094")
+ slist.Add("530324002097")
+ slist.Add("530324002107")
+ slist.Add("530324002108")
+ slist.Add("530324002117")
+ slist.Add("530324002115")
+ slist.Add("530324002114")
+ slist.Add("530324002116")
+ slist.Add("530324002189")
+ slist.Add("530324002217")
+ slist.Add("530324002230")
+ slist.Add("530324002274")
+ slist.Add("530324002276")
+ slist.Add("530324002288")
+ slist.Add("530324002290")
+ slist.Add("530324002291")
+ slist.Add("530324002349")
+ slist.Add("530324002386")
+ slist.Add("530324002387")
+ slist.Add("530324002390")
+ slist.Add("530324002380")
+ slist.Add("530324002383")
+ slist.Add("530324002412")
+ slist.Add("530324002451")
+ slist.Add("530324002450")
+ slist.Add("530324002453")
+ slist.Add("530324002459")
+ slist.Add("530324002460")
+ slist.Add("530324002474")
+ slist.Add("530324002498")
+ slist.Add("530324002499")
+ slist.Add("530324002487")
+ slist.Add("530324002507")
+ slist.Add("530324002554")
+ slist.Add("530324002560")
+ slist.Add("530324002544")
+ slist.Add("530324002548")
+ slist.Add("530324002551")
+ slist.Add("530324002581")
+ slist.Add("530324002616")
+ slist.Add("530324002619")
+ slist.Add("530324002610")
+ slist.Add("530324002634")
+ slist.Add("530324002636")
+ slist.Add("530324002675")
+ slist.Add("530324002681")
+ slist.Add("530324002682")
+ slist.Add("530324002688")
+ slist.Add("530324002689")
+ slist.Add("530324002665")
+ slist.Add("530324002659")
+ slist.Add("530324002723")
+ slist.Add("530324002796")
+ slist.Add("530324002798")
+ slist.Add("530324002783")
+ slist.Add("530324002890")
+ slist.Add("530324002905")
+ slist.Add("530324002913")
+ slist.Add("530324002918")
+ slist.Add("530324002926")
+ slist.Add("530324002956")
+ slist.Add("530324002959")
+ slist.Add("530324002961")
+ slist.Add("530324002962")
+ slist.Add("530324002972")
+ slist.Add("530324002963")
+ slist.Add("530324003079")
+ slist.Add("530324003111")
+ slist.Add("530324003140")
+ slist.Add("530324003142")
+ slist.Add("530324003161")
+ slist.Add("530324003164")
+ slist.Add("530324003230")
+ slist.Add("530324003294")
+ slist.Add("530324003295")
+ slist.Add("530324003312")
+ slist.Add("530324003380")
+ slist.Add("530324003430")
+ slist.Add("530324003395")
+ slist.Add("530324003514")
+ slist.Add("530324003454")
+ slist.Add("530324003499")
+ slist.Add("530324003501")
+ slist.Add("530324003504")
+ slist.Add("530324003500")
+ slist.Add("530324003606")
+ slist.Add("530324003616")
+ slist.Add("530324003674")
+ slist.Add("530324003682")
+ slist.Add("530324003780")
+ slist.Add("530324003653")
+ slist.Add("530324003985")
+ slist.Add("530324004016")
+ slist.Add("530324004157")
+ slist.Add("530324004254")
+ slist.Add("530324004367")
+ slist.Add("530324004386")
+ slist.Add("530324004387")
+ slist.Add("530324004747")
+ slist.Add("530324004756")
+ slist.Add("530324004757")
+ slist.Add("530324004836")
+ slist.Add("530324004918")
+ slist.Add("530324004916")
+ slist.Add("530324005000")
+ slist.Add("530324005049")
+ slist.Add("530324005132")
+
+
+
+ For Each s In slist
+ VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("C:\Users\DEVELOPER1\Desktop\LUKOWA\", s, "", "Import ab Jänner 2024", "Import ab Jänner 2024")
+ Next
+
+
+ End Sub
Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click
Process.Start("https://www.tax.service.gov.uk/goods-movement-system/dashboard")
End Sub
@@ -4739,7 +4882,10 @@ Public Class frmHauptfenster
End Sub
+ Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+ saveLukowaPDFsFromTherefore()
+ End Sub
End Class
Public Class AvisoStatusFunctions