neu

SDL/kunden/frmKundenblatt.vb

@@ -7,6 +7,7 @@ Public Class frmKundenblatt
     '  Public superuser As Boolean = False
     Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
     Public kdNr As Integer
+    Public FilialeNr As Integer = -1
     Dim kundenSQL As New kundenSQL
     Private bindingLKW As New BindingSource
     Private dataAdapterLKW As New SqlDataAdapter
@@ -89,6 +90,10 @@ Public Class frmKundenblatt
         tbcntrMain.Appearance = TabAppearance.FlatButtons
         tbcntrMain.ItemSize = New Size(0, 1)
         tbcntrMain.SizeMode = TabSizeMode.Fixed
+
+        If FilialeNr > 0 Then
+            UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr
+        End If
         'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN
         Me.KeyPreview = True
         pnlInfo.Height = 0
@@ -276,6 +281,9 @@ Public Class frmKundenblatt
 
         UsrcntlKundeBearbeitenFull1.init(kdNr)
 
+        If FilialeNr > 0 Then
+            UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
+        End If
         'End If
     End Sub
 
@@ -814,7 +822,7 @@ Public Class frmKundenblatt
         End With
 
 
-        lblErgebnisse.Text = "Ergebnisse: " & dgvLKW.Rows.Count - 1
+        lblErgebnisse.Text = "Ergebnisse: " & dgvLKW.Rows.Count ' - 1
     End Sub