From 11f385087727c73af8093e1d6d93feffd6f4e35c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 14 Nov 2024 12:12:59 +0100 Subject: [PATCH] StartOptions --- initATLASAufschubkonten/frmStartOptions.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index ecdf35f..d3562a5 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -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")