TOBB KDNr

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -160,13 +160,22 @@ Public Class frmKundenUebersichtZOLL
             mnueRechnungen.Visible = False
             mnueSpeditionsbuch.Visible = False
             mnueStatistik.Visible = False
-            toolOptionen.Visible = False
+            ' toolOptionen.Visible = False
             mneBearbeiten.Visible = False
             mnueOfferte.Visible = False
             mneFormulare.Visible = False
             mnueFiskal.Visible = False
             toolNeuerKunde.Visible = False
             mnueFiskaluebersicht.Visible = False
+
+            toolOptionen.Enabled = True
+            For Each opt As ToolStripDropDownItem In toolOptionen.DropDownItems
+                If opt Is TOBBKdNrÄndernToolStripMenuItem Then
+                Else
+                    opt.Visible = False
+                End If
+            Next
+
             ' cbx.Checked = True
         End If
 
@@ -343,11 +352,16 @@ Public Class frmKundenUebersichtZOLL
                 mnueFiskal.Enabled = False
                 mnueCBAM.Enabled = False
                 mneBearbeiten.Enabled = False
-                toolOptionen.Enabled = False
+
+                If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+
+                    toolOptionen.Enabled = False
+
+                End If
                 mnueFiskaluebersicht.Enabled = False
-                UsrCntlOfferte1.init(-1)
-            End If
-        Else
+                    UsrCntlOfferte1.init(-1)
+                End If
+            Else
         End If
         Try
             Dim cntZoll = SQL.getValueTxtBySql("SELECT COUNT(*) FROM tblZollArtikel WHERE KundenNr='" & kdnr & "'", "FMZOLL")
@@ -1446,6 +1460,11 @@ Public Class frmKundenUebersichtZOLL
     Private Sub EinfuhrverbotToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinfuhrverbotToolStripMenuItem.Click
         SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Einfuhrverbot, kdNr, {})
     End Sub
+
+    Private Sub TOBBKdNrÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TOBBKdNrÄndernToolStripMenuItem.Click
+        Dim f As New frmKundenTOBBKdNr(kdNr)
+        f.ShowDialog(Me)
+    End Sub
 End Class