Fiskalübersicht- Check Website

This commit is contained in:
2023-07-21 09:04:12 +02:00
parent 77179dc835
commit 34dafbbeb1

View File

@@ -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()