Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

2022-12-07 12:50:43 +01:00
parent d6da1f2865 92f1e75562
commit 22bc383f34
20 changed files with 26005 additions and 3818 deletions
--- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
@@ -93,14 +93,14 @@ Partial Class frmKundenUebersichtZOLL
        Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.MenuStripSDL = New System.Windows.Forms.MenuStrip()
+        Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
        Me.mnueKunden = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnueZoll = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnueOfferte = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnueRechnungen = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnueSpeditionsbuch = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnueStatistik = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripFormulare = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mneFormulare = New System.Windows.Forms.ToolStripMenuItem()
        Me.MANAGERToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
        Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
@@ -118,8 +118,8 @@ Partial Class frmKundenUebersichtZOLL
        Me.VeragCustomsServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnueFiskal = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
        Me.toolNeuerKunde = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mneBearbeiten = New System.Windows.Forms.ToolStripMenuItem()
        Me.toolOptionen = New System.Windows.Forms.ToolStripMenuItem()
        Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AnDakosyÜbertragenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -163,7 +163,7 @@ Partial Class frmKundenUebersichtZOLL
        CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.MyPanel1.SuspendLayout()
        Me.Panel1.SuspendLayout()
-        Me.MenuStripSDL.SuspendLayout()
+        Me.MenuStripKunden.SuspendLayout()
        Me.pnlTop.SuspendLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStrip3.SuspendLayout()
@@ -940,21 +940,21 @@ Partial Class frmKundenUebersichtZOLL
        Me.Panel1.Size = New System.Drawing.Size(1190, 726)
        Me.Panel1.TabIndex = 201
        '
-        'MenuStripSDL
+        'MenuStripKunden
        '
-        Me.MenuStripSDL.AutoSize = False
-        Me.MenuStripSDL.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.MenuStripSDL.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.MenuStripSDL.Dock = System.Windows.Forms.DockStyle.Left
-        Me.MenuStripSDL.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.MenuStripSDL.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.MenuStripSDL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.ToolStripFormulare, Me.mnueFiskal, Me.toolNeuerKunde, Me.ToolStripMenuItem5, Me.toolOptionen, Me.ToolStripMenuItem1, Me.ToolStripMenuItem11})
-        Me.MenuStripSDL.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
-        Me.MenuStripSDL.Location = New System.Drawing.Point(0, 0)
-        Me.MenuStripSDL.Name = "MenuStripSDL"
-        Me.MenuStripSDL.Size = New System.Drawing.Size(114, 758)
-        Me.MenuStripSDL.TabIndex = 208
-        Me.MenuStripSDL.Text = "test"
+        Me.MenuStripKunden.AutoSize = False
+        Me.MenuStripKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.MenuStripKunden.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.MenuStripKunden.Dock = System.Windows.Forms.DockStyle.Left
+        Me.MenuStripKunden.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.MenuStripKunden.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueFiskal, Me.toolNeuerKunde, Me.mneBearbeiten, Me.toolOptionen, Me.ToolStripMenuItem1, Me.ToolStripMenuItem11})
+        Me.MenuStripKunden.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
+        Me.MenuStripKunden.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStripKunden.Name = "MenuStripKunden"
+        Me.MenuStripKunden.Size = New System.Drawing.Size(114, 758)
+        Me.MenuStripKunden.TabIndex = 208
+        Me.MenuStripKunden.Text = "test"
        '
        'mnueKunden
        '
@@ -1046,22 +1046,22 @@ Partial Class frmKundenUebersichtZOLL
        Me.mnueStatistik.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.mnueStatistik.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
        '
-        'ToolStripFormulare
+        'mneFormulare
        '
