firmenuebersicht, fakt, automailversand, etc.

VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb

@@ -6,6 +6,7 @@ Imports System.Windows.Forms
 Public Class frmFirmenuebersicht
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim dt As DataTable
 
 
     Private Sub frminterneEmailBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -25,15 +26,19 @@ Public Class frmFirmenuebersicht
             Dim sqlstr As String = ""
 
 
-            sqlstr &= " Select [Firma_ID] ,[Firma_Bez],[Firma_Straße],[Firma_PLZ],[Firma_Ort],[Firma_LandKz] as Land,[Firma_Telefon],[Firma_Telefax],Replace([Firma_UID],'UID: ', '') as Firma_UID ,Replace([Firma_EORI],'EORI: ', '') as Firma_EORI,
+            sqlstr &= " Select [Firma_ID] ,[Firma_Bez],[Firma_Straße],[Firma_PLZ],[Firma_Ort],[Firma_LandKz] as Land,replace([Firma_Telefon],'Tel. ','') as Firma_Telefon ,replace([Firma_Telefax],'Fax ','') as Firma_Telefax ,Replace([Firma_UID],'UID: ', '') as Firma_UID ,Replace([Firma_EORI],'EORI: ', '') as Firma_EORI,
             [Firma_Bankverbindung1],Replace([Firma_IBAN1],'IBAN: ', '') as Firma_IBAN1, Replace([Firma_BIC1],'BIC: ', '') as Firma_BIC1,[Firma_Bankverbindung2],[Firma_IBAN2],[Firma_BIC2],[Firma_E-Mail],
-            [Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert] from tblFirma "
+            [Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert]  from tblFirma "
+
+            Dim sqlstr_Mailsettings As String = "  select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail, mail_firmaID  from tblMailSettings"
+
+            dt = SQL.loadDgvBySql(sqlstr_Mailsettings, "ADMIN")
 
             With dgvFirmen
 
                 .SET_SQL(sqlstr, "FMZOLL")
                 .LOAD()
-                showDGVPruefungsobjekte()
+                showDGVPruefungsobjekte(dt)
             End With
 
         Catch ex As Exception
@@ -41,7 +46,7 @@ Public Class frmFirmenuebersicht
         End Try
         Me.Cursor = Cursors.Default
     End Sub
-    Sub showDGVPruefungsobjekte()
+    Sub showDGVPruefungsobjekte(dt As DataTable)
 
         With dgvFirmen
 
@@ -61,8 +66,9 @@ Public Class frmFirmenuebersicht
             .Columns("Firma_Bankverbindung2").Visible = False
             .Columns("Firma_BIC2").Visible = False
             .Columns("Firma_IBAN2").Visible = False
-            .Columns("Firma_E-Mail").Visible = False
+            '.Columns("Firma_E-Mail").Visible = False
             .Columns("Firma_E_Mail_Mahnungen").Visible = False
+            .Columns("Firma_E_Mail_Fakturierung").Visible = False
 
             .Columns("Firma_ID").Width = 30
             .Columns("Firma_Warenort").Width = 60
@@ -70,12 +76,43 @@ Public Class frmFirmenuebersicht
             .Columns("Land").Width = 40
             .Columns("Firma_Bez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
+            If Not dgvFirmen.Columns.Contains("EmailEinstellungen") Then
+                Dim col As New DataGridViewCheckBoxColumn()
+
+                col.Name = "EmailEinstellungen"
+                col.HeaderText = "E-Mail-Settings"
+                col.ReadOnly = True
+
+                dgvFirmen.Columns.Add(col)
+            End If
+
             For Each col As DataGridViewColumn In dgvFirmen.Columns
 
                 col.HeaderText = col.HeaderText.Replace("Firma_", "")
 
             Next
 
+            Dim mailFirmaIds As New HashSet(Of Integer)
+
+            For Each row As DataRow In dt.Rows
+                If Not IsDBNull(row("mail_firmaId")) Then
+                    mailFirmaIds.Add(CInt(row("mail_firmaId")))
+                End If
+            Next
+
+            For Each r As DataGridViewRow In dgvFirmen.Rows
+
+                If r.IsNewRow Then Continue For
+
+                If r.Cells("Firma_ID").Value Is Nothing OrElse IsDBNull(r.Cells("Firma_ID").Value) Then Continue For
+
+                Dim firmaId As Integer = CInt(r.Cells("Firma_ID").Value)
+
+                r.Cells("EmailEinstellungen").Value = mailFirmaIds.Contains(firmaId)
+
+            Next
+
+
 
         End With
     End Sub
@@ -103,10 +140,25 @@ Public Class frmFirmenuebersicht
 
             lblBic2.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_BIC2").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_BIC2").Value Is Nothing, "", dgvFirmen.SelectedRows(0).Cells("Firma_BIC2").Value.ToString())
 
-            lblMail1.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_E-Mail").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_E-Mail").Value Is Nothing, "-", dgvFirmen.SelectedRows(0).Cells("Firma_E-Mail").Value.ToString())
+            lblMail1.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_E_Mail_Fakturierung").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_E_Mail_Fakturierung").Value Is Nothing, "-", dgvFirmen.SelectedRows(0).Cells("Firma_E_Mail_Fakturierung").Value.ToString()) & " (Fakturierung)"
 
             lblMail2.Text = If(IsDBNull(dgvFirmen.SelectedRows(0).Cells("Firma_E_Mail_Mahnungen").Value) OrElse dgvFirmen.SelectedRows(0).Cells("Firma_E_Mail_Mahnungen").Value Is Nothing, "-", dgvFirmen.SelectedRows(0).Cells("Firma_E_Mail_Mahnungen").Value.ToString()) & " (Mahnungen)"
 
+            Dim firmaID = dgvFirmen.SelectedRows(0).Cells("Firma_ID").Value
+
+            If firmaID IsNot Nothing AndAlso IsNumeric(firmaID) Then
+
+                Dim rows() As DataRow = dt.Select("mail_firmaID = " & firmaID.ToString())
+
+                If rows.Length > 0 Then
+                    dgvEmailSettings.DataSource = rows.CopyToDataTable()
+                    dgvEmailSettings.Columns("mail_firmaID").Visible = False
+                Else
+                    dgvEmailSettings.DataSource = Nothing
+                End If
+
+            End If
+
 
         End If