neu

SDL/kunden/frmKundenblatt.vb

@@ -244,6 +244,7 @@ Public Class frmKundenblatt
                             scanEULizenz.INIT(kdNr, "KUNDENDATEN")
                             scanSonstiges.INIT(kdNr, "KUNDENDATEN")
                             scanUebernahmebestätigungen.INIT(kdNr, "KUNDENDATEN", "Übernahmebestätigungen")
+                        Case "tbBesuchsberichte" : initTABBesuchsberichte()
                     End Select
                 Case "tbZoll" : initTZOLL()
                 Case "tbOfferte" : UsrCntlOfferte1.init(kdNr)
@@ -300,6 +301,18 @@ Public Class frmKundenblatt
         tbVERAGCard.Controls.Clear()
         tbVERAGCard.Controls.Add(usrcntlTMP)
     End Sub
+    Sub initTABBesuchsberichte()
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Besuchsberichte", Me) = 0 Then
+
+            Dim usrcntlTMP As New usrCntlBesuchsberichte
+            ' usrcntlTMP.displayFilter = False
+            ' usrcntlTMP.onlyKdNr = True
+            usrcntlTMP.Dock = DockStyle.Fill
+            usrcntlTMP.kdnr = kdNr
+            tbBesuchsberichte.Controls.Clear()
+            tbBesuchsberichte.Controls.Add(usrcntlTMP)
+        End If
+    End Sub
     Sub initTABSDLDATEN()
         If False Then