-        Me.ToolStripFormulare.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem9, Me.ToolStripMenuItem10, Me.ToolStripMenuItem14, Me.ToolStripMenuItem16, Me.ToolStripMenuItem17, Me.ToolStripMenuItem19})
-        Me.ToolStripFormulare.Enabled = False
-        Me.ToolStripFormulare.Font = New System.Drawing.Font("Segoe UI", 9.0!)
-        Me.ToolStripFormulare.ForeColor = System.Drawing.Color.White
-        Me.ToolStripFormulare.Image = Global.SDL.My.Resources.Resources.report
-        Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.ToolStripFormulare.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.ToolStripFormulare.Margin = New System.Windows.Forms.Padding(0, 10, 0, 0)
-        Me.ToolStripFormulare.Name = "ToolStripFormulare"
-        Me.ToolStripFormulare.Size = New System.Drawing.Size(107, 64)
-        Me.ToolStripFormulare.Text = "Formulare"
-        Me.ToolStripFormulare.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.ToolStripFormulare.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.mneFormulare.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.mneFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem9, Me.ToolStripMenuItem10, Me.ToolStripMenuItem14, Me.ToolStripMenuItem16, Me.ToolStripMenuItem17, Me.ToolStripMenuItem19})
+        Me.mneFormulare.Enabled = False
+        Me.mneFormulare.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.mneFormulare.ForeColor = System.Drawing.Color.White
+        Me.mneFormulare.Image = Global.SDL.My.Resources.Resources.report
+        Me.mneFormulare.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.mneFormulare.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
+        Me.mneFormulare.Margin = New System.Windows.Forms.Padding(0, 10, 0, 0)
+        Me.mneFormulare.Name = "mneFormulare"
+        Me.mneFormulare.Size = New System.Drawing.Size(107, 64)
+        Me.mneFormulare.Text = "Formulare"
+        Me.mneFormulare.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.mneFormulare.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
        '
        'MANAGERToolStripMenuItem
        '
@@ -1171,20 +1171,6 @@ Partial Class frmKundenUebersichtZOLL
        Me.mnueFiskal.Text = "Fiskal"
        Me.mnueFiskal.Visible = False
        '
-        'ToolStripMenuItem5
-        '
-        Me.ToolStripMenuItem5.Enabled = False
-        Me.ToolStripMenuItem5.ForeColor = System.Drawing.Color.White
-        Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.stift1
-        Me.ToolStripMenuItem5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.ToolStripMenuItem5.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.ToolStripMenuItem5.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
-        Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
-        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(107, 44)
-        Me.ToolStripMenuItem5.Text = "Bearbeiten"
-        Me.ToolStripMenuItem5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.ToolStripMenuItem5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
-        '
        'toolNeuerKunde
        '
        Me.toolNeuerKunde.ForeColor = System.Drawing.Color.White
@@ -1198,6 +1184,20 @@ Partial Class frmKundenUebersichtZOLL
        Me.toolNeuerKunde.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.toolNeuerKunde.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
        '
+        'mneBearbeiten
+        '
+        Me.mneBearbeiten.Enabled = False
+        Me.mneBearbeiten.ForeColor = System.Drawing.Color.White
+        Me.mneBearbeiten.Image = Global.SDL.My.Resources.Resources.stift1
+        Me.mneBearbeiten.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.mneBearbeiten.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
+        Me.mneBearbeiten.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
+        Me.mneBearbeiten.Name = "mneBearbeiten"
+        Me.mneBearbeiten.Size = New System.Drawing.Size(107, 44)
+        Me.mneBearbeiten.Text = "Bearbeiten"
+        Me.mneBearbeiten.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.mneBearbeiten.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        '
        'toolOptionen
        '
        Me.toolOptionen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.AnDakosyÜbertragenToolStripMenuItem, Me.AufschubEORIBearbeitenToolStripMenuItem, Me.SYSKAÜbertragToolStripMenuItem})
@@ -1421,7 +1421,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.Controls.Add(Me.rtbInfo)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.pnlTop)
-        Me.Controls.Add(Me.MenuStripSDL)
+        Me.Controls.Add(Me.MenuStripKunden)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MinimumSize = New System.Drawing.Size(900, 780)
        Me.Name = "frmKundenUebersichtZOLL"
@@ -1451,8 +1451,8 @@ Partial Class frmKundenUebersichtZOLL
        Me.MyPanel1.ResumeLayout(False)
        Me.MyPanel1.PerformLayout()
        Me.Panel1.ResumeLayout(False)
