From 2593c75d22e6f6b017336971164b307453f116be Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 15 Apr 2026 16:27:01 +0200 Subject: [PATCH] Version, Mialbenachrichtungen, etc. --- UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 30 ++++++++--------- UID/Mitarbeiter/frmMitarbDetails.vb | 15 +++++++-- UID/frmMain.Designer.vb | 33 ++++++++++++++----- UID/frmMain.vb | 7 ++++ initATLASAufschubkonten/cWorker_Verwahrung.vb | 8 ++--- initATLASAufschubkonten/frmStartOptions.vb | 31 +++++++++++++---- 6 files changed, 86 insertions(+), 38 deletions(-) diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index d762d4a..3eb8a13 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -81,6 +81,7 @@ Partial Class frmMitarbDetails Me.tabParameter = New System.Windows.Forms.TabPage() Me.dgvUserParameter = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.tabBenachrichtigungen = New System.Windows.Forms.TabPage() + Me.cbxeigeneFirma = New System.Windows.Forms.CheckBox() Me.clInterneMailBenachrichtigungen = New System.Windows.Forms.CheckedListBox() Me.Label4 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() @@ -260,7 +261,6 @@ Partial Class frmMitarbDetails Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.dgvSessions = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.cbxeigeneFirma = New System.Windows.Forms.CheckBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -943,17 +943,28 @@ Partial Class frmMitarbDetails Me.tabBenachrichtigungen.Name = "tabBenachrichtigungen" Me.tabBenachrichtigungen.Size = New System.Drawing.Size(442, 174) Me.tabBenachrichtigungen.TabIndex = 6 - Me.tabBenachrichtigungen.Text = "Benachrichtigungen" + Me.tabBenachrichtigungen.Text = "interne Mail-Benachricht." Me.tabBenachrichtigungen.UseVisualStyleBackColor = True ' + 'cbxeigeneFirma + ' + Me.cbxeigeneFirma.AutoSize = True + Me.cbxeigeneFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxeigeneFirma.Location = New System.Drawing.Point(395, 3) + Me.cbxeigeneFirma.Name = "cbxeigeneFirma" + Me.cbxeigeneFirma.Size = New System.Drawing.Size(42, 17) + Me.cbxeigeneFirma.TabIndex = 116 + Me.cbxeigeneFirma.Text = "alle" + Me.cbxeigeneFirma.UseVisualStyleBackColor = True + ' 'clInterneMailBenachrichtigungen ' Me.clInterneMailBenachrichtigungen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.clInterneMailBenachrichtigungen.FormattingEnabled = True - Me.clInterneMailBenachrichtigungen.Location = New System.Drawing.Point(76, 3) + Me.clInterneMailBenachrichtigungen.Location = New System.Drawing.Point(0, 2) Me.clInterneMailBenachrichtigungen.Name = "clInterneMailBenachrichtigungen" - Me.clInterneMailBenachrichtigungen.Size = New System.Drawing.Size(363, 169) + Me.clInterneMailBenachrichtigungen.Size = New System.Drawing.Size(386, 169) Me.clInterneMailBenachrichtigungen.TabIndex = 98 ' 'Label4 @@ -3010,17 +3021,6 @@ Partial Class frmMitarbDetails Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' - 'cbxeigeneFirma - ' - Me.cbxeigeneFirma.AutoSize = True - Me.cbxeigeneFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxeigeneFirma.Location = New System.Drawing.Point(5, 3) - Me.cbxeigeneFirma.Name = "cbxeigeneFirma" - Me.cbxeigeneFirma.Size = New System.Drawing.Size(71, 17) - Me.cbxeigeneFirma.TabIndex = 116 - Me.cbxeigeneFirma.Text = "eig. Firma" - Me.cbxeigeneFirma.UseVisualStyleBackColor = True - ' 'frmMitarbDetails ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index f01cd9b..a0ea374 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -166,7 +166,6 @@ Public Class frmMitarbDetails cbxClientTimas.SelectedIndex = 0 - loadBenachrichtiungenListe() cboFirma.Items.Clear() cboFirma.Items.Add("VERAG") @@ -448,6 +447,16 @@ Public Class frmMitarbDetails cbxTimasMehrereFirmen.Checked = mitarbeiter.mit_timasMehrereFirmen + If cboFirmaFMZOLL._value <> "" AndAlso IsNumeric(cboFirmaFMZOLL._value) Then + loadBenachrichtiungenListe(CInt(cboFirmaFMZOLL._value)) + + Else + + loadBenachrichtiungenListe() + + End If + + If mitarbeiter.mit_timasFirmen IsNot Nothing AndAlso mitarbeiter.mit_timasFirmen <> "" Then For Each f In mitarbeiter.mit_timasFirmen.ToString.Split(",") For i = 0 To clbTimasMehreFirmen.Items.Count - 1 @@ -1867,7 +1876,7 @@ Public Class frmMitarbDetails End Sub Private Sub cbxeigeneFirma_CheckedChanged(sender As Object, e As EventArgs) Handles cbxeigeneFirma.CheckedChanged - If cbxeigeneFirma.Checked Then + If Not cbxeigeneFirma.Checked Then If cboFirmaFMZOLL._value <> "" AndAlso IsNumeric(cboFirmaFMZOLL._value) Then loadBenachrichtiungenListe(CInt(cboFirmaFMZOLL._value)) @@ -1893,7 +1902,7 @@ Public Class frmMitarbDetails END as mb_object, mb_id FROM [ADMIN].[dbo].[tblEMailbenachrichtigungen] - inner join [VERAG].[dbo].[tblFirma] on [mb_firmaID] = [tblFirma].Firma_ID" & IIf(FIRMAID > 0, " AND [tblFirma].Firma_ID = " & FIRMAID, ""), "ADMIN") + inner join [VERAG].[dbo].[tblFirma] on [mb_firmaID] = [tblFirma].Firma_ID" & IIf(FIRMAID > 0, " AND [tblFirma].Firma_ID = " & FIRMAID, "") & " order by mb_object,mb_firmaID", "ADMIN") For Each r As DataRow In dt_Bebachrichtigungen.Rows clInterneMailBenachrichtigungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(r.Item("mb_object"), r.Item("mb_id"))) Next diff --git a/UID/frmMain.Designer.vb b/UID/frmMain.Designer.vb index e484983..9e338f5 100644 --- a/UID/frmMain.Designer.vb +++ b/UID/frmMain.Designer.vb @@ -51,6 +51,7 @@ Partial Class frmMain Me.btnMitarbeiter = New System.Windows.Forms.Button() Me.Panel2 = New System.Windows.Forms.Panel() Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.btnInterneBenachrichtigungen = New System.Windows.Forms.Button() Me.Panel3.SuspendLayout() Me.Panel2.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -111,6 +112,7 @@ Partial Class frmMain 'Panel3 ' Me.Panel3.BackColor = System.Drawing.Color.White + Me.Panel3.Controls.Add(Me.btnInterneBenachrichtigungen) Me.Panel3.Controls.Add(Me.lblVersion) Me.Panel3.Controls.Add(Me.btnAuditFlow) Me.Panel3.Controls.Add(Me.btnMailroutine) @@ -149,7 +151,7 @@ Partial Class frmMain ' Me.btnAuditFlow.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAuditFlow.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnAuditFlow.Location = New System.Drawing.Point(12, 243) + Me.btnAuditFlow.Location = New System.Drawing.Point(12, 287) Me.btnAuditFlow.Name = "btnAuditFlow" Me.btnAuditFlow.Size = New System.Drawing.Size(94, 33) Me.btnAuditFlow.TabIndex = 44 @@ -161,7 +163,7 @@ Partial Class frmMain ' Me.btnMailroutine.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnMailroutine.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnMailroutine.Location = New System.Drawing.Point(12, 637) + Me.btnMailroutine.Location = New System.Drawing.Point(12, 648) Me.btnMailroutine.Name = "btnMailroutine" Me.btnMailroutine.Size = New System.Drawing.Size(94, 33) Me.btnMailroutine.TabIndex = 43 @@ -173,7 +175,7 @@ Partial Class frmMain ' Me.btnAPIZugang.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAPIZugang.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnAPIZugang.Location = New System.Drawing.Point(12, 558) + Me.btnAPIZugang.Location = New System.Drawing.Point(12, 569) Me.btnAPIZugang.Name = "btnAPIZugang" Me.btnAPIZugang.Size = New System.Drawing.Size(94, 33) Me.btnAPIZugang.TabIndex = 42 @@ -185,7 +187,7 @@ Partial Class frmMain ' Me.btnDatenarchiv.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDatenarchiv.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 393) + Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 404) Me.btnDatenarchiv.Name = "btnDatenarchiv" Me.btnDatenarchiv.Size = New System.Drawing.Size(94, 33) Me.btnDatenarchiv.TabIndex = 41 @@ -197,7 +199,7 @@ Partial Class frmMain ' Me.btnFehler.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnFehler.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnFehler.Location = New System.Drawing.Point(12, 354) + Me.btnFehler.Location = New System.Drawing.Point(12, 365) Me.btnFehler.Name = "btnFehler" Me.btnFehler.Size = New System.Drawing.Size(94, 33) Me.btnFehler.TabIndex = 40 @@ -209,7 +211,7 @@ Partial Class frmMain ' Me.btnAPI.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAPI.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnAPI.Location = New System.Drawing.Point(12, 315) + Me.btnAPI.Location = New System.Drawing.Point(12, 326) Me.btnAPI.Name = "btnAPI" Me.btnAPI.Size = New System.Drawing.Size(94, 33) Me.btnAPI.TabIndex = 39 @@ -221,7 +223,7 @@ Partial Class frmMain ' Me.btnHomepage.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnHomepage.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnHomepage.Location = New System.Drawing.Point(12, 479) + Me.btnHomepage.Location = New System.Drawing.Point(12, 490) Me.btnHomepage.Name = "btnHomepage" Me.btnHomepage.Size = New System.Drawing.Size(94, 33) Me.btnHomepage.TabIndex = 38 @@ -244,7 +246,7 @@ Partial Class frmMain 'btnUpdate ' Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdate.Location = New System.Drawing.Point(12, 597) + Me.btnUpdate.Location = New System.Drawing.Point(12, 608) Me.btnUpdate.Name = "btnUpdate" Me.btnUpdate.Size = New System.Drawing.Size(94, 34) Me.btnUpdate.TabIndex = 37 @@ -289,7 +291,7 @@ Partial Class frmMain 'Button6 ' Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button6.Location = New System.Drawing.Point(12, 518) + Me.Button6.Location = New System.Drawing.Point(12, 529) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(94, 34) Me.Button6.TabIndex = 33 @@ -342,6 +344,18 @@ Partial Class frmMain Me.PictureBox1.TabIndex = 31 Me.PictureBox1.TabStop = False ' + 'btnInterneBenachrichtigungen + ' + Me.btnInterneBenachrichtigungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnInterneBenachrichtigungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnInterneBenachrichtigungen.Location = New System.Drawing.Point(12, 220) + Me.btnInterneBenachrichtigungen.Name = "btnInterneBenachrichtigungen" + Me.btnInterneBenachrichtigungen.Size = New System.Drawing.Size(94, 52) + Me.btnInterneBenachrichtigungen.TabIndex = 46 + Me.btnInterneBenachrichtigungen.Text = "interne Mail-Benachr." + Me.btnInterneBenachrichtigungen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnInterneBenachrichtigungen.UseVisualStyleBackColor = True + ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -389,4 +403,5 @@ Partial Class frmMain Friend WithEvents btnMailroutine As Button Friend WithEvents btnAuditFlow As Button Friend WithEvents lblVersion As Label + Friend WithEvents btnInterneBenachrichtigungen As Button End Class diff --git a/UID/frmMain.vb b/UID/frmMain.vb index 5bfeca9..f51b9e8 100644 --- a/UID/frmMain.vb +++ b/UID/frmMain.vb @@ -262,4 +262,11 @@ Public Class frmMain Dim f As New frmAuditFlow f.Show(Me) End Sub + + + + Private Sub btnInterneBenachrichtigungen_Click(sender As Object, e As EventArgs) Handles btnInterneBenachrichtigungen.Click + Dim f As New frminterneEmailBenachrichtigungen + f.Show(Me) + End Sub End Class diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 1ba0392..1013ad6 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -532,7 +532,7 @@ Anzeige: Dim Mailext = createInfoMail(regNR, posMassnahmen, "MASSNAHME-DAKOSY") Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-MASSNAHME") - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext) + If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext) End If @@ -816,7 +816,7 @@ Anzeige: If sendInfoMail Then Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit) Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWE", GesSichRef.brgakto_firmaID) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText) + If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText) End If Return True @@ -978,7 +978,7 @@ Anzeige: Dim InfoText As String = createInfoMail(MRN_SUMA, dt, "") Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWA-fehlende Positionen", GesSichRef.brgakto_firmaID) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText) + If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText) End If End If @@ -1080,7 +1080,7 @@ Anzeige: If sendInfoMail Then Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr) Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWA", GesSichRef.brgakto_firmaID) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2) + If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2) End If End If diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 1b5ebcd..3357b54 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -890,8 +890,8 @@ Public Class frmStartOptions If filepath <> "" Then Dim anhenge As New List(Of String) anhenge.Add(filepath) - Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("Stichtagsliste Kundensummen", 19) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "Stichtagsliste Kundensummen " & Now().ToShortDateString, "Im Anhang die Stichtagsliste der Kundensummen vom: " & Now() & vbNewLine & "*Automatic generated e-mail*",,,,, "al@verag.ag", anhenge) + Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("Stichtagsliste Kundensummen", 19) + If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "Stichtagsliste Kundensummen " & Now().ToShortDateString, "Im Anhang die Stichtagsliste der Kundensummen vom: " & Now() & vbNewLine & "*Automatic generated e-mail*",,,,, "al@verag.ag", anhenge) End If End If @@ -7972,6 +7972,7 @@ repeatRequest: Dim dtIMEX As DataTable = dt_wrongEmails.Clone() Dim dtAMBAR As DataTable = dt_wrongEmails.Clone() Dim dtUNISPED As DataTable = dt_wrongEmails.Clone() + Dim dtFRONTOFFICE As DataTable = dt_wrongEmails.Clone() 'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber). Dim yearstocheck As Integer = CustomersWithInvoiceWithingYears @@ -8009,6 +8010,8 @@ repeatRequest: dtAMBAR.ImportRow(ROW) Case "UNISPED" dtUNISPED.ImportRow(ROW) + Case "FRONTOFFICE" + dtFRONTOFFICE.ImportRow(ROW) End Select End If @@ -8025,7 +8028,11 @@ repeatRequest: Dim Betreff = "EMAIL-CHECK" - Dim MailText = "Liste mit fehlerhaften EMail-Adressen im Kunden, die in den letzten " & yearstocheck & " Jahren eine Rechnung bekommen haben " & " < br <> br > " & " * Automatic generated e-mail*" + Dim MailText = "Hallo,

