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

28
DAKOSY_Worker/cDakosyFunftions.vb
View File

@@ -11,7 +11,7 @@ Public Class cDakosyFunftions
Return False
End If
If Not IO.File.Exists(file) Then Return False
If Not System.IO.File.Exists(file) Then Return False
Dim F As New System.IO.FileInfo(file)
Dim DY_server = ""
@@ -28,7 +28,7 @@ Public Class cDakosyFunftions
client.Connect()
'client.Create(file, file)
client.ChangeDirectory(DY_PFAD_IN)
If IO.File.Exists(file) Then
If System.IO.File.Exists(file) Then
'MsgBox(file)
Using uplfileStream = System.IO.File.OpenRead(file)
client.UploadFile(uplfileStream, "." & F.Name, True)
@@ -65,7 +65,7 @@ Public Class cDakosyFunftions
Shared Function send_Data_To_Dakosy_FTP_file(file, FRIMA_DY, Optional misc = False)
Try
If Not IO.File.Exists(file) Then Return False
If Not System.IO.File.Exists(file) Then Return False
Dim F As New System.IO.FileInfo(file)
Dim DY_server = ""
@@ -90,7 +90,7 @@ Public Class cDakosyFunftions
client.ChangeDirectory(DY_PFAD_IN)
End If
If IO.File.Exists(file) Then
If System.IO.File.Exists(file) Then
'MsgBox(file)
Using uplfileStream = System.IO.File.OpenRead(file)
client.UploadFile(uplfileStream, "." & F.Name, True)
@@ -230,14 +230,14 @@ Public Class cDakosyFunftions
Shared Function getDefaultFolder_SEND() As String
Try
getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & "DAKOSY\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
If Not System.IO.Directory.Exists(getDefaultFolder_SEND) Then
System.IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex As Exception
Try
getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
If Not System.IO.Directory.Exists(getDefaultFolder_SEND) Then
System.IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex2 As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -336,11 +336,11 @@ Public Class cDakosyFunftions
Next
Dim saveDir = path
If Not IO.Directory.Exists(saveDir) Then
IO.Directory.CreateDirectory(saveDir)
If Not System.IO.Directory.Exists(saveDir) Then
System.IO.Directory.CreateDirectory(saveDir)
End If
Dim counter = 1
While IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
While System.IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
counter += 1
End While
saveFile = saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml"
@@ -446,11 +446,11 @@ Public Class cDakosyFunftions
Next
Dim saveDir = path
If Not IO.Directory.Exists(saveDir) Then
IO.Directory.CreateDirectory(saveDir)
If Not System.IO.Directory.Exists(saveDir) Then
System.IO.Directory.CreateDirectory(saveDir)
End If
Dim counter = 1
While IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
While System.IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
counter += 1
End While
saveFile = saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml"