StartOptions f. ASFINAG
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user