edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Verwahrung, Mitarbeiter, Fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-15 10:11:20 +02:00
parent 68309d46e2
commit 25a802f2a6
6 changed files with 256 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -531,7 +531,7 @@ Anzeige:
If posMassnahmen.Rows.Count > 0 Then
Dim Mailext = createInfoMail(regNR, posMassnahmen, "MASSNAHME-DAKOSY")
Dim empfaenger = cMitarbeiter.GetEMailForEmailNotification("MASSNAHME-DAKOSY")
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("MASSNAHME-DAKOSY")
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext,,,,, "d.breimaier@verag.ag")
End If
@@ -815,7 +815,7 @@ Anzeige:
If sendInfoMail Then
Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit)
Dim empfaenger = cMitarbeiter.GetEMailForEmailNotification("Verwahrungseingang-DAKOSY", GesSichRef.brgakto_firmaID)
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("Verwahrungseingang-DAKOSY", 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,,,,, "d.breimaier@verag.ag")
End If
@@ -1079,7 +1079,7 @@ Anzeige:
If sendInfoMail Then
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr)
Dim empfaenger = cMitarbeiter.GetEMailForEmailNotification("Verwahrungsausgang-DAKOSY", GesSichRef.brgakto_firmaID)
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("Verwahrungsausgang-DAKOSY", 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,,,,, "d.breimaier@verag.ag")
End If

4
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -1175,7 +1175,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If filepath <> "" Then
Dim anhenge As New List(Of String)
anhenge.Add(filepath)
Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("RMC Import", 19)
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC Import", 19)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr (EASYTRIP)", "Im Anhang die zu prüfenden Kunden von WÖLFL EasyTrip: " & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
End If
End If
@@ -1269,7 +1269,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If filepath <> "" Then
Dim anhenge As New List(Of String)
anhenge.Add(filepath)
Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("RMC Import", 19)
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC Import", 19)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr", "Im Anhang die zu prüfenden Kunden von WÖLFL für Importdatei: " & fi.Name & vbNewLine & "Pro Importdatei wird ein Email generiert/gesendet" & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
End If
End If

