fiskaluebersicht

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -167,6 +167,7 @@ Public Class frmKundenUebersichtZOLL
             mneFormulare.Visible = False
             mnueFiskal.Visible = False
             toolNeuerKunde.Visible = False
+            mnueFiskaluebersicht.Visible = False
             ' cbx.Checked = True
         End If
 
@@ -201,6 +202,7 @@ Public Class frmKundenUebersichtZOLL
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Fiskaldaten", Me) Then
             mnueFiskal.Visible = True
+            mnueFiskaluebersicht.Visible = True
         End If
 
 
@@ -296,6 +298,7 @@ Public Class frmKundenUebersichtZOLL
         mnueSpeditionsbuch.Enabled = True
         toolOptionen.Enabled = True
         mneBearbeiten.Enabled = True
+        mnueFiskaluebersicht.Enabled = True
         'SchließenToolStripMenuItem.Enabled = True
         mnueFiskal.Enabled = True
 
@@ -332,6 +335,7 @@ Public Class frmKundenUebersichtZOLL
                 mnueFiskal.Enabled = False
                 mneBearbeiten.Enabled = False
                 toolOptionen.Enabled = False
+                mnueFiskaluebersicht.Enabled = False
                 UsrCntlOfferte1.init(-1)
             End If
         Else
@@ -966,8 +970,6 @@ Public Class frmKundenUebersichtZOLL
         showForm(firmenwortlautFiskal, "Firmenwortlaut - Fiskal")
     End Sub
 
-
-
     Private Sub mnueFiskal_Click(sender As Object, e As EventArgs) Handles mnueFiskal.Click
         changeTab(4, mnueFiskal)
     End Sub
@@ -980,7 +982,9 @@ Public Class frmKundenUebersichtZOLL
         changeTab(5, mnueRechnungen)
     End Sub
 
-
+    Private Sub mnueFiskalkunden_Click(sender As Object, e As EventArgs) Handles mnueFiskaluebersicht.Click
+        changeTab(7, mnueFiskaluebersicht)
+    End Sub
 
 
 
@@ -1410,6 +1414,7 @@ Public Class frmKundenUebersichtZOLL
         btnRgPdf.Enabled = (dgvRg.SelectedRows.Count > 0)
     End Sub
 
+
 End Class