SDL Brief BugFix

SDL/Fakturierung/cFakturierung.vb

@@ -1318,6 +1318,15 @@ Public Class cFakturierung
                 ' Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf"
                 Dim RG_Bezeichnung = If(RECHNUNG.[BelegartenKz] = "AR", "Rechnung_", "Gutschrift_") & If(RECHNUNG.RechnungsNr, "") & ".pdf"
 
+                '--------------------------------
+                ' --> TEST wegen Size Problem
+                '--------------------------------
+                If PrinterName <> "" Then
+                    rpt.Document.Printer.PrinterName = PrinterName
+                End If
+                rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
+                '--------------------------------
+
                 'Immer Exportieren, da in Therefore speichern
                 Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
                 Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.4.6")>
-<Assembly: AssemblyFileVersion("1.2.4.6")>
+<Assembly: AssemblyVersion("1.2.4.7")>
+<Assembly: AssemblyFileVersion("1.2.4.7")>

SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb

@@ -39,8 +39,6 @@ Public Class rptSDLBrief
         Dim order As String = " ORDER BY SDLNr, Bestelldatum, BestellNr,Ausstellungsdatum,KartenNr,OBUID"
 
 
-        MsgBox(sqlStr)
-        MsgBox(sdlNr)
         Select Case sdlNr
             Case 200 : SubReport.Report = New subrptBriefSDL_AT(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
             Case 203 : SubReport.Report = New subrptBriefSDL_CZ(sqlStr & " AND SDLNr=" & sdlNr & " " & order)

SDL/cProgramFunctions.vb

@@ -45,7 +45,6 @@ Public Class cProgramFunctions
             ' System.Diagnostics.Debug.WriteLine("Hier 3: " & Now.ToString("HH:mm:ss.ffff"))
             If runReport Then rpt.Run(False)
             ' System.Diagnostics.Debug.WriteLine("Hier 4: " & Now.ToString("HH:mm:ss.ffff"))
-            rpt.Document.Printer.PrinterSettings.Copies = 1
             If printername <> "" Then
                 rpt.Document.Printer.PrinterName = printername
             Else
@@ -60,6 +59,7 @@ Public Class cProgramFunctions
 
             'Test
             rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
+            rpt.Document.Printer.PrinterSettings.Copies = 1
             Dim dt1 = Now
 
             System.Diagnostics.Debug.WriteLine("Report START: " & dt1.ToString("HH:mm:ss.ffff"))

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb

@@ -56,13 +56,8 @@ Public Class frmMessenger_NeuerChat
 
         dgvChatgruppe.Rows.Clear()
         dgvChatgruppe.Rows.Add({"BUCHHALTUNG", "BUCHHALTUNG"})
-        dgvChatgruppe.ClearSelection()
 
-        Select Case CHAT.chat_art
-            Case "SND_CHAT", "LKW_CHAT"
-                Label3.Visible = True
-                dgvChatgruppe.Visible = True
-        End Select
+
 
         loaded = True
         initDGV()
@@ -71,6 +66,12 @@ Public Class frmMessenger_NeuerChat
             Me.MyTextBox2.Text = CHAT.chat_name
             Me.MyTextBox2.Enabled = False
             btn.Text = "Hinzufügen"
+
+            Select Case CHAT.chat_art
+                Case "SND_CHAT", "LKW_CHAT"
+                    Label3.Visible = True
+                    dgvChatgruppe.Visible = True
+            End Select
         End If
     End Sub
 
@@ -209,4 +210,8 @@ Public Class frmMessenger_NeuerChat
     Private Sub dgvChatMembers_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles dgvChatMembers.RowsRemoved
         initAddRemoveDGV()
     End Sub
+
+    Private Sub frmMessenger_NeuerChat_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        dgvChatgruppe.ClearSelection()
+    End Sub
 End Class