ustcntlErstattungspos, etc.

SDL/USTV/usrCntlUSTV.vb

@@ -1006,6 +1006,7 @@ Public Class usrCntlUSTV
 
                     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
                     Dim frm As New Form
+                    frm.Text = "Finanzamt-Bestätigung E-Mails"
                     Dim dgv As New DataGridView()
                     Dim dt As DataTable = SQL.loadDgvBySql(" select [api_datetime] as erstelltAm,[api_EMail] as An ,[api_EMailCC] as CC,[api_EMailBCC] as BCC,[api_EMailSubject] as Betreff,[api_EMailAttCnt] as Anzahl_Anhänge, [api_KundenNr] as KundenNr, [api_Username] as erstelltVon from [tblAPI] where [api_apiUArt] = 'FA-Bestaetigung' AND api_progName = 'SDL'" & sqlKundeadmin & " Order by api_datetime desc", "ADMIN")
 
@@ -1020,6 +1021,7 @@ Public Class usrCntlUSTV
                         frm.Controls.Add(dgv)
                         frm.StartPosition = FormStartPosition.CenterScreen
                         frm.ShowDialog()
+                        If dgv.ColumnCount > 0 AndAlso dgv.Columns.Contains("An") Then dgv.Columns("An").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                     End If
 
 
@@ -1134,7 +1136,7 @@ Public Class usrCntlUSTV
                                 Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
 
                                 If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail") & ";"
-                                If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail2")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail2") & ";"
+                                'If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail2")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail2") & ";"
 
                                 If attachmentSRB Then
                                     Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "SRB_FA_BESTAETIGUNG")