Hauptfenster, etc.

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.2.2.5")>
+<Assembly: AssemblyVersion("4.2.2.6")>
-<Assembly: AssemblyFileVersion("4.2.2.5")>
+<Assembly: AssemblyFileVersion("4.2.2.6")>

Aviso/frmHauptfenster.Designer.vb

@@ -255,7 +255,6 @@ Partial Class frmHauptfenster
         Me.Button11 = New System.Windows.Forms.Button()
         Me.btnMAVerzeichnis = New System.Windows.Forms.Button()
         Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.Label9 = New System.Windows.Forms.Label()
         Me.btnKontakt = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button5 = New System.Windows.Forms.Button()
@@ -269,6 +268,7 @@ Partial Class frmHauptfenster
         Me.btnKunden = New System.Windows.Forms.Button()
         Me.btnSpedBuch = New System.Windows.Forms.Button()
         Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
+        Me.Label9 = New System.Windows.Forms.Label()
         Me.lblDauer = New System.Windows.Forms.Label()
         Me.btnDrucken = New System.Windows.Forms.Button()
         Me.Button6 = New System.Windows.Forms.Button()
@@ -420,6 +420,7 @@ Partial Class frmHauptfenster
         Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
         Me.Panel5 = New System.Windows.Forms.Panel()
         Me.Panel7 = New System.Windows.Forms.Panel()
+        Me.ServicesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.pnlDetailsRechts.SuspendLayout()
@@ -468,7 +469,7 @@ Partial Class frmHauptfenster
         'mnuInfo
         '
         Me.mnuInfo.Name = "mnuInfo"
-        Me.mnuInfo.Size = New System.Drawing.Size(214, 22)
+        Me.mnuInfo.Size = New System.Drawing.Size(222, 30)
         Me.mnuInfo.Text = "Info"
         '
         'conÜbernehmen
@@ -1497,7 +1498,7 @@ Partial Class frmHauptfenster
         '
         'mnuFragezeichen
         '
-        Me.mnuFragezeichen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuInfo, Me.VerfahrenshandbücherToolStripMenuItem, Me.ChecklistenToolStripMenuItem, Me.HandbuchToolStripMenuItem, Me.VERAGWIKIToolStripMenuItem})
+        Me.mnuFragezeichen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuInfo, Me.VerfahrenshandbücherToolStripMenuItem, Me.ChecklistenToolStripMenuItem, Me.HandbuchToolStripMenuItem, Me.VERAGWIKIToolStripMenuItem, Me.ServicesToolStripMenuItem})
         Me.mnuFragezeichen.ForeColor = System.Drawing.Color.Black
         Me.mnuFragezeichen.ImageTransparentColor = System.Drawing.Color.Brown
         Me.mnuFragezeichen.Name = "mnuFragezeichen"
@@ -1508,7 +1509,7 @@ Partial Class frmHauptfenster
         '
         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(214, 22)
+        Me.VerfahrenshandbücherToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
         Me.VerfahrenshandbücherToolStripMenuItem.Text = "Verfahrenshandbücher"
         '
         'VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem
@@ -1521,7 +1522,7 @@ Partial Class frmHauptfenster
         '
         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(214, 22)
+        Me.ChecklistenToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
         Me.ChecklistenToolStripMenuItem.Text = "DE-Warenorte/Checklisten"
         '
         'ChecklisteWOCHECKLISTEZEallgemein
@@ -1579,7 +1580,7 @@ Partial Class frmHauptfenster
         'HandbuchToolStripMenuItem
         '
         Me.HandbuchToolStripMenuItem.Name = "HandbuchToolStripMenuItem"
-        Me.HandbuchToolStripMenuItem.Size = New System.Drawing.Size(214, 22)
+        Me.HandbuchToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
         Me.HandbuchToolStripMenuItem.Text = "Handbuch"
         '
         'VERAGWIKIToolStripMenuItem
@@ -1587,7 +1588,7 @@ Partial Class frmHauptfenster
         Me.VERAGWIKIToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WikiToolStripMenuItem, Me.MitarbeiterverzeichnisToolStripMenuItem})
         Me.VERAGWIKIToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.wiki
         Me.VERAGWIKIToolStripMenuItem.Name = "VERAGWIKIToolStripMenuItem"
-        Me.VERAGWIKIToolStripMenuItem.Size = New System.Drawing.Size(214, 22)
+        Me.VERAGWIKIToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
         Me.VERAGWIKIToolStripMenuItem.Text = "VERAG-WIKI"
         '
         'WikiToolStripMenuItem
@@ -1979,22 +1980,6 @@ Partial Class frmHauptfenster
         Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
         '
-        'Label9
-        '
-        Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label9.AutoSize = True
-        Me.Label9.BackColor = System.Drawing.Color.White
-        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
-        Me.Label9.ForeColor = System.Drawing.Color.Red
-        Me.Label9.Location = New System.Drawing.Point(694, 2)
-        Me.Label9.Name = "Label9"
-        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
-        Me.Label9.Visible = False
-        '
         'btnKontakt
         '
         Me.btnKontakt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2192,6 +2177,22 @@ Partial Class frmHauptfenster
         Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
         Me.UsrCntlTestsystem1.TabIndex = 8
         '
+        'Label9
+        '
+        Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.BackColor = System.Drawing.Color.White
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.Label9.ForeColor = System.Drawing.Color.Red
+        Me.Label9.Location = New System.Drawing.Point(694, 2)
+        Me.Label9.Name = "Label9"
+        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
+        Me.Label9.Visible = False
+        '
         'lblDauer
         '
         Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -4026,6 +4027,12 @@ Partial Class frmHauptfenster
         Me.Panel7.Size = New System.Drawing.Size(252, 51)
         Me.Panel7.TabIndex = 4
         '
+        'ServicesToolStripMenuItem
+        '
+        Me.ServicesToolStripMenuItem.Name = "ServicesToolStripMenuItem"
+        Me.ServicesToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
+        Me.ServicesToolStripMenuItem.Text = "Services"
+        '
         'frmHauptfenster
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4486,4 +4493,5 @@ Partial Class frmHauptfenster
     Friend WithEvents UNBescheinigungAusTFEinlesenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Button9 As Button
     Friend WithEvents FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ServicesToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmHauptfenster.vb

@@ -5277,11 +5277,12 @@ ELSE_ATILLA:
         detailForm.Show()
     End Sub
 
-    Private Sub WikiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WikiToolStripMenuItem.Click, MitarbeiterverzeichnisToolStripMenuItem.Click
+    Private Sub WikiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WikiToolStripMenuItem.Click, MitarbeiterverzeichnisToolStripMenuItem.Click, ServicesToolStripMenuItem.Click
 
         Select Case sender.Name
             Case "WikiToolStripMenuItem" : Process.Start("https://wiki.verag.ag/")
             Case "MitarbeiterverzeichnisToolStripMenuItem" : Process.Start("https://wiki.verag.ag/de/mitarbeiter/verzeichnis")
+            Case "ServicesToolStripMenuItem" : Process.Start("https://wiki.verag.ag/de/software/aviso/externeDienste")
 
         End Select