CBAM

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -105,7 +105,6 @@ Public Class frmKundenUebersichtZOLL
 
         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
@@ -206,6 +205,12 @@ Public Class frmKundenUebersichtZOLL
             mnueFiskaluebersicht.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CBAM", Me) Then
+            mnueCBAM.Visible = True
+            mnueCBAM.Visible = True
+            mnueCBAM.Visible = True
+        End If
+
 
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then
@@ -303,6 +308,7 @@ Public Class frmKundenUebersichtZOLL
         mnueFiskaluebersicht.Enabled = True
         'SchließenToolStripMenuItem.Enabled = True
         mnueFiskal.Enabled = True
+        mnueCBAM.Enabled = True
 
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -335,6 +341,7 @@ Public Class frmKundenUebersichtZOLL
                 mnueStatistik.Enabled = False
                 mneFormulare.Enabled = False
                 mnueFiskal.Enabled = False
+                mnueCBAM.Enabled = False
                 mneBearbeiten.Enabled = False
                 toolOptionen.Enabled = False
                 mnueFiskaluebersicht.Enabled = False
@@ -517,6 +524,9 @@ Public Class frmKundenUebersichtZOLL
         ElseIf tbcntrKundenDaten.SelectedIndex = 6 Then
             ' initBtns("Monat")
             initSpeditinsbuch()
+        ElseIf tbcntrKundenDaten.SelectedIndex = 8 Then
+            ' initBtns("Monat")
+            initCBAM()
         End If
     End Sub
 
@@ -613,6 +623,15 @@ Public Class frmKundenUebersichtZOLL
     End Sub
 
 
+    Sub initCBAM()
+        tbCBAM.Controls.Clear()
+        Dim s As New SDL.usrCntlCBAM(kdNr)
+        s.Dock = DockStyle.Fill
+        tbCBAM.Controls.Add(s)
+
+    End Sub
+
+
 
     Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles dgvRg.DoubleClick
         If dgvRg.SelectedRows.Count = 0 Then Exit Sub
@@ -1419,6 +1438,12 @@ Public Class frmKundenUebersichtZOLL
     Private Sub EORIAntragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIAntragToolStripMenuItem.Click
         SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.EORI_Antrag, kdNr, {})
     End Sub
+
+    Private Sub ToolStripMenuItem5_Click_1(sender As Object, e As EventArgs) Handles mnueCBAM.Click
+        changeTab(8, mnueStatistik)
+    End Sub
+
+
 End Class