From b0d7d0b48d655bd27ee1d2453f869e529f541f07 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 2 May 2023 10:49:39 +0200 Subject: [PATCH] =?UTF-8?q?Logik=20f=C3=BCr=20Speicherung=20der=20Creditsa?= =?UTF-8?q?fe-Berichte=20ge=C3=A4ndert?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/kunden/usrCntlKundenuebersicht.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index c8a2dab3..b72bb189 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -4,6 +4,7 @@ Imports System.IO Imports com.oracle.xmlns.internal.webservices.jaxws_databinding Imports com.sun.org.apache.bcel.internal.generic Imports java.rmi.server +Imports javax.swing.plaf Imports SDL.EORI Imports sun.invoke.empty Imports VERAG_PROG_ALLGEMEIN @@ -2837,7 +2838,7 @@ Public Class usrCntlKundenuebersicht Dim cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft If PDF IsNot Nothing Then - Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "CREDITSAFE", "", "", "", "Bericht_" & kdNr, kdNr) + Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "CREDITSAFE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "", Now.ToString("ddMMyy_HHmmss.ffff"), "Bericht_" & kdNr, kdNr) Dim path = DS.uploadDataToDATENSERVER_fromBytes(PDF, "Bericht_" & kdNr, ".pdf") If path Then