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

MDM

Browse Source
This commit is contained in:
d.breimaier
2026-01-07 14:01:14 +01:00
parent e3c2ac353d
commit 05ef46f733
3 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.4.8")>
<Assembly: AssemblyFileVersion("1.2.4.8")>
<Assembly: AssemblyVersion("1.2.4.9")>
<Assembly: AssemblyFileVersion("1.2.4.9")>

18
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -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

4
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -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