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