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

typo in TBL (asfinag)

Browse Source
This commit is contained in:
d.breimaier
2023-12-06 09:52:20 +01:00
parent d09e998985
commit d081f250b5
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
initATLASAufschubkonten/cAsfinag.vb
View File

@@ -1128,7 +1128,7 @@ Public Class cAsfinag
.SortField = "000" .SortField = "000"
.RecordID = "00" .RecordID = "00"
.FileName = fileName .FileName = fileName
.LiveTestIndicator = "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")
.FileCreationTime = Now().ToString("hhmm") .FileCreationTime = Now().ToString("hhmm")
.RunNumber = Format(currentFileNr, "000") .RunNumber = Format(currentFileNr, "000")
@@ -1171,7 +1171,7 @@ Public Class cAsfinag
With Trailer With Trailer
.SortField = "999" .SortField = "999"
.RecordID = "99" .RecordID = "99"
.FileName = "TBL" .FileName = fileName
.RunNumber = Format(currentFileNr, "000") .RunNumber = Format(currentFileNr, "000")
.RecordCount = Format(lngAnzahlSätze, "0000000") .RecordCount = Format(lngAnzahlSätze, "0000000")
.Filler = New String(" ", 13) .Filler = New String(" ", 13)
@@ -1274,7 +1274,7 @@ Public Class cAsfinag
.SortField = "000" .SortField = "000"
.RecordID = "00" .RecordID = "00"
.FileName = fileName .FileName = fileName
.LiveTestIndicator = "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")
.FileCreationTime = Now().ToString("hhmm") .FileCreationTime = Now().ToString("hhmm")
.RunNumber = Format(currentFileNr, "000") .RunNumber = Format(currentFileNr, "000")
@@ -1353,7 +1353,7 @@ Public Class cAsfinag
With Trailer With Trailer
.SortField = "999" .SortField = "999"
.RecordID = "99" .RecordID = "99"
.FileName = "TBL" .FileName = fileName
.RunNumber = Format(currentFileNr, "000") .RunNumber = Format(currentFileNr, "000")
.RecordCount = Format(lngAnzahlSätze, "0000000") .RecordCount = Format(lngAnzahlSätze, "0000000")
.Filler = New String(" ", 13) .Filler = New String(" ", 13)