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

8
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -3938,7 +3938,7 @@ Public Class cWorker_NCTS
If (DY_TMP.dy_BezugsNr.Contains("ATEZ") Or DY_TMP.dy_BezugsNr.Contains("PLH")) OrElse (ATEZ IsNot Nothing AndAlso ATEZ.hasEntry) Then
' If ATEZ.status IsNot Nothing Then
'If ATEZ.status < 40 Then
Dim fio As New IO.FileInfo(filePath)
Dim fio As New System.IO.FileInfo(filePath)
FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
'End If
' End If
@@ -3951,7 +3951,7 @@ Public Class cWorker_NCTS
If (dy_BezugsNr.Contains("ATEZ") Or dy_BezugsNr.Contains("PLH")) OrElse (ATEZ IsNot Nothing AndAlso ATEZ.hasEntry) Then
' If ATEZ.status IsNot Nothing Then
'If ATEZ.status < 40 Then
Dim fio As New IO.FileInfo(filePath)
Dim fio As New System.IO.FileInfo(filePath)
FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
'End If
' End If
@@ -3966,7 +3966,7 @@ Public Class cWorker_NCTS
Try
If Not IO.File.Exists(filePath) Then
If Not System.IO.File.Exists(filePath) Then
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). File existert nicht.", "" & vbNewLine & "Datei: " & filePath, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Exit Sub
@@ -4016,7 +4016,7 @@ Public Class cWorker_NCTS
Dim NCTS = cDakosyNCTSOut004.LOADByBezugsNr(dy_BezugsNr, False)
If NCTS IsNot Nothing Then
Dim fio As New IO.FileInfo(filePath)
Dim fio As New System.IO.FileInfo(filePath)
FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\PDF\" & If(NCTS.ncts_MRN, fio.Name.Replace("lock_", "")))
End If
'End If