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

Verwahrung, Mitarbeiter, Fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-15 10:11:21 +02:00
parent 0d8c42342c
commit 438e1c2a1a
5 changed files with 58 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -103,8 +103,7 @@ Public Class cMitarbeiter
Property mit_SchalterID As Object = Nothing
Property mit_Funktion As Object = Nothing
Property mit_terminalTimasId As Object = Nothing 'externe ID von TIMAS
Property mit_EMailbenachrichtigungen As Object = Nothing
Dim SQL As New SQL
@@ -224,6 +223,7 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Funktion", mit_Funktion))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_terminalTimasId", mit_terminalTimasId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EMailbenachrichtigungen", mit_EMailbenachrichtigungen))
@@ -436,6 +436,7 @@ Public Class cMitarbeiter
If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID")
If Not dr.Item("mit_Funktion") Is DBNull.Value Then Me.mit_Funktion = dr.Item("mit_Funktion")
If Not dr.Item("mit_terminalTimasId") Is DBNull.Value Then Me.mit_terminalTimasId = dr.Item("mit_terminalTimasId")
If Not dr.Item("mit_EMailbenachrichtigungen") Is DBNull.Value Then Me.mit_EMailbenachrichtigungen = dr.Item("mit_EMailbenachrichtigungen")
Catch ex As Exception
@@ -488,4 +489,20 @@ Public Class cMitarbeiter
Return Value
End Function
Public Shared Function GetEMailRecipientForEmailNotification(NotificationObject As String, Optional Firma_ID As Integer = -1) As String
Dim dt As New DataTable
Dim mailString As String = ""
dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select distinct(m.mit_email) FROM ADMIN.dbo.tblMitarbeiter m CROSS APPLY dbo.SplitString(m.mit_EMailbenachrichtigungen, ',') s
Join ADMIN.dbo.tblEMailbenachrichtigungen e On TRY_CAST(s.value AS INT) = e.mb_id
WHERE e.mb_object = '" & NotificationObject & "' and isnull(m.mit_email,'') <> '' " & IIf(Firma_ID > 0, " AND e.mb_firmaID = " & Firma_ID & "", ""), "ADMIN")
For Each r As DataRow In dt.Rows
If r.Item("mit_email") <> "" Then mailString &= r.Item("mit_email") & ";"
Next
Return mailString
End Function
End Class

8
VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
View File

@@ -647,10 +647,10 @@ Public Class cCreditSafeAPI
Dim empfanegerMail As String = ""
Select Case firma
Case "VERAG" : empfanegerMail = "as@verag.ag"
Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at"
'Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com"
'Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at"
Case "VERAG" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 1)
Case "IMEX" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 20)
Case "AMBAR" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 24)
Case "UNISPED" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21)
End Select
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag"