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

UID-Pruefung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-05-28 15:50:25 +02:00
parent 301a7bff2a
commit a0ea2cf6e0
7 changed files with 183 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3399,7 +3399,10 @@ Public Class frmStartOptions
Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 19)
getUID_Pruefung(maxAnz, "VERAG 360 GmbH", "UID Prüfung VERAG-360", Empfaenger, "",,, True, finanzOnline, veroegerungMs, True)
Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs, True)
Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20)
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs)
@@ -7983,7 +7986,7 @@ repeatRequest:
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
select ADR.AdressenNr, ADR.[Name 1],F.FilialenNr,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
@@ -7991,14 +7994,14 @@ repeatRequest:
UNION
select ADR.AdressenNr, ADR.[Name 1] ,'Standard',isnull(ADR.[E-Mail],''), isnull(ADR.[E-Mail2],''),'', F.Firma from Adressen ADR
select ADR.AdressenNr, ADR.[Name 1] ,F.FilialenNr,'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
select ADR.AdressenNr, ADR.[Name 1] ,F.FilialenNr,'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
@@ -8011,6 +8014,7 @@ repeatRequest:
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("FilialenNr", GetType(Integer))
dt_wrongEmails.Columns.Add("Firma", GetType(String))
dt_wrongEmails.Columns.Add("fehlerhafteMail", GetType(String))
dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String))
@@ -8021,6 +8025,7 @@ repeatRequest:
Dim dtAMBAR As DataTable = dt_wrongEmails.Clone()
Dim dtUNISPED As DataTable = dt_wrongEmails.Clone()
Dim dtFRONTOFFICE As DataTable = dt_wrongEmails.Clone()
Dim dtVERAG360 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
@@ -8042,6 +8047,7 @@ repeatRequest:
Dim ROW As DataRow = dt_wrongEmails.NewRow
ROW("KdNr") = r.Item("AdressenNr")
ROW("Art") = r.Item("kkd_kkaBez")
ROW("FilialenNr") = r.Item("FilialenNr")
ROW("Name") = r.Item("Name 1")
ROW("Firma") = r.Item("Firma")
ROW("fehlerhafteMail") = fehlerhafteMail
@@ -8051,7 +8057,11 @@ repeatRequest:
Select Case ROW("Firma").ToString()
Case "VERAG"
dtVerag.ImportRow(ROW)
If ROW("FilialenNr") = 8001 Then
dtVERAG360.ImportRow(ROW)
Else
dtVerag.ImportRow(ROW)
End If
Case "IMEX"
dtIMEX.ImportRow(ROW)
Case "AMBAR"
@@ -8132,6 +8142,16 @@ repeatRequest:
End If
End If
If dtVERAG360.Rows.Count > 0 Then
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 19)
If empfaneger <> "" Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtVERAG360,,,,, 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 & " VERAG360", MailText,, True, False,,, anhenge)
End If
End If
End If
End If
@@ -8470,4 +8490,11 @@ repeatRequest:
checkZugferd(sendNotificationEmails)
End Sub
Private Sub LinkLabel54_LinkClicked_2(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 19)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG 360 GmbH", "UID Prüfung VERAG 360", Empfaenger, "",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12)
End Sub
End Class