From 34dafbbeb1cf4e6ef3eac834ced1e1844d80b07f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 21 Jul 2023 09:04:12 +0200 Subject: [PATCH] =?UTF-8?q?Fiskal=C3=BCbersicht-=20Check=20Website?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/kunden/usrcntlFiskaluebersicht.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/SDL/kunden/usrcntlFiskaluebersicht.vb b/SDL/kunden/usrcntlFiskaluebersicht.vb index 887d8067..181a5ace 100644 --- a/SDL/kunden/usrcntlFiskaluebersicht.vb +++ b/SDL/kunden/usrcntlFiskaluebersicht.vb @@ -932,7 +932,7 @@ Public Class usrcntlFiskaluebersicht If Not checkWebsite(txtHomepage.Text) Then Exit Sub - Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url) 'UU langsam.... + Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(txtHomepage.Text) 'UU langsam.... DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", fk.FK_Datum, "", "", "Website", kdNr) Dim fi As New System.IO.FileInfo(pdf) @@ -951,7 +951,7 @@ Public Class usrcntlFiskaluebersicht ' fk.FK_Homepage_PDF = DS.da_id 'End If - fk.FK_Website_URL = url + fk.FK_Website_URL = txtHomepage.Text fk.SAVE() If Not cbxHomepage.Checked Then cbxHomepage.Checked = True @@ -1122,7 +1122,7 @@ Public Class usrcntlFiskaluebersicht If Not checkWebsite(txtWebsiteSt.Text) Then Exit Sub - Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url) 'UU langsam.... + Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(txtWebsiteSt.Text) 'UU langsam.... DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", fk.FK_Datum, "", "", "Website-Steuerberater", kdNr) Dim fi As New System.IO.FileInfo(pdf) @@ -1138,7 +1138,7 @@ Public Class usrcntlFiskaluebersicht ANH.SAVE() - fk.FK_WebsiteSt_URL = url + fk.FK_WebsiteSt_URL = txtWebsiteSt.Text fk.SAVE() initDGVUnterlagen()