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") Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
'qry_ASFINAG_FileInfo_TBL '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 If currentFileNr = 999 Then currentFileNr = 0
currentFileNr = currentFileNr + 1 currentFileNr = currentFileNr + 1
Dim preFilename As String = "" Dim preFilename As String = ""
@@ -1113,7 +1114,7 @@ Public Class cAsfinag
preFilename = "TVGEP" preFilename = "TVGEP"
End If End If
Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & currentFileNr Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & Format(currentFileNr, "000")
Try Try
@@ -1250,7 +1251,8 @@ Public Class cAsfinag
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
'qry_ASFINAG_FileInfo_TWL '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 If currentFileNr = 999 Then currentFileNr = 0
currentFileNr = currentFileNr + 1 currentFileNr = currentFileNr + 1
Dim preFilename As String = "" Dim preFilename As String = ""
@@ -1260,7 +1262,7 @@ Public Class cAsfinag
preFilename = "TVGEP" preFilename = "TVGEP"
End If End If
Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & currentFileNr Dim strFile As String = BEREITSTELLUNG_PFAD & "\" & preFilename & fileName & "." & Format(currentFileNr, "000")
Try Try

8
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -467,8 +467,8 @@ Public Class frmStartOptions
closeMe() closeMe()
Case "ASFINAG_EXPORT" Case "ASFINAG_EXPORT"
Dim f As New frmInfo(PARAM) 'Dim f As New frmInfo(PARAM)
f.Show() 'f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim blt = New cAsfinag.Exportist Dim blt = New cAsfinag.Exportist
Dim autoclose As Boolean = True Dim autoclose As Boolean = True
@@ -478,8 +478,8 @@ Public Class frmStartOptions
closeMe() closeMe()
Case "ASFINAG_IMPORT" Case "ASFINAG_IMPORT"
Dim f As New frmInfo(PARAM) 'Dim f As New frmInfo(PARAM)
f.Show() 'f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim autoclose As Boolean = True Dim autoclose As Boolean = True
Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM