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

Logik für Speicherung der Creditsafe-Berichte geändert

Browse Source
This commit is contained in:
d.breimaier
2023-05-02 10:49:39 +02:00
parent 527fd1c115
commit b0d7d0b48d
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -4,6 +4,7 @@ Imports System.IO
Imports com.oracle.xmlns.internal.webservices.jaxws_databinding Imports com.oracle.xmlns.internal.webservices.jaxws_databinding
Imports com.sun.org.apache.bcel.internal.generic Imports com.sun.org.apache.bcel.internal.generic
Imports java.rmi.server Imports java.rmi.server
Imports javax.swing.plaf
Imports SDL.EORI Imports SDL.EORI
Imports sun.invoke.empty Imports sun.invoke.empty
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -2837,7 +2838,7 @@ Public Class usrCntlKundenuebersicht
Dim cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft Dim cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
If PDF IsNot Nothing Then 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") Dim path = DS.uploadDataToDATENSERVER_fromBytes(PDF, "Bericht_" & kdNr, ".pdf")
If path Then If path Then