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

Asfinag, ZE-MA-Ansicht

Browse Source
This commit is contained in:
d.breimaier
2023-11-22 16:02:59 +01:00
parent 7a3a0a73ec
commit 227ff9592a
8 changed files with 125 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
initATLASAufschubkonten/cAsfinag.vb
View File

@@ -1,12 +1,6 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Diagnostics.Eventing
Imports System.IO
Imports System.Reflection
Imports System.Security.Cryptography
Imports com.itextpdf.text.pdf
Imports DocumentFormat.OpenXml.VariantTypes
Imports RoutineManager.cAsfinag
Imports VERAG_PROG_ALLGEMEIN
Public Class cAsfinag
@@ -1357,8 +1351,9 @@ Public Class cAsfinag
' zielPfad = SERVER_Path & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
'End While
IO.File.Copy(f, zielPfad & "\" & fi.Name, True)
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM And IO.File.Exists(zielPfad & "\" & fi.Name) Then
IO.File.Move(BEREITSTELLUNG_PFAD & "\" & fi.Name, ARCHIV_PFAD & "\" & fi.Name)
If IO.File.Exists(zielPfad & "\" & fi.Name) Then
If Not IO.Directory.Exists(ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\") Then IO.Directory.CreateDirectory(ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\")
IO.File.Move(BEREITSTELLUNG_PFAD & "\" & fi.Name, ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\" & fi.Name)
End If
cnt += 1
End If
@@ -1419,7 +1414,7 @@ Public Class cAsfinag
For Each f In IO.Directory.GetFiles(SERVERPath)
Dim fi As New IO.FileInfo(f)
If fi.Name.ToLower.Contains(fileType) Then
If fi.Name.ToUpper.Contains(fileType) Then
If Not fi.Name.StartsWith(".") Then
Dim zielPfad = VERARBEITUNG_PFAD & "\" & fi.Name
While IO.File.Exists(zielPfad)
@@ -1431,7 +1426,7 @@ Public Class cAsfinag
End If
Dim filename = frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)
If filename.ToLower.Contains(fileType) Then
If filename.ToUpper.Contains(fileType) Then
filenameList.Add(filename)
cnt += 1
End If