-        Me.MenuStripSDL.ResumeLayout(False)
-        Me.MenuStripSDL.PerformLayout()
+        Me.MenuStripKunden.ResumeLayout(False)
+        Me.MenuStripKunden.PerformLayout()
        Me.pnlTop.ResumeLayout(False)
        Me.pnlTop.PerformLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1467,7 +1467,7 @@ Partial Class frmKundenUebersichtZOLL
    Friend WithEvents pnlZollTarife As System.Windows.Forms.Panel
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
-    Friend WithEvents MenuStripSDL As System.Windows.Forms.MenuStrip
+    Friend WithEvents MenuStripKunden As System.Windows.Forms.MenuStrip
    Friend WithEvents mnueKunden As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnueZoll As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnueOfferte As System.Windows.Forms.ToolStripMenuItem
@@ -1519,7 +1519,7 @@ Partial Class frmKundenUebersichtZOLL
    Friend WithEvents tbFiskal As System.Windows.Forms.TabPage
    Friend WithEvents Label35 As System.Windows.Forms.Label
    Friend WithEvents tmrFiskal As System.Windows.Forms.Timer
-    Friend WithEvents ToolStripFormulare As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mneFormulare As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents MANAGERToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem
@@ -1559,7 +1559,7 @@ Partial Class frmKundenUebersichtZOLL
    Friend WithEvents UsrCntlOfferte1 As usrCntlOfferte
    Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
    Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
-    Friend WithEvents ToolStripMenuItem5 As ToolStripMenuItem
+    Friend WithEvents mneBearbeiten As ToolStripMenuItem
    Friend WithEvents HochladenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents ScannenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents ÄndernToolStripMenuItem As ToolStripMenuItem
--- a/SDL/kunden/frmKundenUebersichtZOLL.resx
+++ b/SDL/kunden/frmKundenUebersichtZOLL.resx
@@ -126,7 +126,7 @@
  <metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
-  <metadata name="MenuStripSDL.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="MenuStripKunden.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>232, 17</value>
  </metadata>
  <metadata name="tmrFiskal.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
--- a/SDL/kunden/frmKundenUebersichtZOLL.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.vb
@@ -55,7 +55,7 @@ Public Class frmKundenUebersichtZOLL
            'strip, such as context menu strip just add additional code 
            'line under InitializeComponent(), and it will work;
            InitializeComponent()
-            MenuStripSDL.Renderer = New MyRenderer()
+            MenuStripKunden.Renderer = New MyRenderer()

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
@@ -67,7 +67,7 @@ Public Class frmKundenUebersichtZOLL
        Try
            InitializeComponent()
            Me.kdNr = KdNr
-            MenuStripSDL.Renderer = New MyRenderer()
+            MenuStripKunden.Renderer = New MyRenderer()

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
@@ -102,6 +102,10 @@ Public Class frmKundenUebersichtZOLL


    Private Sub frmKundenUebersichtZOLL_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
+
+
        Me.BER_STUFE = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("KUNDEN", "SDL")
        timerOP.Interval = 500
        timerOP.Enabled = False
@@ -158,9 +162,9 @@ Public Class frmKundenUebersichtZOLL
            mnueSpeditionsbuch.Visible = False
            mnueStatistik.Visible = False
            toolOptionen.Visible = False
-            ToolStripMenuItem5.Visible = False
+            mneBearbeiten.Visible = False
            mnueOfferte.Visible = False
-            ToolStripFormulare.Visible = False
+            mneFormulare.Visible = False
            mnueFiskal.Visible = False
            toolNeuerKunde.Visible = False
            ' cbx.Checked = True
@@ -247,7 +251,7 @@ Public Class frmKundenUebersichtZOLL
        loaded = False
        If Not (New kundenSQL).existByKdNr(kdnr) Then
            Me.tbcntrKundenDaten.Visible = False
-            For Each m As ToolStripItem In MenuStripSDL.Items
+            For Each m As ToolStripItem In MenuStripKunden.Items
                m.Enabled = False
            Next
            'initAbfVerb(False)
@@ -284,13 +288,13 @@ Public Class frmKundenUebersichtZOLL

        mnueKunden.Enabled = True
        mnueZoll.Enabled = True
-        ToolStripFormulare.Enabled = True
+        mneFormulare.Enabled = True
        mnueOfferte.Enabled = True
        mnueStatistik.Enabled = True
        mnueRechnungen.Enabled = True
        mnueSpeditionsbuch.Enabled = True
        toolOptionen.Enabled = True
