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

System.IO, Zugferd, Dakosy-Import Firma gesetzt durch Division1

Browse Source
This commit is contained in:
d.breimaier
2024-09-23 09:53:19 +02:00
parent 6f163b8815
commit 091e526a04
19 changed files with 391 additions and 288 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb
View File

@@ -4,11 +4,11 @@ Imports System.IO
Module AtlasAufschubDatenEinlesen
Public Sub initAllFiles(path As String, HISTORY As Boolean) 'Alle Files im Ordner durchlaufen
For Each file As String In IO.Directory.GetFiles(path)
For Each file As String In System.IO.Directory.GetFiles(path)
If HISTORY Then
initFile(file)
Else
Dim FI As New IO.FileInfo(file)
Dim FI As New System.IO.FileInfo(file)
Dim LastWriteDate As Date = FI.LastWriteTime
If LastWriteDate > Now.AddDays(-6) Then
initFile(file)
@@ -102,7 +102,7 @@ Module AtlasAufschubDatenEinlesen
If System.IO.File.Exists(sFile) Then
Try
Dim F As Short = FreeFile()
FileOpen(F, sFile, IO.FileMode.Open, OpenAccess.Read, OpenShare.LockRead)
FileOpen(F, sFile, System.IO.FileMode.Open, OpenAccess.Read, OpenShare.LockRead)
FileClose(F)
Catch
Return True