Erstattunsgsvhreiben, Kundenblatt, Seriendruck, ustva, uta

SDL/kunden/frmKundenblatt.vb

@@ -273,6 +273,8 @@ Public Class frmKundenblatt
                             scanSonstiges.INIT(kdNr, "KUNDENDATEN")
                             scanUebernahmebestätigungen.INIT(kdNr, "KUNDENDATEN", "Übernahmebestätigungen")
                         Case "tbBesuchsberichte" : initTABBesuchsberichte()
+                        Case "tbFremdrechnungen" : initTABFremdrechnungen()
+
                     End Select
                 Case "tbUSTV"
                     Select Case tbcntrUSTV.SelectedTab.Name
@@ -353,6 +355,17 @@ Public Class frmKundenblatt
             tbBesuchsberichte.Controls.Add(usrcntlTMP)
         End If
     End Sub
+
+    Sub initTABFremdrechnungen()
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Fakturierung", Me) = 0 Then
+
+            Dim usrcntlTMP As New usrcntlFremdrechnungen
+            usrcntlTMP.Dock = DockStyle.Fill
+            usrcntlTMP.kdNr = kdNr
+            tbFremdrechnungen.Controls.Clear()
+            tbFremdrechnungen.Controls.Add(usrcntlTMP)
+        End If
+    End Sub
     Sub initTABSDLDATEN()
         If False Then
 
@@ -960,6 +973,8 @@ Public Class frmKundenblatt
         End With
     End Sub
 
+
+
     'initialisieren der Offerte-CBO 
     ' Private Sub initOfferte(sender As Object, e As EventArgs)
     'Dim offerte As List(Of cOffert) = kundenSQL.getOfferte()