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

Anhanggröße wird in DB gespeichert

Browse Source
This commit is contained in:
d.breimaier
2023-09-15 22:29:23 +02:00
parent e4c666f3c5
commit 880509354a
4 changed files with 168 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/Classes/cEORIWebService.vb
View File

@@ -156,7 +156,8 @@ Public Class cEORIWebService
Dim destPath = DS.GET_TOP1_PATH
If AvisoId > 0 And SendungsId > 0 Then
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "EORI", "PDF", SendungsId)
Dim fi As New FileInfo(PdfTmp)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "EORI", "PDF", SendungsId, , fi.Length)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
Dim anhId = ANH.anh_id
End If

6
SDL/Classes/cFinanzOnlineWebService.vb
View File

@@ -1,4 +1,5 @@
Imports SDL.at.gv.bmf.finanzonlineLogin
Imports System.IO
Imports SDL.at.gv.bmf.finanzonlineLogin
' Aufruf des Webservice von FinanzOnline zur prüfung der UID-Nummer
@@ -177,7 +178,8 @@ Public Class cFinanzOnlineWebService
Dim destPath = DS.GET_TOP1_PATH
If AvisoId > 0 And SendungsId > 0 Then
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId)
Dim fi As New FileInfo(PdfTmp)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId, , fi.Length)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
Dim anhId = ANH.anh_id
End If