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

Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-11-14 21:51:33 +01:00
parent f7f69b80b6 11f3850877
commit 6d6868eec3
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -355,7 +355,7 @@ Public Class frmStartOptions
If von.Contains("ebilling@uta.com") Then
'---------------------UTA----------------------
importFileFromUTAMailAnhang(pfad, betreff)
ElseIf von.Contains("ids.de@q8.com") Or von.Contains("isselh@q8.com") Then
ElseIf von.Contains("ids.de@q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Then
'---------------------IDS----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM)
@@ -803,7 +803,12 @@ Public Class frmStartOptions
For Each row In dt.Rows
Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"), row("LizenzNr"))
If Not cDHF_Anhaenge.hasEntry Then 'WENN NEU::
If Not cDHF_Anhaenge.hasEntry Or cDHF_Anhaenge.LRN = "4805/24006407" Then 'WENN NEU::
If cDHF_Anhaenge.LRN = "4805/24006407" Then
MsgBox("Test")
End If
cDHF_Anhaenge.AnmID = row("AnmID")
cDHF_Anhaenge.LizenzNr = row("LizenzNr")