264
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6,6 +6,8 @@ Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Threading
Imports System.Xml
Imports com.sun.xml.internal.rngom
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports javax
Imports MDM_Worker
Imports Renci.SshNet
@@ -335,6 +337,12 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
updateATEZStatusByMRNTop(500)
closeMe()
Case "EMAIL_CHECKER" 'PRÜFT KUNDENADRESSEN AUF KORREKTEN AUFBAU
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
checkEmailAdressen(2, True)
closeMe()
Case "UID_Pruefung"
Dim f As New frmInfo(PARAM)
f.Show()
@@ -885,7 +893,7 @@ Public Class frmStartOptions
If filepath <> "" Then
Dim anhenge As New List(Of String)
anhenge.Add(filepath)
Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("Stichtagsliste Kundensummen", 19)
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)
End If
@@ -3349,13 +3357,13 @@ Public Class frmStartOptions
Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean
Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 1)
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs, True)
Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 20)
Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20)
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs)
Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 24)
Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 24)
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs)
Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 21)
Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 21)
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs)
End Function
@@ -4012,7 +4020,7 @@ Public Class frmStartOptions
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 1)
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, , cbxUpdateFIBU.Checked)
showPic(bool, PictureBox12)
End Sub
@@ -4490,13 +4498,13 @@ Public Class frmStartOptions
Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 20)
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12)
End Sub
Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 24)
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 24)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", Empfaenger, , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12)
End Sub
@@ -4662,7 +4670,7 @@ Public Class frmStartOptions
Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 21)
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 21)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", Empfaenger, "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12)
End Sub
@@ -7029,10 +7037,10 @@ repeatRequest:
Dim anhenge As New List(Of String)
anhenge.Add(filepath)
Dim empfaneger As String = ""
If countMissingVerag > 0 Then empfaneger &= cMitarbeiter.GetEMailForEmailNotification("Creditsafe", 1)
If countMissingIMEX > 0 Then empfaneger &= cMitarbeiter.GetEMailForEmailNotification("Creditsafe", 20)
If countMissingUNISPED > 0 Then empfaneger &= cMitarbeiter.GetEMailForEmailNotification("Creditsafe", 21)
If countMissingAMBAR > 0 Then empfaneger &= cMitarbeiter.GetEMailForEmailNotification("Creditsafe", 24)
If countMissingVerag > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 1)
If countMissingIMEX > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 20)
If countMissingUNISPED > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21)
If countMissingAMBAR > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 24)
If empfaneger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE - fehlende CS-IDs", "Im Anhang befinden sich eine Liste der Kunden, deren Creditsafe-ID ungültig sind/nicht gefunden wurden!" & "<br><br>" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
End If
End If
@@ -7488,83 +7496,13 @@ repeatRequest:
Private Sub btnKKEmailscheck_Click(sender As Object, e As EventArgs) Handles btnKKEmailscheck.Click
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql("select * from (
select ADR.AdressenNr, ADR.[Name 1],KK.kkd_kkaBez, ISNULL(KK.kkd_Email,'') as kkd_email ,isnull(KK.kkd_EmailCC,'') as kkd_EmailCC , isnull(KK.kkd_EmailBCC,'') as kkd_EmailBCC, F.Firma from Adressen ADR
inner join Kunden K on K.KundenNr = ADR.AdressenNr
inner join Filialen F On F.FilialenNr=K.FilialenNr
INNER JOIN tblKundenKontakt KK on KK.kkd_KundenNr = K.KundenNr
where isnull(ADR.Auswahl,'A') = 'A' and (KK.kkd_Email is not null or KK.kkd_EmailCC is not null or KK.kkd_EmailBCC is not null)
UNION
select ADR.AdressenNr, ADR.[Name 1] ,'Standard',isnull(ADR.[E-Mail],''), isnull(ADR.[E-Mail2],''),'', F.Firma from Adressen ADR
inner join Kunden K on K.KundenNr = ADR.AdressenNr
inner join Filialen F On F.FilialenNr=K.FilialenNr
where isnull(ADR.Auswahl,'A') = 'A' and (ADR.[E-Mail] is not null or ADR.[E-Mail2] is not null)
UNION
select ADR.AdressenNr, ADR.[Name 1] ,'Statusmails',isnull(BEN.eb_EMail,''), '','', F.Firma from Adressen ADR
inner join Kunden K on K.KundenNr = ADR.AdressenNr
inner join Filialen F On F.FilialenNr=K.FilialenNr
INNER JOIN tblEmailBenachrichtigung BEN on BEN.eb_KundenNr = K.KundenNr
where isnull(ADR.Auswahl,'A') = 'A' and (BEN.eb_EMail is not null or BEN.eb_cc is not null or BEN.eb_bcc is not null)
) as temp
order by temp.AdressenNr", "FMZOLL", 100, False)
Dim dt_wrongEmails As New DataTable
dt_wrongEmails.Columns.Add("KdNr", GetType(String))
dt_wrongEmails.Columns.Add("Art", GetType(String))
dt_wrongEmails.Columns.Add("Name", GetType(String))
dt_wrongEmails.Columns.Add("Firma", GetType(String))
dt_wrongEmails.Columns.Add("fehlerhafteMail", GetType(String))
dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String))
dt_wrongEmails.Columns.Add("fehlerhafteMail-BCC", GetType(String))
'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber).
Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-2) & "' ", "FMZOLL")
If dt IsNot Nothing Then
For Each r As DataRow In dt.Rows
Dim fehlerhafteMail As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email"))
Dim fehlerhafteMailCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc"))
Dim fehlerhafteMailBCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc"))
If fehlerhafteMail <> "" Or fehlerhafteMailCC <> "" Or fehlerhafteMailBCC <> "" Then
Dim exists As Boolean = dtRechnungen.AsEnumerable().Any(Function(r_rechnung) r_rechnung.Field(Of Integer)("RechnungsKundenNr") = r.Item("AdressenNr"))
If exists Then
Dim ROW As DataRow = dt_wrongEmails.NewRow
ROW("KdNr") = r.Item("AdressenNr")
ROW("Art") = r.Item("kkd_kkaBez")
ROW("Name") = r.Item("Name 1")
ROW("Firma") = r.Item("Firma")
ROW("fehlerhafteMail") = fehlerhafteMail
ROW("fehlerhafteMail-CC") = fehlerhafteMailCC
ROW("fehlerhafteMail-BCC") = fehlerhafteMailBCC
dt_wrongEmails.Rows.Add(ROW)
End If
End If
Next
If dt_wrongEmails.Rows.Count > 0 Then
showPic(False, pbEmailscheck)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_wrongEmails)
Else
showPic(True, pbEmailscheck)
End If
Dim sendNotificationEmails = False
If vbYes = MsgBox("Soll eine Info-Mail an die zuständigen Mitarbeiter geschickt werden?", vbYesNoCancel) Then
sendNotificationEmails = True
End If
checkEmailAdressen(2, sendNotificationEmails)
End Sub
@@ -7579,7 +7517,7 @@ repeatRequest:
With dgv_MDMEinarbeitung
.ClearSelection()
.SET_SQL("SELECT [supplier],[completed],sum(ds_total) as DS ,sum(ds_count) as DS_importiert FROM [VERAG].[dbo].[tblMDMEinarbeitung]
.SET_SQL("Select [supplier], [completed], sum(ds_total) As DS, sum(ds_count) As DS_importiert FROM [VERAG].[dbo].[tblMDMEinarbeitung]
where cast(invoicedate as Date) = '" & dtp_MDM_Einarbeitung.Value & "'
group by [supplier], completed", "FMZOLL")
@@ -7992,4 +7930,154 @@ repeatRequest:
Return updatedCount
End Function
Private Sub checkEmailAdressen(CustomersWithInvoiceWithingYears As Integer, sendNotificationEmails As Boolean)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql("select * from (
select ADR.AdressenNr, ADR.[Name 1],KK.kkd_kkaBez, ISNULL(KK.kkd_Email,'') as kkd_email ,isnull(KK.kkd_EmailCC,'') as kkd_EmailCC , isnull(KK.kkd_EmailBCC,'') as kkd_EmailBCC, F.Firma from Adressen ADR
inner join Kunden K on K.KundenNr = ADR.AdressenNr
inner join Filialen F On F.FilialenNr=K.FilialenNr
INNER JOIN tblKundenKontakt KK on KK.kkd_KundenNr = K.KundenNr
where isnull(ADR.Auswahl,'A') = 'A' and (KK.kkd_Email is not null or KK.kkd_EmailCC is not null or KK.kkd_EmailBCC is not null)
UNION
select ADR.AdressenNr, ADR.[Name 1] ,'Standard',isnull(ADR.[E-Mail],''), isnull(ADR.[E-Mail2],''),'', F.Firma from Adressen ADR
inner join Kunden K on K.KundenNr = ADR.AdressenNr
inner join Filialen F On F.FilialenNr=K.FilialenNr
where isnull(ADR.Auswahl,'A') = 'A' and (ADR.[E-Mail] is not null or ADR.[E-Mail2] is not null)
UNION
select ADR.AdressenNr, ADR.[Name 1] ,'Statusmails',isnull(BEN.eb_EMail,''), '','', F.Firma from Adressen ADR
inner join Kunden K on K.KundenNr = ADR.AdressenNr
inner join Filialen F On F.FilialenNr=K.FilialenNr
INNER JOIN tblEmailBenachrichtigung BEN on BEN.eb_KundenNr = K.KundenNr
where isnull(ADR.Auswahl,'A') = 'A' and (BEN.eb_EMail is not null or BEN.eb_cc is not null or BEN.eb_bcc is not null)
) as temp
order by temp.AdressenNr", "FMZOLL", 100, False)
Dim dt_wrongEmails As New DataTable
dt_wrongEmails.Columns.Add("KdNr", GetType(String))
dt_wrongEmails.Columns.Add("Art", GetType(String))
dt_wrongEmails.Columns.Add("Name", GetType(String))
dt_wrongEmails.Columns.Add("Firma", GetType(String))
dt_wrongEmails.Columns.Add("fehlerhafteMail", GetType(String))
dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String))
dt_wrongEmails.Columns.Add("fehlerhafteMail-BCC", GetType(String))
Dim dtVerag As DataTable = dt_wrongEmails.Clone()
Dim dtIMEX As DataTable = dt_wrongEmails.Clone()
Dim dtAMBAR As DataTable = dt_wrongEmails.Clone()
Dim dtUNISPED 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
Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-yearstocheck) & "' ", "FMZOLL")
If dt IsNot Nothing Then
For Each r As DataRow In dt.Rows
Dim fehlerhafteMail As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email"))
Dim fehlerhafteMailCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc"))
Dim fehlerhafteMailBCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc"))
If fehlerhafteMail <> "" Or fehlerhafteMailCC <> "" Or fehlerhafteMailBCC <> "" Then
Dim exists As Boolean = dtRechnungen.AsEnumerable().Any(Function(r_rechnung) r_rechnung.Field(Of Integer)("RechnungsKundenNr") = r.Item("AdressenNr"))
If exists Then
Dim ROW As DataRow = dt_wrongEmails.NewRow
ROW("KdNr") = r.Item("AdressenNr")
ROW("Art") = r.Item("kkd_kkaBez")
ROW("Name") = r.Item("Name 1")
ROW("Firma") = r.Item("Firma")
ROW("fehlerhafteMail") = fehlerhafteMail
ROW("fehlerhafteMail-CC") = fehlerhafteMailCC
ROW("fehlerhafteMail-BCC") = fehlerhafteMailBCC
dt_wrongEmails.Rows.Add(ROW)
Select Case ROW("Firma").ToString()
Case "VERAG"
dtVerag.ImportRow(ROW)
Case "IMEX"
dtIMEX.ImportRow(ROW)
Case "AMBAR"
dtAMBAR.ImportRow(ROW)
Case "UNISPED"
dtUNISPED.ImportRow(ROW)
End Select
End If
End If
Next
If dt_wrongEmails.Rows.Count > 0 Then
If Not sendNotificationEmails Then
VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_wrongEmails,,,,, True,,, True)
Else
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*"
If dtVerag.Rows.Count > 0 Then
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 1)
If empfaneger <> "" Then
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)
End If
End If
If dtIMEX.Rows.Count > 0 Then
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 20)
If empfaneger <> "" Then
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)
End If
End If
If dtAMBAR.Rows.Count > 0 Then
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 24)
If empfaneger <> "" Then
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)
End If
End If
If dtUNISPED.Rows.Count > 0 Then
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 21)
If empfaneger <> "" Then
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)
End If
End If
End If
End If
showPic(dt_wrongEmails.Rows.Count > 0, pbEmailscheck)
End If
End Sub
End Class