diff --git a/initATLASAufschubkonten/cAsfinag.vb b/initATLASAufschubkonten/cAsfinag.vb
index d837712..177ca0d 100644
--- a/initATLASAufschubkonten/cAsfinag.vb
+++ b/initATLASAufschubkonten/cAsfinag.vb
@@ -1103,7 +1103,8 @@ Public Class cAsfinag
 
             Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
             'qry_ASFINAG_FileInfo_TBL
-            Dim currentFileNr As Integer = SQL.getValueTxtBySql("SELECT fileVersion FROM [FileINfo]  where [filename]='" & fileName & "'", "ASFINAG")
+            Dim currentFileNr As Integer
+            currentFileNr = SQL.getValueTxtBySql("SELECT fileVersion FROM [FileINfo]  where [filename]='" & fileName & "'", "ASFINAG")
             If currentFileNr = 999 Then currentFileNr = 0
             currentFileNr = currentFileNr + 1
             Dim preFilename As String = ""
@@ -1113,7 +1114,7 @@ Public Class cAsfinag
                 preFilename = "TVGEP"
             End If
 
-            Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & currentFileNr
+            Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & Format(currentFileNr, "000")
 
             Try
 
@@ -1250,7 +1251,8 @@ Public Class cAsfinag
 
             Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
             'qry_ASFINAG_FileInfo_TWL
-            Dim currentFileNr As Integer = SQL.getValueTxtBySql("SELECT fileVersion FROM [FileINfo]  where [filename]='" & fileName & "'", "ASFINAG")
+            Dim currentFileNr As Integer
+            currentFileNr = SQL.getValueTxtBySql("SELECT fileVersion FROM [FileINfo]  where [filename]='" & fileName & "'", "ASFINAG")
             If currentFileNr = 999 Then currentFileNr = 0
             currentFileNr = currentFileNr + 1
             Dim preFilename As String = ""
@@ -1260,7 +1262,7 @@ Public Class cAsfinag
                 preFilename = "TVGEP"
             End If
 
-            Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & currentFileNr
+            Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & Format(currentFileNr, "000")
 
             Try
 
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index fb80296..a4f42d1 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -467,8 +467,8 @@ Public Class frmStartOptions
                 closeMe()
 
             Case "ASFINAG_EXPORT"
-                Dim f As New frmInfo(PARAM)
-                f.Show()
+                'Dim f As New frmInfo(PARAM)
+                'f.Show()
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
                 Dim blt = New cAsfinag.Exportist
                 Dim autoclose As Boolean = True
@@ -478,8 +478,8 @@ Public Class frmStartOptions
                 closeMe()
 
             Case "ASFINAG_IMPORT"
-                Dim f As New frmInfo(PARAM)
-                f.Show()
+                'Dim f As New frmInfo(PARAM)
+                'f.Show()
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
                 Dim autoclose As Boolean = True
                 Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM