Double to String-Vergleich korrigiert

2023-09-15 22:29:47 +02:00
parent f767b78d92
commit e525487c5e
5 changed files with 8 additions and 6 deletions
--- a/Aviso/Anhänge/frmSendungAnhangImport.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.vb
@@ -1431,7 +1431,8 @@ Public Class frmSendungAnhangImport
        da_id = DS.da_id
        destPath = DS.GET_TOP1_PATH
        fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
-        Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId)
+        Dim fi As New FileInfo(sourcePath)
+        Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId,, fi.Length)
        If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
        anhId = ANH.anh_id
        Return True