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

div. Änderungen

Browse Source
This commit is contained in:
d.breimaier
2026-04-24 17:32:16 +02:00
parent ac0024c919
commit 5101c8ca30
1 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -408,12 +408,13 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If von.Contains("ebilling@uta.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Then If (von.Contains("ebilling@uta.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag")) AndAlso betreff.ToString.ToLower.Contains("uta") Then
'---------------------UTA---------------------- '---------------------UTA----------------------
importFileFromUTAMailAnhang(pfad, betreff) importFileFromUTAMailAnhang(pfad, betreff)
ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Or von.Contains("q8truck.nl@q8.com") Then ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Or von.Contains("q8truck.nl@q8.com") Or von.Contains("df@verag.ag") Then
'---------------------IDS---------------------- '---------------------IDS----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM) importFileFromIDSMailAnhang(pfad, betreff, PARAM)
End If End If
@@ -2005,18 +2006,26 @@ Public Class frmStartOptions
End If End If
ElseIf betreff.contains("Q8Truck KSeF") Then ElseIf betreff.contains("Q8Truck") AndAlso type = "mdm_mail_attach" Then
'Bsp:
'ExportJob E-Invoice:processing mail: F:\vb.net\RoutineManager2\RoutineManager.exe mdm_mail_attach "
'pfad = F:\eee_e-invoice\IV_707156_522653_CO_OBO_0060011910_GEOB00080669-PL_EI.pdf"
'betreff = "WG: Q8Truck KSeF, 0060011910 - GEOB00080669/PL" "24.04.2026 09:37:03" "
'von = d.breimaier@verag.ag"
Dim ids As New cIDS Dim ids As New cIDS
ids.initImportPfade("IDS") ids.initImportPfade("IDS")
Dim Zielpfad = ids.VERARBEITUNG_PFAD Dim Zielpfad = ids.VERARBEITUNG_PFAD
Dim found = False Dim found = False
betreff = betreff.replace("WG: ", "") betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "") betreff = betreff.replace("FW: ", "")
moveFile(pfad, Zielpfad) moveFile(pfad, Zielpfad)
End If End If