StartOptions f. ASFINAG

This commit is contained in:
2023-12-06 08:17:36 +01:00
parent a8222bc9c9
commit 03f1831d02
2 changed files with 10 additions and 8 deletions

View File

@@ -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