commit

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -115,6 +115,7 @@ Public Class cSendungen
 
     Property tblSnd_Firma As Object = Nothing
     Property tblSnd_Cluster As Object = Nothing
+    Property tblSnd_ATBFakturieren As Object = Nothing
 
 
     Public saveSachbearbeiter As Boolean = False
@@ -435,6 +436,7 @@ Public Class cSendungen
                     Me.tblSnd_AbfertigungTRAnzahlPos = SQL.checkNullIntegerZero(dr.Item("tblSnd_AbfertigungTRAnzahlPos"))
                     Me.tblSnd_Firma = SQL.checkNullReturnValue(dr.Item("tblSnd_Firma"), Nothing)
                     Me.tblSnd_Cluster = SQL.checkNullReturnValue(dr.Item("tblSnd_Cluster"), Nothing)
+                    Me.tblSnd_ATBFakturieren = SQL.checkNullReturnValue(dr.Item("tblSnd_ATBFakturieren"), Nothing)
 
 
                 End If
@@ -664,6 +666,7 @@ Public Class cSendungen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTRAnzahlPos", tblSnd_AbfertigungTRAnzahlPos))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Firma", tblSnd_Firma))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Cluster", tblSnd_Cluster))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATBFakturieren", tblSnd_ATBFakturieren))
 
         'End If
         Return list

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb

@@ -1012,6 +1012,7 @@ Partial Class frmMessenger
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(912, 922)
         Me.Controls.Add(Me.SplitContainer)
+        Me.DoubleBuffered = True
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmMessenger"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -1,5 +1,6 @@
 Imports System.Drawing
 Imports System.IO
+Imports System.Reflection
 Imports System.Threading
 Imports System.Web.UI.WebControls.WebParts
 Imports System.Windows.Forms
@@ -27,10 +28,17 @@ Public Class frmMessenger
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.DoubleBuffered = True
+        SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
+        UpdateStyles()
 
     End Sub
 
+    Public Sub SetDoubleBuffered([Control] As Control)
+        [Control].GetType().InvokeMember("DoubleBuffered", BindingFlags.SetProperty Or
+BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object() {True})
 
+    End Sub
 
     Sub initEMOJI_PATH()
 
@@ -82,7 +90,7 @@ Public Class frmMessenger
 
     Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
         initEMOJI_PATH()
-
+        SetDoubleBuffered(MyFlowLayoutPanel1)
         rtbChatMessage.AllowDrop = True
         MSG_LISTENDER.START()
         TimerNEW_MESSAGE.Enabled = True

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -257,15 +257,15 @@ Public Class frmUeberstundenauszahlen
 
 
 
-                If dgv IsNot Nothing Then
-                    dgv.AutoSize = DataGridViewAutoSizeColumnMode.Fill
-                    dgv.Dock = DockStyle.Fill
-                    dgv.ReadOnly = True
-                    frm.Controls.Add(dgv)
-                    frm.Width *= 2
-                    frm.StartPosition = FormStartPosition.CenterScreen
-                    frm.ShowDialog()
-                End If
+            If dgv IsNot Nothing Then
+                dgv.AutoSize = DataGridViewAutoSizeColumnMode.Fill
+                dgv.Dock = DockStyle.Fill
+                dgv.ReadOnly = True
+                frm.Controls.Add(dgv)
+                frm.Width *= 2
+                frm.StartPosition = FormStartPosition.CenterScreen
+                frm.ShowDialog()
+            End If
 
 
         Catch ex As System.Exception