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,47 +359,56 @@ Public Class frmKundenblatt
 
     Sub initTABSDL_Firmendaten()
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
+
+
+            tbcntrMain.TabPages(7).Enabled = True
+            UsrcntlKundeBearbeitenFull1.Enabled = True
+
+            UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
+
+            If FilialeNr > 0 Then
+                UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
+            End If
+
+        Else
+
+
             tbcntrMain.TabPages(7).Enabled = False
-
         End If
-        tbcntrMain.TabPages(7).Enabled = True
-        UsrcntlKundeBearbeitenFull1.Enabled = True
 
-        UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
-
-        If FilialeNr > 0 Then
-            UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
-        End If
-        'End If
     End Sub
 
     Sub initTABSDL_FirmendatenSDL()
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
+
+            tbcntrMain.TabPages(7).Enabled = True
+            UsrcntlKundeBearbeitenFull_SDL1.Enabled = True
+
+            UsrcntlKundeBearbeitenFull_SDL1.init(kdNr, isVerag360)
+
+            If FilialeNr > 0 Then
+                UsrcntlKundeBearbeitenFull_SDL1.cboFiliale.changeItem(FilialeNr)
+            End If
+
+        Else
             tbcntrMain.TabPages(7).Enabled = False
-
         End If
-        tbcntrMain.TabPages(7).Enabled = True
-        UsrcntlKundeBearbeitenFull_SDL1.Enabled = True
 
-        UsrcntlKundeBearbeitenFull_SDL1.init(kdNr, isVerag360)
-
-        If FilialeNr > 0 Then
-            UsrcntlKundeBearbeitenFull_SDL1.cboFiliale.changeItem(FilialeNr)
-        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)
+
+            Dim usrcntlTMP As New usrCntlVERAGCard
+            usrcntlTMP.displayFilter = False
+            usrcntlTMP.onlyKdNr = True
+            usrcntlTMP.Dock = DockStyle.Fill
+            usrcntlTMP.kdnr = kdNr
+            tbVERAGCard.Controls.Clear()
+            tbVERAGCard.Controls.Add(usrcntlTMP)
+
         End If
-        Dim usrcntlTMP As New usrCntlVERAGCard
-        usrcntlTMP.displayFilter = False
-        usrcntlTMP.onlyKdNr = True
-        usrcntlTMP.Dock = DockStyle.Fill
-        usrcntlTMP.kdnr = kdNr
-        tbVERAGCard.Controls.Clear()
-        tbVERAGCard.Controls.Add(usrcntlTMP)
     End Sub
     Sub initTABBesuchsberichte()
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Besuchsberichte", Me) = 0 Then
@@ -500,32 +509,34 @@ 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)
+
+            Me.dgvLKW.DataSource = Me.bindingLKW
+            initLKWBinding()
+            initDgvLKW()
+            btnUpdateLKW.Enabled = False
+            If kz <> "" Then
+                For Each r As DataGridViewRow In dgvLKW.Rows
+                    If r.Cells("KfzKennzeichen").Value = kz Then
+                        dgvLKW.ClearSelection()
+                        r.Selected = True
+                        dgvLKW_SelectionChanged(dgvLKW, New EventArgs)
+                        dgvLKW.FirstDisplayedScrollingRowIndex = r.Index
+                        dgvLKW.PerformLayout()
+
+                        Exit For
+                    End If
+                Next
+            End If
+            dgvLKW_SelectionChanged(Me, New EventArgs)
+
         End If
 
-        Me.dgvLKW.DataSource = Me.bindingLKW
-        initLKWBinding()
-        initDgvLKW()
-        btnUpdateLKW.Enabled = False
-        If kz <> "" Then
-            For Each r As DataGridViewRow In dgvLKW.Rows
-                If r.Cells("KfzKennzeichen").Value = kz Then
-                    dgvLKW.ClearSelection()
-                    r.Selected = True
-                    dgvLKW_SelectionChanged(dgvLKW, New EventArgs)
-                    dgvLKW.FirstDisplayedScrollingRowIndex = r.Index
-                    dgvLKW.PerformLayout()
-
-                    Exit For
-                End If
-            Next
-        End If
-        dgvLKW_SelectionChanged(Me, New EventArgs)
 
     End Sub
     Sub initTABSDL_Leistungen()