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

StartOpt, Program

Browse Source
This commit is contained in:
d.breimaier
2026-02-10 10:17:54 +01:00
parent 9cb9133c80
commit 747ac29465
8 changed files with 1172 additions and 932 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -657,7 +657,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim kdNr As String = fileNameEasyTrip.Substring(0, 5)
Dim invoiceNo As String = "" 'FIT2002A25-079939
Dim invoiceDate As String = "" '20250908
Dim UID As String = "" 'DE_341929194
Dim UID As String = "" 'DE_341929194X
Dim RMC As New cRMC() 'easytry über Filename anlegen!
@@ -665,7 +665,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
invoiceDate = fileNameEasyTrip.Substring(indexOfFIT + 17, 8)
Dim parsedDate As DateTime = DateTime.ParseExact(invoiceDate, "yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture)
UID = fileNameEasyTrip.Substring(fileNameEasyTrip.IndexOf("AT70") + 4, 12)
UID = fileNameEasyTrip.Substring(fileNameEasyTrip.IndexOf("AT70") + 4, 13)
UID = UID.Replace("_", "")
RMC.rmc_reDatum = parsedDate.ToString("dd.MM.yyyy")