edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

StartOptions f. ASFINAG

Browse Source
This commit is contained in:
d.breimaier
2023-12-06 08:17:36 +01:00
parent a8222bc9c9
commit 03f1831d02
2 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/cAsfinag.vb
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

8
initATLASAufschubkonten/frmStartOptions.vb
View File

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