From 68309d46e2c0389a3bb71f16bc9e1273c16ffa50 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 14 Apr 2026 16:51:07 +0200 Subject: [PATCH 1/5] =?UTF-8?q?div.=20=C3=84nderungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 25 +++++++++++ UID/Mitarbeiter/frmMitarbDetails.vb | 35 ++++++++++++++++ UID/Mitarbeiter/usrCntlMitarbeiter.vb | 4 -- UID/cSqlDb.vb | 11 +++-- initATLASAufschubkonten/cWorker_Verwahrung.vb | 11 +++-- .../frmNachrichtenVerarbeitung_MDM_divers.vb | 6 ++- initATLASAufschubkonten/frmStartOptions.vb | 41 ++++++++++--------- 7 files changed, 101 insertions(+), 32 deletions(-) diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index 8400967..9a2cc00 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -258,6 +258,8 @@ 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.tabBenachrichtigungen = New System.Windows.Forms.TabPage() + Me.clInterneMailBenachrichtigungen = New System.Windows.Forms.CheckedListBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -285,6 +287,7 @@ Partial Class frmMitarbDetails CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage6.SuspendLayout() CType(Me.dgvSessions, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tabBenachrichtigungen.SuspendLayout() Me.SuspendLayout() ' 'PictureBox1 @@ -413,6 +416,7 @@ Partial Class frmMitarbDetails Me.tbcntr.Controls.Add(Me.TabPage5) Me.tbcntr.Controls.Add(Me.TabPage7) Me.tbcntr.Controls.Add(Me.tabParameter) + Me.tbcntr.Controls.Add(Me.tabBenachrichtigungen) Me.tbcntr.Location = New System.Drawing.Point(2, 539) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 @@ -2984,6 +2988,24 @@ Partial Class frmMitarbDetails Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' + 'tabBenachrichtigungen + ' + Me.tabBenachrichtigungen.Controls.Add(Me.clInterneMailBenachrichtigungen) + Me.tabBenachrichtigungen.Location = New System.Drawing.Point(4, 22) + Me.tabBenachrichtigungen.Name = "tabBenachrichtigungen" + Me.tabBenachrichtigungen.Size = New System.Drawing.Size(442, 174) + Me.tabBenachrichtigungen.TabIndex = 6 + Me.tabBenachrichtigungen.Text = "Benachrichtigungen" + Me.tabBenachrichtigungen.UseVisualStyleBackColor = True + ' + 'clInterneMailBenachrichtigungen + ' + Me.clInterneMailBenachrichtigungen.FormattingEnabled = True + Me.clInterneMailBenachrichtigungen.Location = New System.Drawing.Point(3, 3) + Me.clInterneMailBenachrichtigungen.Name = "clInterneMailBenachrichtigungen" + Me.clInterneMailBenachrichtigungen.Size = New System.Drawing.Size(426, 169) + Me.clInterneMailBenachrichtigungen.TabIndex = 98 + ' 'frmMitarbDetails ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -3035,6 +3057,7 @@ Partial Class frmMitarbDetails Me.TabPage6.ResumeLayout(False) Me.TabPage6.PerformLayout() CType(Me.dgvSessions, System.ComponentModel.ISupportInitialize).EndInit() + Me.tabBenachrichtigungen.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -3272,4 +3295,6 @@ Partial Class frmMitarbDetails Friend WithEvents Label74 As Label Friend WithEvents DateTimePicker1 As DateTimePicker Friend WithEvents dgvSessions As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents tabBenachrichtigungen As TabPage + Friend WithEvents clInterneMailBenachrichtigungen As CheckedListBox End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index eec4801..6716d3f 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -149,6 +149,20 @@ Public Class frmMitarbDetails clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) + clInterneMailBenachrichtigungen.Items.Clear() + Dim dt_Bebachrichtigungen As DataTable = SQL.loadDgvBySql("SELECT mb_object + + CASE + WHEN mb_firmaID IS NULL THEN ' (ALLE)' + ELSE ' (' + [tblFirma].Firma_Bez + ')' + END as mb_object, mb_id + + FROM [ADMIN].[dbo].[tblEMailbenachrichtigungen] + inner join [VERAG].[dbo].[tblFirma] on [mb_firmaID] = [tblFirma].Firma_ID", "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 + + cbxClientTimas.Items.Clear() cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) @@ -454,6 +468,17 @@ Public Class frmMitarbDetails Next End If + + If mitarbeiter.mit_EMailbenachrichtigungen IsNot Nothing AndAlso mitarbeiter.mit_EMailbenachrichtigungen <> "" Then + For Each f In mitarbeiter.mit_EMailbenachrichtigungen.ToString.Split(",") + For i = 0 To clInterneMailBenachrichtigungen.Items.Count - 1 + If DirectCast(clInterneMailBenachrichtigungen.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then + clInterneMailBenachrichtigungen.SetItemChecked(i, True) + End If + Next + Next + End If + ' picFoto.ImageLocation = mitarbeiter.mit_foto End Sub @@ -773,6 +798,16 @@ Public Class frmMitarbDetails mitarbeiter.mit_timasFirmen = mitarbeiter.mit_timasFirmen.ToString.Substring(0, mitarbeiter.mit_timasFirmen.ToString.Length - 1) End If + mitarbeiter.mit_EMailbenachrichtigungen = "" + If mitarbeiter.mit_EMailbenachrichtigungen = "" Then + For Each i In clInterneMailBenachrichtigungen.CheckedItems + mitarbeiter.mit_EMailbenachrichtigungen &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "," + Next + End If + If mitarbeiter.mit_EMailbenachrichtigungen <> "" And mitarbeiter.mit_EMailbenachrichtigungen.ToString.EndsWith(",") Then + mitarbeiter.mit_EMailbenachrichtigungen = mitarbeiter.mit_EMailbenachrichtigungen.ToString.Substring(0, mitarbeiter.mit_EMailbenachrichtigungen.ToString.Length - 1) + End If + End Sub diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb index df369f1..7091476 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb @@ -1,11 +1,7 @@ Imports System.ComponentModel Imports System.Net Imports System.Text -Imports System.Windows.Controls -Imports System.Windows.Forms.VisualStyles.VisualStyleElement -Imports GrapeCity.Viewer.Common.Model Imports VERAG_PROG_ALLGEMEIN -Imports VERAG_PROG_ALLGEMEIN.cChilkat_Helper diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index 7f007f8..77e2bbf 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -1566,8 +1566,8 @@ Public Class cMitarbeiter 'Änderung Dim sql = "INSERT INTO tblMitarbeiter " & - "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 , mit_Sprachkentnisse,mit_EZOLL_SB_UNISPED, mit_homeoffice,mit_timasNichtStempeln,mit_emailprivat, mit_timasMehrereFirmen, mit_timasFirmen, mit_Funktion) OUTPUT INSERTED.mit_id VALUES " & - "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6, @mit_Sprachkentnisse,@mit_EZOLL_SB_UNISPED, @mit_homeoffice,@mit_timasNichtStempeln, @mit_emailprivat, @mit_timasMehrereFirmen, @mit_timasFirmen,@mit_Funktion )" + "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 , mit_Sprachkentnisse,mit_EZOLL_SB_UNISPED, mit_homeoffice,mit_timasNichtStempeln,mit_emailprivat, mit_timasMehrereFirmen, mit_timasFirmen, mit_Funktion,mit_terminalTimasId, mit_EMailbenachrichtigungen) OUTPUT INSERTED.mit_id VALUES " & + "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6, @mit_Sprachkentnisse,@mit_EZOLL_SB_UNISPED, @mit_homeoffice,@mit_timasNichtStempeln, @mit_emailprivat, @mit_timasMehrereFirmen, @mit_timasFirmen,@mit_Funktion,@mit_terminalTimasId, @mit_EMailbenachrichtigungen )" @@ -1653,6 +1653,8 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_timasMehrereFirmen", m.mit_timasMehrereFirmen) cmd.Parameters.AddWithValue("@mit_timasFirmen", If(m.mit_timasFirmen, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_Funktion", If(m.mit_Funktion, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_terminalTimasId", If(m.mit_terminalTimasId, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_EMailbenachrichtigungen", If(m.mit_EMailbenachrichtigungen, DBNull.Value)) Try mid = cmd.ExecuteScalar() @@ -1671,7 +1673,7 @@ Public Class cMitarbeiter Dim sql = "UPDATE tblMitarbeiter " & "SET mit_username=@mit_username, mit_abweichenderAnzeigename=@mit_abweichenderAnzeigename,mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_AliasAD_Domain2=@mit_AliasAD_Domain2,mit_AliasAD_Username2=@mit_AliasAD_Username2,mit_teamId=@mit_teamId,mit_ChatBenutzer=@mit_ChatBenutzer,mit_FirmaHaupt=@mit_FirmaHaupt ,mit_EZOLL_SB_UNISPED=@mit_EZOLL_SB_UNISPED " & - " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd, mit_PersonalNr = @mit_PersonalNr, mit_timasId = @mit_timasId, mit_telefonnr = @mit_telefonnr, mit_ATGRNAccessCode_AT51FP7 =@mit_ATGRNAccessCode_AT51FP7 ,mit_ATGRNAccessCode_AT52VA6=@mit_ATGRNAccessCode_AT52VA6, mit_Sprachkentnisse=@mit_Sprachkentnisse, mit_homeoffice=@mit_homeoffice, mit_timasNichtStempeln=@mit_timasNichtStempeln, mit_emailprivat=@mit_emailprivat, mit_timasMehrereFirmen=@mit_timasMehrereFirmen, mit_timasFirmen=@mit_timasFirmen, mit_Funktion=@mit_Funktion" & + " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd, mit_PersonalNr = @mit_PersonalNr, mit_timasId = @mit_timasId, mit_telefonnr = @mit_telefonnr, mit_ATGRNAccessCode_AT51FP7 =@mit_ATGRNAccessCode_AT51FP7 ,mit_ATGRNAccessCode_AT52VA6=@mit_ATGRNAccessCode_AT52VA6, mit_Sprachkentnisse=@mit_Sprachkentnisse, mit_homeoffice=@mit_homeoffice, mit_timasNichtStempeln=@mit_timasNichtStempeln, mit_emailprivat=@mit_emailprivat, mit_timasMehrereFirmen=@mit_timasMehrereFirmen, mit_timasFirmen=@mit_timasFirmen, mit_Funktion=@mit_Funktion, mit_terminalTimasId=@mit_terminalTimasId, mit_EMailbenachrichtigungen=@mit_EMailbenachrichtigungen" & " WHERE mit_id=@mit_id " @@ -1760,6 +1762,9 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_timasFirmen", If(m.mit_timasFirmen, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_Funktion", If(m.mit_Funktion, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_terminalTimasId", If(m.mit_terminalTimasId, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_EMailbenachrichtigungen", If(m.mit_EMailbenachrichtigungen, DBNull.Value)) + Try cmd.ExecuteNonQuery() diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 1b99e59..8816a88 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -531,7 +531,8 @@ Anzeige: If posMassnahmen.Rows.Count > 0 Then Dim Mailext = createInfoMail(regNR, posMassnahmen, "MASSNAHME-DAKOSY") - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext,,,,, "d.breimaier@verag.ag") + Dim empfaenger = cMitarbeiter.GetEMailForEmailNotification("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 @@ -814,7 +815,8 @@ Anzeige: If sendInfoMail Then Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") + Dim empfaenger = cMitarbeiter.GetEMailForEmailNotification("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 Return True @@ -1076,8 +1078,9 @@ Anzeige: If sendInfoMail Then - Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag") + Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr) + Dim empfaenger = cMitarbeiter.GetEMailForEmailNotification("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 End If diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index c2e0c62..4975699 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb @@ -1175,7 +1175,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers If filepath <> "" Then Dim anhenge As New List(Of String) anhenge.Add(filepath) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("juricevic@verag.ag", "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) + Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("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 @@ -1268,7 +1269,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers If filepath <> "" Then Dim anhenge As New List(Of String) anhenge.Add(filepath) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("juricevic@verag.ag", "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) + Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 6041ccc..05e8408 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -10,6 +10,7 @@ Imports javax Imports MDM_Worker Imports Renci.SshNet Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.at.gv.bmf Imports VERAG_PROG_ALLGEMEIN.cAllgemein Imports VERAG_PROG_ALLGEMEIN.cTelotecAPI @@ -884,6 +885,7 @@ Public Class frmStartOptions If filepath <> "" Then Dim anhenge As New List(Of String) anhenge.Add(filepath) + Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("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 @@ -3347,11 +3349,14 @@ Public Class frmStartOptions Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean - getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs, True) - getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs) - getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs) - getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs) - 'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag") + Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("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) + 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) + 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) + getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs) End Function @@ -4007,10 +4012,8 @@ Public Class frmStartOptions Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - - Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, , cbxUpdateFIBU.Checked) - 'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked) - 'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text) + Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("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 @@ -4487,14 +4490,14 @@ Public Class frmStartOptions Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - - Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) + Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("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 bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) + Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("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 @@ -4659,8 +4662,8 @@ Public Class frmStartOptions Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - - Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) + Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("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 @@ -7026,10 +7029,10 @@ repeatRequest: Dim anhenge As New List(Of String) anhenge.Add(filepath) Dim empfaneger As String = "" - If countMissingVerag > 0 Then empfaneger &= "as@verag.ag;" - If countMissingIMEX > 0 Then empfaneger &= "Viktoria.Leirich@imex-group.at;" - If countMissingUNISPED > 0 Then empfaneger &= "" '"sabine.muehlboeck@unisped.at;" - If countMissingAMBAR > 0 Then empfaneger &= "" '"Buchhaltung@ambarlog.com;" + 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 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!" & "

" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge) End If End If From 25a802f2a6f9793d75d1a9bd342d56b27960b361 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 15 Apr 2026 10:11:20 +0200 Subject: [PATCH 2/5] Verwahrung, Mitarbeiter, Fakt, etc. --- UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 57 ++-- UID/Mitarbeiter/frmMitarbDetails.vb | 48 +++- UID/My Project/AssemblyInfo.vb | 4 +- initATLASAufschubkonten/cWorker_Verwahrung.vb | 6 +- .../frmNachrichtenVerarbeitung_MDM_divers.vb | 4 +- initATLASAufschubkonten/frmStartOptions.vb | 264 ++++++++++++------ 6 files changed, 256 insertions(+), 127 deletions(-) diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index 9a2cc00..d762d4a 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -80,6 +80,8 @@ Partial Class frmMitarbDetails Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.tabParameter = New System.Windows.Forms.TabPage() Me.dgvUserParameter = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.tabBenachrichtigungen = New System.Windows.Forms.TabPage() + Me.clInterneMailBenachrichtigungen = New System.Windows.Forms.CheckedListBox() Me.Label4 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.cboFunktion = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -258,8 +260,7 @@ 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.tabBenachrichtigungen = New System.Windows.Forms.TabPage() - Me.clInterneMailBenachrichtigungen = New System.Windows.Forms.CheckedListBox() + Me.cbxeigeneFirma = New System.Windows.Forms.CheckBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -271,6 +272,7 @@ Partial Class frmMitarbDetails Me.TabPage7.SuspendLayout() Me.tabParameter.SuspendLayout() CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tabBenachrichtigungen.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox1.SuspendLayout() CType(Me.picFoto, System.ComponentModel.ISupportInitialize).BeginInit() @@ -287,7 +289,6 @@ Partial Class frmMitarbDetails CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage6.SuspendLayout() CType(Me.dgvSessions, System.ComponentModel.ISupportInitialize).BeginInit() - Me.tabBenachrichtigungen.SuspendLayout() Me.SuspendLayout() ' 'PictureBox1 @@ -934,6 +935,27 @@ Partial Class frmMitarbDetails Me.dgvUserParameter.Size = New System.Drawing.Size(436, 168) Me.dgvUserParameter.TabIndex = 0 ' + 'tabBenachrichtigungen + ' + Me.tabBenachrichtigungen.Controls.Add(Me.cbxeigeneFirma) + Me.tabBenachrichtigungen.Controls.Add(Me.clInterneMailBenachrichtigungen) + Me.tabBenachrichtigungen.Location = New System.Drawing.Point(4, 22) + Me.tabBenachrichtigungen.Name = "tabBenachrichtigungen" + Me.tabBenachrichtigungen.Size = New System.Drawing.Size(442, 174) + Me.tabBenachrichtigungen.TabIndex = 6 + Me.tabBenachrichtigungen.Text = "Benachrichtigungen" + Me.tabBenachrichtigungen.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.Name = "clInterneMailBenachrichtigungen" + Me.clInterneMailBenachrichtigungen.Size = New System.Drawing.Size(363, 169) + Me.clInterneMailBenachrichtigungen.TabIndex = 98 + ' 'Label4 ' Me.Label4.AutoSize = True @@ -2988,23 +3010,16 @@ Partial Class frmMitarbDetails Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' - 'tabBenachrichtigungen + 'cbxeigeneFirma ' - Me.tabBenachrichtigungen.Controls.Add(Me.clInterneMailBenachrichtigungen) - Me.tabBenachrichtigungen.Location = New System.Drawing.Point(4, 22) - Me.tabBenachrichtigungen.Name = "tabBenachrichtigungen" - Me.tabBenachrichtigungen.Size = New System.Drawing.Size(442, 174) - Me.tabBenachrichtigungen.TabIndex = 6 - Me.tabBenachrichtigungen.Text = "Benachrichtigungen" - Me.tabBenachrichtigungen.UseVisualStyleBackColor = True - ' - 'clInterneMailBenachrichtigungen - ' - Me.clInterneMailBenachrichtigungen.FormattingEnabled = True - Me.clInterneMailBenachrichtigungen.Location = New System.Drawing.Point(3, 3) - Me.clInterneMailBenachrichtigungen.Name = "clInterneMailBenachrichtigungen" - Me.clInterneMailBenachrichtigungen.Size = New System.Drawing.Size(426, 169) - Me.clInterneMailBenachrichtigungen.TabIndex = 98 + 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 ' @@ -3036,6 +3051,8 @@ Partial Class frmMitarbDetails Me.TabPage7.ResumeLayout(False) Me.tabParameter.ResumeLayout(False) CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).EndInit() + Me.tabBenachrichtigungen.ResumeLayout(False) + Me.tabBenachrichtigungen.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.GroupBox1.ResumeLayout(False) @@ -3057,7 +3074,6 @@ Partial Class frmMitarbDetails Me.TabPage6.ResumeLayout(False) Me.TabPage6.PerformLayout() CType(Me.dgvSessions, System.ComponentModel.ISupportInitialize).EndInit() - Me.tabBenachrichtigungen.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -3297,4 +3313,5 @@ Partial Class frmMitarbDetails Friend WithEvents dgvSessions As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents tabBenachrichtigungen As TabPage Friend WithEvents clInterneMailBenachrichtigungen As CheckedListBox + Friend WithEvents cbxeigeneFirma As CheckBox End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index 6716d3f..f01cd9b 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -1,5 +1,6 @@  Imports System.Text.RegularExpressions +Imports DocumentFormat.OpenXml.Drawing.Diagrams Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN.TESTJSON @@ -149,18 +150,6 @@ Public Class frmMitarbDetails clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) - clInterneMailBenachrichtigungen.Items.Clear() - Dim dt_Bebachrichtigungen As DataTable = SQL.loadDgvBySql("SELECT mb_object + - CASE - WHEN mb_firmaID IS NULL THEN ' (ALLE)' - ELSE ' (' + [tblFirma].Firma_Bez + ')' - END as mb_object, mb_id - - FROM [ADMIN].[dbo].[tblEMailbenachrichtigungen] - inner join [VERAG].[dbo].[tblFirma] on [mb_firmaID] = [tblFirma].Firma_ID", "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 cbxClientTimas.Items.Clear() @@ -177,6 +166,7 @@ Public Class frmMitarbDetails cbxClientTimas.SelectedIndex = 0 + loadBenachrichtiungenListe() cboFirma.Items.Clear() cboFirma.Items.Add("VERAG") @@ -1875,5 +1865,39 @@ Public Class frmMitarbDetails End Sub + + Private Sub cbxeigeneFirma_CheckedChanged(sender As Object, e As EventArgs) Handles cbxeigeneFirma.CheckedChanged + If cbxeigeneFirma.Checked Then + + If cboFirmaFMZOLL._value <> "" AndAlso IsNumeric(cboFirmaFMZOLL._value) Then + loadBenachrichtiungenListe(CInt(cboFirmaFMZOLL._value)) + + Else + + loadBenachrichtiungenListe() + + End If + Else + loadBenachrichtiungenListe() + End If + + End Sub + + Private Sub loadBenachrichtiungenListe(Optional FIRMAID As Integer = -1) + + clInterneMailBenachrichtigungen.Items.Clear() + Dim dt_Bebachrichtigungen As DataTable = SQL.loadDgvBySql("SELECT mb_object + + CASE + WHEN mb_firmaID IS NULL THEN ' (ALLE)' + ELSE ' (' + [tblFirma].Firma_Bez + ')' + 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") + 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 + + End Sub End Class diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 2371296..ed49bb9 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 8816a88..02d16f5 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -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 diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index 4975699..f55a7dd 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb @@ -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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 05e8408..7fd7c53 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -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!" & "

" & "*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 \ No newline at end of file From 9489847c643ca5c36a743ffeedc651765c18645a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 15 Apr 2026 11:05:35 +0200 Subject: [PATCH 3/5] Worker, etc. --- initATLASAufschubkonten/cWorker_Verwahrung.vb | 16 ++++++++-------- initATLASAufschubkonten/frmStartOptions.vb | 3 --- 2 files changed, 8 insertions(+), 11 deletions(-) diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 02d16f5..1ba0392 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -531,8 +531,8 @@ Anzeige: If posMassnahmen.Rows.Count > 0 Then Dim Mailext = createInfoMail(regNR, posMassnahmen, "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") + Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-MASSNAHME") + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext) End If @@ -815,8 +815,8 @@ Anzeige: If sendInfoMail Then Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit) - 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") + 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) End If Return True @@ -977,8 +977,8 @@ Anzeige: Dim InfoText As String = createInfoMail(MRN_SUMA, dt, "") - - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") + 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) End If End If @@ -1079,8 +1079,8 @@ Anzeige: If sendInfoMail Then Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr) - 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") + 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) End If End If diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 7fd7c53..1b5ebcd 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -6,13 +6,10 @@ 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 Imports VERAG_PROG_ALLGEMEIN -Imports VERAG_PROG_ALLGEMEIN.at.gv.bmf Imports VERAG_PROG_ALLGEMEIN.cAllgemein Imports VERAG_PROG_ALLGEMEIN.cTelotecAPI From 2cd8fd19fd03bbcad29067371ebae29dabc7e5d1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 15 Apr 2026 11:07:38 +0200 Subject: [PATCH 4/5] version --- UID/My Project/AssemblyInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index ed49bb9..b538c8f 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + From 2593c75d22e6f6b017336971164b307453f116be Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 15 Apr 2026 16:27:01 +0200 Subject: [PATCH 5/5] 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