From 05ef46f733c075e0c4e2afc461d714e86c7411b4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 7 Jan 2026 14:01:14 +0100 Subject: [PATCH] MDM --- UID/My Project/AssemblyInfo.vb | 4 ++-- .../frmNachrichtenVerarbeitung_MDM_divers.vb | 18 ++++++++++-------- initATLASAufschubkonten/frmStartOptions.vb | 4 +++- 3 files changed, 15 insertions(+), 11 deletions(-) diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index f84ad35..3284232 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index 2188032..a60c4ec 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb @@ -604,15 +604,19 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers Dim destFilename As String = fi.FullName - destFilename = destFilename.Replace(".pdf", IIf(programName.ToLower.Contains("nto"), "_nto", "_bto") & ".pdf") + If Not destFilename.Contains("_nto") AndAlso Not destFilename.Contains("_bto") Then 'verhindert eine mehrfache umbenennung. - System.IO.File.Move(fi.FullName, destFilename) 'Datei umbenennen + destFilename = destFilename.Replace(".pdf", IIf(programName.ToLower.Contains("nto"), "_nto", "_bto") & ".pdf") + + System.IO.File.Move(fi.FullName, destFilename) 'Datei umbenennen + + fileNamePath = destFilename + End If - fileNamePath = destFilename End If - If fi.Name.ToString.StartsWith("invoice_") OrElse (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'RMC Eigenrechnungen + If fi.Name.ToString.StartsWith("invoice_") OrElse (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'RMC Eigenrechnungen If fi.Name.ToString.StartsWith("invoice_") Then @@ -687,7 +691,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers If RMC.SAVE() Then - Dim adress As New VERAG_PROG_ALLGEMEIN.cAdressen(RMC.rmc_UID, RMC.rmc_kdNr) + Dim adress As New VERAG_PROG_ALLGEMEIN.cAdressen(RMC.rmc_UID, RMC.rmc_kdNr, True) If Not adress.hasEntry Then Dim R As DataRow = dt.NewRow R("KundenNr") = RMC.rmc_kdNr @@ -1325,11 +1329,9 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers End If - - If RMC.SAVE() Then If kdNr <> RMC.rmc_kdNr Then - Dim adress As New VERAG_PROG_ALLGEMEIN.cAdressen(RMC.rmc_UID, RMC.rmc_kdNr) + Dim adress As New VERAG_PROG_ALLGEMEIN.cAdressen(RMC.rmc_UID, RMC.rmc_kdNr, True) 'bei Mehrfachanlage muss auf 15-KundenNr georüft werden! If Not adress.hasEntry Then Dim R As DataRow = dt.NewRow R("KundenNr") = RMC.rmc_kdNr diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 3f173a7..d51fd29 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -5417,7 +5417,9 @@ Public Class frmStartOptions End If MDMEinarb.import_date = Now() - If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then MDMEinarb.SAVE() + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + MDMEinarb.SAVE() + End If End If