diff --git a/initATLASAufschubkonten/cAsfinag.vb b/initATLASAufschubkonten/cAsfinag.vb
index 39c0fb6..82879b2 100644
--- a/initATLASAufschubkonten/cAsfinag.vb
+++ b/initATLASAufschubkonten/cAsfinag.vb
@@ -1128,7 +1128,7 @@ Public Class cAsfinag
                         .SortField = "000"
                         .RecordID = "00"
                         .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")
                         .FileCreationTime = Now().ToString("hhmm")
                         .RunNumber = Format(currentFileNr, "000")
@@ -1171,7 +1171,7 @@ Public Class cAsfinag
                     With Trailer
                         .SortField = "999"
                         .RecordID = "99"
-                        .FileName = "TBL"
+                        .FileName = fileName
                         .RunNumber = Format(currentFileNr, "000")
                         .RecordCount = Format(lngAnzahlSätze, "0000000")
                         .Filler = New String(" ", 13)
@@ -1274,7 +1274,7 @@ Public Class cAsfinag
                         .SortField = "000"
                         .RecordID = "00"
                         .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")
                         .FileCreationTime = Now().ToString("hhmm")
                         .RunNumber = Format(currentFileNr, "000")
@@ -1353,7 +1353,7 @@ Public Class cAsfinag
                     With Trailer
                         .SortField = "999"
                         .RecordID = "99"
-                        .FileName = "TBL"
+                        .FileName = fileName
                         .RunNumber = Format(currentFileNr, "000")
                         .RecordCount = Format(lngAnzahlSätze, "0000000")
                         .Filler = New String(" ", 13)