Laufzettel DTB, USTV Anpassungen, USTV Kundenstamm, Docs, Messanger DoubleBuffer

SDL/kunden/frmKundenblatt.vb

@@ -40,6 +40,17 @@ Public Class frmKundenblatt
     Private WithEvents timShow As New Timer With {.Interval = 10}
     Private WithEvents timHide As New Timer With {.Interval = 10}
 
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.DoubleBuffered = True
+        SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
+        UpdateStyles()
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
     Private Sub frmKundenblatt_BackColorChanged(sender As Object, e As EventArgs) Handles pnl.BackColorChanged
         'lblFirma.BackColor = sender.BackColor
         '  pnl.BackColor = sender.BackColor
@@ -219,7 +230,7 @@ Public Class frmKundenblatt
         End If
         ' lblFirma.Text = KUNDE.Kurzname
     End Sub
-    Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrMain.SelectedIndexChanged, tbcntrMDM.SelectedIndexChanged
+    Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrMain.SelectedIndexChanged, tbcntrMDM.SelectedIndexChanged, tbcntrUSTV.SelectedIndexChanged
         ' tbcntrMDM.SuspendLayout()
         '  If kdNr <= 0 Then changeTab(0, AllgemeinToolStripMenuItem) : Exit Sub
         If kdNr <= 0 Then changeTab(1, ToolStripMenuItem2) : Exit Sub
@@ -246,9 +257,19 @@ Public Class frmKundenblatt
                             scanUebernahmebestätigungen.INIT(kdNr, "KUNDENDATEN", "Übernahmebestätigungen")
                         Case "tbBesuchsberichte" : initTABBesuchsberichte()
                     End Select
+                Case "tbUSTV"
+                    Select Case tbcntrUSTV.SelectedTab.Name
+                        Case "tbUSTVDokumente"
+                            scanUSTVFABest.INIT(kdNr, "KUNDENDATEN", "FA_Bestaetigungen")
+                            scanUSTVVollmachten.INIT(kdNr, "KUNDENDATEN", "USTV_Vollmachten")
+
+
+                        Case "tbUSTVAntrage" : initTABUSTVAntraege()
+
+                    End Select
                 Case "tbZoll" : initTZOLL()
                 Case "tbOfferte" : UsrCntlOfferte1.init(kdNr)
-                
+
             End Select
         End If
         'tbcntrMDM.ResumeLayout()
@@ -341,6 +362,13 @@ Public Class frmKundenblatt
         usrcntlKarten.init()
     End Sub
 
+
+    Sub initTABUSTVAntraege()
+        ' UsrCntlUSTV.kdNr_filter = True
+        ' MsgBox("kdNr: " & kdNr)
+        UsrCntlUSTV.init(kdNr)
+    End Sub
+
     Private Sub initTZOLL()
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Hauptmenue", Me) = 0 Then
             If tbcntrZOLL.SelectedIndex = 0 Then
@@ -1704,6 +1732,9 @@ Public Class frmKundenblatt
         f.ShowDialog(Me)
     End Sub
 
+    Private Sub ToolStripMenuItem8_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
+        changeTab(5, sender, 1)
+    End Sub
 
 End Class