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

Fiskalkunden-Fertigstellung

Browse Source
This commit is contained in:
d.breimaier
2023-06-13 13:44:44 +02:00
parent cd0e9a21f6
commit d7db9c50c9
7 changed files with 597 additions and 397 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
View File

@@ -8,16 +8,15 @@ Public Class cFiskalkunden
Property FK_Datum As Object = Nothing
Property FK_Art As Object = Nothing
Property FK_locked As Object = Nothing
Property FK_Homepage As Object = Nothing
Property FK_Bonitaet As Object = Nothing
Property FK_Vollmacht As Object = Nothing
Property FK_UID As Object = Nothing
Property FK_EORI As Object = Nothing
Property FK_Homepage_URL As Object = Nothing
Property FK_Homepage_PDF As Object = Nothing
Property FK_DatenarchivId As Object = Nothing
Property FK_Website_URL As Object = Nothing
Property FK_WebsiteSt_URL As Object = Nothing
Property FK_VollmachtOriginal As Boolean
Property FK_MaId As Object = Nothing
Property FK_Abschlussdatum As Object = Nothing
Property FK_Abschlussdatum As DateTime
Property FK_Anmerkung As Object = Nothing
Property FK_Lieferanten As Object = Nothing
Property FK_Empfaenger As Object = Nothing
@@ -28,9 +27,7 @@ Public Class cFiskalkunden
Property FK_Geschaeftszweck As Object = Nothing
Property FK_KreditMax As Object = Nothing
Property FK_Geschaeftsfuehrer As Object = Nothing
Property FK_Gesellschafter As Object = Nothing
Property FK_Steuerberater As Object = Nothing
Public hasEntry = False
@@ -52,14 +49,13 @@ Public Class cFiskalkunden
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Datum", FK_Datum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Art", FK_Art))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_locked", FK_locked))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage", FK_Homepage))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Bonitaet", FK_Bonitaet))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Vollmacht", FK_Vollmacht))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_UID", FK_UID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_EORI", FK_EORI))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage_URL", FK_Homepage_URL))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage_PDF", FK_Homepage_PDF))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_DatenarchivId", FK_DatenarchivId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Website_URL", FK_Website_URL))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_WebsiteSt_URL", FK_WebsiteSt_URL))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_VollmachtOriginal", FK_VollmachtOriginal))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Anmerkung", FK_Anmerkung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Abschlussdatum", FK_Abschlussdatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_MaId", FK_MaId))
@@ -72,7 +68,7 @@ Public Class cFiskalkunden
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftszweck", FK_Geschaeftszweck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_KreditMax", FK_KreditMax))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Geschaeftsfuehrer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gesellschafter", FK_Gesellschafter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Steuerberater", FK_Steuerberater))
Return list
End Function

26
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -1300,7 +1300,6 @@ Public Class cFormularManager
End Function
Public Shared Sub PrintViaGS(PDFFile As String, printerName As String)
Try
Dim assembly = System.Reflection.Assembly.GetExecutingAssembly()
@@ -1938,6 +1937,31 @@ Public Class DATENVERVER_OPTIONS
End Function
Public Shared Function getPDFViaSpirePDF_FromFile(File As String, Optional targetPath As String = "") As String
Try
If targetPath = "" Then targetPath = TMP_PATH
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL)
doc.LoadFromHTML(File, False, False, False)
'doc.LoadFromFile(File)
If doc IsNot Nothing Then
doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
doc.PrintDocument.DefaultPageSettings.Landscape = True
doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize
' doc.PrinterName = printerName
' doc.PrintDocument.Print()
doc.SaveToFile(targetPath)
End If
Return targetPath
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return ""
End Function
End Class
Public Class barcodeToPdf