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

asfinag

Browse Source
This commit is contained in:
d.breimaier
2023-12-06 16:29:06 +01:00
parent cdd3120bf2
commit 4b4a4a3286
1 changed files with 21 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
initATLASAufschubkonten/cAsfinag.vb
View File

@@ -1,6 +1,8 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Globalization
Imports System.IO Imports System.IO
Imports System.Reflection Imports System.Reflection
Imports System.Text.RegularExpressions
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class cAsfinag Public Class cAsfinag
@@ -1123,14 +1125,13 @@ Public Class cAsfinag
Using sw As New StreamWriter(File.Open(strFile, FileMode.OpenOrCreate)) Using sw As New StreamWriter(File.Open(strFile, FileMode.OpenOrCreate))
With Header With Header
.SortField = "000" .SortField = "000"
.RecordID = "00" .RecordID = "00"
.FileName = fileName .FileName = fileName
.LiveTestIndicator = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "L") 'T für Testfile, L Livesystem .LiveTestIndicator = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "L") 'T für Testfile, L Livesystem
.FileCreationDate = Today.ToString("yyyymmdd") .FileCreationDate = Today.ToString("yyyyMMdd", CultureInfo.CurrentCulture)
.FileCreationTime = Now().ToString("hhmm") .FileCreationTime = Now().ToString("HHmm", CultureInfo.CurrentCulture)
.RunNumber = Format(currentFileNr, "000") .RunNumber = Format(currentFileNr, "000")
.SenderID = "VG" .SenderID = "VG"
.ReceiverID = "EP" .ReceiverID = "EP"
@@ -1275,8 +1276,8 @@ Public Class cAsfinag
.RecordID = "00" .RecordID = "00"
.FileName = fileName .FileName = fileName
.LiveTestIndicator = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "L") 'T für Testfile, L Livesystem .LiveTestIndicator = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "L") 'T für Testfile, L Livesystem
.FileCreationDate = Today.ToString("yyyymmdd") .FileCreationDate = Today.ToString("yyyyMMdd", CultureInfo.CurrentCulture)
.FileCreationTime = Now().ToString("hhmm") .FileCreationTime = Now().ToString("HHmm", CultureInfo.CurrentCulture)
.RunNumber = Format(currentFileNr, "000") .RunNumber = Format(currentFileNr, "000")
.SenderID = "VG" .SenderID = "VG"
.ReceiverID = "EP" .ReceiverID = "EP"
@@ -1296,12 +1297,9 @@ Public Class cAsfinag
lngAnzahlSätze = 1 lngAnzahlSätze = 1
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.Rows
lngAnzahlSätze = lngAnzahlSätze + 1
With Body With Body
If Not IsDBNull(row.Item("NewCardNumber")) Then If Not IsDBNull(row.Item("NewCardNumber")) Then
If Not row.Item("NeueKartenNrGemeldet") Then If Not row.Item("NeueKartenNrGemeldet") Then
lngAnzahlSätze = lngAnzahlSätze + 1 lngAnzahlSätze = lngAnzahlSätze + 1
.SortField = "000" .SortField = "000"
.RecordID = "40" .RecordID = "40"
@@ -1671,24 +1669,24 @@ Public Class cAsfinag
'If dtAsfinag.Rows.Count = 0 Then 'If dtAsfinag.Rows.Count = 0 Then
With clfArchiv With clfArchiv
.PKFileName = fi.Name .PKFileName = fi.Name
.RecordType = Trim(Mid(strZeile, 1, 2)) .RecordType = Trim(Mid(strZeile, 1, 2))
.fileVersion = Trim(Mid(strZeile, 3, 2)) .fileVersion = Trim(Mid(strZeile, 3, 2))
.fileNumber = Trim(Mid(strZeile, 5, 3)) .fileNumber = Trim(Mid(strZeile, 5, 3))
.cardNumber = Trim(Mid(strZeile, 9, 22)) .cardNumber = Trim(Mid(strZeile, 9, 22))
.validTo = Trim(Mid(strZeile, 31, 4)) .validTo = Trim(Mid(strZeile, 31, 4))
'.OBUID = Trim(Mid(strZeile, 35, 18)) '.OBUID = Trim(Mid(strZeile, 35, 18))
.vehicleLicensePlate = Trim(Mid(strZeile, 53, 10)) .vehicleLicensePlate = Trim(Mid(strZeile, 53, 10))
.nationality = Trim(Mid(strZeile, 63, 3)) .nationality = Trim(Mid(strZeile, 63, 3))
.vehicleCategory = Trim(Mid(strZeile, 66, 1)) .vehicleCategory = Trim(Mid(strZeile, 66, 1))
.emissionCategory = Trim(Mid(strZeile, 67, 2)) .emissionCategory = Trim(Mid(strZeile, 67, 2))
.status = Trim(Mid(strZeile, 69, 2)) .status = Trim(Mid(strZeile, 69, 2))
.contractDate = DateSerial(Mid(strZeile, 71, 4), Mid(strZeile, 75, 2), Mid(strZeile, 77, 2)) .contractDate = DateSerial(Mid(strZeile, 71, 4), Mid(strZeile, 75, 2), Mid(strZeile, 77, 2))
.engineCharacteristics = Trim(Mid(strZeile, 79, 3)) .engineCharacteristics = Trim(Mid(strZeile, 79, 3))
.CO2EmissionsClass = Trim(Mid(strZeile, 82, 1)) .CO2EmissionsClass = Trim(Mid(strZeile, 82, 1))
.contractType = Trim(Mid(strZeile, 83, 1)) .contractType = Trim(Mid(strZeile, 83, 1))
.SAVE() .SAVE()
End With End With
'End If 'End If
' For Each r As DataRow In dtAsfinag.Rows ' For Each r As DataRow In dtAsfinag.Rows