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

14
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"