anbei übermitteln wird eine Auflistung von Kunden mit fehlerhaften E-Mail-Adressen, die in den letzten " & yearstocheck & " Jahre(n) eine Rechnung von UNS bekommen haben." + MailText &= "

Aufgrund fehlerhafter Angaben können Emails nicht zugestellt werden, wir ersuchen Sie daher dringend, die angeführten E-Mail-Adressen zeitnah zu überprüfen und zu korrigieren!" + MailText &= "

Erstellt am: " & Now.ToShortDateString & " um " & Now.ToShortTimeString + MailText &= "

Automatisch generiertes E-Mail." + If dtVerag.Rows.Count > 0 Then Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 1) @@ -8033,7 +8040,7 @@ repeatRequest: Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtVerag,,,,, False,,, True) Dim anhenge As New List(Of String) anhenge.Add(path) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG", MailText,,,,, "d.breimaier@verag.ag", anhenge) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) End If End If @@ -8043,7 +8050,7 @@ repeatRequest: Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtIMEX,,,,, False,,, True) Dim anhenge As New List(Of String) anhenge.Add(path) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " IMEX", MailText,,,,, "d.breimaier@verag.ag", anhenge) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " IMEX", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) End If End If @@ -8053,7 +8060,7 @@ repeatRequest: Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtAMBAR,,,,, False,,, True) Dim anhenge As New List(Of String) anhenge.Add(path) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " AMBAR", MailText,,,,, "d.breimaier@verag.ag", anhenge) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " AMBAR", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) End If End If @@ -8063,7 +8070,17 @@ repeatRequest: Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtUNISPED,,,,, False,,, True) Dim anhenge As New List(Of String) anhenge.Add(path) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " UNISPED", MailText,,,,, "d.breimaier@verag.ag", anhenge) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " UNISPED", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) + End If + End If + + If dtFRONTOFFICE.Rows.Count > 0 Then + Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 17) + If empfaneger <> "" Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtFRONTOFFICE,,,,, False,,, True) + Dim anhenge As New List(Of String) + anhenge.Add(path) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " FRONTOFFICE", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) End If End If