Vollmachten

SDL/kunden/frmKundenblatt.vb

@@ -40,6 +40,7 @@ Public Class frmKundenblatt
     Private InfoDauer As Integer = 3
     Private WithEvents timShow As New Timer With {.Interval = 10}
     Private WithEvents timHide As New Timer With {.Interval = 10}
+    Dim isVerag360 As Boolean = False
 
     Sub New()
 
@@ -103,6 +104,7 @@ Public Class frmKundenblatt
         tbcntrMain.ItemSize = New Size(0, 1)
         tbcntrMain.SizeMode = TabSizeMode.Fixed
 
+        If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige <> "" Then
             Dim where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ") ")
@@ -168,6 +170,10 @@ Public Class frmKundenblatt
             btnOP.Visible = True
         End If
 
+        If isVerag360 Then
+            ToolStripMenuItem5.Visible = False
+        End If
+
         loaded = True
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -313,7 +319,7 @@ Public Class frmKundenblatt
 
         'Dim usr As New usrcntlKundeBearbeitenFull(kdNr)
 
-        UsrcntlKundeBearbeitenFull1.init(kdNr)
+        UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
 
         If FilialeNr > 0 Then
             UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)