Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN
This commit is contained in:
42
UID/Mitarbeiter/frmMitarbDetails.Designer.vb
generated
42
UID/Mitarbeiter/frmMitarbDetails.Designer.vb
generated
@@ -80,6 +80,9 @@ 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.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()
|
||||
Me.cboFunktion = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
@@ -269,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()
|
||||
@@ -413,6 +417,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
|
||||
@@ -930,6 +935,38 @@ 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 = "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(0, 2)
|
||||
Me.clInterneMailBenachrichtigungen.Name = "clInterneMailBenachrichtigungen"
|
||||
Me.clInterneMailBenachrichtigungen.Size = New System.Drawing.Size(386, 169)
|
||||
Me.clInterneMailBenachrichtigungen.TabIndex = 98
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
@@ -3014,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)
|
||||
@@ -3272,4 +3311,7 @@ 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
|
||||
Friend WithEvents cbxeigeneFirma As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
|
||||
|
||||
@@ -149,6 +150,8 @@ Public Class frmMitarbDetails
|
||||
clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
|
||||
clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
|
||||
|
||||
|
||||
|
||||
cbxClientTimas.Items.Clear()
|
||||
cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
|
||||
@@ -444,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
|
||||
@@ -454,6 +467,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 +797,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
|
||||
|
||||
@@ -1840,5 +1874,39 @@ Public Class frmMitarbDetails
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxeigeneFirma_CheckedChanged(sender As Object, e As EventArgs) Handles cbxeigeneFirma.CheckedChanged
|
||||
If Not 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, "") & " 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
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.2.5.1")>
|
||||
<Assembly: AssemblyFileVersion("1.2.5.1")>
|
||||
<Assembly: AssemblyVersion("1.2.5.3")>
|
||||
<Assembly: AssemblyFileVersion("1.2.5.3")>
|
||||
|
||||
@@ -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()
|
||||
|
||||
33
UID/frmMain.Designer.vb
generated
33
UID/frmMain.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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.GetEMailRecipientForEmailNotification("DAKOSY-MASSNAHME")
|
||||
If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext)
|
||||
|
||||
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.GetEMailRecipientForEmailNotification("DAKOSY-VWE", GesSichRef.brgakto_firmaID)
|
||||
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
|
||||
@@ -975,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)
|
||||
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
|
||||
@@ -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.GetEMailRecipientForEmailNotification("DAKOSY-VWA", GesSichRef.brgakto_firmaID)
|
||||
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
|
||||
|
||||
@@ -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.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
|
||||
|
||||
@@ -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.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
|
||||
|
||||
|
||||
@@ -334,6 +334,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()
|
||||
@@ -884,7 +890,8 @@ Public Class frmStartOptions
|
||||
If filepath <> "" Then
|
||||
Dim anhenge As New List(Of String)
|
||||
anhenge.Add(filepath)
|
||||
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
|
||||
@@ -3347,11 +3354,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.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.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.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.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
|
||||
|
||||
@@ -4007,10 +4017,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.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
|
||||
|
||||
@@ -4487,14 +4495,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.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 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.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
|
||||
|
||||
@@ -4659,8 +4667,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.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
|
||||
|
||||
@@ -7026,10 +7034,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.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
|
||||
@@ -7485,83 +7493,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
|
||||
|
||||
@@ -7576,7 +7514,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")
|
||||
|
||||
@@ -7989,4 +7927,171 @@ 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()
|
||||
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
|
||||
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)
|
||||
Case "FRONTOFFICE"
|
||||
dtFRONTOFFICE.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 = "Hallo, <br><br>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 &= "<br><br>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 &= "<br><br>Erstellt am: " & Now.ToShortDateString & " um " & Now.ToShortTimeString
|
||||
MailText &= "<br><br>Automatisch generiertes 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,, True, False,, "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,, True, False,, "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,, True, False,, "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,, 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
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
showPic(dt_wrongEmails.Rows.Count > 0, pbEmailscheck)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user