-        ToolStripMenuItem5.Enabled = True
+        mneBearbeiten.Enabled = True
        'SchließenToolStripMenuItem.Enabled = True
        mnueFiskal.Enabled = True

@@ -323,9 +327,9 @@ Public Class frmKundenUebersichtZOLL
                mnueRechnungen.Enabled = False
                mnueSpeditionsbuch.Enabled = False
                mnueStatistik.Enabled = False
-                ToolStripFormulare.Enabled = False
+                mneFormulare.Enabled = False
                mnueFiskal.Enabled = False
-                ToolStripMenuItem5.Enabled = False
+                mneBearbeiten.Enabled = False
                toolOptionen.Enabled = False
                UsrCntlOfferte1.init(-1)
            End If
@@ -631,8 +635,8 @@ Public Class frmKundenUebersichtZOLL

    Sub changeTab(index As Integer, tsi As ToolStripItem)
        tbcntrKundenDaten.SelectedIndex = index
-        For Each i As ToolStripItem In MenuStripSDL.Items
-            i.Font = New Font(MenuStripSDL.Font.FontFamily, MenuStripSDL.Font.Size, FontStyle.Regular)
+        For Each i As ToolStripItem In MenuStripKunden.Items
+            i.Font = New Font(MenuStripKunden.Font.FontFamily, MenuStripKunden.Font.Size, FontStyle.Regular)
        Next
        tsi.Font = New Font(tsi.Font.FontFamily, tsi.Font.Size, FontStyle.Underline Or FontStyle.Bold)
    End Sub
@@ -1292,7 +1296,7 @@ Public Class frmKundenUebersichtZOLL



-    Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
+    Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles mneBearbeiten.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", "SDL") = 0 Then
            If kdNr > 0 Then
                Dim frmKundenblatt As New frmKundenblatt
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -174,7 +174,7 @@ Public Class usrCntlKundenuebersicht
            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
                Try

-                    tbWeitereKundenDetails.TabPages.Remove(TabPage3)
+                    tbWeitereKundenDetails.TabPages.Remove(tbUmsatz)
                    tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
                    tbcntrAllg.TabPages.Remove(tbAvisoMail)
                    tbcntrAllg.TabPages.Remove(tbKdSpez)
@@ -264,13 +264,13 @@ Public Class usrCntlKundenuebersicht

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
            Try
-                tbWeitereKundenDetails.TabPages.Remove(TabPage3)
+                tbWeitereKundenDetails.TabPages.Remove(tbUmsatz)
                tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
            Catch ex As Exception

            End Try
            If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then
-                tbWeitereKundenDetails.TabPages.Add(TabPage3)
+                tbWeitereKundenDetails.TabPages.Add(tbUmsatz)
                tbWeitereKundenDetails.TabPages.Add(tbOffenePosten)
            End If
        End If
@@ -689,9 +689,9 @@ Public Class usrCntlKundenuebersicht
    End Sub
    Sub initDGVAnhaenge()
        usrCntlAnhaenge.INIT(kdNr)
-        TabPage8.Text = "Anhänge"
+        tbAnhaenge.Text = "Anhänge"
        '   MsgBox(usrCntlAnhaenge.MyListBox1.Items.Count)
-        If usrCntlAnhaenge.MyListBox1.Items.Count > 0 Then TabPage8.Text &= " (" & usrCntlAnhaenge.MyListBox1.Items.Count & ")"
+        If usrCntlAnhaenge.MyListBox1.Items.Count > 0 Then tbAnhaenge.Text &= " (" & usrCntlAnhaenge.MyListBox1.Items.Count & ")"
        Exit Sub
        With dgvAnhaenge
            .DataSource = SQL.loadDgvBySql("SELECT [da_id],[da_pfad],[da_name]  FROM [tblDatenarchiv] " &
@@ -2050,7 +2050,7 @@ Public Class usrCntlKundenuebersicht
        End If
    End Sub

-    Private Sub FlatButton5_Click_1(sender As Object, e As EventArgs) Handles FlatButton5.Click
+    Private Sub FlatButton5_Click_1(sender As Object, e As EventArgs) Handles btnSaveOfferte.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("OFFERTEN_SPERRE", "SDL") > 0 Then
            Exit Sub
        End If