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.Globalization
Imports System.IO
Imports System.Reflection
Imports System.Text.RegularExpressions
Imports VERAG_PROG_ALLGEMEIN
Public Class cAsfinag
@@ -1123,14 +1125,13 @@ Public Class cAsfinag
Using sw As New StreamWriter(File.Open(strFile, FileMode.OpenOrCreate))
With Header
.SortField = "000"
.RecordID = "00"
.FileName = fileName
.LiveTestIndicator = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "L") 'T für Testfile, L Livesystem
.FileCreationDate = Today.ToString("yyyymmdd")
.FileCreationTime = Now().ToString("hhmm")
.FileCreationDate = Today.ToString("yyyyMMdd", CultureInfo.CurrentCulture)
.FileCreationTime = Now().ToString("HHmm", CultureInfo.CurrentCulture)
.RunNumber = Format(currentFileNr, "000")
.SenderID = "VG"
.ReceiverID = "EP"
@@ -1275,8 +1276,8 @@ Public Class cAsfinag
.RecordID = "00"
.FileName = fileName
.LiveTestIndicator = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "L") 'T für Testfile, L Livesystem
.FileCreationDate = Today.ToString("yyyymmdd")
.FileCreationTime = Now().ToString("hhmm")
.FileCreationDate = Today.ToString("yyyyMMdd", CultureInfo.CurrentCulture)
.FileCreationTime = Now().ToString("HHmm", CultureInfo.CurrentCulture)
.RunNumber = Format(currentFileNr, "000")
.SenderID = "VG"
.ReceiverID = "EP"
@@ -1296,12 +1297,9 @@ Public Class cAsfinag
lngAnzahlSätze = 1
For Each row As DataRow In dt.Rows
lngAnzahlSätze = lngAnzahlSätze + 1
With Body
If Not IsDBNull(row.Item("NewCardNumber")) Then
If Not row.Item("NeueKartenNrGemeldet") Then
lngAnzahlSätze = lngAnzahlSätze + 1
.SortField = "000"
.RecordID = "40"