ustv, kunenblatt

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.9.4")>
+<Assembly: AssemblyVersion("1.5.9.5")>
-<Assembly: AssemblyFileVersion("1.5.9.4")>
+<Assembly: AssemblyFileVersion("1.5.9.5")>

SDL/kunden/frmKundenblatt.vb

@@ -359,9 +359,8 @@ Public Class frmKundenblatt
 
     Sub initTABSDL_Firmendaten()
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
-            tbcntrMain.TabPages(7).Enabled = False
 
-        End If
+
             tbcntrMain.TabPages(7).Enabled = True
             UsrcntlKundeBearbeitenFull1.Enabled = True
 
@@ -370,14 +369,18 @@ Public Class frmKundenblatt
             If FilialeNr > 0 Then
                 UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
             End If
-        'End If
+
+        Else
+
+
+            tbcntrMain.TabPages(7).Enabled = False
+        End If
+
     End Sub
 
     Sub initTABSDL_FirmendatenSDL()
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
-            tbcntrMain.TabPages(7).Enabled = False
 
-        End If
             tbcntrMain.TabPages(7).Enabled = True
             UsrcntlKundeBearbeitenFull_SDL1.Enabled = True
 
@@ -386,13 +389,17 @@ Public Class frmKundenblatt
             If FilialeNr > 0 Then
                 UsrcntlKundeBearbeitenFull_SDL1.cboFiliale.changeItem(FilialeNr)
             End If
+
+        Else
+            tbcntrMain.TabPages(7).Enabled = False
+        End If
+
     End Sub
 
     Sub initTABVERAGCard()
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_VERAG_Card", Me) = 0 Then
-            tbcntrMain.TabPages(4).Enabled = False
+
-            ' cProgramFunctions.setAllReadOnly(Panel4)
+
-        End If
             Dim usrcntlTMP As New usrCntlVERAGCard
             usrcntlTMP.displayFilter = False
             usrcntlTMP.onlyKdNr = True
@@ -400,6 +407,8 @@ Public Class frmKundenblatt
             usrcntlTMP.kdnr = kdNr
             tbVERAGCard.Controls.Clear()
             tbVERAGCard.Controls.Add(usrcntlTMP)
+
+        End If
     End Sub
     Sub initTABBesuchsberichte()
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Besuchsberichte", Me) = 0 Then
@@ -500,13 +509,12 @@ Public Class frmKundenblatt
         End If
 
 
+
     End Sub
 
     Sub initTABLKW(Optional kz As String = "")
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_LKW_bearbeiten", Me) = 0 Then
-            'tbcntrMain.TabPages(2).Enabled = False
+
-            ' cProgramFunctions.setAllReadOnly(tabLKW)
-        End If
 
             Me.dgvLKW.DataSource = Me.bindingLKW
             initLKWBinding()
@@ -527,6 +535,9 @@ Public Class frmKundenblatt
             End If
             dgvLKW_SelectionChanged(Me, New EventArgs)
 
+        End If
+
+
     End Sub
     Sub initTABSDL_Leistungen()
         '        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Leistungen_bearbeiten", "SDL") = 0 Then